MSInitial

This commit is contained in:
Digital Data - Marlon Schreiber 2017-05-02 12:46:28 +02:00
commit 4e34e62b25
98 changed files with 26582 additions and 0 deletions

BIN
.vs/KommiCollo/v15/.suo Normal file

Binary file not shown.

127
ClassDatabase.vb Normal file
View File

@ -0,0 +1,127 @@
Public Class ClassDatabase
Private Shared SQLSERVERConnectionString As String
Private Shared OracleConnectionString As String
Public Shared Function Init()
Try
SQLSERVERConnectionString = My.Settings.ConfigConnectionString
Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLconnect.Close()
Return True
Catch ex As Exception
MsgBox("Fehler bei Database Init: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
Return dt
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
MsgBox("Fehler bei Return_Datatable: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
Return dt
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
MsgBox("Fehler bei Return_Datatable_CS: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
Return True
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
MsgBox("Fehler bei Execute_non_Query: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Public Shared Function Execute_Scalar(cmdscalar As String, Optional Userinput As Boolean = False)
Dim result
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Catch ex As Exception
If Userinput = True Then
MsgBox("Fehler bei Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If
MsgBox("Fehler bei Execute_Scalar: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Shared Function Execute_Scalar_CS(cmdscalar As String, cs As String, Optional Userinput As Boolean = False)
Dim result
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = cs
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Catch ex As Exception
If Userinput = True Then
MsgBox("Fehler bei Execute_Scalar_CS: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If
MsgBox("Fehler bei Execute_Scalar_CS: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
End Class

105
ClassPrintReport.vb Normal file
View File

@ -0,0 +1,105 @@
Imports System
Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Drawing.Printing
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports Microsoft.Reporting.WinForms
Public Class ClassPrintReport
Implements IDisposable
Private Shared m_currentPageIndex As Integer
Private Shared m_streams As IList(Of Stream)
Private Function LoadSalesData() As DataTable
' Create a new DataSet and read sales data file
' data.xml into the first DataTable.
Dim dataSet As New DataSet()
dataSet.ReadXml("..\..\data.xml")
Return dataSet.Tables(0)
End Function
' Routine to provide to the report renderer, in order to
' save an image for each page of the report.
Private Shared Function CreateStream(ByVal name As String, ByVal fileNameExtension As String, ByVal encoding As Encoding, ByVal mimeType As String, ByVal willSeek As Boolean) As Stream
Dim stream As Stream = New MemoryStream()
m_streams.Add(stream)
Return stream
End Function
' Export the given report as an EMF (Enhanced Metafile) file.
Private Shared Sub Export(ByVal report As LocalReport)
Dim deviceInfo As String = "<DeviceInfo>" & _
"<OutputFormat>EMF</OutputFormat>" & _
"<PageWidth>4.1in</PageWidth>" & _
"<PageHeight>5.8in</PageHeight>" & _
"<MarginTop>0.2in</MarginTop>" & _
"<MarginLeft>0.2in</MarginLeft>" & _
"<MarginRight>0.2in</MarginRight>" & _
"<MarginBottom>0.2in</MarginBottom>" & _
"</DeviceInfo>"
Dim warnings As Warning()
m_streams = New List(Of Stream)()
report.Render("Image", deviceInfo, AddressOf CreateStream, warnings)
For Each stream As Stream In m_streams
stream.Position = 0
Next
End Sub
' Handler for PrintPageEvents
Private Shared Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim pageImage As New Metafile(m_streams(m_currentPageIndex))
' Adjust rectangular area with printer margins.
Dim adjustedRect As New Rectangle(ev.PageBounds.Left - CInt(ev.PageSettings.HardMarginX), _
ev.PageBounds.Top - CInt(ev.PageSettings.HardMarginY), _
ev.PageBounds.Width, _
ev.PageBounds.Height)
' Draw a white background for the report
ev.Graphics.FillRectangle(Brushes.White, adjustedRect)
' Draw the report content
ev.Graphics.DrawImage(pageImage, adjustedRect)
' Prepare for the next page. Make sure we haven't hit the end.
m_currentPageIndex += 1
ev.HasMorePages = (m_currentPageIndex < m_streams.Count)
End Sub
Private Shared Sub Print(printerName As String)
If m_streams Is Nothing OrElse m_streams.Count = 0 Then
Throw New Exception("Error: no stream to print.")
End If
Dim printDoc As New PrintDocument()
printDoc.PrinterSettings.PrinterName = printerName
If Not printDoc.PrinterSettings.IsValid Then
Throw New Exception("Error: cannot find the default printer.")
Else
AddHandler printDoc.PrintPage, AddressOf PrintPage
m_currentPageIndex = 0
printDoc.Print()
End If
End Sub
' Create a local report for Report.rdlc, load the data,
' export the report to an .emf file, and print it.
Public Shared Sub Run(report As LocalReport)
'Dim report As New LocalReport()
'report.ReportPath = "..\..\Report.rdlc"
'report.DataSources.Add(New ReportDataSource("Sales", LoadSalesData()))
Export(report)
Print("Schaum-Drucker")
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
If m_streams IsNot Nothing Then
For Each stream As Stream In m_streams
stream.Close()
Next
m_streams = Nothing
End If
End Sub
End Class

2618
DSMercator.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

9
DSMercator.xsc Normal file
View File

@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings />
</DataSetUISetting>

301
DSMercator.xsd Normal file
View File

@ -0,0 +1,301 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema id="DSMercator" targetNamespace="http://tempuri.org/DSMercator.xsd" xmlns:mstns="http://tempuri.org/DSMercator.xsd" xmlns="http://tempuri.org/DSMercator.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
<xs:annotation>
<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
<DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<Connections>
<Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="CP2DDConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="CP2DDConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.KommiCollo.My.MySettings.GlobalReference.Default.CP2DDConnectionString" Provider="System.Data.SqlClient" />
</Connections>
<Tables>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VKKOPFTableAdapter" GeneratorDataComponentClassName="VKKOPFTableAdapter" Name="VKKOPF" UserDataComponentName="VKKOPFTableAdapter">
<MainSource>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectName="CP2DD.dbo.VKKOPF" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [dbo].[VKKOPF] ([vkkopf_bestellnr], [vkkopf_kopfpos], [vkkopf_projekt], [vkkopf_bestaetig_lang], [vkkopf_kunde], [vkkopf_eingang_nr], [vkkopf_gew_netto], [vkkopf_liefadr_name1], [vkkopf_liefadr_name2], [vkkopf_liefadr_name3], [vkkopf_liefadr_strasse], [vkkopf_liefadr_land_nr], [vkkopf_liefadr_ldplz], [vkkopf_liefadr_ort], [vkkopf_liefadr_telefon], [vkkopf_liefadr_email], [vkkopf_anspr_vorname], [vkkopf_anspr_name], [vkkopf_anspr_telefon], [vkkopf_anspr_email], [vkkopf_vertriebsweg]) VALUES (@vkkopf_bestellnr, @vkkopf_kopfpos, @vkkopf_projekt, @vkkopf_bestaetig_lang, @vkkopf_kunde, @vkkopf_eingang_nr, @vkkopf_gew_netto, @vkkopf_liefadr_name1, @vkkopf_liefadr_name2, @vkkopf_liefadr_name3, @vkkopf_liefadr_strasse, @vkkopf_liefadr_land_nr, @vkkopf_liefadr_ldplz, @vkkopf_liefadr_ort, @vkkopf_liefadr_telefon, @vkkopf_liefadr_email, @vkkopf_anspr_vorname, @vkkopf_anspr_name, @vkkopf_anspr_telefon, @vkkopf_anspr_email, @vkkopf_vertriebsweg)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int64" Direction="Input" ParameterName="@vkkopf_bestellnr" Precision="0" ProviderType="BigInt" Scale="0" Size="0" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int64" Direction="Input" ParameterName="@vkkopf_kopfpos" Precision="0" ProviderType="BigInt" Scale="0" Size="0" SourceColumn="vkkopf_kopfpos" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_projekt" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_projekt" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_bestaetig_lang" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_bestaetig_lang" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int64" Direction="Input" ParameterName="@vkkopf_kunde" Precision="0" ProviderType="BigInt" Scale="0" Size="0" SourceColumn="vkkopf_kunde" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int64" Direction="Input" ParameterName="@vkkopf_eingang_nr" Precision="0" ProviderType="BigInt" Scale="0" Size="0" SourceColumn="vkkopf_eingang_nr" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Decimal" Direction="Input" ParameterName="@vkkopf_gew_netto" Precision="15" ProviderType="Decimal" Scale="3" Size="0" SourceColumn="vkkopf_gew_netto" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_name1" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_name1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_name2" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_name2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_name3" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_name3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_strasse" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_strasse" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_land_nr" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_land_nr" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_ldplz" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_ldplz" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_ort" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_ort" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_telefon" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_telefon" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_liefadr_email" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_liefadr_email" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_anspr_vorname" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_anspr_vorname" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_anspr_name" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_anspr_name" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_anspr_telefon" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_anspr_telefon" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_anspr_email" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_anspr_email" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="StringFixedLength" Direction="Input" ParameterName="@vkkopf_vertriebsweg" Precision="0" ProviderType="NChar" Scale="0" Size="0" SourceColumn="vkkopf_vertriebsweg" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT vkkopf_bestellnr, vkkopf_kopfpos, vkkopf_projekt, vkkopf_bestaetig_lang, vkkopf_kunde, vkkopf_eingang_nr, vkkopf_gew_netto, vkkopf_liefadr_name1, vkkopf_liefadr_name2, vkkopf_liefadr_name3, vkkopf_liefadr_strasse, vkkopf_liefadr_land_nr, vkkopf_liefadr_ldplz, vkkopf_liefadr_ort, vkkopf_liefadr_telefon, vkkopf_liefadr_email, vkkopf_anspr_vorname, vkkopf_anspr_name, vkkopf_anspr_telefon, vkkopf_anspr_email, vkkopf_vertriebsweg, GUID FROM dbo.VKKOPF</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="vkkopf_bestellnr" DataSetColumn="vkkopf_bestellnr" />
<Mapping SourceColumn="vkkopf_kopfpos" DataSetColumn="vkkopf_kopfpos" />
<Mapping SourceColumn="vkkopf_projekt" DataSetColumn="vkkopf_projekt" />
<Mapping SourceColumn="vkkopf_bestaetig_lang" DataSetColumn="vkkopf_bestaetig_lang" />
<Mapping SourceColumn="vkkopf_kunde" DataSetColumn="vkkopf_kunde" />
<Mapping SourceColumn="vkkopf_eingang_nr" DataSetColumn="vkkopf_eingang_nr" />
<Mapping SourceColumn="vkkopf_gew_netto" DataSetColumn="vkkopf_gew_netto" />
<Mapping SourceColumn="vkkopf_liefadr_name1" DataSetColumn="vkkopf_liefadr_name1" />
<Mapping SourceColumn="vkkopf_liefadr_name2" DataSetColumn="vkkopf_liefadr_name2" />
<Mapping SourceColumn="vkkopf_liefadr_name3" DataSetColumn="vkkopf_liefadr_name3" />
<Mapping SourceColumn="vkkopf_liefadr_strasse" DataSetColumn="vkkopf_liefadr_strasse" />
<Mapping SourceColumn="vkkopf_liefadr_land_nr" DataSetColumn="vkkopf_liefadr_land_nr" />
<Mapping SourceColumn="vkkopf_liefadr_ldplz" DataSetColumn="vkkopf_liefadr_ldplz" />
<Mapping SourceColumn="vkkopf_liefadr_ort" DataSetColumn="vkkopf_liefadr_ort" />
<Mapping SourceColumn="vkkopf_liefadr_telefon" DataSetColumn="vkkopf_liefadr_telefon" />
<Mapping SourceColumn="vkkopf_liefadr_email" DataSetColumn="vkkopf_liefadr_email" />
<Mapping SourceColumn="vkkopf_anspr_vorname" DataSetColumn="vkkopf_anspr_vorname" />
<Mapping SourceColumn="vkkopf_anspr_name" DataSetColumn="vkkopf_anspr_name" />
<Mapping SourceColumn="vkkopf_anspr_telefon" DataSetColumn="vkkopf_anspr_telefon" />
<Mapping SourceColumn="vkkopf_anspr_email" DataSetColumn="vkkopf_anspr_email" />
<Mapping SourceColumn="vkkopf_vertriebsweg" DataSetColumn="vkkopf_vertriebsweg" />
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
</Mappings>
<Sources>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectName="CP2DD.dbo.VKKOPF" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmbBestellNrGetLand" Modifier="Public" Name="cmbBestellNrGetLand" QueryType="Scalar" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmbBestellNrGetLand">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT vkkopf_liefadr_land_nr
FROM VKKOPF
WHERE (vkkopf_bestellnr = @BestellNr)
GROUP BY vkkopf_liefadr_land_nr</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BestellNr" ColumnName="vkkopf_bestellnr" DataSourceName="CP2DD.dbo.VKKOPF" DataTypeServer="bigint" DbType="Int64" Direction="Input" ParameterName="@BestellNr" Precision="0" ProviderType="BigInt" Scale="0" Size="8" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdBestellNrGetGewichtNetto" Modifier="Public" Name="cmdBestellNrGetGewichtNetto" QueryType="Scalar" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy1" UserSourceName="cmdBestellNrGetGewichtNetto">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT SUM(vkkopf_gew_netto) AS Expr1
FROM VKKOPF
WHERE (vkkopf_bestellnr = @BESTELLNR)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BESTELLNR" ColumnName="vkkopf_bestellnr" DataSourceName="CP2DD.dbo.VKKOPF" DataTypeServer="bigint" DbType="Int64" Direction="Input" ParameterName="@BESTELLNR" Precision="0" ProviderType="BigInt" Scale="0" Size="8" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectName="CP2DD.dbo.VKKOPF" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdBestellNrGetLieferFirma" Modifier="Public" Name="cmdBestellNrGetLieferFirma" QueryType="Scalar" ScalarCallRetval="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy2" UserSourceName="cmdBestellNrGetLieferFirma">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT vkkopf_liefadr_name1 FROM VKKOPF where vkkopf_bestellnr = @BestellNr group by vkkopf_liefadr_name1 </CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BestellNr" ColumnName="vkkopf_bestellnr" DataSourceName="CP2DD.dbo.VKKOPF" DataTypeServer="bigint" DbType="Int64" Direction="Input" ParameterName="@BestellNr" Precision="0" ProviderType="BigInt" Scale="0" Size="8" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectName="CP2DD.dbo.VKKOPF" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdBestellNrGetLieferOrt" Modifier="Public" Name="cmdBestellNrGetLieferOrt" QueryType="Scalar" ScalarCallRetval="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy3" UserSourceName="cmdBestellNrGetLieferOrt">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT vkkopf_liefadr_ort FROM VKKOPF where vkkopf_bestellnr = @BestellNr group by vkkopf_liefadr_ort</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BestellNr" ColumnName="vkkopf_bestellnr" DataSourceName="CP2DD.dbo.VKKOPF" DataTypeServer="bigint" DbType="Int64" Direction="Input" ParameterName="@BestellNr" Precision="0" ProviderType="BigInt" Scale="0" Size="8" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectName="CP2DD.dbo.VKKOPF" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdBestellNrLieferFirma2" Modifier="Public" Name="cmdBestellNrLieferFirma2" QueryType="Scalar" ScalarCallRetval="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy4" UserSourceName="cmdBestellNrLieferFirma2">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT vkkopf_liefadr_name2 FROM VKKOPF where vkkopf_bestellnr = @BestellNr group by vkkopf_liefadr_name2 </CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BestellNr" ColumnName="vkkopf_bestellnr" DataSourceName="CP2DD.dbo.VKKOPF" DataTypeServer="bigint" DbType="Int64" Direction="Input" ParameterName="@BestellNr" Precision="0" ProviderType="BigInt" Scale="0" Size="8" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdCheckBestellNrExists" Modifier="Public" Name="cmdCheckBestellNrExists" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy5" UserSourceName="cmdCheckBestellNrExists">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT COUNT(*) FROM VKKOPF where vkkopf_bestellnr = @BestellNr</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BestellNr" ColumnName="vkkopf_bestellnr" DataSourceName="CP2DD.dbo.VKKOPF" DataTypeServer="bigint" DbType="Int64" Direction="Input" ParameterName="@BestellNr" Precision="0" ProviderType="BigInt" Scale="0" Size="8" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectName="CP2DD.dbo.VKKOPF" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdGetLieferPLZ" Modifier="Public" Name="cmdGetLieferPLZ" QueryType="Scalar" ScalarCallRetval="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy6" UserSourceName="cmdGetLieferPLZ">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT [vkkopf_liefadr_ldplz] FROM VKKOPF where vkkopf_bestellnr = @BestellNr group by [vkkopf_liefadr_ldplz] </CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BestellNr" ColumnName="vkkopf_bestellnr" DataSourceName="CP2DD.dbo.VKKOPF" DataTypeServer="bigint" DbType="Int64" Direction="Input" ParameterName="@BestellNr" Precision="0" ProviderType="BigInt" Scale="0" Size="8" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="CP2DDConnectionString (MySettings)" DbObjectName="CP2DD.dbo.VKKOPF" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdGetLieferStrasse" Modifier="Public" Name="cmdGetLieferStrasse" QueryType="Scalar" ScalarCallRetval="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy7" UserSourceName="cmdGetLieferStrasse">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT [vkkopf_liefadr_strasse]FROM VKKOPF where vkkopf_bestellnr = @BestellNr group by [vkkopf_liefadr_strasse]</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="BestellNr" ColumnName="vkkopf_bestellnr" DataSourceName="CP2DD.dbo.VKKOPF" DataTypeServer="bigint" DbType="Int64" Direction="Input" ParameterName="@BestellNr" Precision="0" ProviderType="BigInt" Scale="0" Size="8" SourceColumn="vkkopf_bestellnr" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</Sources>
</TableAdapter>
</Tables>
<Sources />
</DataSource>
</xs:appinfo>
</xs:annotation>
<xs:element name="DSMercator" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DSMercator" msprop:Generator_UserDSName="DSMercator">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="VKKOPF" msprop:Generator_TableClassName="VKKOPFDataTable" msprop:Generator_TableVarName="tableVKKOPF" msprop:Generator_TablePropName="VKKOPF" msprop:Generator_RowDeletingName="VKKOPFRowDeleting" msprop:Generator_UserTableName="VKKOPF" msprop:Generator_RowChangingName="VKKOPFRowChanging" msprop:Generator_RowEvHandlerName="VKKOPFRowChangeEventHandler" msprop:Generator_RowDeletedName="VKKOPFRowDeleted" msprop:Generator_RowEvArgName="VKKOPFRowChangeEvent" msprop:Generator_RowChangedName="VKKOPFRowChanged" msprop:Generator_RowClassName="VKKOPFRow">
<xs:complexType>
<xs:sequence>
<xs:element name="vkkopf_bestellnr" msprop:Generator_ColumnVarNameInTable="columnvkkopf_bestellnr" msprop:Generator_ColumnPropNameInRow="vkkopf_bestellnr" msprop:Generator_ColumnPropNameInTable="vkkopf_bestellnrColumn" msprop:Generator_UserColumnName="vkkopf_bestellnr" type="xs:long" minOccurs="0" />
<xs:element name="vkkopf_kopfpos" msprop:Generator_ColumnVarNameInTable="columnvkkopf_kopfpos" msprop:Generator_ColumnPropNameInRow="vkkopf_kopfpos" msprop:Generator_ColumnPropNameInTable="vkkopf_kopfposColumn" msprop:Generator_UserColumnName="vkkopf_kopfpos" type="xs:long" minOccurs="0" />
<xs:element name="vkkopf_projekt" msprop:Generator_ColumnVarNameInTable="columnvkkopf_projekt" msprop:Generator_ColumnPropNameInRow="vkkopf_projekt" msprop:Generator_ColumnPropNameInTable="vkkopf_projektColumn" msprop:Generator_UserColumnName="vkkopf_projekt" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="25" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_bestaetig_lang" msprop:Generator_ColumnVarNameInTable="columnvkkopf_bestaetig_lang" msprop:Generator_ColumnPropNameInRow="vkkopf_bestaetig_lang" msprop:Generator_ColumnPropNameInTable="vkkopf_bestaetig_langColumn" msprop:Generator_UserColumnName="vkkopf_bestaetig_lang" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="60" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_kunde" msprop:Generator_ColumnVarNameInTable="columnvkkopf_kunde" msprop:Generator_ColumnPropNameInRow="vkkopf_kunde" msprop:Generator_ColumnPropNameInTable="vkkopf_kundeColumn" msprop:Generator_UserColumnName="vkkopf_kunde" type="xs:long" minOccurs="0" />
<xs:element name="vkkopf_eingang_nr" msprop:Generator_ColumnVarNameInTable="columnvkkopf_eingang_nr" msprop:Generator_ColumnPropNameInRow="vkkopf_eingang_nr" msprop:Generator_ColumnPropNameInTable="vkkopf_eingang_nrColumn" msprop:Generator_UserColumnName="vkkopf_eingang_nr" type="xs:long" minOccurs="0" />
<xs:element name="vkkopf_gew_netto" msprop:Generator_ColumnVarNameInTable="columnvkkopf_gew_netto" msprop:Generator_ColumnPropNameInRow="vkkopf_gew_netto" msprop:Generator_ColumnPropNameInTable="vkkopf_gew_nettoColumn" msprop:Generator_UserColumnName="vkkopf_gew_netto" type="xs:decimal" minOccurs="0" />
<xs:element name="vkkopf_liefadr_name1" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_name1" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_name1" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_name1Column" msprop:Generator_UserColumnName="vkkopf_liefadr_name1" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_liefadr_name2" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_name2" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_name2" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_name2Column" msprop:Generator_UserColumnName="vkkopf_liefadr_name2" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_liefadr_name3" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_name3" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_name3" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_name3Column" msprop:Generator_UserColumnName="vkkopf_liefadr_name3" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_liefadr_strasse" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_strasse" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_strasse" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_strasseColumn" msprop:Generator_UserColumnName="vkkopf_liefadr_strasse" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_liefadr_land_nr" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_land_nr" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_land_nr" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_land_nrColumn" msprop:Generator_UserColumnName="vkkopf_liefadr_land_nr" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="10" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_liefadr_ldplz" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_ldplz" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_ldplz" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_ldplzColumn" msprop:Generator_UserColumnName="vkkopf_liefadr_ldplz" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="8" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_liefadr_ort" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_ort" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_ort" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_ortColumn" msprop:Generator_UserColumnName="vkkopf_liefadr_ort" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_liefadr_telefon" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_telefon" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_telefon" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_telefonColumn" msprop:Generator_UserColumnName="vkkopf_liefadr_telefon" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="20" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_liefadr_email" msprop:Generator_ColumnVarNameInTable="columnvkkopf_liefadr_email" msprop:Generator_ColumnPropNameInRow="vkkopf_liefadr_email" msprop:Generator_ColumnPropNameInTable="vkkopf_liefadr_emailColumn" msprop:Generator_UserColumnName="vkkopf_liefadr_email" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_anspr_vorname" msprop:Generator_ColumnVarNameInTable="columnvkkopf_anspr_vorname" msprop:Generator_ColumnPropNameInRow="vkkopf_anspr_vorname" msprop:Generator_ColumnPropNameInTable="vkkopf_anspr_vornameColumn" msprop:Generator_UserColumnName="vkkopf_anspr_vorname" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_anspr_name" msprop:Generator_ColumnVarNameInTable="columnvkkopf_anspr_name" msprop:Generator_ColumnPropNameInRow="vkkopf_anspr_name" msprop:Generator_ColumnPropNameInTable="vkkopf_anspr_nameColumn" msprop:Generator_UserColumnName="vkkopf_anspr_name" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_anspr_telefon" msprop:Generator_ColumnVarNameInTable="columnvkkopf_anspr_telefon" msprop:Generator_ColumnPropNameInRow="vkkopf_anspr_telefon" msprop:Generator_ColumnPropNameInTable="vkkopf_anspr_telefonColumn" msprop:Generator_UserColumnName="vkkopf_anspr_telefon" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="20" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_anspr_email" msprop:Generator_ColumnVarNameInTable="columnvkkopf_anspr_email" msprop:Generator_ColumnPropNameInRow="vkkopf_anspr_email" msprop:Generator_ColumnPropNameInTable="vkkopf_anspr_emailColumn" msprop:Generator_UserColumnName="vkkopf_anspr_email" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="vkkopf_vertriebsweg" msprop:Generator_ColumnVarNameInTable="columnvkkopf_vertriebsweg" msprop:Generator_ColumnPropNameInRow="vkkopf_vertriebsweg" msprop:Generator_ColumnPropNameInTable="vkkopf_vertriebswegColumn" msprop:Generator_UserColumnName="vkkopf_vertriebsweg" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="60" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1">
<xs:selector xpath=".//mstns:VKKOPF" />
<xs:field xpath="mstns:vkkopf_bestellnr" />
<xs:field xpath="mstns:vkkopf_kopfpos" />
</xs:unique>
</xs:element>
</xs:schema>

12
DSMercator.xss Normal file
View File

@ -0,0 +1,12 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool to store the dataset designer's layout information.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:VKKOPF" ZOrder="1" X="140" Y="32" Height="457" Width="289" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
</Shapes>
<Connectors />
</DiagramLayout>

290
KommiCollo.vbproj Normal file
View File

@ -0,0 +1,290 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{8B32E5A8-2C71-4B81-A991-DE1A4465A4B1}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>KommiCollo.My.MyApplication</StartupObject>
<RootNamespace>KommiCollo</RootNamespace>
<AssemblyName>KommiCollo</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>KommiCollo.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>KommiCollo.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="Microsoft.ReportViewer.Common, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
<Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
<Reference Include="Microsoft.VisualBasic.PowerPacks.Vs, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="ClassDatabase.vb" />
<Compile Include="ClassPrintReport.vb" />
<Compile Include="DSMercator.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DSMercator.xsd</DependentUpon>
</Compile>
<Compile Include="frmAbschluss.Designer.vb">
<DependentUpon>frmAbschluss.vb</DependentUpon>
</Compile>
<Compile Include="frmAbschluss.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmConnection.Designer.vb">
<DependentUpon>frmConnection.vb</DependentUpon>
</Compile>
<Compile Include="frmConnection.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLabel_.HP.Designer.vb">
<DependentUpon>frmLabel_.HP.vb</DependentUpon>
</Compile>
<Compile Include="frmLabel_.HP.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmPrintOptions.Designer.vb">
<DependentUpon>frmPrintOptions.vb</DependentUpon>
</Compile>
<Compile Include="frmPrintOptions.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmStammdatenverwaltung.Designer.vb">
<DependentUpon>frmStammdatenverwaltung.vb</DependentUpon>
</Compile>
<Compile Include="frmStammdatenverwaltung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ModuleCURRENT.vb" />
<Compile Include="modul_print_reports.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="MyDataset.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>MyDataset.xsd</DependentUpon>
</Compile>
<Compile Include="RawPrinter.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmAbschluss.resx">
<DependentUpon>frmAbschluss.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConnection.resx">
<DependentUpon>frmConnection.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLabel_.HP.resx">
<DependentUpon>frmLabel_.HP.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmPrintOptions.resx">
<DependentUpon>frmPrintOptions.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmStammdatenverwaltung.resx">
<DependentUpon>frmStammdatenverwaltung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="rptUebergabe.rdlc" />
<EmbeddedResource Include="Testreport.rdlc">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="DSMercator.xsc">
<DependentUpon>DSMercator.xsd</DependentUpon>
</None>
<None Include="DSMercator.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DSMercator.Designer.vb</LastGenOutput>
</None>
<None Include="DSMercator.xss">
<DependentUpon>DSMercator.xsd</DependentUpon>
</None>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="MyDataset.xsc">
<DependentUpon>MyDataset.xsd</DependentUpon>
</None>
<None Include="MyDataset.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
</None>
<None Include="MyDataset.xss">
<DependentUpon>MyDataset.xsd</DependentUpon>
</None>
</ItemGroup>
<ItemGroup>
<None Include="Resources\lightning_go.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lightning.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lightning_add.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lightning_delete.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\database_lightning.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\package_go.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\package_green.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\package_add.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\package_delete.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\A_1.ico" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\cancel.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\chart_organisation_add.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\chart_organisation_delete.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\save.bmp" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\delete2.ico" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\action_add_16xMD.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\bullet_delete.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\delete.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\BarCodeHS.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\action_Cancel_16xLG.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

244
KommiCollo.vbproj.bak Normal file
View File

@ -0,0 +1,244 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{8B32E5A8-2C71-4B81-A991-DE1A4465A4B1}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>KommiCollo.My.MyApplication</StartupObject>
<RootNamespace>KommiCollo</RootNamespace>
<AssemblyName>KommiCollo</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<TargetFrameworkProfile>Client</TargetFrameworkProfile>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>KommiCollo.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>KommiCollo.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraLayout.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="Microsoft.VisualBasic.PowerPacks.Vs, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="ClassDatabase.vb" />
<Compile Include="DSMercator.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DSMercator.xsd</DependentUpon>
</Compile>
<Compile Include="frmAbschluss.Designer.vb">
<DependentUpon>frmAbschluss.vb</DependentUpon>
</Compile>
<Compile Include="frmAbschluss.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmConnection.Designer.vb">
<DependentUpon>frmConnection.vb</DependentUpon>
</Compile>
<Compile Include="frmConnection.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmStammdatenverwaltung.Designer.vb">
<DependentUpon>frmStammdatenverwaltung.vb</DependentUpon>
</Compile>
<Compile Include="frmStammdatenverwaltung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="MyDataset.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>MyDataset.xsd</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmAbschluss.resx">
<DependentUpon>frmAbschluss.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConnection.resx">
<DependentUpon>frmConnection.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmStammdatenverwaltung.resx">
<DependentUpon>frmStammdatenverwaltung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="DSMercator.xsc">
<DependentUpon>DSMercator.xsd</DependentUpon>
</None>
<None Include="DSMercator.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DSMercator.Designer.vb</LastGenOutput>
</None>
<None Include="DSMercator.xss">
<DependentUpon>DSMercator.xsd</DependentUpon>
</None>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="MyDataset.xsc">
<DependentUpon>MyDataset.xsd</DependentUpon>
</None>
<None Include="MyDataset.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
</None>
<None Include="MyDataset.xss">
<DependentUpon>MyDataset.xsd</DependentUpon>
</None>
</ItemGroup>
<ItemGroup>
<None Include="Resources\lightning_go.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lightning.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lightning_add.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lightning_delete.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\database_lightning.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\package_go.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\package_green.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\package_add.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\package_delete.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\A_1.ico" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\cancel.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\chart_organisation_add.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\chart_organisation_delete.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\save.bmp" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\delete2.ico" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

3
KommiCollo.vbproj.user Normal file
View File

@ -0,0 +1,3 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
</Project>

4
ModuleCURRENT.vb Normal file
View File

@ -0,0 +1,4 @@
Module ModuleCURRENT
Public CURRENT_SENDUNG As Integer
Public CURR_IP_PRINTER As String
End Module

38
My Project/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.KommiCollo.frmMain
End Sub
End Class
End Namespace

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-16"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die mit einer Assembly verknüpft sind.
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("KommiCollo")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("KommiCollo")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2013")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
<Assembly: Guid("0cb73816-401d-462e-a77e-8d7a805de930")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

263
My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,263 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("KommiCollo.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property A_1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("A_1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property action_add_16xMD() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("action_add_16xMD", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property action_Cancel_16xLG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("action_Cancel_16xLG", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property BarCodeHS() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BarCodeHS", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property bullet_delete() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("bullet_delete", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property cancel() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cancel", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property chart_organisation_add() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("chart_organisation_add", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property chart_organisation_delete() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("chart_organisation_delete", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property database_lightning() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("database_lightning", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property delete() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("delete", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property delete2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("delete2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lightning() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lightning", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lightning_add() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lightning_add", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lightning_delete() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lightning_delete", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lightning_go() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lightning_go", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property package_add() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("package_add", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property package_delete() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("package_delete", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property package_go() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("package_go", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property package_green() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("package_green", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property save() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("save", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

181
My Project/Resources.resx Normal file
View File

@ -0,0 +1,181 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="package_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\package_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lightning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lightning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="package_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\package_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BarCodeHS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BarCodeHS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="package_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\package_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="chart_organisation_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\chart_organisation_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lightning_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lightning_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lightning_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lightning_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_lightning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_lightning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="package_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\package_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lightning_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lightning_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="chart_organisation_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\chart_organisation_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

146
My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,146 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info="& _
"True;User ID=sa;Password=dd"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property ConfigConnectionString() As String
Get
Return CType(Me("ConfigConnectionString"),String)
End Get
Set
Me("ConfigConnectionString") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info="& _
"True;User ID=sa;Password=dd")> _
Public ReadOnly Property SCHAUM_IIDConnectionString() As String
Get
Return CType(Me("SCHAUM_IIDConnectionString"),String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property Default_Mandant() As String
Get
Return CType(Me("Default_Mandant"),String)
End Get
Set
Me("Default_Mandant") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property Default_Terminart() As String
Get
Return CType(Me("Default_Terminart"),String)
End Get
Set
Me("Default_Terminart") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd")> _
Public Property ConfigConnStringMercator() As String
Get
Return CType(Me("ConfigConnStringMercator"),String)
End Get
Set
Me("ConfigConnStringMercator") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd")> _
Public ReadOnly Property CP2DDConnectionString() As String
Get
Return CType(Me("CP2DDConnectionString"),String)
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.KommiCollo.My.MySettings
Get
Return Global.KommiCollo.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,34 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="ConfigConnectionString" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)">Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="SCHAUM_IIDConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="Default_Mandant" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="Default_Terminart" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="ConfigConnStringMercator" Type="System.String" Scope="User">
<Value Profile="(Default)">Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="CP2DDConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd</Value>
</Setting>
</Settings>
</SettingsFile>

1
My Project/licenses.licx Normal file
View File

@ -0,0 +1 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

View File

@ -0,0 +1 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

12010
MyDataset.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

29
MyDataset.xsc Normal file
View File

@ -0,0 +1,29 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings>
<TableUISetting Name="TBKOMMCOLLI_MANDANT">
<ColumnUISettings>
<ColumnUISetting Name="ERFASSTWANN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="GEAENDERTWANN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="PRINTER_NAME">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
</TableUISettings>
</DataSetUISetting>

1520
MyDataset.xsd Normal file

File diff suppressed because it is too large Load Diff

71
MyDataset.xss Normal file
View File

@ -0,0 +1,71 @@
<?xml version="1.0" encoding="utf-8"?>
<!--<autogenerated>
This code was generated by a tool to store the dataset designer's layout information.
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBKOMMCOLLI_MANDANT" ZOrder="15" X="42" Y="-21" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="233" />
<Shape ID="DesignTable:TBWH_MANDANT" ZOrder="14" X="432" Y="31" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBKOMMCOLLI_PAKET_KOPF" ZOrder="7" X="57" Y="337" Height="476" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBKOMMCOLLI_PAKET_POS" ZOrder="6" X="525" Y="421" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWKOMMCOLLI_ABSCHLUSS_PAKET" ZOrder="8" X="840" Y="110" Height="286" Width="222" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBKOMMCOLLI_TERMINART" ZOrder="10" X="1225" Y="0" Height="206" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="116" />
<Shape ID="DesignTable:TBKOMMCOLLI_PAKET_POS_LS" ZOrder="5" X="1278" Y="332" Height="96" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="46" />
<Shape ID="DesignTable:TBKOMMCOLLI_SDGPOSITIONEN" ZOrder="4" X="523" Y="142" Height="172" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBKOMMCOLLI_TEXTSCHLUESSEL" ZOrder="3" X="835" Y="417" Height="115" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBKOMMCOLLI_HINWEIS" ZOrder="2" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:VWHUP_REPORT1" ZOrder="1" X="1108" Y="298" Height="305" Width="250" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID" ZOrder="13" LineWidth="11">
<RoutePoints>
<Point>
<X>206</X>
<Y>303</Y>
</Point>
<Point>
<X>206</X>
<Y>337</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID" ZOrder="12" LineWidth="11">
<RoutePoints>
<Point>
<X>357</X>
<Y>487</Y>
</Point>
<Point>
<X>525</X>
<Y>487</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1" ZOrder="11" LineWidth="11">
<RoutePoints>
<Point>
<X>840</X>
<Y>338</Y>
</Point>
<Point>
<X>357</X>
<Y>338</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBKOMMCOLLI_TERMINART_MANDANT_ID" ZOrder="9" LineWidth="11">
<RoutePoints>
<Point>
<X>342</X>
<Y>152</Y>
</Point>
<Point>
<X>1225</X>
<Y>152</Y>
</Point>
</RoutePoints>
</Connector>
</Connectors>
</DiagramLayout>

53
RawPrinter.vb Normal file
View File

@ -0,0 +1,53 @@
Imports System.Runtime.InteropServices
Public Class RawPrinter
Public Structure DOCINFO
<MarshalAs(UnmanagedType.LPWStr)> Public DocumentName As String
<MarshalAs(UnmanagedType.LPWStr)> Public OutputFile As String
<MarshalAs(UnmanagedType.LPWStr)> Public DataType As String
End Structure
<DllImport("winspool.drv", CharSet:=CharSet.Unicode, ExactSpelling:=False, CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function OpenPrinter(ByVal pPrinterName As String, ByRef phPrinter As IntPtr, ByVal pDefault As Integer) As Long
End Function
<DllImport("winspool.drv", CharSet:=CharSet.Unicode, ExactSpelling:=False, CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function StartDocPrinter(ByVal hPrinter As IntPtr, ByVal Level As Integer, ByRef pDocInfo As DOCINFO) As Long
End Function
<DllImport("winspool.drv", CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function StartPagePrinter(ByVal hPrinter As IntPtr) As Long
End Function
<DllImport("winspool.drv", CharSet:=CharSet.Ansi, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function WritePrinter(ByVal hPrinter As IntPtr, ByVal data As String, ByVal buf As Integer, ByRef pcWritten As Integer) As Long
End Function
<DllImport("winspool.drv", CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function EndPagePrinter(ByVal hPrinter As IntPtr) As Long
End Function
<DllImport("winspool.drv", CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function EndDocPrinter(ByVal hPrinter As IntPtr) As Long
End Function
<DllImport("winspool.drv", CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function ClosePrinter(ByVal hPrinter As IntPtr) As Long
End Function
Public Shared Sub SendToPrinter(ByVal printerJobName As String, ByVal rawStringToSendToThePrinter As String, ByVal printerNameAsDescribedByPrintManager As String)
Dim handleForTheOpenPrinter = New IntPtr()
Dim documentInformation = New DOCINFO()
Dim printerBytesWritten = 0
documentInformation.DocumentName = printerJobName
documentInformation.DataType = vbNullString
documentInformation.OutputFile = vbNullString
OpenPrinter(printerNameAsDescribedByPrintManager, handleForTheOpenPrinter, 0)
StartDocPrinter(handleForTheOpenPrinter, 1, documentInformation)
StartPagePrinter(handleForTheOpenPrinter)
WritePrinter(handleForTheOpenPrinter, rawStringToSendToThePrinter, rawStringToSendToThePrinter.Length, printerBytesWritten)
EndPagePrinter(handleForTheOpenPrinter)
EndDocPrinter(handleForTheOpenPrinter)
ClosePrinter(handleForTheOpenPrinter)
End Sub
End Class

BIN
Resources/A_1.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.6 KiB

BIN
Resources/BarCodeHS.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 438 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 517 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 173 B

BIN
Resources/bullet_delete.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 308 B

BIN
Resources/cancel.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 587 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 551 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 563 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 775 B

BIN
Resources/delete.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 715 B

BIN
Resources/delete2.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

BIN
Resources/lightning.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 634 B

BIN
Resources/lightning_add.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 746 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 745 B

BIN
Resources/lightning_go.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 739 B

BIN
Resources/package_add.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 899 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 891 B

BIN
Resources/package_go.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 898 B

BIN
Resources/package_green.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 896 B

BIN
Resources/save.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

120
Testreport.rdlc Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Body>
<ReportItems>
<Line Name="Line1">
<Top>0.85273cm</Top>
<Left>0.76412cm</Left>
<Height>0cm</Height>
<Width>8.70479cm</Width>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Textbox Name="Textbox1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Howdie</Value>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>1.24009cm</Top>
<Left>4.06246cm</Left>
<Height>0.6cm</Height>
<Width>2.5cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Line Name="Line2">
<Top>12.78502cm</Top>
<Left>0.76412cm</Left>
<Height>0cm</Height>
<Width>8.70479cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Rectangle Name="Rectangle1">
<ReportItems>
<Textbox Name="Textbox2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Ojemine</Value>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>2.83104cm</Top>
<Left>1.98438cm</Left>
<Height>0.6cm</Height>
<Width>2.5cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>1.9812cm</Top>
<Left>0.76412cm</Left>
<Height>10.66271cm</Height>
<Width>8.70479cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Rectangle>
</ReportItems>
<Height>5.09375in</Height>
<Style />
</Body>
<Width>4.00486in</Width>
<Page>
<PageHeight>10.5cm</PageHeight>
<PageWidth>14.5cm</PageWidth>
<LeftMargin>0.5cm</LeftMargin>
<RightMargin>0.5cm</RightMargin>
<TopMargin>0.5cm</TopMargin>
<BottomMargin>0.5cm</BottomMargin>
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>73f73e8f-c03f-4892-917f-1d00b08769d6</rd:ReportID>
</Report>

48
app.config Normal file
View File

@ -0,0 +1,48 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="KommiCollo.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<connectionStrings>
<add name="KommiCollo.My.MySettings.SCHAUM_IIDConnectionString" connectionString="Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
<add name="KommiCollo.My.MySettings.CP2DDConnectionString" connectionString="Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
</connectionStrings>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<KommiCollo.My.MySettings>
<setting name="ConfigConnectionString" serializeAs="String">
<value>Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd</value>
</setting>
<setting name="Default_Mandant" serializeAs="String">
<value/>
</setting>
<setting name="Default_Terminart" serializeAs="String">
<value/>
</setting>
<setting name="ConfigConnStringMercator" serializeAs="String">
<value>Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd</value>
</setting>
</KommiCollo.My.MySettings>
</userSettings>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/></startup></configuration>

BIN
bin/Debug/KommiCollo.exe Normal file

Binary file not shown.

View File

@ -0,0 +1,53 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="KommiCollo.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="KommiCollo.My.MySettings.SCHAUM_IIDConnectionString"
connectionString="Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
<add name="KommiCollo.My.MySettings.CP2DDConnectionString" connectionString="Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<KommiCollo.My.MySettings>
<setting name="ConfigConnectionString" serializeAs="String">
<value>Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd</value>
</setting>
<setting name="Default_Mandant" serializeAs="String">
<value />
</setting>
<setting name="Default_Terminart" serializeAs="String">
<value />
</setting>
<setting name="ConfigConnStringMercator" serializeAs="String">
<value>Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd</value>
</setting>
</KommiCollo.My.MySettings>
</userSettings>
</configuration>

BIN
bin/Debug/KommiCollo.pdb Normal file

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,53 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="KommiCollo.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="KommiCollo.My.MySettings.SCHAUM_IIDConnectionString"
connectionString="Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
<add name="KommiCollo.My.MySettings.CP2DDConnectionString" connectionString="Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<KommiCollo.My.MySettings>
<setting name="ConfigConnectionString" serializeAs="String">
<value>Data Source=172.24.12.41\schaum;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd</value>
</setting>
<setting name="Default_Mandant" serializeAs="String">
<value />
</setting>
<setting name="Default_Terminart" serializeAs="String">
<value />
</setting>
<setting name="ConfigConnStringMercator" serializeAs="String">
<value>Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd</value>
</setting>
</KommiCollo.My.MySettings>
</userSettings>
</configuration>

387
bin/Debug/KommiCollo.xml Normal file
View File

@ -0,0 +1,387 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
KommiCollo
</name>
</assembly>
<members>
<member name="M:KommiCollo.modul_print_reports.print_microsoft_report(Microsoft.Reporting.WinForms.LocalReport@,System.Int32,System.Int32,System.Boolean,System.String)">
<summary>
Print rdlc report with custom page width and height
</summary>
<param name="report"></param>
<param name="page_width">the width of the papger, in hunderdths of an inch</param>
<param name="page_height">the height of the papger, in hunderdths of an inch</param>
<param name="islandscap"></param>
<param name="printer_name">Ignore this parameter to use default printer</param>
<remarks></remarks>
</member><member name="M:KommiCollo.modul_print_reports.print_microsoft_report(Microsoft.Reporting.WinForms.LocalReport,System.String,System.Boolean,System.String)">
<summary>
Print rdlc report with specific paper kind
</summary>
<param name="report"></param>
<param name="paperkind">String paper Kind, ex:"letter"</param>
<param name="islandscap"></param>
<param name="printer_name">Ignore this parameter to use default printer</param>
<remarks></remarks>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_MANDANTDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBWH_MANDANTDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POSDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TERMINARTDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POS_LSDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_HINWEISDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.VWHUP_REPORT1DataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_MANDANTRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBWH_MANDANTRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_KOPFRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POSRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TERMINARTRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POS_LSRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_SDGPOSITIONENRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_HINWEISRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.VWHUP_REPORT1Row">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_MANDANTRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBWH_MANDANTRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_KOPFRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POSRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TERMINARTRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_HINWEISRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.VWHUP_REPORT1RowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset">
<summary>
Represents a strongly typed in-memory cache of data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_MANDANTTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBWH_MANDANTTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_KOPFTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POSTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.VWKOMMCOLLI_ABSCHLUSS_PAKETTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_TERMINARTTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POS_LSTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_SDGPOSITIONENTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_HINWEISTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.VWHUP_REPORT1TableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateUpdatedRows(KommiCollo.MyDataset,System.Collections.Generic.List{System.Data.DataRow},System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Update rows in top-down order.
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateInsertedRows(KommiCollo.MyDataset,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Insert rows in top-down order.
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateDeletedRows(KommiCollo.MyDataset,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Delete rows in bottom-up order.
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.GetRealUpdatedRows(System.Data.DataRow[],System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateAll(KommiCollo.MyDataset)">
<summary>
Update all changes to the dataset.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption">
<summary>
Update Order Option
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.SelfReferenceComparer">
<summary>
Used to sort self-referenced table's rows
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TableAdapterManager">
<summary>
TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
</summary>
</member><member name="T:KommiCollo.DSMercator.VKKOPFDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.DSMercator.VKKOPFRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.DSMercator.VKKOPFRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.DSMercator">
<summary>
Represents a strongly typed in-memory cache of data.
</summary>
</member><member name="T:KommiCollo.DSMercatorTableAdapters.VKKOPFTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateUpdatedRows(KommiCollo.DSMercator,System.Collections.Generic.List{System.Data.DataRow},System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Update rows in top-down order.
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateInsertedRows(KommiCollo.DSMercator,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Insert rows in top-down order.
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateDeletedRows(KommiCollo.DSMercator,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Delete rows in bottom-up order.
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.GetRealUpdatedRows(System.Data.DataRow[],System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateAll(KommiCollo.DSMercator)">
<summary>
Update all changes to the dataset.
</summary>
</member><member name="T:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateOrderOption">
<summary>
Update Order Option
</summary>
</member><member name="T:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.SelfReferenceComparer">
<summary>
Used to sort self-referenced table's rows
</summary>
</member><member name="T:KommiCollo.DSMercatorTableAdapters.TableAdapterManager">
<summary>
TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.A_1">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.action_add_16xMD">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.action_Cancel_16xLG">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.BarCodeHS">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.bullet_delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.cancel">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.chart_organisation_add">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.chart_organisation_delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.database_lightning">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.delete2">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.lightning">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.lightning_add">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.lightning_delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.lightning_go">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.package_add">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.package_delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.package_go">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.package_green">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.save">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="T:KommiCollo.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>

120
bin/Debug/Testreport.rdlc Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Body>
<ReportItems>
<Line Name="Line1">
<Top>0.85273cm</Top>
<Left>0.76412cm</Left>
<Height>0cm</Height>
<Width>8.70479cm</Width>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Textbox Name="Textbox1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Howdie</Value>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>1.24009cm</Top>
<Left>4.06246cm</Left>
<Height>0.6cm</Height>
<Width>2.5cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Line Name="Line2">
<Top>12.78502cm</Top>
<Left>0.76412cm</Left>
<Height>0cm</Height>
<Width>8.70479cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Rectangle Name="Rectangle1">
<ReportItems>
<Textbox Name="Textbox2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Ojemine</Value>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>2.83104cm</Top>
<Left>1.98438cm</Left>
<Height>0.6cm</Height>
<Width>2.5cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>1.9812cm</Top>
<Left>0.76412cm</Left>
<Height>10.66271cm</Height>
<Width>8.70479cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Rectangle>
</ReportItems>
<Height>5.09375in</Height>
<Style />
</Body>
<Width>4.00486in</Width>
<Page>
<PageHeight>10.5cm</PageHeight>
<PageWidth>14.5cm</PageWidth>
<LeftMargin>0.5cm</LeftMargin>
<RightMargin>0.5cm</RightMargin>
<TopMargin>0.5cm</TopMargin>
<BottomMargin>0.5cm</BottomMargin>
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>73f73e8f-c03f-4892-917f-1d00b08769d6</rd:ReportID>
</Report>

348
frmAbschluss.Designer.vb generated Normal file
View File

@ -0,0 +1,348 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAbschluss
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtcheck_all = New System.Windows.Forms.ToolStripButton()
Me.tsbtde_check_all = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.VWAbschlussDataGridView = New System.Windows.Forms.DataGridView()
Me.Auswahl = New System.Windows.Forms.DataGridViewCheckBoxColumn()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cmbMandant = New System.Windows.Forms.ComboBox()
Me.btndelete = New System.Windows.Forms.Button()
Me.btnAbschluss = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.DSMercator = New KommiCollo.DSMercator()
Me.VKKOPFBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VKKOPFTableAdapter = New KommiCollo.DSMercatorTableAdapters.VKKOPFTableAdapter()
Me.TableAdapterManager1 = New KommiCollo.DSMercatorTableAdapters.TableAdapterManager()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.VWAbschlussBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New KommiCollo.MyDataset()
Me.VWAbschlussTableAdapter = New KommiCollo.MyDatasetTableAdapters.VWKOMMCOLLI_ABSCHLUSS_PAKETTableAdapter()
Me.TableAdapterManager = New KommiCollo.MyDatasetTableAdapters.TableAdapterManager()
Me.TBKOMMCOLLI_MANDANTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBKOMMCOLLI_MANDANTTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_MANDANTTableAdapter()
Me.TBKOMMCOLLI_PAKET_POSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBKOMMCOLLI_PAKET_POSTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POSTableAdapter()
Me.TBKOMMCOLLI_PAKET_KOPFBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_KOPFTableAdapter()
Me.TBKOMMCOLLI_PAKET_POS_LSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBKOMMCOLLI_PAKET_POS_LSTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POS_LSTableAdapter()
Me.ToolStrip1.SuspendLayout()
CType(Me.VWAbschlussDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.DSMercator, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VKKOPFBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWAbschlussBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBKOMMCOLLI_MANDANTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBKOMMCOLLI_PAKET_POSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBKOMMCOLLI_PAKET_KOPFBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBKOMMCOLLI_PAKET_POS_LSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtcheck_all, Me.tsbtde_check_all, Me.ToolStripSeparator1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(852, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtcheck_all
'
Me.tsbtcheck_all.Image = Global.KommiCollo.My.Resources.Resources.chart_organisation_add
Me.tsbtcheck_all.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.tsbtcheck_all.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtcheck_all.Name = "tsbtcheck_all"
Me.tsbtcheck_all.Size = New System.Drawing.Size(114, 22)
Me.tsbtcheck_all.Text = "Alle Auswählen"
'
'tsbtde_check_all
'
Me.tsbtde_check_all.Image = Global.KommiCollo.My.Resources.Resources.chart_organisation_delete
Me.tsbtde_check_all.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.tsbtde_check_all.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtde_check_all.Name = "tsbtde_check_all"
Me.tsbtde_check_all.Size = New System.Drawing.Size(111, 22)
Me.tsbtde_check_all.Text = "Alle entwählen"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'VWAbschlussDataGridView
'
Me.VWAbschlussDataGridView.AllowUserToAddRows = False
Me.VWAbschlussDataGridView.AllowUserToDeleteRows = False
Me.VWAbschlussDataGridView.AutoGenerateColumns = False
Me.VWAbschlussDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.VWAbschlussDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Auswahl, Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4})
Me.VWAbschlussDataGridView.DataSource = Me.VWAbschlussBindingSource
Me.VWAbschlussDataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.VWAbschlussDataGridView.Location = New System.Drawing.Point(0, 0)
Me.VWAbschlussDataGridView.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.VWAbschlussDataGridView.Name = "VWAbschlussDataGridView"
Me.VWAbschlussDataGridView.Size = New System.Drawing.Size(698, 591)
Me.VWAbschlussDataGridView.TabIndex = 1
'
'Auswahl
'
Me.Auswahl.DataPropertyName = "Auswahl"
Me.Auswahl.HeaderText = "Auswahl"
Me.Auswahl.Name = "Auswahl"
Me.Auswahl.Width = 60
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cmbMandant)
Me.Panel1.Controls.Add(Me.btndelete)
Me.Panel1.Controls.Add(Me.btnAbschluss)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 25)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(154, 591)
Me.Panel1.TabIndex = 2
'
'cmbMandant
'
Me.cmbMandant.FormattingEnabled = True
Me.cmbMandant.Location = New System.Drawing.Point(3, 19)
Me.cmbMandant.Name = "cmbMandant"
Me.cmbMandant.Size = New System.Drawing.Size(141, 25)
Me.cmbMandant.TabIndex = 2
'
'btndelete
'
Me.btndelete.Image = Global.KommiCollo.My.Resources.Resources.delete2
Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btndelete.Location = New System.Drawing.Point(3, 194)
Me.btndelete.Name = "btndelete"
Me.btndelete.Size = New System.Drawing.Size(141, 63)
Me.btndelete.TabIndex = 1
Me.btndelete.Text = "Gewählte Pakete" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "löschen"
Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btndelete.UseVisualStyleBackColor = True
'
'btnAbschluss
'
Me.btnAbschluss.Image = Global.KommiCollo.My.Resources.Resources.package_go
Me.btnAbschluss.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAbschluss.Location = New System.Drawing.Point(3, 64)
Me.btnAbschluss.Name = "btnAbschluss"
Me.btnAbschluss.Size = New System.Drawing.Size(141, 63)
Me.btnAbschluss.TabIndex = 0
Me.btnAbschluss.Text = "Abschluss durchführen"
Me.btnAbschluss.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAbschluss.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.Controls.Add(Me.VWAbschlussDataGridView)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(154, 25)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(698, 591)
Me.Panel2.TabIndex = 3
'
'DSMercator
'
Me.DSMercator.DataSetName = "DSMercator"
Me.DSMercator.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'VKKOPFBindingSource
'
Me.VKKOPFBindingSource.DataMember = "VKKOPF"
Me.VKKOPFBindingSource.DataSource = Me.DSMercator
'
'VKKOPFTableAdapter
'
Me.VKKOPFTableAdapter.ClearBeforeFill = True
'
'TableAdapterManager1
'
Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager1.UpdateOrder = KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
Me.TableAdapterManager1.VKKOPFTableAdapter = Me.VKKOPFTableAdapter
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID"
Me.DataGridViewTextBoxColumn1.HeaderText = "ID"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.ReadOnly = True
Me.DataGridViewTextBoxColumn1.Width = 60
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.DataPropertyName = "Mandant"
Me.DataGridViewTextBoxColumn2.HeaderText = "Mandant"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.DataPropertyName = "PAKET_ID"
Me.DataGridViewTextBoxColumn3.HeaderText = "Paket-ID"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 130
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.DataPropertyName = "Gepackt"
Me.DataGridViewTextBoxColumn4.HeaderText = "Gepackt"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.Width = 150
'
'VWAbschlussBindingSource
'
Me.VWAbschlussBindingSource.DataMember = "VWKOMMCOLLI_ABSCHLUSS_PAKET"
Me.VWAbschlussBindingSource.DataSource = Me.MyDataset
'
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'VWAbschlussTableAdapter
'
Me.VWAbschlussTableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_MANDANTTableAdapter = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_PAKET_KOPFTableAdapter = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_PAKET_POSTableAdapter = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_TERMINARTTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TBKOMMCOLLI_MANDANTBindingSource
'
Me.TBKOMMCOLLI_MANDANTBindingSource.DataMember = "TBKOMMCOLLI_MANDANT"
Me.TBKOMMCOLLI_MANDANTBindingSource.DataSource = Me.MyDataset
'
'TBKOMMCOLLI_MANDANTTableAdapter
'
Me.TBKOMMCOLLI_MANDANTTableAdapter.ClearBeforeFill = True
'
'TBKOMMCOLLI_PAKET_POSBindingSource
'
Me.TBKOMMCOLLI_PAKET_POSBindingSource.DataMember = "TBKOMMCOLLI_PAKET_POS"
Me.TBKOMMCOLLI_PAKET_POSBindingSource.DataSource = Me.MyDataset
'
'TBKOMMCOLLI_PAKET_POSTableAdapter
'
Me.TBKOMMCOLLI_PAKET_POSTableAdapter.ClearBeforeFill = True
'
'TBKOMMCOLLI_PAKET_KOPFBindingSource
'
Me.TBKOMMCOLLI_PAKET_KOPFBindingSource.DataMember = "TBKOMMCOLLI_PAKET_KOPF"
Me.TBKOMMCOLLI_PAKET_KOPFBindingSource.DataSource = Me.MyDataset
'
'TBKOMMCOLLI_PAKET_KOPFTableAdapter
'
Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.ClearBeforeFill = True
'
'TBKOMMCOLLI_PAKET_POS_LSBindingSource
'
Me.TBKOMMCOLLI_PAKET_POS_LSBindingSource.DataMember = "TBKOMMCOLLI_PAKET_POS_LS"
Me.TBKOMMCOLLI_PAKET_POS_LSBindingSource.DataSource = Me.MyDataset
'
'TBKOMMCOLLI_PAKET_POS_LSTableAdapter
'
Me.TBKOMMCOLLI_PAKET_POS_LSTableAdapter.ClearBeforeFill = True
'
'frmAbschluss
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(852, 616)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.ToolStrip1)
Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "frmAbschluss"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Abschluss der Pakete"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.VWAbschlussDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
CType(Me.DSMercator, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VKKOPFBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWAbschlussBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBKOMMCOLLI_MANDANTBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBKOMMCOLLI_PAKET_POSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBKOMMCOLLI_PAKET_KOPFBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBKOMMCOLLI_PAKET_POS_LSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MyDataset As KommiCollo.MyDataset
Friend WithEvents VWAbschlussBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWAbschlussTableAdapter As KommiCollo.MyDatasetTableAdapters.VWKOMMCOLLI_ABSCHLUSS_PAKETTableAdapter
Friend WithEvents TableAdapterManager As KommiCollo.MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents tsbtcheck_all As System.Windows.Forms.ToolStripButton
Friend WithEvents tsbtde_check_all As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents VWAbschlussDataGridView As System.Windows.Forms.DataGridView
Friend WithEvents DataGridViewCheckBoxColumn1 As System.Windows.Forms.DataGridViewCheckBoxColumn
Friend WithEvents TBKOMMCOLLI_MANDANTBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBKOMMCOLLI_MANDANTTableAdapter As KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_MANDANTTableAdapter
Friend WithEvents Auswahl As System.Windows.Forms.DataGridViewCheckBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents btnAbschluss As System.Windows.Forms.Button
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents TBKOMMCOLLI_PAKET_POSBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBKOMMCOLLI_PAKET_POSTableAdapter As KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POSTableAdapter
Friend WithEvents DSMercator As KommiCollo.DSMercator
Friend WithEvents VKKOPFBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VKKOPFTableAdapter As KommiCollo.DSMercatorTableAdapters.VKKOPFTableAdapter
Friend WithEvents TableAdapterManager1 As KommiCollo.DSMercatorTableAdapters.TableAdapterManager
Friend WithEvents TBKOMMCOLLI_PAKET_KOPFBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBKOMMCOLLI_PAKET_KOPFTableAdapter As KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_KOPFTableAdapter
Friend WithEvents btndelete As System.Windows.Forms.Button
Friend WithEvents cmbMandant As System.Windows.Forms.ComboBox
Friend WithEvents TBKOMMCOLLI_PAKET_POS_LSBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBKOMMCOLLI_PAKET_POS_LSTableAdapter As KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POS_LSTableAdapter
End Class

177
frmAbschluss.resx Normal file
View File

@ -0,0 +1,177 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>701, 17</value>
</metadata>
<metadata name="Auswahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="VWAbschlussBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DSMercator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="VKKOPFBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>133, 56</value>
</metadata>
<metadata name="VKKOPFTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>308, 56</value>
</metadata>
<metadata name="TableAdapterManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>477, 56</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="VWAbschlussTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>330, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>528, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_MANDANTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>808, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_MANDANTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1088, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_POSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1363, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_POSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1645, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_KOPFBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>657, 56</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_KOPFTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>946, 56</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_POS_LSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_POS_LSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>317, 95</value>
</metadata>
</root>

251
frmAbschluss.vb Normal file
View File

@ -0,0 +1,251 @@
Public Class frmAbschluss
Dim Mandant As String
Dim Mandant_ID As Integer
Private Sub frmAbschluss_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Try
Me.VWAbschlussTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_POSTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_POS_LSTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.VKKOPFTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnStringMercator
Me.TBKOMMCOLLI_MANDANTTableAdapter.Fill(MyDataset.TBKOMMCOLLI_MANDANT)
LoadProfilesInCombobox()
Catch ex As Exception
MsgBox("Fehler bei Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub LoadProfilesInCombobox()
Try
Me.cmbMandant.Items.Clear()
For Each row As DataRow In MyDataset.TBKOMMCOLLI_MANDANT
cmbMandant.Items.Add(row.Item("KURZNAME"))
Next
If My.Settings.Default_Mandant <> String.Empty Then
cmbMandant.SelectedIndex = cmbMandant.FindStringExact(My.Settings.Default_Mandant)
Else
cmbMandant.SelectedIndex = -1
End If
Catch ex As Exception
MsgBox("Fehler beim Laden der Mandanten in die Auswahlliste" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function AbschlussPaket(Mandant_ID As Integer, Speicherort As String)
Try
'Schreibt Daten aus View_Export in Datei!!!
Dim Save_Datei As String = Speicherort & "/" & Date.Now.ToShortDateString & "_exp.ar" '"E:\" & Date.Now.ToShortDateString & "_exp.ar" '
Dim Version As Integer = 0
Do While IO.File.Exists(Save_Datei)
Version += 1
Save_Datei = Speicherort & "/" & Date.Now.ToShortDateString & "_exp~" & Version & ".ar"
Loop
'Setzt das Code-Format auf ASCII
Dim streamwriter As New System.IO.StreamWriter(Save_Datei, False, System.Text.Encoding.Default)
Dim anz As Integer = 0
Dim PAKET_ID As String
'Jedes Paket durchlaufen
For Each dbRow As DataRow In MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKET.Rows
If CBool(dbRow.Item("Auswahl")) = True Then
PAKET_ID = dbRow.Item("PAKET_ID").ToString
If Verarbeite_Paket(streamwriter, dbRow.Item("GUID"), PAKET_ID, dbRow.Item("TERMIN_KZ").ToString, dbRow.Item("ANZ_PACKSTUECK").ToString, dbRow.Item("GESAMTGEWICHT").ToString) = True Then
anz += 1
VWAbschlussTableAdapter.cmdAbschluss(Save_Datei, dbRow.Item("GUID"))
End If
End If
Next
streamwriter.Flush()
streamwriter.Close()
MsgBox("Es wurden " & anz.ToString & " Pakete erfolgreich abgeschlossen")
Catch ex As Exception
MsgBox("Fehler bei AbschlussPaket: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
'
End Function
Function Verarbeite_Paket(sw As System.IO.StreamWriter, PAKET_GUID As Integer, PAKET_ID As String, Terminart As String, AnzPaket As Integer, GewichtGESAMT As String)
Try
Dim Paketschluessel As String = PAKET_ID
Dim LieferscheinString As String
'Das Gewicht "berechnen", hierzu wird das hitnerlegte Gewicht durch die Anzahl der Paakete geteilt
GewichtGESAMT = GewichtGESAMT / AnzPaket
If CDbl(GewichtGESAMT) > 40.0 Then
MsgBox("Achtung: Das Gewicht des Pakets '" & PAKET_ID & "' überschreitet das Maximalgewicht von 40 kg!" & vbNewLine & "Bitte verständigen Sie Ihren Systembetreuuer", MsgBoxStyle.Critical, "Fehler")
Return False
End If
Me.TBKOMMCOLLI_PAKET_POS_LSTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_PAKET_POS_LS, PAKET_GUID)
'Lieferschein-String laden
Dim DTLS As DataTable = MyDataset.TBKOMMCOLLI_PAKET_POS_LS
Dim a As Integer = 0
Dim tempLS As String = ""
If DTLS.Rows.Count > 0 Then
For Each row As DataRow In DTLS.Rows
If a = 0 Then
tempLS = row.Item(0)
Else
tempLS = tempLS & "," & row.Item(0)
End If
a += 1
Next
Else
tempLS = ""
End If
LieferscheinString = tempLS
If GewichtGESAMT.Contains(".") Then
GewichtGESAMT = GewichtGESAMT.Replace(".", ",")
End If
If GewichtGESAMT.Contains(",") = False Then
GewichtGESAMT = GewichtGESAMT & ",0"
Else
If GewichtGESAMT.Contains(",00") = True Then
GewichtGESAMT = GewichtGESAMT.Replace(",00", ",0")
End If
End If
For i As Integer = 1 To AnzPaket
PAKET_ID = Paketschluessel & "." & i.ToString
'Den Builder für die Zeile definieren
Dim ZeilenBuilder As System.Text.StringBuilder
Dim DT As DataTable = MyDataset.TBKOMMCOLLI_PAKET_POS
ZeilenBuilder = New System.Text.StringBuilder
ZeilenBuilder.Append(PAKET_ID.PadRight(25))
ZeilenBuilder.Append(";")
Dim Name1, Name2, Name3, Strasse, PLZ, Ort, LAND As String
Dim exists As Integer = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweiseExists(PAKET_GUID)
'Für die Bestellnummer konnten Zeilen gefunden werden
If exists > 0 Then
Name1 = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweiseFirma1(PAKET_GUID)
Name2 = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweiseFirma2(PAKET_GUID)
Name3 = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweiseFirma3(PAKET_GUID)
Strasse = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweiseStrasse(PAKET_GUID)
PLZ = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweisePLZ(PAKET_GUID)
Ort = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweiseOrt(PAKET_GUID)
LAND = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweiseLAND(PAKET_GUID)
'Gewicht = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdAllVerweiseGewicht(PAKET_GUID)
Else
Name1 = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdBestellNrFirma1(PAKET_GUID)
Name2 = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdBestellNrFirma2(PAKET_GUID)
Name3 = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdBestellNrFirma3(PAKET_GUID)
Strasse = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdBEstellNrStrasse(PAKET_GUID)
PLZ = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdBestellNrPLZ(PAKET_GUID)
Ort = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdBestellNrOrt(PAKET_GUID)
LAND = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdBestellNrLand(PAKET_GUID)
' Gewicht = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdBestellNrGewicht(PAKET_GUID)
End If
If Name1 <> String.Empty Then
ZeilenBuilder.Append(Name1.PadRight(30))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(Name2.PadRight(30))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(Name3.PadRight(30))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(Strasse.PadRight(30))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(PLZ.PadRight(10))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(Ort.PadRight(30))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(Paketschluessel.PadRight(30))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(LAND.PadRight(3))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(GewichtGESAMT.PadRight(6))
ZeilenBuilder.Append(";")
Else
MsgBox("Fehler beim Abschluss des Pakets '" & PAKET_ID & "'!" & vbNewLine & "Kein eindeutiger Datensatz zu VKOPF_BESTELLNR Und VKOPF_EINGANSNR gefunden." & _
vbNewLine & "Bitte verständigen Sie Ihren Systembetreuuer", MsgBoxStyle.Critical, "Fehler")
Return False
End If
ZeilenBuilder.Append(Terminart.PadRight(3))
ZeilenBuilder.Append(";")
ZeilenBuilder.Append(LieferscheinString)
ZeilenBuilder.Append(";")
'ZeilenBuilder.Append(AnzPaket.ToString.PadRight(3))
'ZeilenBuilder.Append(";")
sw.WriteLine(ZeilenBuilder.ToString)
Next
Return True
Catch ex As Exception
MsgBox("Fehler bei Verarbeite_Paket: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Function
Private Sub tsbtcheck_all_Click(sender As System.Object, e As System.EventArgs) Handles tsbtcheck_all.Click
Dim DT As DataTable = MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKET
For Each DR As DataRow In DT.Rows
DR.Item("Auswahl") = True
Next
End Sub
Private Sub tsbtde_check_all_Click(sender As System.Object, e As System.EventArgs) Handles tsbtde_check_all.Click
Dim DT As DataTable = MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKET
For Each DR As DataRow In DT.Rows
DR.Item("Auswahl") = False
Next
End Sub
Sub Load_Pakete(vMandant As String)
Try
Mandant = vMandant
Me.VWAbschlussTableAdapter.Fill(Me.MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKET, Mandant)
Catch ex As Exception
MsgBox("Fehler bei Load_Pakete: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnAbschluss_Click(sender As System.Object, e As System.EventArgs) Handles btnAbschluss.Click
Me.Validate()
VWAbschlussBindingSource.EndEdit()
' Fragen ob das Profil wirklich gelöscht werden soll
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie für die ausgewählten Pakete einen Abschluss durchführen wollen?", MsgBoxStyle.YesNo, "Abschluss bestätigen")
' wenn das Profil gelöscht werden soll
If result = MsgBoxResult.Yes Then
Dim Speicherort As String
Mandant_ID = 0
Mandant_ID = TBKOMMCOLLI_MANDANTTableAdapter.cmdGetGUIDbyKurzname(Mandant)
Speicherort = TBKOMMCOLLI_MANDANTTableAdapter.cmdgetSpeicherort(Mandant_ID)
If Speicherort IsNot Nothing Then
AbschlussPaket(Mandant_ID, Speicherort)
Else
MsgBox("Achtung: Ein Mandant konnte nicht bestimmt werden!", MsgBoxStyle.Exclamation)
End If
Load_Pakete(Mandant)
End If
End Sub
Private Sub btndelete_Click(sender As System.Object, e As System.EventArgs) Handles btndelete.Click
Me.Validate()
VWAbschlussBindingSource.EndEdit()
' Fragen ob das Profil wirklich gelöscht werden soll
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie die ausgewählten Pakete löschen wollen?", MsgBoxStyle.YesNo, "Löschen bestätigen")
' wenn das Profil gelöscht werden soll
If result = MsgBoxResult.Yes Then
For Each dbRow As DataRow In MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKET.Rows
If CBool(dbRow.Item("Auswahl")) = True Then
'Positionen löschen
TBKOMMCOLLI_PAKET_POSTableAdapter.cmdDeletePos(dbRow.Item("GUID"))
'Kopf löschen
TBKOMMCOLLI_PAKET_KOPFTableAdapter.CmdDeleteGUID(dbRow.Item("GUID"))
End If
Next
Load_Pakete(Mandant)
End If
End Sub
Private Sub cmbMandant_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbMandant.SelectedIndexChanged
If cmbMandant.SelectedIndex <> -1 Then
Load_Pakete(cmbMandant.Text)
btnAbschluss.Text = "Mandanten '" & cmbMandant.Text & "' abschliessen"
End If
End Sub
End Class

238
frmConnection.Designer.vb generated Normal file
View File

@ -0,0 +1,238 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmConnection
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label5 = New System.Windows.Forms.Label()
Me.cmbDatenbank = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtActualConnection = New System.Windows.Forms.TextBox()
Me.txtServer = New System.Windows.Forms.TextBox()
Me.txtUser = New System.Windows.Forms.TextBox()
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.cmbMercatorDB = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 163)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(236, 17)
Me.Label5.TabIndex = 45
Me.Label5.Text = "Aktueller ConnectionString Digital Data:"
'
'cmbDatenbank
'
Me.cmbDatenbank.FormattingEnabled = True
Me.cmbDatenbank.Location = New System.Drawing.Point(15, 81)
Me.cmbDatenbank.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.cmbDatenbank.Name = "cmbDatenbank"
Me.cmbDatenbank.Size = New System.Drawing.Size(334, 25)
Me.cmbDatenbank.TabIndex = 38
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 60)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(145, 17)
Me.Label4.TabIndex = 43
Me.Label4.Text = "Datenbank Digital Data:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(10, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(88, 17)
Me.Label1.TabIndex = 40
Me.Label1.Text = "Server-Name:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(353, 10)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(93, 17)
Me.Label2.TabIndex = 41
Me.Label2.Text = "Benutzername:"
'
'BtnConnect
'
Me.BtnConnect.Image = Global.KommiCollo.My.Resources.Resources.database_lightning
Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnConnect.Location = New System.Drawing.Point(357, 100)
Me.BtnConnect.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.Size = New System.Drawing.Size(254, 30)
Me.BtnConnect.TabIndex = 39
Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen"
Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnConnect.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(498, 10)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(63, 17)
Me.Label3.TabIndex = 42
Me.Label3.Text = "Passwort:"
'
'txtActualConnection
'
Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtActualConnection.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.KommiCollo.My.MySettings.Default, "ConfigConnectionString", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtActualConnection.Location = New System.Drawing.Point(14, 184)
Me.txtActualConnection.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtActualConnection.Name = "txtActualConnection"
Me.txtActualConnection.ReadOnly = True
Me.txtActualConnection.Size = New System.Drawing.Size(589, 25)
Me.txtActualConnection.TabIndex = 44
Me.txtActualConnection.Text = Global.KommiCollo.My.MySettings.Default.ConfigConnectionString
'
'txtServer
'
Me.txtServer.ForeColor = System.Drawing.SystemColors.MenuHighlight
Me.txtServer.Location = New System.Drawing.Point(14, 31)
Me.txtServer.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtServer.Name = "txtServer"
Me.txtServer.Size = New System.Drawing.Size(335, 25)
Me.txtServer.TabIndex = 35
'
'txtUser
'
Me.txtUser.ForeColor = System.Drawing.SystemColors.MenuHighlight
Me.txtUser.Location = New System.Drawing.Point(357, 31)
Me.txtUser.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtUser.Name = "txtUser"
Me.txtUser.Size = New System.Drawing.Size(137, 25)
Me.txtUser.TabIndex = 36
'
'txtPasswort
'
Me.txtPasswort.Location = New System.Drawing.Point(501, 31)
Me.txtPasswort.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.Size = New System.Drawing.Size(74, 25)
Me.txtPasswort.TabIndex = 37
Me.txtPasswort.UseSystemPasswordChar = True
'
'cmbMercatorDB
'
Me.cmbMercatorDB.FormattingEnabled = True
Me.cmbMercatorDB.Location = New System.Drawing.Point(15, 134)
Me.cmbMercatorDB.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.cmbMercatorDB.Name = "cmbMercatorDB"
Me.cmbMercatorDB.Size = New System.Drawing.Size(334, 25)
Me.cmbMercatorDB.TabIndex = 46
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(12, 113)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(131, 17)
Me.Label6.TabIndex = 47
Me.Label6.Text = "Datenbank Mercator:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(12, 220)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(222, 17)
Me.Label7.TabIndex = 49
Me.Label7.Text = "Aktueller ConnectionString Merkator:"
'
'TextBox1
'
Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.KommiCollo.My.MySettings.Default, "ConfigConnStringMercator", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.TextBox1.Location = New System.Drawing.Point(14, 241)
Me.TextBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(589, 25)
Me.TextBox1.TabIndex = 48
Me.TextBox1.Text = Global.KommiCollo.My.MySettings.Default.ConfigConnStringMercator
'
'frmConnection
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(619, 323)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.cmbMercatorDB)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cmbDatenbank)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.BtnConnect)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtActualConnection)
Me.Controls.Add(Me.txtServer)
Me.Controls.Add(Me.txtUser)
Me.Controls.Add(Me.txtPasswort)
Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmConnection"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Datenbank-Verbindung einrichten"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents cmbDatenbank As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents BtnConnect As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtActualConnection As System.Windows.Forms.TextBox
Friend WithEvents txtServer As System.Windows.Forms.TextBox
Friend WithEvents txtUser As System.Windows.Forms.TextBox
Friend WithEvents txtPasswort As System.Windows.Forms.TextBox
Friend WithEvents cmbMercatorDB As System.Windows.Forms.ComboBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
End Class

120
frmConnection.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

87
frmConnection.vb Normal file
View File

@ -0,0 +1,87 @@
Public Class frmConnection
Private Sub BtnConnect_Click(sender As System.Object, e As System.EventArgs) Handles BtnConnect.Click
Try
Dim con As String = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
Dim connection As New SqlClient.SqlConnection(con)
'während Verbindungsaufbau Sanduhr-Mauszeiger
Cursor = Cursors.WaitCursor
connection.Open()
Cursor = Cursors.Default
'DialogResult = Windows.Forms.DialogResult.OK
Dim result As MsgBoxResult
result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
'Set the construction string
My.Settings.ConfigConnectionString = con 'csb.ConnectionString
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbMercatorDB.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
'Set the construction string
My.Settings.ConfigConnStringMercator = con
My.Settings.Save()
Me.Close()
End If
Catch ex As Exception
Cursor = Cursors.Default
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub cmbDatenbank_Click(sender As System.Object, e As System.EventArgs) Handles cmbDatenbank.Click
Try
Me.Cursor = Cursors.WaitCursor
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.DataSource = Me.txtServer.Text
csb.IntegratedSecurity = False
csb.UserID = Me.txtUser.Text
csb.Password = Me.txtPasswort.Text
Dim con As String = "Server=" & Me.txtServer.Text & "; User Id=" & Me.txtUser.Text & "; Password=" & Me.txtPasswort.Text & ";"
Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
connection.Open()
Dim cmd As New SqlClient.SqlCommand("sp_databases", connection)
cmd.CommandType = CommandType.StoredProcedure
' Ausführen und Ergebnis in einer ListBox anzeigen
Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then
Do While dr.Read
cmbDatenbank.Items.Add(dr("Database_Name"))
Loop
cmbDatenbank.DroppedDown = True
End If
connection.Close()
Catch ex As Exception
MsgBox("Fehler bei Datenbank-Connect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End Sub
Private Sub cmbMercatorDB_Click(sender As System.Object, e As System.EventArgs) Handles cmbMercatorDB.Click
Try
Me.Cursor = Cursors.WaitCursor
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.DataSource = Me.txtServer.Text
csb.IntegratedSecurity = False
csb.UserID = Me.txtUser.Text
csb.Password = Me.txtPasswort.Text
Dim con As String = "Server=" & Me.txtServer.Text & "; User Id=" & Me.txtUser.Text & "; Password=" & Me.txtPasswort.Text & ";"
Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
connection.Open()
Dim cmd As New SqlClient.SqlCommand("sp_databases", connection)
cmd.CommandType = CommandType.StoredProcedure
' Ausführen und Ergebnis in einer ListBox anzeigen
Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then
Do While dr.Read
cmbMercatorDB.Items.Add(dr("Database_Name"))
Loop
cmbMercatorDB.DroppedDown = True
End If
connection.Close()
Catch ex As Exception
MsgBox("Fehler bei Datenbank-Connect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End Sub
End Class

124
frmLabel_.HP.Designer.vb generated Normal file
View File

@ -0,0 +1,124 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLabel
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLabel))
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ReportViewer1
'
Me.ReportViewer1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "KommiCollo.Testreport.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(12, 65)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(662, 311)
Me.ReportViewer1.TabIndex = 0
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.ToolStripTextBox1, Me.ToolStripSeparator1, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(704, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(86, 22)
Me.ToolStripLabel1.Text = "Anzahl Kopien:"
Me.ToolStripLabel1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ToolStripTextBox1
'
Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
Me.ToolStripTextBox1.Size = New System.Drawing.Size(20, 25)
Me.ToolStripTextBox1.Text = "1"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(71, 22)
Me.ToolStripButton1.Text = "Drucken"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "ToolStripButton2"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "ToolStripButton3"
'
'frmLabel
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(704, 388)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.ReportViewer1)
Me.Name = "frmLabel"
Me.Text = "frmLabel_"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
End Class

169
frmLabel_.HP.resx Normal file
View File

@ -0,0 +1,169 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
</root>

125
frmLabel_.HP.vb Normal file
View File

@ -0,0 +1,125 @@
Imports Microsoft.Reporting.WinForms
Imports System.Text
Public Class frmLabel
Private Sub frmLabel__Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Dim report As New LocalReport()
report.ReportPath = Application.StartupPath & "\Testreport.rdlc"
' print_microsoft_report(report, 10, 14, False, "Schaum-Drucker")
ClassPrintReport.Run(report)
'Print("Schaum-Drucker")
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Print_NVEZPL("Digital Data", "Ludwg-Rinn Str 16", "35452", "Heuchelheim", "Marlon Schreiber", "Zum Maiplatz 7", "35398", "Gießen", "426000947600963763")
End Sub
Public Shared Function Print_NVEZPL(absName As String, absStrasse As String, absPLZ As String, absOrt As String, empname As String, empStrasse As String, empPLZ As String, empOrt As String, _NVE As String)
Try
Dim pText As New StringBuilder
pText.AppendLine("^XA") 'Every Format must start with this command
pText.AppendLine("^CI28")
'Barcode
pText.AppendLine("^BY4^FO650,50^BCR,160,N,N,N,A^FD00" & _NVE & "^FS")
pText.AppendLine("^CFA,30^FWr^FO620,60^FDNVE 00" & _NVE & "^FS")
pText.AppendLine("^AU^FO750,700^FDS.T.a.R.^FS")
pText.AppendLine("^CF0,22^FWr^FO720,700^FDSYSTEM-TRANSPORT auf RÄDERN^FS")
pText.AppendLine("^CF0,40^FWr^FO680,700^FD35 - Giessen^FS")
pText.AppendLine("^FWr^FO650,700^FDHellmold & Plank^FS")
pText.AppendLine("^CF0,40^FWr^FO560,50^FDS.T.a.R. GmbH, Werner von Siemens-Str. 1, 34576 Homberg-Efze Telefon: 05681/988823^FS")
pText.AppendLine("^FO480,50^FDHinweise:^FS")
pText.AppendLine("^FO430,50^FDFixtermin! Nicht früher oder später - ^FS")
pText.AppendLine("^FO540,50^GB1,1050,3^FS") 'Breite Linie
pText.AppendLine("^FO50,600^GB490,1,3^FS") 'Senkrechte Linie
pText.AppendLine("^FO510,610^FDVersender:^FS")
pText.AppendLine("^FO510,780^FDReinhard Schaum^FS")
pText.AppendLine("^FO460,780^FDRheinstrasse 8^FS")
pText.AppendLine("^FO420,780^FDDE - 35625 Hüttenberg^FS")
pText.AppendLine("^FO405,600^GB1,500,3^FS")
pText.AppendLine("^AT^^FO360,610^FDAnzahl Packstücke:^FS")
pText.AppendLine("^AT^^FO360,950^FD99^FS") 'Anzahl Packstücke Linie
pText.AppendLine("^FO330,600^GB1,500,3^FS")
pText.AppendLine("^AT^FO290,610^FDEmpfänger:^FS")
pText.AppendLine("^AU^FO230,610^FD" & empname & "^FS")
pText.AppendLine("^AU^FO150,610^FD" & empStrasse & "^FS")
pText.AppendLine("^AU^FO80,610^FDDE-" & empPLZ & " " & empOrt & "^FS")
pText.AppendLine("^XZ") 'Every Format must end with this command
RawPrinter.SendToPrinter("NVE-Etikett", pText.ToString, "Schaum-Drucker") 'print the String
Return True
Catch ex As Exception
MsgBox("Fehler in Print_NVE_ZPL: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
Sub PrintViaIP(IP As String, empname As String, empStrasse As String, empPLZ As String, empOrt As String, _NVE As String)
Dim ipAddress As String = IP
Dim port As Integer = 9100
Dim pText As New StringBuilder
pText.AppendLine("^XA") 'Every Format must start with this command
pText.AppendLine("^CI28")
'Barcode
pText.AppendLine("^BY4^FO650,50^BCR,160,N,N,N,A^FD00" & _NVE & "^FS")
pText.AppendLine("^CFA,30^FWr^FO620,60^FDNVE 00" & _NVE & "^FS")
pText.AppendLine("^AU^FO750,700^FDS.T.a.R.^FS")
pText.AppendLine("^CF0,22^FWr^FO720,700^FDSYSTEM-TRANSPORT auf RÄDERN^FS")
pText.AppendLine("^AQ^FO680,700^FD35 - Giessen^FS")
pText.AppendLine("^AQ^FO650,700^FDHellmold & Plank^FS")
pText.AppendLine("^AQ^FO560,50^FDS.T.a.R. GmbH, Werner von Siemens-Str. 1, 34576 Homberg-Efze Telefon: 05681/988823^FS")
pText.AppendLine("^AQ^FO480,50^FDHinweise:^FS")
pText.AppendLine("^AQ^FO430,50^FDFixtermin! Nicht früher oder später - ^FS")
pText.AppendLine("^FO540,50^GB1,1050,3^FS") 'Breite Linie
pText.AppendLine("^FO50,600^GB490,1,3^FS") 'Senkrechte Linie
pText.AppendLine("^AR^FO510,610^FDVersender:^FS")
pText.AppendLine("^AR^FO510,780^FDReinhard Schaum^FS")
pText.AppendLine("^AR^FO460,780^FDRheinstrasse 8^FS")
pText.AppendLine("^AR^FO420,780^FDDE - 35625 Hüttenberg^FS")
pText.AppendLine("^FO405,600^GB1,500,3^FS")
pText.AppendLine("^AT^^FO360,610^FDAnzahl Packstücke:^FS")
pText.AppendLine("^AT^^FO360,950^FD99^FS") 'Anzahl Packstücke Linie
pText.AppendLine("^FO330,600^GB1,500,3^FS")
pText.AppendLine("^AT^FO290,610^FDEmpfänger:^FS")
pText.AppendLine("^AU^FO230,610^FD" & empname & "^FS")
pText.AppendLine("^AU^FO150,610^FD" & empStrasse & "^FS")
pText.AppendLine("^AU^FO80,610^FDDE-" & empPLZ & " " & empOrt & "^FS")
pText.AppendLine("^XZ") 'Every Format must end with this command
Try
'Open Connection
Dim client As New System.Net.Sockets.TcpClient
client.Connect(ipAddress, port)
'Write ZPL String to Connection
Dim writer As New System.IO.StreamWriter(client.GetStream())
writer.Write(pText)
writer.Flush()
'Close Connection
writer.Close()
client.Close()
Catch ex As Exception
'Catch Exception Here
End Try
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
PrintViaIP("172.24.10.18", "Marlon Schreiber", "Zum Maiplatz 7", "35398", "Gießen", "426000947600963763")
End Sub
End Class

1081
frmMain.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

693
frmMain.resx Normal file
View File

@ -0,0 +1,693 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="PAKET_IDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="GESAMTGEWICHTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<metadata name="TBWH_MANDANTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1094, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>239, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_KOPFBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>349, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_KOPFTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>638, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>921, 17</value>
</metadata>
<metadata name="TBWH_MANDANTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="TBKOMMCOLLI_TERMINARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>917, 56</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_POSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>241, 56</value>
</metadata>
<metadata name="TBKOMMCOLLI_PAKET_POSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>523, 56</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>800, 56</value>
</metadata>
<metadata name="TBKOMMCOLLI_TERMINARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1202, 56</value>
</metadata>
<metadata name="TBKOMMCOLLI_HINWEISBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="TBKOMMCOLLI_TEXTSCHLUESSELBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>638, 95</value>
</metadata>
<metadata name="TBKOMMCOLLI_SDGPOSITIONENBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="TBKOMMCOLLI_SDGPOSITIONENTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>330, 95</value>
</metadata>
<metadata name="TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>953, 95</value>
</metadata>
<metadata name="TBKOMMCOLLI_HINWEISTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 134</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAwAMDAQAAEABABoBgAAxgAAACAgEAABAAQA6AIAAC4HAAAYGBAAAQAEAOgBAAAWCgAAEBAQAAEA
BAAoAQAA/gsAADAwAAABAAgAqA4AACYNAAAgIAAAAQAIAKgIAADOGwAAGBgAAAEACADIBgAAdiQAABAQ
AAABAAgAaAUAAD4rAAAwMAAAAQAgAKglAACmMAAAICAAAAEAIACoEAAATlYAABgYAAABACAAiAkAAPZm
AAAQEAAAAQAgAGgEAAB+cAAAKAAAADAAAABgAAAAAQAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP8A
/wCAAIAA/wAAAIAAAAD//wAAgIAAAAD/AAAAgAAAAP//AACAgAAAAP8AAACAAP///wDAwMAAgICAAAAA
AAD////////+7u///////////////////////////u7u7u7u///////+7///////////////7uu7vu7u
7v////7v/v/////////////uu6qqqrvu7u///+P5k+7///////////66qqqqqqq77u7//jmYn+7/////
/////+uqqqqqqqqqvu7uP5iImf7v/////////rq7qqqqqqqqq+7v+YiImZ/u////////66vzO7qqqqqq
qr//mIiImZk+7///////uqszMzuqqqqqqquZmIiImZn+7//////+uqszMzOqqqqqqqu5mYiImZmf7v//
///7qqq78zO6qqqqqqq5mYiImZmZ/u/////rqqqqvzM6qqqqqqq5mYiImZmZk+7////rqqqqrzM7qqqq
qqq7mYiImZmZm/7v//+7qqqqq/Mzqqqqqqq7mYiImZmZmf7v//+6qqqqqvMzMzO6qqq7mYiImZmZmZ/u
//+6qqqqqrMzMzO6qqq7mYiImZmZmZn+7/+7qqqqqqNVMzO6qqq7mYiImZmZmZmT7v/rqqqqqqtVU7u6
qqq7mIiImZmZmZmP7u/rqqqqqqo1Vaqqqqq5mIiImZmZmZmZ/u/7qqqqqqq1Veqqqqu5iIiImZmZmZmY
k+/+uqqqqqqjVVW7qqu5iIiImZmZmZmZmT7/u6qqqqqrNVVVuruYiIiImZmZmZmZmJ7/66qqqqqqs1Ve
qrmIiIiImZmZmZmZmJ7//rqqqqqqq7Neq7mIiIiImZmZmZmZmZ7//+u6qqqqqqq7u5iIiIiImZmZmZmZ
mZ7///67uqqqqqu7mIiIiImYmZmZmZmZmZ7////+u7u7u7u5iIiImZiIiJmZmZmZmZ7//////ru7u5mI
iIiZmYiIiImZmZmZmZ7//////pmYiIiIiImZiIiIiIiZmZmZmZ7//////pmZiIiIiJmIiIiIiIiJmZmZ
mZP//////pmZiIiJmZiIiIiIiIiImZmZmZ7//////pmZmJmZiZiIiIiIiIiIiZmZmZ7//////pmZmZmY
iJmIiIiIiIiIiImZmZP//////pmZmZiIiImZiIiIiIiIiIiZmZ7//////pmZmIiIiIiJmIiIiIiIiIiJ
mZ7//////pmYiIiIiIiIiYiIiIiIiIiImZP//////piIiIiIiIiIiJiIiIiIiIiIiZ7//////uiIiIiI
iIiIiIiIiIiIiIiIiJ7//////+7oiIiIiIiIiIiIiIiIiIiIiI7////////+6IiIiIiIiIiIiIiIiIiI
iO7//////////uiIiIiIiIiIiIiIiIiI7v////////////7oiIiIiIiIiIiIiIju///////////////+
6IiIiIiIiIiIiO7//////////////////uiIiIiIiIiJ7v////////////////////7oiIiIiI4+////
///////////////////+OIiIjj7//////////////////////////uiO7v//////////////////////
//////7u////////////+H////8AAP+AD/5//wAA/wAD+D//AAD8AAHwD/8AAPgAAOAP/wAA8AAAAAf/
AADgAAAAA/8AAMAAAAAB/wAAwAAAAAH/AACAAAAAAP8AAIAAAAAAfwAAAAAAAAA/AAAAAAAAAB8AAAAA
AAAAHwAAAAAAAAAPAAAAAAAAAAcAAAAAAAAAAwAAAAAAAAABAAAAAAAAAAEAAIAAAAAAAQAAgAAAAAAA
AADAAAAAAAAAAMAAAAAAAAAA4AAAAAAAAADwAAAAAAAAAPgAAAAAAAAA/gAAAAAAAAD/gAAAAAAAAP+A
AAAAAAAA/4AAAAAAAAD/gAAAAAAAAP+AAAAAAAAA/4AAAAAAAAD/gAAAAAAAAP+AAAAAAAAA/4AAAAAA
AAD/gAAAAAAAAP+AAAAAAAAA/8AAAAAAAAD/+AAAAAAAAP/+AAAAAwAA//+AAAAPAAD//+AAAD8AAP//
+AAA/wAA///+AAP/AAD///+AD/8AAP///+A//wAA////+P//AAAoAAAAIAAAAEAAAAABAAQAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA/wD/AIAAgAD/AAAAgAAAAP//AACAgAAAAP8AAACAAAAA//8AAICAAAAA
/wAAAIAA////AMDAwACAgIAAAAAAAP/////////////////////////u7u7////////////////rqqu+
7v///v/////////7qqqqq77u7vmf////////u7uqqqq77jmYif///////qv/Oqqqq/mYiImf//////uq
v/uqqqq5mIiJmf/////rqqv/qqqquZmIiZmf////u6qq/zu6qruZiImZmf///7uqqq/zO6q7mIiJmZmf
//+7qqqvM7qquZiIiZmZmf//66qqqz6qqrmYiImZmZmf//uqqqrjXqu5iIiJmZmZmf//uqqqqz67mIiI
iZmZmZmf/+uqqqq7uYiIiImZmZmZjv//67u7u5iIiIiJmZmZmZ7///67uZiIiIiZiJmZmZme////mYiI
iIiZmIiJmZmZnv///5mYiIiJmIiIiJmZmZ7///+ZmYiJmIiIiIiJmZme////mZmZmImIiIiIiImZnv//
/5mZmYiImIiIiIiImZ7///+ZmYiIiIiIiIiIiIme////mIiIiIiIiIiIiIiInv///+6IiIiIiIiIiIiI
iI7/////7oiIiIiIiIiIiImf///////uiIiIiIiIiIie/////////+6IiIiIiIie/////////////oiI
iIie///////////////+iIju//////////////////7u//////////////////////////////////wP
///wA+f/4AAD/8AAAf+AAAD/gAAAfwAAAD8AAAAfAAAADwAAAAcAAAADgAAAAcAAAADAAAAA8AAAAPgA
AAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAP8AAAH/wAAD//AAD//+AD///4D////j////
//8oAAAAGAAAADAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/wD/AIAAgAD/AAAAgAAAAP//
AACAgAAAAP8AAACAAAAA//8AAICAAAAA/wAAAIAA////AMDAwACAgIAAAAAAAP//////////////////
7r7u///////////rqqq+7v7u7/////27uqqr7umInv////uv+6qqu5iIme///+ur/7qqq5iImZ7//7uq
v/u6q5iImZnv/7uqqzO6q5iImZme/+uqqz6qq5iImZmJ7/uqqrXquYiImZmZnv66qqs7mIiImZmZnv/r
u6q5iIiImZmZjv//67mYiIiYmZmZjv//6YiIiZmIiJmZnv//6YmImYiIiImZnv//6YmZiYiIiIiZnv//
6ZmYiIiIiIiJnv//6YiIiIiIiIiIjv///uiIiIiIiIiIjv////7oiIiIiIiJ7//////+6IiIiIju////
/////uiIiO////////////7u7////////////////////////wDwP/8AwAh/AIAAPwCAAB8AAAAPAAAA
BwAAAAMAAAABAIAAAACAAAAAwAAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPgAAAD+AAEA/4ADAP/g
HwD/+H8A////ACgAAAAQAAAAIAAAAAEABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/AP8AgACAAP8A
AACAAAAA//8AAICAAAAA/wAAAIAAAAD//wAAgIAAAAD/AAAAgAD///8AwMDAAICAgAAAAAAA////////
////7r7v7r////66qr7pn///+q+qq5iIv//qr/+rmImP/+qq+quYiZi/+qq/q5iJmY/+qqu5iImZmf/+
mZiJiZmf//6IiZiImZv//pmYmIiIn//+mIiImIiP///piIiJiIn///7piIiJ7v////7pie7///////7u
/////wAAwR8AAIAPAACABwAAAAMAAAABAACAAAAAgAAAAOAAAADgAAAA4AAAAOAAAADwAAAA+AAAAP4D
AAD/jwAAKAAAADAAAABgAAAAAQAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AJCODABsa
XQAhIHAAREFIADc0OAChlpkAm42PAI17fQBxXl8AfmprACshIQBmUVEAUjc2AEEpKABeRkIASDAaAEov
EQBSMAIASisCADchAQBaNwQAVD4eAGZGFAB1VSEAYvz+AFv2/ABd9/wAX/n9AF7x9QBg6+4AWdTXAFby
+gBY8vsAWfT7AFTk7ABc9f8AUI2RAE7r+ABR7fkAUOf1AFTv+gBZ8v8AUrrBAETi9QBI5vYAS+j3AEzh
8gBS6/sAVu//ADrl/wA72/MAQN/0ADnA1ABD1OYAUer/AFPs/wAx0u8ANNXwADjY8QBK4/8ATuf/ACbJ
7AAqze0ALtDvAC2/3QA2yeUAQtz5AEXf/wBI4f8AH8LqACPG6wAlo78APdf8ADrQ8gBB2v8AQNr8AELb
/wBD3P8AFqrVACGozwAryPMAM831ADbR+QAAgKoABIexAAWCqgAGibQABV97AAqPugAKhasAC4mxAAyR
vQAOodAADZO/AA+XxAALbo4AEZnFABKbyAATncoAFJ7LABSXwgAWoc4AFIuyABqz5QAYo9EAE4OnABmm
1AAbqdcAH7jqABqeyAAYkroAHq3bAByYvwAis+AAJ7rqACnC9AAvxvgAMMLyAC686gAstOAAKqvUACig
xwAjiKgAAZfJAAGNvAACms0AAoKtAAOErwAGn9IAB5vNAAeUwwAIi7cACY25AAuk1wAPqNsADpXCABSt
4AAVn80AEXmdACS98AAxyPsAJZe+ADLK/QAzzP8AJJC0AB97mwAXl8oAWF1fABxrjwAZRVkAHll3AGNo
awCZnaAAHCo4AHl8fwCPkpUAlJeaAIGEiACIi48AFRokABs2cQBxcnUAMzlOAAAw/wAAMf8ABDLyACc8
jABOT1MAACz8AAAq9wAAJfMAACTsAAcl2wAIKuEAGDPAAAAg5wAAHeIAABvdAAUe1QAQJboAITGiAAAW
4wAAGdoAABfYAAAW1gAAFNMACyHMAAAQ2QAAEtAAABDNAAAPywAIGcUAR0pxAAAM0QAADMoAAAzJAAAN
yAAADsgAAw/DAAYRvQAKE7YADhauABMZowAZHJcAHyCNACUleAAqKl0AXF2TAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAB52engAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACanqCfn5+cn5+gngAA
AAAAAAAAAAAAC6MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ+Zws8Cz8/ClZmcnJ+eAAAAAAAAAJ4QDAaj
AAAAAAAAAAAAAAAAAAAAAAAAAACgws21tK+tra68y87CmaOcCAAAAAAAnA4GlpgPnJ4AAAAAAAAAAAAA
AAAAAAAAANHNwbGrqqaqpqaqrLPKzZWZo58AAAAND5d7kGibBZ8AAAAAAAAAAAAAAAAAAAAAwsu3t7e5
ubu7u7u5s7KzxMzCmaOjmQ8GmHiQkImMDBCgAAAAAAAAAAAAAAAAAADRysjMy8jDubu7u7+/xMS/u8TM
wqkFDJuSdpCQkIlilgyZnQAAAAAAAAAAAAAAANHMw80VEhHQybmzubu7u7vExMTEzJuhm5J5dpCQkF2J
ZZcPo54AAAAAAAAAAAAAAM3Ew88UExMUD7W3s7Ozu7u7v8TEyM6Xk5J6eJCQkF2JZWabBZwAAAAAAAAA
AAAA0crEw88UFBMTEw+8t7Kys7m7u7/ExMqilnx7eJCQkFpdiWVoDBCgAAAAAAAAAAAAzMjEv7vLAxUU
ExPPrLG3srO5u7vExMjOWXyPeHaQkFpdiWJljAyVoAAAAAAAAACgysTEv7uzsc4VExMUvKyxsbKzu7vE
xMTMmJOSeneQkFxaXYllZZgPo50AAAAAAADRysTEu7u7t6ybFBYWz6ytsbeys7u7xMTLopOSeXaQkFha
XYliZWWkBqOeAAAAAACoycTEu7Oxrau1FRYWF6+ssbG3ubu7xMTJz5OSeneQkFZYWl2JZWVlDKmcAAAA
AAACyMTEsqqmpqaqmxMWFhIRERECrLm7xMTJz5OSeXeQkFdYWl2JYmVncAwKnwAAAADOyMSzrKampqam
thIWFhYWFhPQt7m7xMTJz2uPeXaQkFdWXFpdiWVlbJMMo6AAAAACybuyraumpqaqpxcYGBYWFhbPsbu7
xMTKAnx7eHaQkFdXVlpaiWJlZ2eYDqOdAADRysOzraumpqamqqgYGRgOz9DMt7u7xMTLopJ6d5CQkFdX
V1xaXYllZWxtm6mcngCgy7+zsayqpqamprAXGRkYr6y3ubu/xMTMmI95dpCQkFdXV1hcWoliZWdsbwyV
oAAAzcS7sq2rpqampqqkGBkZELy3ucPExMnOk3p4kJCQkFdXV1ZYWl2JZWVsbXAPnAAA0cu7s7Ktq6am
pqawFxkZGRmotsTExMyoe3lSkJCQkFdXV1dWXF2JYmVnbGyTDggAAALJu7OxrauqpqaqqBYZGRkZGbW/
ys6TeXeQkJCQkFdXV1dXWFpdiWVlbGxxmKMAANHNyLuzsq2srKuqqqgXGRkZEMHIzZZ6eJCQkJCQkFdX
V1dXWFxdXYllZWxtcqkAAADRzcS7ubOxsa2tray1pBcYqcTNqFF0d5CQkJCQkFdXV1dXVlhaXYllZWxs
jxAAAAAA0c7JxMO7s7Ozs7K3s8HLzM2oe3R1dpCQkJB2cVdXV1dXV1ZcXV2JZWdscKkAAAAAANECzMnE
v7u7u7u7xMnMzpZtdHV1dnZ1emhmUodXV1dXV1dYWl2JYmVscBAAAAAAAAAA0QLNzMrKysvMzQKocHNu
jXV1jXKMjHFPT0pQV1dXV1dWXFpdiWVlcBAAAAAAAAAAAADCqKLPz6KojJRpaW5ujY1vYWFmS09PT09K
bldXV1dXWFpdiWJlcAUAAAAAAAAAAAANf4eHiIiKioppaW5HaYxZV0M9T09PT09PT41XV1dXVlxaXYll
aBAAAAAAAAAAAAANf4eHh4iIioppaWlzYVs/MTE9PU9PT09PT09SVldXV1hcXYliaA4AAAAAAAAAAAAN
f4KCh4iIioqKZ2ZbURsbMTE9PT1PT09PT09PUolXV1ZcWl2JaBAAAAAAAAAAAAANf4KCh4eIh1qMa1BX
WkMbGzExMT09T09PT09PT1RlV1dYWl2JaAUAAAAAAAAAAAAQfYKCgodaYWFJQD9QXFp6GxsbMTE9PT1P
T09PT09Uc1dWWFpdaA4AAAAAAAAAAAANfX9/fWFZjEM7O0BAR2VdYjAbGzExPT09T09PT09PSm5WWFxd
axAAAAAAAAAAAAAQf31+WWE2LTQ0NDs7QD9zYmJDHRsxMTE9PT1PT09PT0pIXFxaWwUAAAAAAAAAAAAN
hH5hNicpMC0tNDQ7O0FASFBvcSEbGzExPT09T09PT09PSGJcaw4AAAAAAAAAAAAQZTYkGyExJyctLTU0
NDs7QD9HbG0wGxsxMT09PU9PT09PT1JsXBAAAAAAAAAAAAAJJh8aHRsbMTEnJy0tNDQ7O0FAP3NxQxsb
MTExPT1PT09PT09SZQ0AAAAAAAAAAAAACQ2ZHxoeGxsxMScwLTU0NDs7QEBIc3kxGzExMT09PU9PT08z
SJkAAAAAAAAAAAAAAAAADZkfGh4eMTEnJy0tNTQ0OztAP0d0TxsbMTE9PT1PT1OKwp4AAAAAAAAAAAAA
AAAAAAANlR8dGx4xJycwLTU0NDs7QUA/dFMbGzExPT1UcakKAAAAAAAAAAAAAAAAAAAAAAAAAA2VHx0b
GzEnJzAtNTQ0O0FAPz92MRsxJ0KpCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACpUfHh0xJykwLTU1NDQ7
QUBAU083qQsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALlSAeHjExJzAtNTQ0O0FASRALAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsQIB4pKScwMDU3NCwOCQAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAACQ4gHjEnKTAsDgkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAIECAfLBAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcLCQAA
AAAAAAAAAAAAAAAAAAD/+H////8AAP+AD/5//wAA/wAD+D//AAD8AAHwD/8AAPgAAOAP/wAA8AAAAAf/
AADgAAAAA/8AAMAAAAAB/wAAwAAAAAH/AACAAAAAAP8AAIAAAAAAfwAAAAAAAAA/AAAAAAAAAB8AAAAA
AAAAHwAAAAAAAAAPAAAAAAAAAAcAAAAAAAAAAwAAAAAAAAABAAAAAAAAAAEAAIAAAAAAAQAAgAAAAAAA
AADAAAAAAAAAAMAAAAAAAAAA4AAAAAAAAADwAAAAAAAAAPgAAAAAAAAA/gAAAAAAAAD/gAAAAAAAAP+A
AAAAAAAA/4AAAAAAAAD/gAAAAAAAAP+AAAAAAAAA/4AAAAAAAAD/gAAAAAAAAP+AAAAAAAAA/4AAAAAA
AAD/gAAAAAAAAP+AAAAAAAAA/8AAAAAAAAD/+AAAAAAAAP/+AAAAAwAA//+AAAAPAAD//+AAAD8AAP//
+AAA/wAA///+AAP/AAD///+AD/8AAP///+A//wAA////+P//AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAkI4MAGxpdACEgcABEQUgANzQ4AKGWmQCbjY8AjXt9AHFe
XwB+amsAKyEhAGZRUQBSNzYAQSkoAF5GQgBIMBoASi8RAFIwAgBKKwIANyEBAFo3BABUPh4AZkYUAHVV
IQBi/P4AW/b8AF33/ABf+f0AXvH1AGDr7gBZ1NcAVvL6AFjy+wBZ9PsAVOTsAFz1/wBQjZEATuv4AFHt
+QBQ5/UAVO/6AFny/wBSusEAROL1AEjm9gBL6PcATOHyAFLr+wBW7/8AOuX/ADvb8wBA3/QAOcDUAEPU
5gBR6v8AU+z/ADHS7wA01fAAONjxAErj/wBO5/8AJsnsACrN7QAu0O8ALb/dADbJ5QBC3PkARd//AEjh
/wAfwuoAI8brACWjvwA91/wAOtDyAEHa/wBA2vwAQtv/AEPc/wAWqtUAIajPACvI8wAzzfUANtH5AACA
qgAEh7EABYKqAAaJtAAFX3sACo+6AAqFqwALibEADJG9AA6h0AANk78AD5fEAAtujgARmcUAEpvIABOd
ygAUnssAFJfCABahzgAUi7IAGrPlABij0QATg6cAGabUABup1wAfuOoAGp7IABiSugAerdsAHJi/ACKz
4AAnuuoAKcL0AC/G+AAwwvIALrzqACy04AAqq9QAKKDHACOIqAABl8kAAY28AAKazQACgq0AA4SvAAaf
0gAHm80AB5TDAAiLtwAJjbkAC6TXAA+o2wAOlcIAFK3gABWfzQAReZ0AJL3wADHI+wAll74AMsr9ADPM
/wAkkLQAH3ubABeXygBYXV8AHGuPABlFWQAeWXcAY2hrAJmdoAAcKjgAeXx/AI+SlQCUl5oAgYSIAIiL
jwAVGiQAGzZxAHFydQAzOU4AADD/AAAx/wAEMvIAJzyMAE5PUwAALPwAACr3AAAl8wAAJOwAByXbAAgq
4QAYM8AAACDnAAAd4gAAG90ABR7VABAlugAhMaIAABbjAAAZ2gAAF9gAABbWAAAU0wALIcwAABDZAAAS
0AAAEM0AAA/LAAgZxQBHSnEAAAzRAAAMygAADMkAAA3IAAAOyAADD8MABhG9AAoTtgAOFq4AExmjABkc
lwAfII0AJSV4ACoqXQBcXZMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
o8LClZ+dAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0ba8rry1qMIJoAAAAAAAowYAAAAAAAAAAAAAAAAA
AM68rKytsa23ys+cn52dowaYewYAAAAAAAAAAAAAAADOywPPs7e3xMO5yc+ZlQ+Ye5CQYgYAAAAAAAAA
AAAA0cPNDBUPrqyyu7/DyqGXk3mQkJBdhAYAAAAAAAAAAADNw8PPDBWkp6axu7/Dzph8eneQkF1diQYA
AAAAAAAAwsvEu6wDDBWwp6a5v8PMmJN7d5CQXFpdYgYAAAAAAADPysOxpqqbFRHPArS3w8uifHt3kJBX
WF2JZQYAAAAAAM/Ks6amp7AMDBYWtbfEy6J8eneQkFdWXF1iZwYAAAAAz8uxpqampwwXDsy0ucPMmJJ5
kJCQV1dYXYllZwYAAACgzrKmpqamthEQr6bEv86Te3eQkJBXV1ZaXWJlZwYAAACowaempqanBREZqbvK
oo95dpCQkFdXV1haiWVsZgYAAADPtKenp6qnpBIQyc58enWQkJCQV1dXVlxdiWVscAYAAKACwbOxsre3
ys7Pk3F0kJCQkJBXV1dXWFqJZWdtCgAAAADCzczLy8zNqGhzdHV1kJBUc1ZXV1dXWl2JZWwKAAAAAACd
pAOimGhQaW6NdXV2bGh4dFVXV1dWWollbAoAAAAAAACYh4iIioppbm5Hb2FyT09PU1VXV1ZcXYllCgAA
AAAAAJiHh4iKimlpbmFcNT1PT09PSlpXV1haXWUKAAAAAAAAmGKHh4iKUFprNxsxJz1PT09PT3JXV1xd
iQoAAAAAAACYf4KHh4yMQlBdMBsxMT09T09PT3lXVlqJDQAAAAAAAJh/f1ZhSTs7QFBdQxsbMT09T09P
T1NXXFoKAAAAAAAAmH9hfDAtNTQ7QT9xejEbMT09PU9PT0pdWgoAAAAAAACXNh4bMScwNTQ7O0BIeTAb
MTE9PU9PT0psCgAAAAAAAAgmHx4eITEnLTU0O0E/P0sbMTE9PU9KkIqZAAAAAAAAAAAJJh4dGzEnMC00
NDtBP0swGzE9T26HWwAAAAAAAAAAAAAACJUkGxsxJy01NDtBQEFPPUGIcJwAAAAAAAAAAAAAAAAAAAiZ
IBsnMSctNDQ7QDs/fAkAAAAAAAAAAAAAAAAAAAAAAAAAoyAhJycwNTQ0fAkAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAJwgISc3JggAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACcJgcAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////A////AD5//gAAP/wAAB/4AAAP+AAAB/AAAAPwAA
AB8AAAAPAAAABwAAAAOAAAABwAAAAMAAAADwAAAA+AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwA
AAD8AAAA/wAAAf/AAAP/8AAP//4AP///gP///+P//////ygAAAAYAAAAMAAAAAEACAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA////ACQjgwAbGl0AISBwAERBSAA3NDgAoZaZAJuNjwCNe30AcV5fAH5q
awArISEAZlFRAFI3NgBBKSgAXkZCAEgwGgBKLxEAUjACAEorAgA3IQEAWjcEAFQ+HgBmRhQAdVUhAGL8
/gBb9vwAXff8AF/5/QBe8fUAYOvuAFnU1wBW8voAWPL7AFn0+wBU5OwAXPX/AFCNkQBO6/gAUe35AFDn
9QBU7/oAWfL/AFK6wQBE4vUASOb2AEvo9wBM4fIAUuv7AFbv/wA65f8AO9vzAEDf9AA5wNQAQ9TmAFHq
/wBT7P8AMdLvADTV8AA42PEASuP/AE7n/wAmyewAKs3tAC7Q7wAtv90ANsnlAELc+QBF3/8ASOH/AB/C
6gAjxusAJaO/AD3X/AA60PIAQdr/AEDa/ABC2/8AQ9z/ABaq1QAhqM8AK8jzADPN9QA20fkAAICqAASH
sQAFgqoABom0AAVfewAKj7oACoWrAAuJsQAMkb0ADqHQAA2TvwAPl8QAC26OABGZxQASm8gAE53KABSe
ywAUl8IAFqHOABSLsgAas+UAGKPRABODpwAZptQAG6nXAB+46gAansgAGJK6AB6t2wAcmL8AIrPgACe6
6gApwvQAL8b4ADDC8gAuvOoALLTgACqr1AAooMcAI4ioAAGXyQABjbwAAprNAAKCrQADhK8ABp/SAAeb
zQAHlMMACIu3AAmNuQALpNcAD6jbAA6VwgAUreAAFZ/NABF5nQAkvfAAMcj7ACWXvgAyyv0AM8z/ACSQ
tAAfe5sAF5fKAFhdXwAca48AGUVZAB5ZdwBjaGsAmZ2gABwqOAB5fH8Aj5KVAJSXmgCBhIgAiIuPABUa
JAAbNnEAcXJ1ADM5TgAAMP8AADH/AAQy8gAnPIwATk9TAAAs/AAAKvcAACXzAAAk7AAHJdsACCrhABgz
wAAAIOcAAB3iAAAb3QAFHtUAECW6ACExogAAFuMAABnaAAAX2AAAFtYAABTTAAshzAAAENkAABLQAAAQ
zQAAD8sACBnFAEdKcQAADNEAAAzKAAAMyQAADcgAAA7IAAMPwwAGEb0AChO2AA4WrgATGaMAGRyXAB8g
jQAlJXgAKipdAFxdkwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJzCqMKcnQAAAAAAAAAA
AAAAAAAAAACaqK2trbPNwpyaAJyVwqAAAAAAAAAAAJrNzs2tsrm5ysIKBZZ6d5igAAAAAAAAAKjEmxXP
rLLDw82Xk3hUdmKYnQAAAAAAnMu5taEVsKatuciifHmQd1p9mKAAAAAAqMq5rLUMBqjLucTOk3qQdFda
g5agAAAAqMqnp6YDFBECssTOfHmQdVdYiWWWoAAA0cump6ewEcKsw8iij3dUdFVXWmBtmKAAAKiup6em
0BipwcuTeZCQdFVXVl1lh5iaAJrOr6amrc8OzZZ6dpCQdVVVV1qJh2rCAACaqMvKxMTNlnF0kJCQc1VV
V1haYmmVAAAAANGiopaJaW5SdHFqeFFVVVdaXYiZAAAAAJprioppaUiHaHJLT09xVVdYXYeVAAAAAJ1r
ioeKUHJJNzE9T09PeVdVWoOVAAAAAJ2Min9oaHNlNxshPU9PT0uJV32VAAAAAJ1VfmtJNDtIUEMpGz1G
T081aoSVAAAAAJ18NyQhLTQ0QXRDMBsxPU9PT3SVAAAAAACcLBoaHjAtNDs/Py0hMT09SlKZAAAAAAAA
AKAsHhsxLTQ0QUA0MS5UgyYAAAAAAAAAAAAAnCwfHSctNDs7QTaZmgAAAAAAAAAAAAAAAACgLCQeJzM2
JgAAAAAAAAAAAAAAAAAAAAAAAJ0sLKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////APA/
/wDACH8AgAA/AIAAHwAAAA8AAAAHAAAAAwAAAAEAgAAAAIAAAADAAAAA8AAAAPAAAADwAAAA8AAAAPAA
AADwAAAA+AAAAP4AAQD/gAMA/+AfAP/4fwD///8AKAAAABAAAAAgAAAAAQAIAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AJCODABsaXQAhIHAAREFIADc0OAChlpkAm42PAI17fQBxXl8AfmprACsh
IQBmUVEAUjc2AEEpKABeRkIASDAaAEovEQBSMAIASisCADchAQBaNwQAVD4eAGZGFAB1VSEAYvz+AFv2
/ABd9/wAX/n9AF7x9QBg6+4AWdTXAFby+gBY8vsAWfT7AFTk7ABc9f8AUI2RAE7r+ABR7fkAUOf1AFTv
+gBZ8v8AUrrBAETi9QBI5vYAS+j3AEzh8gBS6/sAVu//ADrl/wA72/MAQN/0ADnA1ABD1OYAUer/AFPs
/wAx0u8ANNXwADjY8QBK4/8ATuf/ACbJ7AAqze0ALtDvAC2/3QA2yeUAQtz5AEXf/wBI4f8AH8LqACPG
6wAlo78APdf8ADrQ8gBB2v8AQNr8AELb/wBD3P8AFqrVACGozwAryPMAM831ADbR+QAAgKoABIexAAWC
qgAGibQABV97AAqPugAKhasAC4mxAAyRvQAOodAADZO/AA+XxAALbo4AEZnFABKbyAATncoAFJ7LABSX
wgAWoc4AFIuyABqz5QAYo9EAE4OnABmm1AAbqdcAH7jqABqeyAAYkroAHq3bAByYvwAis+AAJ7rqACnC
9AAvxvgAMMLyAC686gAstOAAKqvUACigxwAjiKgAAZfJAAGNvAACms0AAoKtAAOErwAGn9IAB5vNAAeU
wwAIi7cACY25AAuk1wAPqNsADpXCABSt4AAVn80AEXmdACS98AAxyPsAJZe+ADLK/QAzzP8AJJC0AB97
mwAXl8oAWF1fABxrjwAZRVkAHll3AGNoawCZnaAAHCo4AHl8fwCPkpUAlJeaAIGEiACIi48AFRokABs2
cQBxcnUAMzlOAAAw/wAAMf8ABDLyACc8jABOT1MAACz8AAAq9wAAJfMAACTsAAcl2wAIKuEAGDPAAAAg
5wAAHeIAABvdAAUe1QAQJboAITGiAAAW4wAAGdoAABfYAAAW1gAAFNMACyHMAAAQ2QAAEtAAABDNAAAP
ywAIGcUAR0pxAAAM0QAADMoAAAzJAAANyAAADsgAAw/DAAYRvQAKE7YADhauABMZowAZHJcAHyCNACUl
eAAqKl0AXF2TAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACe0bbCnACamaQAAAAAAADRzryst8qVqXxRmwAA
AAAAsLAAr6bDzZZ4VFCkAAAA0bSvoQahucmMeZBaUJsAANGvp7AVsKfKk3d2VlpQpAAAsKanzwywzHtU
kFdXiVAGANG8rKfLtnB2VFJXV1hvlwAAANFZVWxHR2V0YlVXhJsAAACViIqKYnI3LXhsV1ikAAAAmYKE
cFBRQjEzLXGEmwAAAJliNi0tNEJRITAtQgYAAAAAlW9AJyc0QlFDJzOXAAAAAACelUlAJy07P1GVoAAA
AAAAAACalUlCUZWeAAAAAAAAAAAAAACdlZ0AAAAA//8AAMEfAACADwAAgAcAAAADAAAAAQAAgAAAAIAA
AADgAAAA4AAAAOAAAADgAAAA8AAAAPgAAAD+AwAA/48AACgAAAAwAAAAYAAAAAEAIAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAQAA
AAIAAAAFAAAABwAAAAgAAAAIAAAABgAAAAQAAAAC////AP///wD///8A////AP///wD///8A////AP//
/wD///8AAAAAAQAAAAEAAAACAAAAAwAAAAIAAAABAAAAAf///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAQAA
AAIAAAAHAAAADAAAABQAAAAZAAAAHgAAACAAAAAeAAAAGgAAABYAAAAPAAAACQAAAAQAAAAB////AP//
/wD///8A////AP///wAAAAABAAAAAwAAAAgAAAALAAAADAAAAAoAAAAHAAAAAv///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wAAAAACAAAABgAAABAAAAAcAAAAKQAAADUAAAA9AAAARAAAAEgAAABGAAAAQAAAADcAAAAtAAAAIQAA
ABUAAAAKAAAABAAAAAH///8AAAAAAQAAAAIAAAAHAAAADQAAABgAAAAeAAAAIQAAABwAAAASAAAACgAA
AAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAMAAAAMAAAAGgAAAC0AAAFBAQACUAEBA1wBAQNkAQEDaAEBAmkAAAFoAAAAZAAA
AFwAAABTAAAARgAAADQAAAAhAAAAEgAAAAYAAAACAAAAAwAAAAkAAAATAAAAIwoAAEIdAACKFQEBdAAA
ADIAAAAmAAAAFQAAAAgAAAAC////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABAAAAA4AAAEiAgIFPQUFFWoODjSdFhdhyxobe+wcHo3/HB2G+RgZ
b98REUfACAcdnQIDCX8BAQJuAAAAZQAAAFcAAABDAAAAKwAAABgAAAANAAAADwAAABgBAAAsDAAAVR0B
AbcdDhPtGx8m2gkAAGgAAAA9AAAAJgAAABIAAAAHAAAAAf///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wAAAAADAAAADAICBSUKCR9gGBdfvBofpv8QIsn/CCTg/wQq
8v8CK/T/Airz/wUl5v8MIdP/Fx+6/xochPINDTSxAgIJggAAAG4AAABgAAAASwAAADQAAAAlAAAAJQIA
ADcSAABzGwUGzxgkL94ch6j/FlRr9BIAALYCAABcAAAAPAAAACIAAAAPAAAABf///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAEAAAAIBQUNKRUUTZQaHqL8ChzS/wAf
6/8AKPn/ACv9/wAr+v8AKvn/ACr5/wAs/P8AKfv/ACLw/wMb3P8UHcL/Fxl05AgIHJoBAQF2AAAAaQAA
AFgBAABMCQAAXBkAAKEZDhHhFFdt6iu45f8y0P//DXyj/BISF90QAACoAQAAVwAAADUAAAAeAAAADAAA
AAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAQEJCRkmGxpnqxMa
sf8BFdr/ABjk/wAX4f8AFNv/ABPT/wARzv8AD8z/ABHO/wAT0v8AFdP/ABfZ/wAY3/8AFdv/CxfN/xkb
kPMMCyisAQEBggEAAH4LAACWFQAAzRcgKeIZfJz6NNH//zTR//8vx/n/DZXB/xFykv4SDA/ZDQAAlwEA
AEwAAAAyAAAAGQAAAAoAAAAD////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAgG
ExQcG2ejDxa1/wISxP8aHX7/IR51/xYaj/8MFLb/ABLW/wAT1P8AFNH/ABPS/wAS0P8AEM3/AA/K/wAO
yf8ADsz/AAzP/wgTzP8YG5DzCgkeuAgAALwQBwnqEi466iScxP810v//M83//zPM//8vxvn/C5K//xKa
x/8RWHH5EwUG0AgAAH0AAABGAAAALQAAABUAAAAIAAAAA////wD///8A////AP///wD///8A////AP//
/wD///8ABAQMBBgXT3YVG6X3AAvb/wgUof9CKAr/VzIA/1AvAP8/Kij/HCGL/wAZ4P8AGN3/ABjY/wAY
2P8AFtb/ABXT/wAT0P8AD8v/AA3J/wALy/8JFcz/GBVx+g8TH/MPRFP5I5G1/y2z4P8xwvP/M8v+/zPM
//8vxvj/Co66/xGcyv8SlcH9Ej1O7RAAALsEAABsAAAAQQAAACcAAAASAAAABwAAAAH///8A////AP//
/wD///8A////AP///wD///8ADw4qLB4fkNIGEcD/AAre/w4Wj/9CKAf/VjAA/1UwAP9ULwD/TS0B/xwj
jf8AG+//ABve/wAb3f8AGdv/ABjY/wAW1f8AFNL/ABDN/wANyf8AC8z/EhS6/xU6cf8edpP/Ioiq/ymj
zP8wvOz/M8n8/zPM//8vxvj/CIy3/w+Ww/8SodH/E421/BMgKOQOAACpAgAAXwAAADsAAAAiAAAADwAA
AAX///8A////AP///wD///8A////AP///wD///8AFxZQeRIYrfsADMv/AAzT/wcWsv8iIWD/NCQl/0cp
AP9RMAL/Uy8A/0ktEv8NJMD/AB71/wAf4P8AHOD/ABre/wAY2f8AFtX/ABLQ/wAQy/8ADMv/Aw3J/xoj
jv8cY4X/H36d/yabwf8ut+X/Mcf5/zPM//8vxvj/B4m0/w6UwP8QmMb/E6TU/xR9oP0TFhzfCgAAlQAA
AFQAAAA3AAAAHgAAAAwAAAAD////AP///wD///8A////AP///wARF6MaHB2BuQgRvv8ADMv/AA/J/wAT
1f8AF9v/CBu//yIgTP9FKAD/UzID/1QwAP84LEf/ACL5/wAh7f8AIOX/AB3i/wAb3f8AGNn/ABTT/wAR
zv8ADsr/AAvN/xQRqv8aTXr/HniV/ySTuP8ss9//McX3/zPN//8uxff/BIex/wyRvf8OlsL/EpzJ/xSk
0/8UZoL7EQwP0AUAAH4AAABMAAAAMwAAABoAAAAKAAAAA////wD///8A////AP///wAeIZdIFxuQ4AQP
xv8ADMv/ABHM/wAT0v8AFNn/ABju/wQe3P8sISP/Ti4B/1c0Av9SLwz/Eyq8/wAk/f8AIuf/ACDl/wAd
4P8AGtv/ABbV/wAT0P8ADsr/AAvN/wsPu/8ZOXr/HXKQ/yOOsf8sr9v/McT1/zPN//8uxff/AoSv/wqP
u/8Ok8D/EJfF/xOfzf8WotD+FERX8Q8AALsDAABzAAAASAAAACwAAAAVAAAACAAAAAL///8A////AP//
/wAgIpZfFBmc+wINyf8ADsv/AA/M/wAU0/8AHN//ACHl/wAj//8RI5r/PyQA/1k3BP9XMwL/NS9d/wAm
//8AI///ACD//wAc9/8AG+L/ABjW/wAU0/8AEMz/AAzM/wcPwv8bJ4D/Hm+Q/yOMr/8srdn/McT1/zPN
//8uxff/AYKs/wmNuP8Mkb3/DpXC/xGZxv8UpNT/F5vH/RQlL+kNAACtAgAAZwAAAEIAAAAnAAAAEgAA
AAYAAAAB////AP///wAdIJiFERei/wANyv8ADMj/ABXV/wAk7f8ALfn/ADD7/wAv/v8CLfP/LSIi/1My
Af9dOAL/UTMR/zYwXf8yLGT/MilX/yonb/8KIMf/ABfk/wAU0v8AEc3/AAzL/wQPxv8aGIP/H22R/ySO
sv8sr9v/McT1/zPN//8uxPf/AH+p/weLtv8Kj7v/DZTA/xCYxf8Tm8n/Fqna/xeOtfwUHCPjCQAAlAAA
AFsAAAA8AAAAIQAAAA8AAAAE////AP///wAdIJiFERej/wAMyf8AEtH/ACHo/wAt+/8AMf//ADH//wAx
//8AMP//Hy6K/08wAP9gPQb/WzcA/1o1AP9XNAD/WjMA/0svIv8SIbb/ABbs/wAU0f8AEcz/AAzL/wQP
xv8bFoP/IG+V/yWUuf8ts9//Mcb3/zPM//8uxPb/AH2n/waJs/8Jjbn/C5K+/w6Wwv8Rmsf/FJ7M/xes
3f8XfaD8EhAV1gQAAIEAAABUAAAANgAAAB4AAAAMAAAABAAAAAEdIJiFExid/wEOzP8AGdv/ACPr/wAs
+f8AMP//ADD//wAw//8AMP//CzLk/1I7Gf9nRhH/YT0I/1s5Av9eOAD/XzMA/0stGP8TIbL/ABbt/wAT
0P8AD8v/AAvM/wYQw/8cHID/IHab/yecwv8uuOX/Msj6/zPM//8uxPb/AHqk/wSGsf8Hi7b/CZC7/wyT
wP8Ql8T/EpvJ/xWgz/8ZrNz/FV139Q8ICcQBAAB1AAAATwAAADAAAAAZAAAACAAAAAEgIpZfFhqT7gMR
y/8AF9v/ACHn/wAp9v8AL/7/ADD//wAw//8AMP//AS/+/zo5X/9tSxD/cE4X/2BAEP9FND7/MypY/ygl
Y/8KHcL/ABbj/wAT0f8AD8v/AAvN/wkQvf8cLX7/IoCk/ymlzv8wve3/M8r9/zPM//8uxPb/AHmi/wKD
rf8Fh7P/CIy4/wuRvP8OlcH/EJnG/xSdy/8XpNL/Gq7e/hQ1Q+0MAACuAAAAaQAAAEcAAAAoAAAAEQAA
AAUeIZdIGxyEzQgTw/8AFdj/AB7i/wAm8f8ALvv/ADD//wAw//8AMP//AC///xo0tf9hQxD/eFcg/3RR
Fv9HPVv/ABz2/wIX8P8AGdr/ABXU/wARz/8ADsr/AAvN/xERrf8dR4H/JI+z/yyv3P8xxPT/M8z//zPM
//8uxPb/AHmi/wGBq/8EhbD/B4q1/wmOuv8Mkr7/EJfE/xKbyP8Vn83/GKXU/xyu3/4TFRvlCQAAkgEA
AF0AAAA5AAAAGwAAAAkRF6MaHx1wow4WsP8AEtP/ABrd/wAi6f8AKfT/AC7+/wAw//8AMP//ADD//wYw
8f9HOkD/b04U/3pZIf91VSD/QD56/wAY6f8AD+P/ABHT/wAPy/8ADMv/AQ7I/xoTlf8gaZb/KKDI/y+7
6P8yyfv/M8z//zPM//8uxPb/AHmi/wCAqv8Cg63/BYiz/wiMt/8LkLz/DZXB/xGZxv8Uncr/FqLP/xmo
2f8boc3+FAwP1gUAAHYAAABFAAAAJAAAAA3///8AIR5iTBkbkOgFEcb/ABXY/wAd4f8AI+z/ACr2/wAw
/v8AMP//ADD//wEw/f8aNLf/XkIN/3RUIP94Vx//eFgc/1hJU/8uM5f/Dh2+/wANzP8AC83/DRC0/x01
gv8nj7j/LLTg/zHE9P8zy/7/M8z//zPM//8uxPb/AHmi/wCAqv8Bgav/BIaw/waKtf8Jjrr/DZK//w+W
w/8Sm8j/FaDN/xik0v8brt7/GYOn+hQKDsEDAABUAAAAKQAAABD///8AHBtaESAfbakSF6b9ARHO/wAX
2f8AHuL/ACPr/wAo9P8ALfv/ADD9/wAw//8CMfn/MDd5/2RFDP90VCH/eFYi/31YFf+DXhH/Pzl1/wAM
0v8DDMX/GxiQ/yNunf8qrNX/L8Dw/zLK/P8zzP//M8z//zPM//8uxPb/AHmi/wCAqv8AgKr/AoOu/wWI
s/8IjLf/CpC8/w6Uwf8Rmcb/E53L/xai0P8ZpdP/HbPl/xtphfMTAgJ/AAAAKgAAABH///8A////AB0c
XDMgIHfQDBWw/wEQ0P8AFtj/AB3f/wAi6P8AJe//ACjz/wAq9v8ALPz/ASv4/y0zev9WQB//bE4c/3hW
Gf95WB7/MDGM/wEM0v8WFZ7/IE6K/yehy/8uve3/Msf5/zPM//8zzP//M8z//zPM//8uxPb/AHmi/wCA
qv8AgKr/AIGr/wOFr/8GirT/Co65/wySvv8PlsP/EpvI/xWfzf8Yo9H/G6nX/xym1P8bBAWoAAAAKgAA
ABH///8A////AP///wAeHFpSHx993A0VsP8CEcz/ABTV/wAZ3P8AHeL/AB/l/wAh6P8AIun/ACLw/wAg
9f8XKaz/OTJX/049N/9OQEf/GyGh/w4Tqv8gP4f/JZjE/ym76v8uw/b/Msn8/zPM//8zzf//NM3//zLM
//8qv/D/AHmi/wCAqv8AgKr/AICq/wKCrP8Gh7H/CIy2/wuQvP8OlMD/EZnF/xOdyv8WoM7/GqbW/xug
zP8cBAWwAAAAKgAAABH///8A////AP///wD///8AHhxZUyEgdtQTGKL/BhLB/wESz/8AFNX/ABfZ/wAY
2v8AGdz/ABnc/wAY3v8AFOr/ABLl/wIUx/8ME6//FxuU/yBFi/8il8P/J7zq/yrB8/8txvn/MMr+/zPO
//8xxvj/LLzs/yS66v8bq9j/AYGr/wB+qP8AgKr/AICq/wGBq/8ChK//B4m0/wmNuf8Mkb3/D5bC/xGa
x/8Unsz/GKTT/xqeyf8cBAWvAAAAKgAAABH///8A////AP///wD///8A////AB4bWzohH2qxHR6I6RAX
p/8IE73/BRDF/wQRyv8DEsz/AxLM/wQRyf8GEL//Cw2x/xEToP8bLJH/IF+c/yCl0v8kvu7/KL/y/yrE
+P8uyf3/K77v/yau2v8clr7/Eo60/x+oz/8z0Pj/Ga3Z/wKCrv8AfKb/AICq/wCAqv8Cgqz/BIey/wiL
tv8Kj7v/DZTA/xCYxf8TnMr/FqLQ/xicxv8cBASwAAAAKgAAABH///8A////AP///wD///8A////AP//
/wAaGFcLIh9oVyEfa7EfGnHtGCSQ/xcYlP8WEZL/FxKS/xgckv8bKpD/HjyO/x9alv8dj77/Hrjn/yG9
8P8ju+//J8P3/ye+8P8gptP/EoGm/wlzlf8clbj/LcTt/0fj//9D3P//P9r//x204P8EiLP/AHqk/wCA
qv8BgKv/AoSv/waItP8IjLj/DJG9/w6Ww/8Rmsf/FKDO/xeaxP8cAwS1AAAAKgAAABH///8A////AP//
/wD///8A////AP///wD///8A////AAwMKQInCBaoEnCj/xZknv8ZXJr/Gl+c/xptpP8ZgLL/F5zM/xe3
5/8au+3/Hbfq/yC56/8jwPX/IbHg/xKDqP8BZIf/FIWl/ye12v9C3f//RN7//0Ha//9B2v//Qtv//0Dc
//8lwOv/BYm1/wB6pP8AgKr/AoKs/wWGsf8Iirb/Co+7/wyTwP8QmMX/FJ7L/xWXwv8cAwS2AAAAKgAA
ABH///8A////AP///wD///8A////AP///wD///8A////AP///wAsAACQBqfX/giu3/8LsuL/DbTk/xC2
5v8Stef/FbPm/xex5P8as+b/HLfr/yC98v8Ynsz/Bnac/wt7m/8lqcj/P9n3/07q//9H4P//Q9z//0Ha
//9B2v//Qdr//0Pb//9C3P//KcTv/wqPuv8AeaP/AICq/wOEr/8GiLT/CY25/wyRvv8OlsL/EpzJ/xSW
wP8cAwS2AAAAKgAAABH///8A////AP///wD///8A////AP///wD///8A////AP///wArAACaBpzO/gih
1P8Ko9b/DKXY/w+o2/8Rqt3/FK7h/xaz5/8YseX/GajY/xefzf8Riqv/Ka7G/0Ld8/9Y9f//Ve///07n
//9L5P//R+D//0Td//9C2///Qdr//0Ha//9C2///Q97//y7I8v8MlcD/AH6o/wCAqv8FhrH/B4u2/wqP
u/8Mk7//EJnG/xKTvv8cAwS2AAAAKgAAABH///8A////AP///wD///8A////AP///wD///8A////AP//
/wArAACeBJvO/gaf0v8IodT/C6TX/w6n2/8QreH/Eqnc/xGUwP8Rh6//FJa+/wqJsv8JjLP/PtPo/2P+
//9c9f//Vu///1Lr//9P6P//S+T//0jh//9F3v//Qtv//0Ha//9B2v//Qtv//0Ld//8zz/b/F6PN/wB/
qf8AgKv/Bom0/wiNuP8Lkb3/DpfE/xCRvP8cAwS2AAAAKgAAABH///8A////AP///wD///8A////AP//
/wD///8A////AP///wAtAAChA5rM/gWe0f8HoNP/CaTX/wun3P8Mkb3/CnOY/w12mP8eocH/JcHk/xet
1f8FibT/DpG5/y+92v9d9f//Xvf//1fw//9T7P//UOn//0zl//9K4///Rd7//0Pc//9B2v//Qdr//0Lb
//9D3f//N9H4/x2y3f8Eh7L/AoKs/weLtf8Jj7v/DZXB/w+Quf8cAwS2AAAAKwAAABH///8A////AP//
/wD///8A////AP///wD///8A////AP///wAuAAChAJfK/gOcz/8FodP/CJ/Q/wVxlv8DX37/FYGe/y7C
3v8x0O3/LtLx/ynK7P8fu+D/D53G/wuPu/8dqM7/T+Xz/1/4//9Y8f//Ve7//1Hq//9N5v//SuP//0fg
//9E3f//Qdr//0Ha//9B2v//Qdv//z3Z/v8kvOf/BYi0/wSFsP8Ijbj/C5O//w2Otv8cAwS3AAAAKwAA
ABH///8A////AP///wD///8A////AP///wD///8A////AP///wAwAACgAJjK/gGcz/8Bj77/AFl5/wxw
jP8wt83/O9Tq/z3f9f842fL/M9Xv/zDS7/8sz+//Jsfp/xqy2v8MlML/GKHL/0HV6/9h/P//WvP//1bv
//9R6v//Tuf//0vk//9I4f//RN3//0Ha//9B2v//Qdr//0Lb//8+2f//JcPu/wqNt/8FhrL/CZC8/wyM
tf8cAwS5AAAAKAAAABH///8A////AP///wD///8A////AP///wD///8A////AP///wAxAACkAJjM/wCH
uP8FbYz/NbfH/0jg7v9K5/b/R+b4/0Lh9P893vT/Odvy/zfX8P8z0/D/LtHw/ynM7f8jw+X/FajS/xeh
zv8tvN//XfX//1z1//9W7///Uuv//0/o//9M5f//SeL//0Xe//9B2v//Qdr//0Ha//9B2v//Qtz//yXE
8P8QmMP/B4y4/wqKtf8fAwS5AAAAIwAAABD///8A////AP///wD///8A////AP///wD///8A////AP//
/wAyAACmBKDR/zK7z/9N2eL/WPP7/1Xy+/9R7fn/TOn4/0jm9/9F4/b/QeD0/z3c9P852PL/NNXw/zDS
7/8sz+7/KMns/x+74/8ZptP/JLPd/1Pp+f9f+P//Vu///1Ps//9Q6f//Teb//0ni//9F3v//Q9z//0Ha
//9B2v//Qtr//0Hb//8uy/b/GaXO/wyPuv8kAwSzAAAAGAAAAAv///8A////AP///wD///8A////AP//
/wD///8A////AP///wAzAABuQX2C0l78//5l////X/n9/1r1/P9X8/v/Uu/6/07s+f9L6fj/R+X2/0Pi
9P8/3/P/Otvy/zbY8f8y1PD/L9Hv/yvN7v8lxur/HrTg/yGv3P8+0e//X/j//1jx//9V7v//Uuv//0/o
//9L5P//R+D//0Td//9C2///Qdr//0Ha//9C3P//Lcz3/xOp1v8qAgKqAAAADgAAAAb///8A////AP//
/wD///8A////AP///wD///8A////AP///wAzAAARMwAAYzMDBK49Y2jFYf///2L9//9e+P3/WfX8/1Xx
+v9S7fj/Tur3/0rn9v9G5PX/QeD0/z3d8/862vL/Ntfx/zLS7/8tz+7/Kczt/yTD6P8htOL/L8Lr/1ny
/v9a8///Vu///1Ps//9P6P//S+T//0jh//9F3v//Qtv//0Ha//9B2v//RNz//x/K+v8jMEGwAAAAAwAA
AAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////ADMAABIzAABfMwICqUJu
cMxh+fn9YPn7/lv3/P9Y8vv/VO/5/1Ds+P9M6ff/R+X2/0Pi9f9A3/P/PNzy/zjY8f8z1PD/MNHv/yzO
7v8nyu3/I73p/yzA7f9O5vv/XPX//1fw//9U7f//UOn//0zl//9J4v//Rt///0Pd//82z/b+ELTn/RpQ
atExAQFS////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8AMwAADDIAAFgxAACmRWxv0l7t7fpd8vf+W/f9/1fy+/9T7/r/Tuv4/0ro9v9H5fX/Q+L0/z/e
8/862vL/N9fx/zPU8P8u0O//Kszt/ybG7P8ovu7/Ptb3/1v0//9Y8f//Vu///1Lr//9N6f//QNPy/hm2
4/chNUfJMwAAijMAACT///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8AMAAARzEAAJlHdXfQW+Dg91vw9P5a+f7/VfL7/1Dt
+P9N6vf/Sef2/0Xj9f9A3/T/Pdzz/znZ8f801fD/MNHv/yzO7v8nyu3/J8Pw/zfQ+f9T7///WPX//07e
7/4yv970JT9RyDEAAH4zAAAl////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////ADMAAAEwAABAMAAAiEd7
fMlX0tL0Wezx/Vn5//9U8vz/UOz4/0zo9/9H5PX/ROH0/0De9P872/P/N9fy/zPU8P8v0O//KtHw/yfO
9v8yvOH8ObXN7ytJV8IvAAB3MwAAIP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AC8AADMzAACBRnd7w1K9we5X6vL+V/r//1Lw+/9N6vj/Sub3/0bj9v9B4PX/Pd30/zne
9v813fn/McPe/Sygue0sOUK2MQAAbTEAACH///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8AMAAAMCwAAHFFcnW7Tayx7lbs8/9W/P//UO36/0zp
+P9I6vr/ROr9/z3E1/o3mavqM0pUtjIAAGwzAAAh////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAwAAAoLQAAakVx
dLZLm6DsVvP9/1T9//9J2Ob5PoyV4TY8QqUwAABhMgAAIP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////ADAAACAuAABhRXV4r0aIjNQ7UVijLwAAVTAAABz///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wAzAAAMMwAAUDMAAIczAABYMwAAC////wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD/wB/wH/8AAP4A
A+Af/wAA/AAAgA//AAD4AAAAB/8AAPAAAAAD/wAA4AAAAAP/AADAAAAAAf8AAMAAAAAA/wAAwAAAAAB/
AACAAAAAAD8AAIAAAAAAPwAAgAAAAAAfAAAAAAAAAA8AAAAAAAAABwAAAAAAAAADAAAAAAAAAAMAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAwAAAAAAA
AADgAAAAAAAAAPAAAAAAAAAA+AAAAAAAAAD8AAAAAAAAAP8AAAAAAAAA/4AAAAAAAAD/gAAAAAAAAP+A
AAAAAAAA/4AAAAAAAAD/gAAAAAAAAP+AAAAAAAAA/4AAAAAAAAD/gAAAAAAAAP+AAAAAAAAA/4AAAAAA
AAD/4AAAAAMAAP/4AAAABwAA//8AAAAfAAD//4AAAH8AAP//8AAB/wAA///8AAf/AAD///8AH/8AAP//
/8B//wAA////4P//AAAoAAAAIAAAAEAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AP//
/wD///8A////AP///wD///8AAAAAAQAAAAQAAAAJAAAADgAAAA0AAAAJAAAABP///wD///8A////AP//
/wD///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAAAQAAAAUAAAAOAAAAHAAAACoAAAA0AAAAMwAAACkAAAAaAAAADQAA
AAT///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAEXBwANFAsWNxcQNIUZFEe2FxJBuBAMIZcGAwhpAQAAUQAA
AEIAAAAvAAAAGQAAAAgAAAAB////AP///wBtcXZNbXF2TW1xdk3///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wAAAAABIRk5KBgYapUSHZroDiTB/Aso1f8LJ9L+DiG6+BQa
iOMSET2pBwUEawAAAFMAAAA9AAAAIQAAABVtcXZNbXF2gysvNpk2Nz7/bXF2g21xdk3///8AAAAABP//
/wD///8A////AP///wD///8A////AP///wD///8A////ACkfQD8ZHIjkBRjM/wAa/P8AHv//AB7r/wAe
7P8AHu//ARrk/w0Xuf8XF2jdCwcJdwAAAFwAAABPFAAATysvNpkrLzb/Lmd//zGdwv82Nz7/bXF2g21x
dk3///8AAAAAAv///wD///8A////AP///wD///8A////AP///wAsJDwmFxuR6AwUrf8pJGf/Jx9r/wQb
1f8AGen/ABvh/wAQyv8AD8//AA3a/wgSwv8WGGziBgMAhCAcIa8rLzb/LF5z/zGcwv8zzP//M8z//xKX
wv82Nz7/bXF2g21xdk3///8A////AP///wD///8A////AP///wD///8A////AB4edaoEEM7/DRKZ/yYf
F/8yIxT/Qysp/wYi3v8AI/X/AB7j/wAW1f8AEcz/AArV/w0Vsv8VEDP0HkJQ/id2kv8tteL/Msn7/zPM
//8zzP//EZXA/w2UwP82Nz7/bXF2g21xdk3///8A////AP///wD///8A////AP///wAmIVNJFhmV/QAK
1v8EEsr/Kihs/yMeGv8iHhn/OCxG/w02+f8OOPf/BCTl/wAW1f8AD87/AQ3P/xcji/8jXnP/Ioqs/yqo
0v8xxPX/M8z//zPM//8Pkb7/C5C8/w+Xw/82Nz7/bXF2g21xdk3///8A////AP///wD///8A////ACIf
Zr4OFaz/AAzP/wAS0/8AF///IiRX/yIeGv9BKw3/HDfD/xZC/f8FJfr/ABne/wAUzf8ADNH/ERml/x1Q
c/8hhab/KKHJ/zDA8P8zzP//M8z//wqLt/8Jjbn/DZPA/xGax/82Nz7/bXF2g21xdk3///8A////AP//
/wD///8AIB5v/gkRtf8ADtD/ACXn/wAw//8ALv//JCEs/yUfGP8+LSf/LCt8/ycof/8HHs7/ABTf/wAM
z/8MFK3/HT5v/yGFpv8ooMj/MMDw/zPM//8zzP//A4Su/weKtf8LkLz/D5bD/xOdyv82Nz7/bXF2g21x
dk3///8A////AP///wAfHW3/CRG0/wAc4v8IRPz/A0H//wI5//8UMbf/JyEY/zEmFP9jNgP/VjIT/xAg
tf8AEu7/AAzO/w0Urf8dPnD/Iomr/yqn0f8xw/T/M8z//zPM//8Agav/BYey/wmNuP8Nk7//EZnG/xWf
zf82Nz7/bXF2g21xdk3///8A////ACAdYtwOFqz/ACDo/whL/f8FUP//CEz+/wE1/P8sKCf/SDUi/0s4
Ov8ZI5//BxzW/wAS2/8ADND/ERei/x9Odf8lk7j/LbPg/zLI+v8zzP//M8z//wCAqv8ChK7/Boq1/wuQ
vP8PlsP/E5zJ/xei0P82Nz7/bXF2g21xdk3///8AIBtObhcbj/8AIOX/BUz9/wJQ//8GT/7/DUr+/yY2
l/9BMBr/alNA/wsz+P8NLfT/AA7M/wEOzf8ZI4r/InaV/ymjzP8wwPD/M8v+/zPM//8zzP//AICq/wCA
qv8EhrH/CI24/w2Tv/8Rmcb/FZ/N/xifzP8aGyLYbXF2g21xdk0fFwALHx1qzQocwP8ANvP/A038/wZP
/v8JR/7/AzP3/0o/Rf9CMRr/iWEK/09EYP8ED9X/CxGz/x5Jff8klrz/Lbbj/zLI+v8zzP//M8z//zPM
//8AgKr/AICq/wKDrf8GibT/Co+7/w+Wwv8TnMn/F6LQ/xmVv/82Nz7/bXF2Ef///wAjHUBGHB54/wUi
1f8AM/P/ADr0/wE4+P8ALv7/CCrg/z85V/9FMxX/Zk85/w8Xuv8XJIT/IYSk/yis2P8vw/T/M8z//zPM
//8zzP//M8z//wCAqv8AgKr/AICq/wSGsf8IjLj/DJK//xCYxf8Vn8z/GaXT/xqGq/w2Nz7/////AP//
/wAhHUhuHB54/w0fv/8AIeH/AB/m/wAb5f8AF/T/ABTn/xEcsP8dIJD/HCd7/x57ov8jq9j/Kr3u/y/H
+v8yy/7/M8z//zPM//8zzP//AICq/wCAqv8AgKr/AoOt/waJtP8Kj7v/DpXC/xKbyf8XotD/G6jW/yQA
AIn///8A////AP///wAiHEFBHx1lwBkbh/4SGaL/Dxar/w8Xqv8RF6X/Ex6T/xdIjf8djLX/Ia/f/yW7
7P8pwfT/LMX4/y/I+/8zzP//M8z//x+x4P8EiLL/AICq/wCAqv8AgKr/BIaw/wiMt/8Mkr7/EJjF/xSe
zP8ZpdP/JAAAiv///wD///8A////AP///wApHiELHBY/YR0nWvMeK2z/HS5t/xxMgP8YhbL/GabV/xyx
4/8guOv/JL3w/yfA8/8qw/b/Lcb5/x+j0P8Rjrb/LMHp/yq/5/8Afaf/AICq/wCAqv8Cgq3/Bom0/wqP
uv8OlcH/EpvI/xahz/8kAACK////AP///wD///8A////AP///wAAAAAKE09o2Quk1/8Op9r/Eard/xWu
4f8YseT/G7Tn/x636v8huu3/JL3w/xudyf8McpP/GJvA/0Ha//9B2v//Qdr//zXO9v8Ef6f/AICq/wCA
qv8EhbD/CIy3/wySvv8QmMX/FJ7M/yQAAIr///8A////AP///wD///8A////AAAAAAoSTGXgCaLV/wyl
2P8PqNv/Eqve/xWu4f8YseT/HLXo/x2y5P8JbI3/Eoyv/0HZ9P9K4///Rd7//0Ha//9B2v//Qdr//z3W
/P8Nj7b/AICq/wGCrP8GiLP/Co66/w6Vwf8Sm8j/JAAAiv///wD///8A////AP///wD///8AAAAAChFK
Y+EGn9L/CaLV/w2m2f8Qqdz/E6zf/xWo2f8UkLn/FIys/0PZ7f9a8///Ve7//1Dp//9L5P//Rt///0Lb
//9B2v//Qdr//0Ha//8bm8D/AICq/wOFsP8Hi7b/DJG9/xCYxP8lAACS////AP///wD///8A////AP//
/wAAAAAKEUhf5QSd0P8HoNP/CqPW/w2i1P8NfqP/E3+e/yW+3/8Zq9D/DZO8/0vf7/9b9P//Vu///1Hq
//9N5v//SOH//0Pc//9B2v//Qdr//0Ha//8rt93/AYKs/wWIs/8Jjrr/DpTB/yUAAJT///8A////AP//
/wD///8A////AAAAAAkRSGDlAZrN/wSd0P8Hi7f/CmqI/yamv/821vH/MNHv/yrM7f8Zstj/EJjC/zjJ
4/9c9f//WPH//1Ps//9O5///SeL//0Td//9B2v//Qdr//0Ha//82yu//B4Su/weLtv8Lkb3/JQAAk///
/wD///8A////AP///wD///8AAAAABhNMZOMAmcz/BG+Q/yGLn/9K5/f/ROP1/z/e8/852fL/M9Tw/y7P
7v8mx+r/HbHY/yS02f9W7fr/WfL//1Tt//9P6P//S+T//0bf//9B2v//Qdr//0Ha//891fr/EZK7/wmO
uf8mAACT////AP///wD///8A////AP///wAAAAACHD5T4jnB0v9c8/f/WfT7/1Pv+f9N6vj/SOX2/0Lh
9P883PP/Ntfx/zHS7/8rze7/JcPn/ye53/9L4fT/WvP//1Xu//9R6v//TOX//0fg//9C2///Qdr//0Ha
//9B2v//HqTM/ycAAJH///8A////AP///wD///8A////AP///wAyAABYRoKF5l/t7v5i/P7/XPf8/1by
+v9R7fn/S+j3/0Xj9f9A3/T/Otry/zTV8P8u0O//Kcvt/yrF6P890vD/XPX//1fw//9S6///Teb//0jh
//9E3f//Qdr//zHO9/8Tr9//Ih8pl////wD///8A////AP///wD///8A////AP///wAzAAAUMgAAakd7
fO1f6+3+YPr9/1r1+/9U8Pr/Tuv4/0nm9v9D4fX/Pd3z/zjY8f8y0/D/LM7u/ynK7P830PH/SuL6/1jx
//9T7P//T+j//0Hc+/8avez/AKfe/wt+p/0YTGZE////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////ADIAAFVCYWLqWNnb/V34/P9Y8/v/Uu75/0zp9/9G5Pb/QN/0/zvb8v811vH/L9Hv/yrM
7f8xz/H/Q9v7/0ji/f8szfD/Da/f/xCKs/YlKDSCLwAADf///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////ADMAAAQyAABUPlZZxVfX2vxb9vz/VfH6/0/s+P9K5/f/ROL1/z7d
8/842fL/M9Tw/y3P7v8rze7/JcLq/yGHo+sxAABuMwAAFP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wAzAAAEMgAAOz9YWrxV1tv8WPT7/1Pv
+f9N6vj/R+X2/0Lg9P882/P/NdHq/y+MoPExAABlMwAAEP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////ADIA
AC5AWl2uVNXa+1by+v9Q7fn/Rtbk/jqEkO4xAABQ////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wAyAAAlQF1gq0N9guIyAABK////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////APwH7//wAf//4ABj/8AAAX/AAAC/gAAAf4AAAD8AAAAfAAAADwAAAAcAAAADAAAAAQAA
AAAAAAAAgAAAAMAAAADgAAAA8AAAAPgAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAD8AAAA/gAAAP/A
AAH/4AAH//gAH///AP///8P/KAAAABgAAAAwAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//
/wD///8A////AP///wD///8AAgAAEgIAACQAAAApAAAAIQAAABQAAAAG////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////ABULFCEVETpzFRhjuBQY
ZcgODz2lCAYRcQEAAEYAAAAuAAAAERIUFAN3e4ATXl9jRGRhZXhxdns3a29zAf///wD///8A////AP//
/wD///8A////AP///wD///8AHBY8TxEbo8sGHuX/BSTv/wUk6v8IINv/Dxme6RAON6oDAgBZAAAAOBEI
CDBPS0+VNklV1jBcb/thX2Onb3J2MP///wD///8A////AP///wD///8A////AP///wArJVFEFBmc8Bwe
g/8bH53/ARvs/wAZ6v8AEtj/ARDf/wwUuv8ODTSxEAwHkSYrM9UoZHz4MazX/yvC8f8jZn/8ZF5hpExN
Ty7///8A////AP///wD///8A////ACciUCEWGpHIAw7L/yUfOv82JAP/JSZ1/wYn9v8CIeb/ABTT/wAN
2/8OEJL+HjRI+yh/mf8vvu7/NdT//y7I+/8Jl8X/ImV+/2VeYqVucXUw////AP///wD///8A////ACIf
ZYkOFKz/AAzZ/xEcu/8gHy3/NCQL/yE6vv8KOf//ABzo/wAQ0f8GDsP/HUOA/yOIo/8sst7/NM7//y3C
9P8Kjbr/CJfG/yVngPxjXF+ic3Z7MP///wD///8A////AB0cd9gIELb/ABnd/wAr//8OKbT/KSAQ/zQs
O/8wMYL/FSOv/wAU4v8DC8n/Fy2D/yJ/mv8rr9j/Nc3//yvA8v8EhbD/CpC9/wucy/8maYL8YFpdpHN0
eS7///8A////ABwac9oIErr/AzP0/wVK//8DPP7/Gydk/z0pAf9XMxT/JCSE/wAS7P8DC8j/FyyC/ySF
o/8tt+T/Nc///yrA8f8Agav/B4q1/wyVwv8On9D/J2uF/2FbXqVydXoybXF2AR8bW5QOGKr/ATf6/wVV
//8ETv//GDex/0w1Ff9FQGz/BSfy/wAS3P8GC7n/HkiE/yidvv8xw/T/NtD//yq/8f8Af6j/A4aw/wqP
u/8PmMX/EqXW/yJmf/tWUFOXc3Z6MiEZEiUbGnTRBCni/wFJ//8GT///Bj79/zM2av9eRhf/X1FR/w4T
xf8OGp3/I3ue/y255P8zy/7/NdD//yq/8f8Afqj/AYKs/waJtP8Mkr7/Ep7M/xGi0v8kYHj4XmBkcP//
/wAkHT5MFh6O8wQq4/8AMvb/ACv9/wUk7v8pKXf/SDVE/yEcjP8ZWZn/Jq3S/y/G+P8zzf//NdD//yvA
8v8Afaf/AICq/wOFsP8Jjrr/DpbC/xWj0f8XpNP/KT9N1f///wD///8AIh1IUxsdfM8PHLL/ChS9/wkP
xv8IEL7/EiWX/xxkmv8iq9T/KMDx/y7I+/8zzf//NM3+/yGz5P8Af6n/AH6o/wGCrP8HibT/DJK9/xGa
x/8XruD/ICs4nv///wD///8A////ACkdKhgbGUGQGjN1/ho9gv8ZXZj/F5HD/xyz4f8hvO//KMT4/ynA
8/8irNv/HaHL/yvA5v8cqdH/AHqk/wB9p/8EhbD/CY65/w+Wwv8Tp9f/ISw5o////wD///8A////AP//
/wAHERI/D4On+w2v4P8Srt7/FrTl/xq26f8fvPD/GqTU/xONtf8hoL//Os7x/0Te//9C3P//I6/W/wN/
qP8Af6n/Bom0/wySvv8Qo9P/ICs4o////wD///8A////AP///wAGDxVGDX6m/gmq3/8Pqt3/Eqzg/xSn
2f8VmcT/I6G+/0PR4f9U8P//TOb//0Td//9B2v//RN///yy74f8Ihq7/AICr/wmNuP8Ons3/ICo2pv//
/wD///8A////AP///wAGDxNIC3ui/wWp4P8Hms7/C4ew/xqVtf8htdb/F6bL/0HT5/9b9P7/VvD//03m
//9G3///Qtv//0Xf//83yu7/EpfA/wGCrf8Jmcj/Hyk1qv///wD///8A////AP///wAGERVHBnql/wCK
u/8UiKf/LrLI/zrX7/8z1/T/JMTm/xir0v8zxeH/Vez4/1ny//9P6P//SOH//0Lc//9D3f//P9b5/xui
yv8Fkb//Hicyqf///wD///8A////AP///wAGCxFCIoWh/z7V5f9Q5O3/UfP//0bk9v893fP/N9jy/y7Q
8P8hveP/LcLk/0/l9v9Z8v//Uuv//0rj//9D3P//Q93//0Tc/v8lu+X/ISczq////wD///8A////AP//
/wANAAERPjw+kFm9vedh9fX/Xv///1Py/f9K5vb/Q+H0/zvb8/8z1fH/KMrr/yvH6v9G3vX/WPD+/1Tt
//9O5///SeD//znb//8by/3/G0hfqf///wD///8A////AP///wD///8A////ADMCAjFHcnONUKGj5Vzx
9f9Z/v//UO/8/0fl9v8/3vP/ONjy/y7Q7/8qyu3/O9X0/1Hq//9L6v//Ldj//xCj0f8UU3GvGUhhPf//
/wD///8A////AP///wD///8A////AP///wD///8AMAAALTw5On9Oo6XgWe3z/1X6//9M7/7/ROL1/zzb
8v8z1/P/Ltn6/zHQ8/8ptdb7IkpeqycgLEsuBgcH////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wAyAgIZPUNEdk6oq9NU5Or/U/z//0rz//9B4fX/NbHG7C11hq0vCw48NAAABP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////ADUW
FhA/VFZoSpebyEmqsfM8eoOXMy0yOf///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////APgf/wDgAD8AwAA/AIAAHwAAAA8AAAAHAAAAAwAAAAAAAAAAAAAA
AACAAAAAwAAAAOAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAD8AAAA/wABAP/ABwD/8D8A////ACgA
AAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wD///8AAgAAGAAA
ABwAAAAPAAAAAv///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAYG4h2DxZ7qg8d
kNkNE2S7CAcUcQAAAC8lNz9SSVhf0Cc6Q/93d3tL////AP///wD///8A////AP///wAdIZ6wGByO+BEg
xv8AHvv/ARbl/wsTsPcKCSGZIS4zzCuMqv8rosj/JzpD/1NLTEr///8A////AP///wAkIGBODBOz6yA+
xf8bEwr/Hj/c/xM8/P8ADt3/DxST/yRqf/8vwfD/MdH//xeo1v8nOkP/bWdpTv///wD///8AHBt9uREq
0/8RPuv/ExQo/zIqLv8YGDT/BBbV/wcPvP8bdJ3/Lbfg/zDI+/8Ijrv/F6jW/yc6Q/9vaGtT////ABsZ
drQGKNr/K2T//xlBuf8eFg7/GzPM/xMw6/8HDLX/HXuj/zHC7/8wyPv/BIaw/wiOuv8Zqtn/JzpD/2pk
Z1MgGCdBDSq47A1M//8rZP//Fyht/yYfF/8bKcv/Diag/yqjxv80zv7/MMj6/wKErv8Dha//DZXD/xms
2v8nOkP/////AE9SpsIMK8HyEDjr/w4u7v8bIKn/IjGa/x+Hu/8txvb/NdL//y3E9v8AgKv/AICq/wiM
t/8Qnsz/JzpD/////wD///8AYGKokRggVbEWQZT/FGKv/xmg0/8jwfL/Jbvv/xedyv8qu+T/EZrD/wB5
o/8DhK//DJXD/yc6Q/////8A////AP///wBCVVjcC6va/xC15f8VseX/DpbE/xubvf89zeb/Rt///y/D
5/8ao8v/AoCq/wWLuP8nOkP/////AP///wD///8AWGZn+AKa0P8Ik8L/FJi//x6v0f8hq8v/McHc/1Ps
//9G3///Rd///yOw1v8KkLv/JzpD/////wD///8A////AF9sbvUSoMj/K7bQ/0Th8/9C4vj/Otjz/ym8
2/8mr87/Vu///0rj//9F3///K73i/yc6Q/////8A////AP///wCVmp22UF9g/yCjv/4yy+P/TPD+/0/p
/P872/T/KsLh/x2ozP84yuX/T+v//zrl//8nOkP/////AP///wD///8A////AP///wBKVFVyUF9g/yim
vvkwyOP/SOz+/0Tk+f830ez/Ksbp/yStzv1QX2D/P0hNev///wD///8A////AP///wD///8A////AP//
/wBJS0xmUF9g/yaiu/UuxNz/K67H+VBfYP9FRkhx////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wBJU1V6UF9g/0ZaXYgxQksC////AP///wD///8A8P8AAMAPAACABwAAAAMAAAAB
AAAAAAAAAAAAAIAAAADAAAAA4AAAAOAAAADgAAAA4AAAAPgAAAD+AwAA/4cAAA==
</value>
</data>
</root>

639
frmMain.vb Normal file
View File

@ -0,0 +1,639 @@
Imports System.Text
Public Class frmMain
Dim aktGUID As Integer = 0
Dim aktMandant As String
Dim aktLHM_SDG_ID As Integer = 0
Dim SDG_READY As Boolean = False
Dim aktLHM_ID As Integer
Dim AnzPaket As Integer
Public Shared _EDV_no As String
Public Shared _LS_no As String
Dim CURR_LIEFADR As String
Dim CURR_PLZ As String
Dim CURR_Ort As String
Dim CURR_Str As String
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If pnlHuP.Visible = True And SDG_READY = False And aktGUID <> 0 Then
Delete_HUP()
End If
End Sub
Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If My.Settings.ConfigConnectionString = String.Empty Or My.Settings.ConfigConnStringMercator = String.Empty Then
MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
frmConnection.ShowDialog()
End If
If My.Settings.ConfigConnectionString = String.Empty Or My.Settings.ConfigConnStringMercator = String.Empty Then
MsgBox("Noch nicht alle Datenbankverknüpfungen hinterlegt!" & vbNewLine & "Programm wird beendet.", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
Application.Exit()
End If
Try
Me.TBWH_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_TERMINARTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_SDGPOSITIONENTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_TEXTSCHLUESSEL)
TBKOMMCOLLI_HINWEISTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
ClassDatabase.Init()
Catch ex As Exception
MsgBox("Fehler bei Load ConnectionString frm Main: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click
frmConnection.ShowDialog()
End Sub
Private Sub MandanteneinstellungenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MandanteneinstellungenToolStripMenuItem.Click
frmStammdatenverwaltung.Show()
End Sub
Sub ShowError(errormsg As String)
Me.picbxError.Visible = True
Me.txtError.Text = errormsg
Me.txtError.Visible = True
pnlError.Visible = True
End Sub
Sub deactivate_Error()
Me.picbxError.Visible = False
Me.txtError.Visible = False
pnlError.Visible = False
End Sub
Private Sub btnAddNewPaket_Click(sender As System.Object, e As System.EventArgs) Handles btnAddNewColli.Click
AddNew_Colli()
End Sub
Private Sub txtScan_GotFocus(sender As Object, e As System.EventArgs) Handles txtScan.GotFocus
txtScan.BackColor = Color.LimeGreen
End Sub
Private Sub txtScan_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtScan.KeyUp
If e.KeyCode = Keys.Return Then
If txtScan.Text <> String.Empty Then
AddBarcode(txtScan.Text)
txtScan.Text = ""
End If
End If
End Sub
Private Sub txtScan_LostFocus(sender As Object, e As System.EventArgs) Handles txtScan.LostFocus
txtScan.BackColor = Color.White
End Sub
Sub AddBarcode(BC As String)
Try
If BC.Contains("'") Then
BC = BC.Replace("'", "|")
End If
If cmbAuswMandant.SelectedValue = 0 Then
Else
TBKOMMCOLLI_PAKET_POSTableAdapter.Insert(aktGUID, BC)
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, aktGUID)
Refresh_Barcodes()
End If
deactivate_Error()
Catch ex As Exception
If ex.Message.Contains("UNIQ_BARCODE_PER_POS") Then
ShowError("ACHTUNG der Barcode wurde bereits einmal eingescannt!")
Else
ShowError("Fehler in AddBarcode: " & vbNewLine & ex.Message)
End If
End Try
End Sub
Private Function AddBarcodeHuP(BC As String)
Try
If BC.Contains("'") Then
BC = BC.Replace("'", "|")
End If
Dim split() = BC.Split("|")
Try
_EDV_no = split(0)
Catch ex As Exception
_EDV_no = ""
End Try
Try
_LS_no = split(1)
Catch ex As Exception
_LS_no = ""
End Try
If _EDV_no <> String.Empty And _LS_no <> String.Empty Then
Dim getMERC_SELECT = String.Format("select TOP 1 vkkopf_kunde FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
Dim MERC_KDNR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_name1] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
Dim MERC_LIEFADR1 = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_name2] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
Dim MERC_LIEFADR2 = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_strasse] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
Dim MERC_LIEFSTR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_land_nr] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
Dim MERC_LIEFLAND = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_ldplz] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
Dim MERC_LIEFPLZ = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
getMERC_SELECT = String.Format("select TOP 1 [vkkopf_liefadr_ort] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
Dim MERC_LIEFORT = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
getMERC_SELECT = String.Format("select TOP 1 [vkkopf_gew_netto] FROM VKKOPF WHERE vkkopf_kopfpos = 0 AND vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
Dim MERC_GEWICHT = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
If MERC_KDNR Is Nothing Then
MsgBox("Für diese Kombination aus Lieferschein und EDV-Nr konnten keine Werte aus mercator geholt werden!", MsgBoxStyle.Exclamation)
Return False
End If
If CURR_LIEFADR = "" And CURR_Ort = "" Then
CURR_LIEFADR = MERC_LIEFADR1
CURR_Ort = MERC_LIEFORT
CURR_PLZ = MERC_LIEFPLZ
CURR_Str = MERC_LIEFSTR
End If
If CURR_LIEFADR <> MERC_LIEFADR1 Or CURR_PLZ <> MERC_LIEFPLZ Or CURR_Str <> MERC_LIEFSTR Or CURR_Ort <> MERC_LIEFORT Then
MsgBox("ACHTUNG: " & vbNewLine & "Die Adressdaten sind unterschiedlich!", MsgBoxStyle.Exclamation)
Return False
End If
Dim Upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET KUNDEN_ID = '{0}',NAME1 = '{1}',NAME2 = '{2}',STRASSE = '{3}',LKZ = '{4}',PLZ = '{5}',ORT = '{6}' WHERE GUID = {7}", MERC_KDNR, MERC_LIEFADR1, MERC_LIEFADR2, MERC_LIEFSTR, MERC_LIEFLAND, MERC_LIEFPLZ, MERC_LIEFORT, aktGUID)
If ClassDatabase.Execute_non_Query(Upd, True) = True Then
Dim ins = String.Format("INSERT INTO TBKOMMCOLLI_SDG_LHM (SENDUNGNR,LHM_ID,ERSTELLTWER) VALUES ({0},{1},'{2}')", aktGUID, aktLHM_ID, Environment.UserName)
If ClassDatabase.Execute_non_Query(ins, True) = True Then
aktLHM_SDG_ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBKOMMCOLLI_SDG_LHM", True)
If aktLHM_SDG_ID > 0 Then
btnPalfertig.Text = "Palette (" & aktLHM_SDG_ID.ToString & ") fertig"
MERC_GEWICHT = MERC_GEWICHT.ToString.Replace(",", ".")
ins = String.Format("INSERT INTO TBKOMMCOLLI_SDGPOSITIONEN (SENDUNGNR,SDG_LHM_ID,GEWICHT,ERSTELLTWER,FERTIG,FERTIGWER) VALUES ({0},{1},{2},'{3}',1,'{3}')", aktGUID, aktLHM_SDG_ID, MERC_GEWICHT, Environment.UserName)
If ClassDatabase.Execute_non_Query(ins, True) = True Then
cmbLHM.Enabled = False
Refresh_POS(aktGUID)
End If
End If
End If
End If
End If
deactivate_Error()
Catch ex As Exception
If ex.Message.Contains("UNIQ_BARCODE_PER_POS") Then
ShowError("ACHTUNG der Barcode wurde bereits einmal eingescannt!")
Else
ShowError("Fehler in AddBarcodeHuP: " & vbNewLine & ex.Message)
End If
Return False
End Try
End Function
Sub Refresh_POS(SDG As Integer)
Try
Me.TBKOMMCOLLI_SDGPOSITIONENTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_SDGPOSITIONENTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_SDGPOSITIONEN, SDG, aktLHM_SDG_ID)
'GridControlPos.DataSource = Nothing
'grvwGridPos.Columns.Clear()
'Dim sel = String.Format("SELECT T.GUID,T1.LHM, T.POSINHALT,T.GEWICHT FROM TBKOMMCOLLI_SDGPOSITIONEN T, TBKOMMCOLLI_LHM T1 WHERE T.SDG_LHM_ID = T1.GUID AND T.SENDUNGNR = {0}", SDG)
'Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
'If Not DT Is Nothing Then
' GridControlPos.DataSource = DT
'End If
Catch ex As Exception
End Try
End Sub
Sub AddNew_Colli()
Try
If cmbAuswMandant.SelectedIndex = -1 Then
Exit Sub
End If
Select Case cmbAuswMandant.SelectedIndex
Case 0
aktMandant = "HUP"
Dim sql = String.Format("INSERT INTO TBKOMMCOLLI_SENDUNGEN (ERSTELLTWER) VALUES ('{0}')", Environment.UserName)
If ClassDatabase.Execute_non_Query(sql, True) = True Then
AnzPaket = 0
sql = "SELECT MAX(GUID) FROM TBKOMMCOLLI_SENDUNGEN"
aktGUID = ClassDatabase.Execute_Scalar(sql, True)
pnlPaketadd.Visible = False
pnlHuP.Visible = True
pnlHuP.Dock = DockStyle.Fill
sql = "select GUID, LHM from TBKOMMCOLLI_LHM where AKTIV = 1 ORDER BY LHM"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
cmbLHM.DataSource = DT
cmbLHM.DisplayMember = DT.Columns(1).ColumnName
cmbLHM.ValueMember = DT.Columns(0).ColumnName
CURR_LIEFADR = ""
CURR_Ort = ""
CURR_PLZ = ""
CURR_Str = ""
sql = "select PRINTER_NAME from TBKOMMCOLLI_MANDANT where KURZNAME = 'HuP'"
CURR_IP_PRINTER = ClassDatabase.Execute_Scalar(sql)
SDG_READY = False
End If
Case 1
aktMandant = "GLS"
If txtPackstueck.Text <> String.Empty Then
deactivate_Error()
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Insert(Me.cmbAuswMandant.SelectedValue, Environment.MachineName, Environment.UserName, txtPackstueck.Text, 0)
AnzPaket = CInt(txtPackstueck.Text)
aktGUID = TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdGetMaxGUID()
txtPackstueck.Text = ""
Me.TBKOMMCOLLI_TERMINARTTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_TERMINART, CType(Me.cmbAuswMandant.SelectedValue, Integer))
If aktGUID > 0 Then
If My.Settings.Default_Terminart <> String.Empty Then
cmbTerminart.SelectedIndex = cmbTerminart.FindStringExact(My.Settings.Default_Terminart)
Else
cmbTerminart.SelectedIndex = -1
End If
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, aktGUID)
pnlPaketadd.Visible = False
pnlAddBarcodes.Visible = True
pnlAddBarcodes.Dock = DockStyle.Fill
txtScan.Focus()
ListViewBarcodes.Items.Clear()
cmbTerminart.Enabled = True
End If
Else
ShowError("Fehlende Eingabe: " & vbNewLine & "Bitte füllen Sie alle Pflichtfelder aus")
End If
End Select
Catch ex As Exception
ShowError("Fehler in AddNew_Colli: " & vbNewLine & ex.Message)
End Try
End Sub
Sub Refresh_Barcodes()
Try
TBKOMMCOLLI_PAKET_POSTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_POS, aktGUID)
Dim DT As DataTable = MyDataset.TBKOMMCOLLI_PAKET_POS
Dim Count As Integer = 0
ListViewBarcodes.Items.Clear()
For Each row As DataRow In DT.Rows
ListViewBarcodes.Items.Add(row.Item("GUID"))
ListViewBarcodes.Items(Count).SubItems.Add(row.Item("BARCODE"))
Count += 1
Next
' End If
Me.lblInfoBarcodes.Text = "Zugeordnete Barcodes (Aktuell: " & Count & " Stück)"
Catch ex As Exception
ShowError("Fehler in Refresh_Barcodes: " & vbNewLine & ex.Message)
End Try
End Sub
Private Sub btndeleteBarcode_Click(sender As System.Object, e As System.EventArgs) Handles btndeleteBarcode.Click
Try
Dim I As Integer
For I = 0 To ListViewBarcodes.SelectedItems.Count - 1
TBKOMMCOLLI_PAKET_POSTableAdapter.Delete(ListViewBarcodes.SelectedItems(I).Text)
tsinfolabel.Text = "Barcode erfogreich gelöscht"
Next
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Fill(MyDataset.TBKOMMCOLLI_PAKET_KOPF, aktGUID)
Refresh_Barcodes()
tsinfolabel.Visible = True
Catch ex As Exception
ShowError("Fehler in Lösche Barcode: " & vbNewLine & ex.Message)
End Try
End Sub
Private Function Delete_HUP()
Try
Dim del = String.Format("delete from TBKOMMCOLLI_SDGPOSITIONEN where SENDUNGNR = {0}", aktGUID)
If ClassDatabase.Execute_non_Query(del, False) = True Then
del = String.Format("delete from TBKOMMCOLLI_SDG_LHM where SENDUNGNR = {0}", aktGUID)
If ClassDatabase.Execute_non_Query(del, False) = True Then
del = String.Format("delete from TBKOMMCOLLI_SENDUNGEN where GUID = {0}", aktGUID)
If ClassDatabase.Execute_non_Query(del, False) = True Then
Return True
Else
Return False
End If
Else
Return False
End If
Else
Return False
End If
Catch ex As Exception
ShowError("Fehler in Abbruch Sendung: " & vbNewLine & ex.Message)
Return False
End Try
End Function
Private Sub tsbtnabbruch_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnabbruch.Click
Try
Select Case aktMandant
Case "HUP"
Try
If Delete_HUP() = True Then
pnlHuP.Visible = False
End If
Catch ex As Exception
ShowError("Fehler in Abbruch Sendung: " & vbNewLine & ex.Message)
End Try
Case Else
TBKOMMCOLLI_PAKET_POSTableAdapter.cmdDeleteKopfData(aktGUID)
TBKOMMCOLLI_PAKET_KOPFTableAdapter.Delete(aktGUID)
pnlAddBarcodes.Visible = False
pnlPaketadd.Visible = False
End Select
tsbtnabbruch.Visible = False
btnAddPaket.Enabled = True
tsinfolabel.Text = "Vorgang abgebrochen"
tsinfolabel.Visible = True
Catch ex As Exception
ShowError("Fehler in Abbruch Paket: " & vbNewLine & ex.Message)
End Try
End Sub
Private Sub btnAbschluss_Click(sender As System.Object, e As System.EventArgs) Handles btnAbschluss.Click
If cmbTerminart.SelectedIndex = -1 Then
ShowError("Fehlende Eingabe: " & vbNewLine & "Bitte wählen Sie eine Terminart aus der Auswahlliste")
Exit Sub
End If
Try
Dim GewichtGESAMT As Double
GewichtGESAMT = CDbl(GESAMTGEWICHTTextBox.Text)
GewichtGESAMT = GewichtGESAMT / AnzPaket
If CDbl(GewichtGESAMT) > 40.0 Then
MsgBox("Achtung: Das Gewicht des Packstücks überschreitet das Maximalgewicht von 40 kg!" & vbNewLine & "Bitte korrigieren Sie das Gewicht!", MsgBoxStyle.Critical, "Fehler")
Exit Sub
End If
If CDbl(GewichtGESAMT) = 0.0 Then
MsgBox("Achtung: Bitte geben Sie ein Gewicht ein!", MsgBoxStyle.Critical, "Fehler")
GESAMTGEWICHTTextBox.Focus()
GESAMTGEWICHTTextBox.SelectAll()
Exit Sub
End If
If MyDataset.TBKOMMCOLLI_PAKET_POS.Rows.Count = 0 Then
MsgBox("Achtung: Bitte scannen Sie mindestens einen Lieferschein!!", MsgBoxStyle.Critical, "Fehler")
Exit Sub
End If
' Fragen ob das Profil wirklich gelöscht werden soll
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie das Paket abschliessen wollen?", MsgBoxStyle.YesNo, "Abschluss bestätigen")
' wenn das Profil gelöscht werden soll
If result = MsgBoxResult.Yes Then
Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.cmdUpdate_Gewicht(Environment.UserName, CDbl(Me.GESAMTGEWICHTTextBox.Text), Me.PAKET_IDTextBox.Text)
TBKOMMCOLLI_PAKET_KOPFTableAdapter.CmdsetFertig(Environment.UserName, cmbTerminart.SelectedValue, aktGUID)
Me.pnlAddBarcodes.Visible = False
pnlPaketadd.Visible = False
tsbtnabbruch.Visible = False
btnAddPaket.Enabled = True
tsinfolabel.Text = "Paket " & PAKET_IDTextBox.Text & " erfolgreich abgeschlossen"
tsinfolabel.Visible = True
End If
Catch ex As Exception
ShowError("Fehler in Abschluss Paket: " & vbNewLine & ex.Message)
End Try
End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub AbschlussPaketeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AbschlussPaketeToolStripMenuItem.Click
frmAbschluss.ShowDialog()
End Sub
Private Sub cmbTerminart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbTerminart.SelectedIndexChanged
If cmbTerminart.SelectedIndex <> -1 Then
deactivate_Error()
End If
End Sub
Private Sub btnAddPaket_Click(sender As System.Object, e As System.EventArgs) Handles btnAddPaket.Click
If Me.pnlPaketadd.Visible = False Then
Me.TBWH_MANDANTTableAdapter.Fill(Me.MyDataset.TBWH_MANDANT)
Me.pnlPaketadd.Visible = True
Me.pnlPaketadd.Dock = DockStyle.Fill
If My.Settings.Default_Mandant <> String.Empty Then
cmbAuswMandant.SelectedIndex = cmbAuswMandant.FindStringExact(My.Settings.Default_Mandant)
Else
cmbAuswMandant.SelectedIndex = -1
End If
txtPackstueck.Text = ""
btnAddPaket.Enabled = False
Me.tsbtnabbruch.Visible = True
tsinfolabel.Visible = False
End If
End Sub
Private Sub btnAbschlussPakete_Click(sender As System.Object, e As System.EventArgs) Handles btnAbschlussPakete.Click
frmAbschluss.ShowDialog()
End Sub
Private Sub textbox_Focus(sender As System.Object, e As System.EventArgs) Handles txtPackstueck.GotFocus, GESAMTGEWICHTTextBox.GotFocus
Dim box As TextBox = sender
box.BackColor = Color.Lime
End Sub
Private Sub textbox_lostFocus(sender As System.Object, e As System.EventArgs) Handles txtPackstueck.LostFocus, GESAMTGEWICHTTextBox.LostFocus
Dim box As TextBox = sender
box.BackColor = Color.White
End Sub
Private Sub txtPackstueck_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtPackstueck.KeyUp
If e.KeyCode = Keys.Return Then
If txtPackstueck.Text <> String.Empty Then
AddNew_Colli()
End If
End If
End Sub
Private Sub btndeletePaket_Click(sender As System.Object, e As System.EventArgs) Handles btndeletePaket.Click
Try
If txtPaketID.Text <> String.Empty Then
' Fragen ob das Profil wirklich gelöscht werden soll
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie das Paket '" & Me.txtPaketID.Text & "' löschen wollen?", MsgBoxStyle.YesNo, "Löschen bestätigen")
' wenn das Profil gelöscht werden soll
If result = MsgBoxResult.Yes Then
TBKOMMCOLLI_PAKET_POSTableAdapter.cmdDelete_nachKopfID(Me.txtPaketID.Text)
TBKOMMCOLLI_PAKET_KOPFTableAdapter.CMDDeletePaketnachID(Me.txtPaketID.Text)
MsgBox("Paket erfolgreich gelöscht", MsgBoxStyle.Information, "Erfolgsmeldung:")
Me.txtPaketID.Text = ""
End If
End If
Catch ex As Exception
ShowError("Fehler in Löschen von Paket: " & vbNewLine & ex.Message)
End Try
End Sub
Private Sub cmbAuswMandant_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAuswMandant.SelectedIndexChanged
Select Case cmbAuswMandant.SelectedIndex
Case 0
lblpackstueck.Visible = False
txtPackstueck.Visible = False
btnAddNewColli.Text = "Neue Sendung"
Case 1
lblpackstueck.Visible = True
txtPackstueck.Visible = True
btnAddNewColli.Text = "Neuer Colli"
End Select
End Sub
Private Sub cmbLHM_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLHM.SelectedIndexChanged
If cmbLHM.SelectedIndex <> -1 Then
Me.txtScanHUP.Focus()
Dim dd = cmbLHM.SelectedValue
Try
aktLHM_ID = cmbLHM.SelectedValue
Catch ex As Exception
End Try
'aktLHM_ID = cmbLHM.SelectedValue
End If
End Sub
Private Sub txtScanHUP_KeyUp(sender As Object, e As KeyEventArgs) Handles txtScanHUP.KeyUp
If e.KeyCode = Keys.Return Then
If txtScanHUP.Text <> String.Empty Then
If aktLHM_ID = 0 Then
MsgBox("Bitte wählen Sie ein Ladehilfsmittel!", MsgBoxStyle.Information)
cmbLHM.DroppedDown = True
txtScanHUP.Text = ""
Exit Sub
End If
If AddBarcodeHuP(txtScanHUP.Text) = False Then
lblLieferscheine.Text = "Übersicht Lieferscheine für LHM: " & cmbLHM.Text
btnPrintOptions.Visible = True
End If
txtScanHUP.Text = ""
End If
End If
End Sub
Private Sub grvwGridPos_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles grvwGridPos.CellValueChanged
Try
Dim column = e.Column.FieldName
If column = "GEWICHT" Then
Dim guid = grvwGridPos.GetFocusedRowCellValue(grvwGridPos.Columns("GUID"))
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET GEWICHT = '{0}' WHERE GUID = {1}", e.Value, guid)
If ClassDatabase.Execute_non_Query(upd, True) = False Then
End If
End If
Catch ex As Exception
MsgBox("Error in grvwGridPos_CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btndeletePos_Click(sender As Object, e As EventArgs) Handles btndeletePos.Click
Try
Dim guid = grvwGridPos.GetFocusedRowCellValue(grvwGridPos.Columns("GUID"))
Dim del = String.Format("DELETE FROM TBKOMMCOLLI_SDGPOSITIONEN WHERE GUID = {0}", guid)
If ClassDatabase.Execute_non_Query(del) = True Then
Refresh_POS(aktGUID)
End If
Catch ex As Exception
MsgBox("Error in btndeletePos_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnPalfertig_Click(sender As Object, e As EventArgs) Handles btnPalfertig.Click
Try
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE GUID = {0}", aktLHM_SDG_ID, Environment.UserName)
If ClassDatabase.Execute_non_Query(upd) = True Then
SDG_READY = True
Refresh_POS(aktGUID)
cmbLHM.Enabled = True
' cmbLHM.DroppedDown = True
Else
SDG_READY = False
End If
Catch ex As Exception
MsgBox("Error in btndeletePos_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSendungFertig.Click
Try
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE SENDUNGNR = {0}", aktGUID, Environment.UserName)
If ClassDatabase.Execute_non_Query(upd) = True Then
upd = String.Format("UPDATE TBKOMMCOLLI_SENDUNGEN SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE GUID = {0}", aktGUID, Environment.UserName)
If ClassDatabase.Execute_non_Query(upd) = True Then
SDG_READY = True
'Sendungsdruck
CURRENT_SENDUNG = aktGUID
frmPrintOptions.ShowDialog()
End If
End If
Catch ex As Exception
MsgBox("Error in Set Sendung fertig:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnnewPallet_Click(sender As Object, e As EventArgs) Handles btnnewPallet.Click
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie eine neue Palette anlegen wollen?", MsgBoxStyle.YesNo, "Bitte bestätigen")
' wenn das Profil gelöscht werden soll
If result = MsgBoxResult.Yes Then
Try
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET FERTIG = 1, FERTIGWER = '{1}', GEAENDERTWER = '{1}' WHERE GUID = {0}", aktLHM_SDG_ID, Environment.UserName)
If ClassDatabase.Execute_non_Query(upd) = True Then
Refresh_POS(aktGUID)
cmbLHM.Enabled = True
cmbLHM.DroppedDown = True
End If
Catch ex As Exception
MsgBox("Error in btnnewPallet_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub txtScanHUP_TextChanged(sender As Object, e As EventArgs) Handles txtScanHUP.TextChanged
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
frmLabel.ShowDialog()
End Sub
Public Sub New()
DevExpress.XtraEditors.WindowsFormsSettings.DefaultFont = New Font("Segoe UI", 12)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub GridView1_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs)
Try
Dim column = e.Column.FieldName
If column = "GEWICHT" Then
Dim guid = grvwGridPos.GetFocusedRowCellValue(grvwGridPos.Columns("GUID"))
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET GEWICHT = '{0}' WHERE GUID = {1}", e.Value, guid)
If ClassDatabase.Execute_non_Query(upd, True) = False Then
End If
End If
Catch ex As Exception
MsgBox("Error in grvwGridPos_CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnAddTextschlüssel_Click(sender As Object, e As EventArgs) Handles btnAddTextschlüssel.Click
Try
If cmbTextschlüssel.SelectedIndex <> -1 Then
Dim ins = String.Format("INSERT INTO TBKOMMCOLLI_HINWEIS (SENDUNGNR,TEXTSCHLUSSEL_ID,TEXT,ERSTELLTWER) VALUES ({0},{1},'{2}','{3}')", aktGUID, cmbTextschlüssel.SelectedValue, txtHinweistext.Text, Environment.UserName)
If ClassDatabase.Execute_non_Query(ins) = True Then
Me.txtHinweistext.Text = ""
Me.TBKOMMCOLLI_HINWEISTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_HINWEIS, aktGUID)
End If
End If
Catch ex As Exception
MsgBox("Error in Add Textschlüssel:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnPrintOptions_Click(sender As Object, e As EventArgs) Handles btnPrintOptions.Click
CURRENT_SENDUNG = aktGUID
frmPrintOptions.ShowDialog()
End Sub
End Class

170
frmPrintOptions.Designer.vb generated Normal file
View File

@ -0,0 +1,170 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPrintOptions
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtAnzahl = New System.Windows.Forms.TextBox()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
Me.MyDataset = New KommiCollo.MyDataset()
Me.VWHUP_REPORT1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWHUP_REPORT1TableAdapter = New KommiCollo.MyDatasetTableAdapters.VWHUP_REPORT1TableAdapter()
Me.TableAdapterManager = New KommiCollo.MyDatasetTableAdapters.TableAdapterManager()
Me.btnUebernahme = New System.Windows.Forms.Button()
CType(Me.MyDataset,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.VWHUP_REPORT1BindingSource,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'Label1
'
Me.Label1.AutoSize = true
Me.Label1.Location = New System.Drawing.Point(13, 22)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(203, 21)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Anzahl Etiketten pro Einheit:"
'
'txtAnzahl
'
Me.txtAnzahl.Location = New System.Drawing.Point(224, 19)
Me.txtAnzahl.Margin = New System.Windows.Forms.Padding(4)
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Size = New System.Drawing.Size(37, 29)
Me.txtAnzahl.TabIndex = 2
Me.txtAnzahl.Text = "2"
Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Image = Global.KommiCollo.My.Resources.Resources.action_Cancel_16xLG
Me.Cancel_Button.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Cancel_Button.Location = New System.Drawing.Point(927, 19)
Me.Cancel_Button.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(114, 36)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Abbrechen"
Me.Cancel_Button.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Button1
'
Me.Button1.Image = Global.KommiCollo.My.Resources.Resources.BarCodeHS
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(17, 55)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(244, 38)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Drucke Etiketten (F1)"
Me.Button1.UseVisualStyleBackColor = True
'
'ReportViewer1
'
ReportDataSource1.Name = "myReportData"
ReportDataSource1.Value = Me.VWHUP_REPORT1BindingSource
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1)
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "KommiCollo.rptUebergabe.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(12, 175)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(1046, 491)
Me.ReportViewer1.TabIndex = 4
'
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'VWHUP_REPORT1BindingSource
'
Me.VWHUP_REPORT1BindingSource.DataMember = "VWHUP_REPORT1"
Me.VWHUP_REPORT1BindingSource.DataSource = Me.MyDataset
'
'VWHUP_REPORT1TableAdapter
'
Me.VWHUP_REPORT1TableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_MANDANTTableAdapter = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_PAKET_KOPFTableAdapter = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_PAKET_POSTableAdapter = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_SDGPOSITIONENTableAdapter = Nothing
Me.TableAdapterManager.TBKOMMCOLLI_TERMINARTTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'btnUebernahme
'
Me.btnUebernahme.Location = New System.Drawing.Point(17, 99)
Me.btnUebernahme.Name = "btnUebernahme"
Me.btnUebernahme.Size = New System.Drawing.Size(244, 40)
Me.btnUebernahme.TabIndex = 5
Me.btnUebernahme.Text = "Übernahmebestätigung"
Me.btnUebernahme.UseVisualStyleBackColor = True
'
'frmPrintOptions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(1070, 699)
Me.Controls.Add(Me.btnUebernahme)
Me.Controls.Add(Me.ReportViewer1)
Me.Controls.Add(Me.Cancel_Button)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.txtAnzahl)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("Segoe UI", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.KeyPreview = true
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.MaximizeBox = false
Me.MinimizeBox = false
Me.Name = "frmPrintOptions"
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Abschluss - Drucke Etiketten"
CType(Me.MyDataset,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.VWHUP_REPORT1BindingSource,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
Me.PerformLayout
End Sub
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtAnzahl As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
Friend WithEvents MyDataset As KommiCollo.MyDataset
Friend WithEvents VWHUP_REPORT1BindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWHUP_REPORT1TableAdapter As KommiCollo.MyDatasetTableAdapters.VWHUP_REPORT1TableAdapter
Friend WithEvents TableAdapterManager As KommiCollo.MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents btnUebernahme As System.Windows.Forms.Button
End Class

132
frmPrintOptions.resx Normal file
View File

@ -0,0 +1,132 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="VWHUP_REPORT1BindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="VWHUP_REPORT1TableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>356, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>580, 17</value>
</metadata>
</root>

136
frmPrintOptions.vb Normal file
View File

@ -0,0 +1,136 @@
Imports System.Windows.Forms
Imports System.Text
Public Class frmPrintOptions
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub frmPrintNVE_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.F1 Then
Prepare_Print()
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Prepare_Print()
End Sub
Sub Prepare_Print()
Try
Dim SQL = "SELECT * FROM TBKOMMCOLLI_SENDUNGEN where GUID = " & CURRENT_SENDUNG
Dim DTSENDUNG As DataTable = ClassDatabase.Return_Datatable(SQL)
If DTSENDUNG.Rows.Count = 1 Then
SQL = "SELECT * FROM TBKOMMCOLLI_SDGPOSITIONEN where SENDUNGNR = " & CURRENT_SENDUNG
Dim DTPOS As DataTable = ClassDatabase.Return_Datatable(SQL)
If DTPOS.Rows.Count > 0 Then
For Each row As DataRow In DTPOS.Rows
Dim NAME1 = DTSENDUNG.Rows(0).Item("NAME1").ToString.Trim
Dim STRASSE = DTSENDUNG.Rows(0).Item("STRASSE").ToString.Trim
Dim PLZ = DTSENDUNG.Rows(0).Item("PLZ").ToString.Trim
Dim LKZ = DTSENDUNG.Rows(0).Item("LKZ").ToString.Trim
Dim ORT = DTSENDUNG.Rows(0).Item("ORT").ToString.Trim
Dim NVE = row.Item("NVE")
If IsDBNull(NVE) Then
MsgBox("Es wurden noch keine NVE's erzeugt. Schliessen Sie die Sendung ab!")
Dim result As MsgBoxResult = MsgBox("Wollen Sie ein Beispieletikett drucken?", MsgBoxStyle.YesNo, "Bitte bestätigen")
' wenn das Profil gelöscht werden soll
If result = MsgBoxResult.Yes Then
PrintViaIP(CURR_IP_PRINTER, NAME1, STRASSE, PLZ, LKZ, ORT, "123456789101112", 1)
End If
Else
PrintViaIP(CURR_IP_PRINTER, NAME1, STRASSE, PLZ, LKZ, ORT, NVE, Me.txtAnzahl.Text)
End If
Next
End If
Else
MsgBox("Achtung: mehr als eine Sendung für ID: " & CURRENT_SENDUNG, MsgBoxStyle.Critical)
End If
Catch ex As Exception
MsgBox("Unbehandelte Ausnahme in Prepare Print: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub PrintViaIP(IP As String, empname As String, empStrasse As String, empPLZ As String, empLKZ As String, empOrt As String, _NVE As String, Optional Anz As Integer = 1)
Try
Dim ipAddress As String = IP
Dim port As Integer = 9100
Dim pText As New StringBuilder
pText.AppendLine("^XA") 'Every Format must start with this command
pText.AppendLine("^CI28")
'Barcode
pText.AppendLine("^BY4^FO650,50^BCR,160,N,N,N,A^FD00" & _NVE & "^FS")
pText.AppendLine("^CFA,30^FWr^FO620,60^FDNVE 00" & _NVE & "^FS")
pText.AppendLine("^AU^FO750,700^FDS.T.a.R.^FS")
pText.AppendLine("^CF0,22^FWr^FO720,700^FDSYSTEM-TRANSPORT auf RÄDERN^FS")
pText.AppendLine("^AQ^FO680,700^FD35 - Giessen^FS")
pText.AppendLine("^AQ^FO650,700^FDHellmold & Plank^FS")
pText.AppendLine("^AQ^FO560,50^FDS.T.a.R. GmbH, Werner von Siemens-Str. 1, 34576 Homberg-Efze Telefon: 05681/988823^FS")
pText.AppendLine("^AQ^FO480,50^FDHinweise:^FS")
pText.AppendLine("^AQ^FO430,50^CI27^FDFixtermin! Nicht früher oder später - ^FS")
pText.AppendLine("^FO540,50^GB1,1050,3^FS") 'Breite Linie
pText.AppendLine("^FO50,600^GB490,1,3^FS") 'Senkrechte Linie
pText.AppendLine("^AR^FO510,610^FDVersender:^FS")
pText.AppendLine("^AR^FO510,780^FDReinhard Schaum^FS")
pText.AppendLine("^AR^FO460,780^FDRheinstrasse 8^FS")
pText.AppendLine("^AR^FO420,780^CI27^^FDDE - 35625 Hüttenberg^FS")
pText.AppendLine("^FO405,600^GB1,500,3^FS")
pText.AppendLine("^AT^^FO360,610^CI27^^FDAnzahl Packstücke:^FS")
pText.AppendLine("^AT^^FO360,950^FD99^FS") 'Anzahl Packstücke Linie
pText.AppendLine("^FO330,600^GB1,500,3^FS")
pText.AppendLine("^AT^FO290,610^CI27^^FDEmpfänger:^FS")
pText.AppendLine("^AU^FO230,610^CI27^^FD" & empname & "^FS")
pText.AppendLine("^AU^FO150,610^CI27^^FD" & empStrasse & "^FS")
pText.AppendLine("^AU^FO80,610^CI27^^FDDE-" & empPLZ & " " & empOrt & "^FS")
pText.AppendLine("^XZ") 'Every Format must end with this command
Try
'Open Connection
Dim client As New System.Net.Sockets.TcpClient
client.Connect(ipAddress, port)
For i = 1 To Anz
'Write ZPL String to Connection
Dim writer As New System.IO.StreamWriter(client.GetStream())
writer.Write(pText)
writer.Flush()
'Close Connection
writer.Close()
client.Close()
Next
Catch ex As Exception
'Catch Exception Here
End Try
RawPrinter.SendToPrinter("NVE-Etikett", pText.ToString, IP)
Catch ex As Exception
End Try
End Sub
Private Sub frmPrintOptions_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.VWHUP_REPORT1". Sie können sie bei Bedarf verschieben oder entfernen.
End Sub
Private Sub btnUebernahme_Click(sender As Object, e As EventArgs) Handles btnUebernahme.Click
Try
Me.VWHUP_REPORT1TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.VWHUP_REPORT1TableAdapter.Fill(Me.MyDataset.VWHUP_REPORT1, True)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
Me.ReportViewer1.RefreshReport()
End Sub
End Class

1063
frmStammdatenverwaltung.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,412 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="NAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="KURZNAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SPEICHERORTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="PRAEFIXLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="TRENNUNG_BCLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ERFASSTWERLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ERFASSTWANNLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="GEANDERTWERLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="GEAENDERTWANNLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_MANDANTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>244, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<metadata name="PRINTER_NAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="TBKOMMCOLLI_MANDANTBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>972, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
rkJggg==
</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TBKOMMCOLLI_MANDANTBindingNavigatorSaveItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAi9JREFUOE+tkt1L01EYx3//QvfdBF10W1NjOBerwa9cQ1k2DCvCXn6RZmm6TBMV
K9Oo+QbZCpdOWq0m4aQiX8AUKRFlKlmauaIlDjXFJoLB1/Oc/fK4ii6iB56bw/l8znlepP8Sz5+FQelr
XUKLdxEP3fNoagzhrmMadbVfYL8VwPXySZSWjKOw4C3yckdw/pwfKi5JBHZ1ArU1K/hbLK+swpTahUOp
T3mquCR5nyxwQWXFN/Xq70FwaH4ZuywvoNEosB70CIH7wRwXlJZ8Va9Hx0/4Y3ABMWYfCi5N4YClWQic
DTNccNH2QUVEbISHJ0LYJnuRkz2G5CSnENTfDnJB1tkRFYvEr3CfP4jNBjcUZQBms0MIaqo/c4FyakBF
/wx39n/CpvhGHD7yComJdUJwo3IKHe1gowSOHX8D69Fe3m1qGNVM36aXI3A3UqwvIct2IbhSNoE2H9gO
AM2uH2zu31F+bZY3lRpGNWdm+Nfh/cmtMBorhOBy4Rg8j4D7zlW2OGGY0rKj0pJuQ9qZogicxOB9HhgM
ZUJgyxtlMFBdFeYvE0TnMToZg+9nMDo5CyX3KvaYWjis2+2CXl8kBLSWjjtY/zYJCD6dfxPvAnMITC/i
QrEdsQYXg5sQm3APuvh8IcjMGGJ1L3F4q9GDLTtkPG7rga+9Dx3d/eh9PYi9Zis0+gbEMXi7th5abU60
4OSJHr6etGG0JDRnGhV1mxpGNdOrlATvjMsSgn8PSVoDbGg6a0b5NXsAAAAASUVORK5CYII=
</value>
</data>
<metadata name="TBKOMMCOLLI_TERMINARTBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>867, 56</value>
</metadata>
<metadata name="TBKOMMCOLLI_TERMINARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1570, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_TERMINARTBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>867, 56</value>
</metadata>
<data name="BindingNavigatorAddNewItem2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
rkJggg==
</value>
</data>
<metadata name="TBKOMMCOLLI_TERMINARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1570, 17</value>
</metadata>
<data name="BindingNavigatorDeleteItem2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveFirstItem2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1416, 17</value>
</metadata>
<data name="BindingNavigatorAddNewItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
rkJggg==
</value>
</data>
<data name="BindingNavigatorDeleteItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveFirstItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="folderBrowserDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1253, 17</value>
</metadata>
<metadata name="TBWH_MANDANTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>413, 56</value>
</metadata>
<metadata name="TBWH_MANDANTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>413, 56</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_MANDANTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>524, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>799, 17</value>
</metadata>
<metadata name="TBKOMMCOLLI_TERMINARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="TBWH_MANDANTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>643, 56</value>
</metadata>
</root>

136
frmStammdatenverwaltung.vb Normal file
View File

@ -0,0 +1,136 @@
Imports System.Drawing.Printing
Public Class frmStammdatenverwaltung
Private Sub TBKOMMCOLLI_MANDANTBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles TBKOMMCOLLI_MANDANTBindingNavigatorSaveItem.Click
Save_Mandant()
End Sub
Private Sub PopulateInstalledPrintersCombo()
' Add list of installed printers found to the combo box.
' The pkInstalledPrinters string will be used to provide the display string.
Dim i As Integer
Dim pkInstalledPrinters As String
For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
PRINTER_NAMEComboBox.Items.Add(pkInstalledPrinters)
Next
End Sub
Private Sub frmStammdatenverwaltung_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
PopulateInstalledPrintersCombo()
If My.Settings.Default_Mandant <> String.Empty Then
tslblStandard.Text = "Standards - Mandant: '" & My.Settings.Default_Mandant & "'"
If My.Settings.Default_Terminart <> String.Empty Then
tslblStandard.Text = "Standards - Terminart: '" & My.Settings.Default_Terminart & "'"
End If
Else
tslblStandard.Text = " Standards - Mandant: (Nicht angegeben)"
If My.Settings.Default_Terminart <> String.Empty Then
tslblStandard.Text = tslblStandard.Text & " - Terminart: '" & My.Settings.Default_Terminart & "'"
End If
End If
Try
Me.TBKOMMCOLLI_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBWH_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Catch ex As Exception
MsgBox("Fehler bei Load ConnectionString: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
Exit Sub
End Try
Try
Me.TBKOMMCOLLI_MANDANTTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_MANDANT)
Refresh_Terminarten()
Catch ex As Exception
MsgBox("Fehler bei Load Stammdaten: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.folderBrowserDialog.SelectedPath = Me.SPEICHERORTTextBox.Text
If Me.folderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.SPEICHERORTTextBox.Text = Me.folderBrowserDialog.SelectedPath
End If
End Sub
Private Sub TBKOMMCOLLI_MANDANTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBKOMMCOLLI_MANDANTBindingSource.AddingNew
MyDataset.TBKOMMCOLLI_MANDANT.ERFASSTWERColumn.DefaultValue = Environment.UserName
End Sub
Sub Save_Mandant()
Try
Me.Validate()
Me.TBKOMMCOLLI_MANDANTBindingSource.EndEdit()
If Me.MyDataset.TBKOMMCOLLI_MANDANT.GetChanges Is Nothing = False Then
Me.GEANDERTWERTextBox.Text = Environment.UserName
Me.TBKOMMCOLLI_MANDANTBindingSource.EndEdit()
TBKOMMCOLLI_MANDANTTableAdapter.Update(MyDataset.TBKOMMCOLLI_MANDANT)
MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information, "Erfolgsmeldung:")
End If
Catch ex As Exception
MsgBox("Fehler bei Mandanten speichern: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub btnStandard_Click(sender As System.Object, e As System.EventArgs) Handles btnStandard.Click
tslblStandard.Text = "Standards - Mandant: '" & Me.KURZNAMETextBox.Text & "'"
My.Settings.Default_Mandant = Me.KURZNAMETextBox.Text
My.Settings.Save()
End Sub
Private Sub Refresh_Terminarten()
Try
If Me.GUIDTextBox.Text <> Nothing Then
Me.TBWH_MANDANTTableAdapter.Fill(Me.MyDataset.TBWH_MANDANT)
Me.TBKOMMCOLLI_TERMINARTTableAdapter.Fill(Me.MyDataset.TBKOMMCOLLI_TERMINART, Me.GUIDTextBox.Text)
End If
Catch ex As System.Exception
MsgBox("Fehler bei Refresh_Terminarten: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub TBKOMMCOLLI_MANDANTBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBKOMMCOLLI_MANDANTBindingSource.PositionChanged
Refresh_Terminarten()
End Sub
Private Sub TBKOMMCOLLI_TERMINARTBindingSource_AddingNew(sender As System.Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBKOMMCOLLI_TERMINARTBindingSource.AddingNew
MyDataset.TBKOMMCOLLI_TERMINART.ERFASSTWERColumn.DefaultValue = Environment.UserName
End Sub
Private Sub tsbtnStandardTerminart_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnStandardTerminart.Click
Try
Dim i As Integer
Dim KZ As String
i = TBKOMMCOLLI_TERMINARTDataGridView.CurrentRow.Index
KZ = TBKOMMCOLLI_TERMINARTDataGridView.Item(2, i).Value
My.Settings.Default_Terminart = KZ
My.Settings.Save()
If My.Settings.Default_Mandant <> String.Empty Then
tslblStandard.Text = "Standards - Mandant: '" & My.Settings.Default_Mandant & "'"
If My.Settings.Default_Terminart <> String.Empty Then
tslblStandard.Text = "Standards - Terminart: '" & My.Settings.Default_Terminart & "'"
End If
Else
tslblStandard.Text = " Standards - Mandant: (Nicht angegeben)"
If My.Settings.Default_Terminart <> String.Empty Then
tslblStandard.Text = tslblStandard.Text & " - Terminart: '" & My.Settings.Default_Terminart & "'"
End If
End If
Catch ex As System.Exception
MsgBox("Fehler bei Standard Terminart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub tsbtnTerminartenSave_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnTerminartenSave.Click
Try
Me.TBKOMMCOLLI_TERMINARTBindingSource.EndEdit()
If MyDataset.TBKOMMCOLLI_TERMINART.GetChanges Is Nothing = False Then
TBKOMMCOLLI_TERMINARTTableAdapter.Update(MyDataset.TBKOMMCOLLI_TERMINART)
MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information, "Erfolgsmeldung:")
End If
Catch ex As Exception
MsgBox("Fehler bei Speichern Terminarten:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class

137
modul_print_reports.vb Normal file
View File

@ -0,0 +1,137 @@
Imports System
Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Drawing.Printing
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports Microsoft.Reporting.WinForms
Module modul_print_reports
Private m_currentPageIndex As Integer
Private m_streams As IList(Of Stream)
Private printdoc As PrintDocument
''' <summary>
''' Print rdlc report with custom page width and height
''' </summary>
''' <param name="report"></param>
''' <param name="page_width">the width of the papger, in hunderdths of an inch</param>
''' <param name="page_height">the height of the papger, in hunderdths of an inch</param>
''' <param name="islandscap"></param>
''' <param name="printer_name">Ignore this parameter to use default printer</param>
''' <remarks></remarks>
Public Sub print_microsoft_report(ByRef report As LocalReport, ByVal page_width As Integer, ByVal page_height As Integer, _
Optional ByVal islandscap As Boolean = False, _
Optional ByVal printer_name As String = Nothing)
printdoc = New PrintDocument()
If printer_name <> Nothing Then printdoc.PrinterSettings.PrinterName = printer_name
If Not printdoc.PrinterSettings.IsValid Then ' detecate is the printer is exist
Throw New Exception("Cannot find the specified printer")
Else
Dim ps As New PaperSize("Custom", page_width, page_height)
printdoc.DefaultPageSettings.PaperSize = ps
printdoc.DefaultPageSettings.Landscape = islandscap
Export(report)
Print()
End If
End Sub
''' <summary>
''' Print rdlc report with specific paper kind
''' </summary>
''' <param name="report"></param>
''' <param name="paperkind">String paper Kind, ex:"letter"</param>
''' <param name="islandscap"></param>
''' <param name="printer_name">Ignore this parameter to use default printer</param>
''' <remarks></remarks>
Public Sub print_microsoft_report(ByVal report As LocalReport, Optional ByVal paperkind As String = "A4", _
Optional ByVal islandscap As Boolean = False, _
Optional ByVal printer_name As String = Nothing)
printdoc = New PrintDocument()
If printer_name <> Nothing Then printdoc.PrinterSettings.PrinterName = printer_name
If Not printdoc.PrinterSettings.IsValid Then ' detecate is the printer is exist
Throw New Exception("Cannot find the specified printer")
Else
Dim ps As PaperSize
Dim pagekind_found As Boolean = False
For i = 0 To printdoc.PrinterSettings.PaperSizes.Count - 1
If printdoc.PrinterSettings.PaperSizes.Item(i).Kind.ToString = paperkind Then
ps = printdoc.PrinterSettings.PaperSizes.Item(i)
printdoc.DefaultPageSettings.PaperSize = ps
pagekind_found = True
End If
Next
If Not pagekind_found Then Throw New Exception("paper size is invalid")
printdoc.DefaultPageSettings.Landscape = islandscap
Export(report)
Print()
End If
End Sub
' Routine to provide to the report renderer, in order to
' save an image for each page of the report.
Private Function CreateStream(ByVal name As String, ByVal fileNameExtension As String, ByVal encoding As Encoding, ByVal mimeType As String, ByVal willSeek As Boolean) As Stream
Dim stream As Stream = New MemoryStream()
m_streams.Add(stream)
Return stream
End Function
' Export the given report as an EMF (Enhanced Metafile) file.
Private Sub Export(ByVal report As LocalReport)
Dim w As Integer
Dim h As Integer
If printdoc.DefaultPageSettings.Landscape = True Then
w = printdoc.DefaultPageSettings.PaperSize.Height
h = printdoc.DefaultPageSettings.PaperSize.Width
Else
w = printdoc.DefaultPageSettings.PaperSize.Width
h = printdoc.DefaultPageSettings.PaperSize.Height
End If
Dim deviceInfo As String = "<DeviceInfo>" & _
"<OutputFormat>EMF</OutputFormat>" & _
"<PageWidth>" & w / 100 & "in</PageWidth>" & _
"<PageHeight>" & h / 100 & "in</PageHeight>" & _
"<MarginTop>0.0in</MarginTop>" & _
"<MarginLeft>0.0in</MarginLeft>" & _
"<MarginRight>0.0in</MarginRight>" & _
"<MarginBottom>0.0in</MarginBottom>" & _
"</DeviceInfo>"
Dim warnings As Warning()
m_streams = New List(Of Stream)()
report.Render("Image", deviceInfo, AddressOf CreateStream, warnings)
For Each stream As Stream In m_streams
stream.Position = 0
Next
End Sub
' Handler for PrintPageEvents
Private Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim pageImage As New Metafile(m_streams(m_currentPageIndex))
' Adjust rectangular area with printer margins.
Dim adjustedRect As New Rectangle(ev.PageBounds.Left - CInt(ev.PageSettings.HardMarginX),
ev.PageBounds.Top - CInt(ev.PageSettings.HardMarginY), _
ev.PageBounds.Width, _
ev.PageBounds.Height)
' Draw a white background for the report
ev.Graphics.FillRectangle(Brushes.White, adjustedRect)
' Draw the report content
ev.Graphics.DrawImage(pageImage, adjustedRect)
' Prepare for the next page. Make sure we haven't hit the end.
m_currentPageIndex += 1
ev.HasMorePages = (m_currentPageIndex < m_streams.Count)
End Sub
Private Sub Print()
If m_streams Is Nothing OrElse m_streams.Count = 0 Then
Throw New Exception("Error: no stream to print.")
End If
AddHandler printdoc.PrintPage, AddressOf PrintPage
m_currentPageIndex = 0
printdoc.Print()
End Sub
End Module

View File

@ -0,0 +1 @@
97ac3e49446a279a3e0dc1f5e8c5b2d30109bc11

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,35 @@
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\bin\Debug\KommiCollo.exe.config
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\bin\Debug\KommiCollo.exe
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\bin\Debug\KommiCollo.pdb
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\bin\Debug\KommiCollo.xml
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\ResolveAssemblyReference.cache
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmConnection.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmMain.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.Resources.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\GenerateResource.read.1.tlog
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\GenerateResource.write.1.tlog
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.xml
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.pdb
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmStammdatenverwaltung.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmAbschluss.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\bin\Debug\KommiCollo.exe.config
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\bin\Debug\KommiCollo.exe
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\bin\Debug\KommiCollo.pdb
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\bin\Debug\KommiCollo.xml
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmAbschluss.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmConnection.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmMain.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmStammdatenverwaltung.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.Resources.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.vbproj.GenerateResource.Cache
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe.licenses
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.exe
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.xml
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.pdb
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.vbprojResolveAssemblyReference.cache
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmLabel.resources
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\RdlCompile.cache
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\RdlCompile.compiled
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\bin\Debug\Testreport.rdlc
E:\SchreiberM\Visual Studio\Aktuelle Projekte\Kunden\Schaum\KommiCollo\KommiCollo\obj\x86\Debug\KommiCollo.frmPrintOptions.resources

Binary file not shown.

View File

@ -0,0 +1,387 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
KommiCollo
</name>
</assembly>
<members>
<member name="M:KommiCollo.modul_print_reports.print_microsoft_report(Microsoft.Reporting.WinForms.LocalReport@,System.Int32,System.Int32,System.Boolean,System.String)">
<summary>
Print rdlc report with custom page width and height
</summary>
<param name="report"></param>
<param name="page_width">the width of the papger, in hunderdths of an inch</param>
<param name="page_height">the height of the papger, in hunderdths of an inch</param>
<param name="islandscap"></param>
<param name="printer_name">Ignore this parameter to use default printer</param>
<remarks></remarks>
</member><member name="M:KommiCollo.modul_print_reports.print_microsoft_report(Microsoft.Reporting.WinForms.LocalReport,System.String,System.Boolean,System.String)">
<summary>
Print rdlc report with specific paper kind
</summary>
<param name="report"></param>
<param name="paperkind">String paper Kind, ex:"letter"</param>
<param name="islandscap"></param>
<param name="printer_name">Ignore this parameter to use default printer</param>
<remarks></remarks>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_MANDANTDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBWH_MANDANTDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POSDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TERMINARTDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POS_LSDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_HINWEISDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.VWHUP_REPORT1DataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_MANDANTRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBWH_MANDANTRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_KOPFRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POSRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TERMINARTRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POS_LSRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_SDGPOSITIONENRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_HINWEISRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.VWHUP_REPORT1Row">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_MANDANTRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBWH_MANDANTRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_KOPFRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POSRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TERMINARTRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.TBKOMMCOLLI_HINWEISRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset.VWHUP_REPORT1RowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.MyDataset">
<summary>
Represents a strongly typed in-memory cache of data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_MANDANTTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBWH_MANDANTTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_KOPFTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POSTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.VWKOMMCOLLI_ABSCHLUSS_PAKETTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_TERMINARTTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POS_LSTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_SDGPOSITIONENTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_HINWEISTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.VWHUP_REPORT1TableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateUpdatedRows(KommiCollo.MyDataset,System.Collections.Generic.List{System.Data.DataRow},System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Update rows in top-down order.
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateInsertedRows(KommiCollo.MyDataset,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Insert rows in top-down order.
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateDeletedRows(KommiCollo.MyDataset,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Delete rows in bottom-up order.
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.GetRealUpdatedRows(System.Data.DataRow[],System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
</summary>
</member><member name="M:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateAll(KommiCollo.MyDataset)">
<summary>
Update all changes to the dataset.
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption">
<summary>
Update Order Option
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TableAdapterManager.SelfReferenceComparer">
<summary>
Used to sort self-referenced table's rows
</summary>
</member><member name="T:KommiCollo.MyDatasetTableAdapters.TableAdapterManager">
<summary>
TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
</summary>
</member><member name="T:KommiCollo.DSMercator.VKKOPFDataTable">
<summary>
Represents the strongly named DataTable class.
</summary>
</member><member name="T:KommiCollo.DSMercator.VKKOPFRow">
<summary>
Represents strongly named DataRow class.
</summary>
</member><member name="T:KommiCollo.DSMercator.VKKOPFRowChangeEvent">
<summary>
Row event argument class
</summary>
</member><member name="T:KommiCollo.DSMercator">
<summary>
Represents a strongly typed in-memory cache of data.
</summary>
</member><member name="T:KommiCollo.DSMercatorTableAdapters.VKKOPFTableAdapter">
<summary>
Represents the connection and commands used to retrieve and save data.
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateUpdatedRows(KommiCollo.DSMercator,System.Collections.Generic.List{System.Data.DataRow},System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Update rows in top-down order.
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateInsertedRows(KommiCollo.DSMercator,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Insert rows in top-down order.
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateDeletedRows(KommiCollo.DSMercator,System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Delete rows in bottom-up order.
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.GetRealUpdatedRows(System.Data.DataRow[],System.Collections.Generic.List{System.Data.DataRow})">
<summary>
Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
</summary>
</member><member name="M:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateAll(KommiCollo.DSMercator)">
<summary>
Update all changes to the dataset.
</summary>
</member><member name="T:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.UpdateOrderOption">
<summary>
Update Order Option
</summary>
</member><member name="T:KommiCollo.DSMercatorTableAdapters.TableAdapterManager.SelfReferenceComparer">
<summary>
Used to sort self-referenced table's rows
</summary>
</member><member name="T:KommiCollo.DSMercatorTableAdapters.TableAdapterManager">
<summary>
TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.A_1">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.action_add_16xMD">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.action_Cancel_16xLG">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.BarCodeHS">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.bullet_delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.cancel">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.chart_organisation_add">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.chart_organisation_delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.database_lightning">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.delete2">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.lightning">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.lightning_add">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.lightning_delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.lightning_go">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.package_add">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.package_delete">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.package_go">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.package_green">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:KommiCollo.My.Resources.Resources.save">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="T:KommiCollo.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>

Binary file not shown.

View File

Binary file not shown.

Binary file not shown.

Binary file not shown.

1035
rptUebergabe.rdlc Normal file

File diff suppressed because it is too large Load Diff