neu

2022-03-21 10:17:42 +01:00
parent 39911e313e
commit e3843466c8
28 changed files with 4460 additions and 608 deletions
--- a/UID/ADMIN.vbproj
+++ b/UID/ADMIN.vbproj
@@ -557,6 +557,18 @@
    <Compile Include="Programme\usrCntlProgramme.vb">
      <SubType>UserControl</SubType>
    </Compile>
+    <Compile Include="usrCntlERS.Designer.vb">
+      <DependentUpon>usrCntlERS.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlERS.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="usrCntlAPI.Designer.vb">
+      <DependentUpon>usrCntlAPI.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlAPI.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
    <Compile Include="usrCntlWelcome.Designer.vb">
      <DependentUpon>usrCntlWelcome.vb</DependentUpon>
    </Compile>
@@ -723,6 +735,12 @@
    <EmbeddedResource Include="Programme\usrCntlProgramme.resx">
      <DependentUpon>usrCntlProgramme.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlERS.resx">
+      <DependentUpon>usrCntlERS.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlAPI.resx">
+      <DependentUpon>usrCntlAPI.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="usrCntlWelcome.resx">
      <DependentUpon>usrCntlWelcome.vb</DependentUpon>
    </EmbeddedResource>
--- a/UID/cSqlDb.vb
+++ b/UID/cSqlDb.vb
@@ -1132,6 +1132,9 @@ Public Class cOptionenDAL
                        '    USERBER = dr.Item("ber_sicherheitsstufe")


+                        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "ADMIN_TOOLS"
+                        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = 1
+                        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version

                        'VERAG_PROG_ALLGEMEIN.cAllgemein.USRBER = CInt(dr.Item("ber_sicherheitsstufe"))
                        VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = CInt(dr.Item("mit_id"))
--- a/UID/frmMain.Designer.vb
+++ b/UID/frmMain.Designer.vb
@@ -44,6 +44,8 @@ Partial Class frmMain
        Me.btnMitarbeiter = New System.Windows.Forms.Button()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
        Me.Panel3.SuspendLayout()
        Me.Panel2.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -94,8 +96,10 @@ Partial Class frmMain
        '
        'pnlMain
        '
+        Me.pnlMain.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.pnlMain.BackColor = System.Drawing.Color.White
-        Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlMain.Location = New System.Drawing.Point(137, 70)
        Me.pnlMain.Name = "pnlMain"
        Me.pnlMain.Size = New System.Drawing.Size(1026, 801)
@@ -104,6 +108,8 @@ Partial Class frmMain
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.Color.White
+        Me.Panel3.Controls.Add(Me.Button3)
+        Me.Panel3.Controls.Add(Me.Button2)
        Me.Panel3.Controls.Add(Me.btnHomepage)
        Me.Panel3.Controls.Add(Me.Button1)
        Me.Panel3.Controls.Add(Me.btnUpdate)
@@ -243,6 +249,30 @@ Partial Class frmMain
        Me.PictureBox1.TabIndex = 31
        Me.PictureBox1.TabStop = False
        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.Location = New System.Drawing.Point(12, 241)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(94, 33)
+        Me.Button2.TabIndex = 39
+        Me.Button2.Text = "API"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button3.Location = New System.Drawing.Point(12, 280)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(94, 33)
+        Me.Button3.TabIndex = 40
+        Me.Button3.Text = "ERS"
+        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button3.UseVisualStyleBackColor = True
+        '
        'frmMain
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -283,5 +313,6 @@ Partial Class frmMain
    Friend WithEvents btnUpdate As System.Windows.Forms.Button
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents btnHomepage As System.Windows.Forms.Button
-
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button2 As Button
 End Class
--- a/UID/frmMain.vb
+++ b/UID/frmMain.vb
@@ -29,6 +29,8 @@ Public Class frmMain
        Button1.Enabled = False
        btnHomepage.Enabled = False
        Button6.Enabled = False
+        Button2.Enabled = False
+        Button3.Enabled = False

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
            btnDienstplan.Enabled = True
@@ -44,6 +46,8 @@ Public Class frmMain
            btnSchulungen.Enabled = True
            btnDienstplan.Enabled = True
            Button1.Enabled = True
+            Button2.Enabled = True
+            Button3.Enabled = True
            btnHomepage.Enabled = True
            Button6.Enabled = True
        End If
@@ -193,6 +197,19 @@ Public Class frmMain
        End If
    End Sub

+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        clrPnlMain()
+        Dim usrCntl As New usrCntlAPI
+        pnlMain.Controls.Add(usrCntl)
+        usrCntl.Dock = DockStyle.Fill
+        button_Click(sender)
+    End Sub

- 
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        clrPnlMain()
+        Dim usrCntl As New usrCntlERS
+        pnlMain.Controls.Add(usrCntl)
+        usrCntl.Dock = DockStyle.Fill
+        button_Click(sender)
+    End Sub
 End Class
--- a/UID/usrCntlAPI.Designer.vb
+++ b/UID/usrCntlAPI.Designer.vb
--- a/UID/usrCntlAPI.resx
+++ b/UID/usrCntlAPI.resx
@@ -0,0 +1,123 @@
+<?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="pnlAnzeige.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>
--- a/UID/usrCntlAPI.vb
+++ b/UID/usrCntlAPI.vb
@@ -0,0 +1,309 @@
+Imports System.ComponentModel
+
+Public Class usrCntlAPI
+
+    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
+    Dim srcTAG As Date = CDate(Now.ToShortDateString)
+
+    Dim JAHR As Date = CDate("01.01." & Now.Year)
+
+    Private Sub usrCntlAPI_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).txtAbfertDatBisToShortDateString
+        txtAbfertDatBis.Text = Now.ToShortDateString
+
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+
+
+        kdtxtKunde.initKdBox(Me.FindForm) '   initKdAbsender()
+
+
+        cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+
+
+        cboDatum.Items.Clear()
+        cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("API-Datum", "ADat"))
+        cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Durchführungsdatum", "DDat"))
+        cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Error-Datum", "EDat"))
+        cboDatum.changeItem("RDat")
+
+        cboInOut.Items.Clear()
+        cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IN", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN))
+        cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OUT", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT))
+        cboInOut.changeItem("")
+
+
+        cboType.Items.Clear()
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP))
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL))
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", VERAG_PROG_ALLGEMEIN.cAPI_Type.REST))
+        cboType.changeItem("")
+
+
+        cboAPIArt.Items.Clear()
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_STATUSMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL))
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_BELEGMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL))
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_EZA", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_EZA))
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_NCTS", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_NCTS))
+        cboAPIArt.changeItem("")
+
+
+
+    End Sub
+
+    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
+        txtAbfertDat._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
+        txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+    Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
+        initBtns("Monat")
+    End Sub
+    Sub initBtns(MonatJahr)
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+        Select Case MonatJahr
+            Case "Monat"
+                DateTimePicker1.Value = MONAT
+                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
+            Case "Jahr"
+                '  If cbxGeschaftsjahr.Checked Then
+                'DateTimePicker1.Value = JAHR.AddMonths(1)
+                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
+                ' Else
+                DateTimePicker1.Value = JAHR
+                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
+                'End If
+            Case "Tag"
+                '  If cbxGeschaftsjahr.Checked Then
+                'DateTimePicker1.Value = JAHR.AddMonths(1)
+                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
+                ' Else
+                DateTimePicker1.Value = srcTAG
+                DateTimePicker2.Value = srcTAG
+                If srcTAG = Now.ToShortDateString Then
+                    Button5.Text = "Heute"
+                ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
+                    Button5.Text = "Gestern"
+                ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
+                    Button5.Text = "Vorgestern"
+                Else
+                    Button5.Text = srcTAG.ToString("dd.MM")
+                End If
+
+                'End If
+            Case ""
+                DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
+                DateTimePicker2.Value = Now
+        End Select
+
+    End Sub
+
+    Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
+        MONAT = MONAT.AddMonths(1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
+        MONAT = MONAT.AddMonths(-1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
+        JAHR = JAHR.AddYears(1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
+        JAHR = JAHR.AddYears(-1)
+        initBtns("Jahr")
+    End Sub
+
+
+
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
+        Me.Cursor = Cursors.WaitCursor
+
+        Dim sqlstr As String = ""
+        Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+        sqlstr &= "SELECT " & TopMax & " api_id, [api_apiArt],[api_apiUArt],[api_apiZollStatus],[api_InOut],[api_datetime],[api_status],[api_fehlversuch],[api_progName],[api_progVersion],[api_Type],[api_EMail],[api_filepathSource],[api_filepathDestination],[api_Firma],[api_Username],[api_Partnersystem],[api_Vorsystem],[api_KundenNr],[api_AvisoId],[api_SendungsId],[api_FilialenNr],[api_AbfertigungsNr],[api_BezugsNr],[api_Zollbelegnummer],[api_finTstmp] 
+                  FROM [tblAPI] WHERE 1=1 "
+
+        With DataGridView
+            '  .DataSource = myTable
+            .SET_SQL(sqlstr & getRechnungsAusgangWhere() & " ORDER BY api_datetime DESC", "ADMIN", getSpedbuchList)
+            .LOAD()
+
+            If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+            .RowHeadersVisible = False
+            .ReadOnly = True
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .MultiSelect = False
+
+            .Columns("api_id").Visible = False
+
+            '.Columns("RechnungsNr").Width = 70
+            '.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr"
+            '.Columns("RechnungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("RechnungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            '.Columns("RechnungsDatum").Width = 100
+            '.Columns("RechnungsDatum").HeaderText = "Rg-Dat."
+            '.Columns("RechnungsDatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("RechnungsDatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            '.Columns("Sammelrechnung").Width = 45
+            '.Columns("Sammelrechnung").HeaderText = "SR"
+
+            '.Columns("FilialenNr").Width = 45
+            '.Columns("FilialenNr").HeaderText = "Filiale"
+            '.Columns("FilialenNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("AbfertigungsNr").Width = 70
+            '.Columns("AbfertigungsNr").HeaderText = "Abf-Nr"
+            '.Columns("AbfertigungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("UnterNr").Width = 45
+            '.Columns("UnterNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("Abfertigungsdatum").Width = 100
+            '.Columns("Abfertigungsdatum").HeaderText = "Abf-Dat."
+            '.Columns("Abfertigungsdatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            '.Columns("RechnungAn").MinimumWidth = 150
+            '.Columns("RechnungAn").HeaderText = "Rechnung an"
+            '.Columns("RechnungAn").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            ''.Columns("Absender").MinimumWidth = 150
+            ''.Columns("Absender").HeaderText = "Absender"
+            ''.Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            '.Columns("Vermittler").MinimumWidth = 150
+            '.Columns("Vermittler").HeaderText = "Auftraggeber"
+            '.Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            ''.Columns("Empfänger").MinimumWidth = 150
+            ''.Columns("Empfänger").HeaderText = "Empfänger"
+            ''.Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            '.Columns("LKW Kennzeichen").Width = 120
+            '.Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen"
+
+            '.Columns("Sachbearbeiter").MinimumWidth = 100
+            '.Columns("Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            '.Columns("SteuerpflichtigerGesamtbetrag").Width = 120
+            '.Columns("SteuerpflichtigerGesamtbetrag").HeaderText = "Betrag (stpfl.)"
+            '.Columns("SteuerpflichtigerGesamtbetrag").DefaultCellStyle.Format = "N2"
+            '.Columns("SteuerfreierGesamtbetrag").Width = 120
+            '.Columns("SteuerfreierGesamtbetrag").HeaderText = "Betrag (stfr.)"
+            '.Columns("SteuerfreierGesamtbetrag").DefaultCellStyle.Format = "N2"
+
+
+            lblErgebnis.Text = "Ergebnisse: " & .RowCount
+        End With
+
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Function getRechnungsAusgangWhere() As String
+        Dim sqlstr = ""
+        If kdtxtKunde.Text <> "" And IsNumeric(kdtxtKunde.Text) Then sqlstr &= " AND [api_KundenNr] LIKE @Kunde "
+
+
+        If cboDatum._value = "ADat" Then
+            If txtAbfertDat.Text <> "" Then
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_bis ) "
+                Else
+                    sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_von ) "
+                End If
+            End If
+        ElseIf cboDatum._value = "DDat" Then
+            If txtAbfertDat.Text <> "" Then
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_bis ) "
+                Else
+                    sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_von ) "
+                End If
+            End If
+        ElseIf cboDatum._value = "EDat" Then
+            If txtAbfertDat.Text <> "" Then
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_bis ) "
+                Else
+                    sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_von ) "
+                End If
+            End If
+        End If
+
+
+        If txtAbfertigungsnummer.Text <> "" Then
+            If txtAbfertigungsnummerBis.Text <> "" Then
+                sqlstr &= " AND ([api_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis) "
+            Else
+                sqlstr &= " AND [api_AbfertigungsNr] LIKE @AbfertigungsNr "
+            End If
+        End If
+
+        If cboFiliale._value <> "" Then sqlstr &= " AND [api_FilialenNr] LIKE @FilialenNr "
+
+        If txtAPIUArt.Text <> "" Then sqlstr &= " AND [api_apiUArt] LIKE @UArt "
+
+        If cboAPIArt._value <> "" Then sqlstr &= " AND [api_apiArt] LIKE @APIArt "
+        If cboType._value <> "" Then sqlstr &= " AND [api_Type] LIKE @APIType "
+        If cboInOut._value <> "" Then sqlstr &= " AND [api_InOut] LIKE @APIInOut "
+
+        If txtAvisoId.Text <> "" Then sqlstr &= " AND [api_AvisoId] LIKE @AvisoId "
+        If txtSendungsId.Text <> "" Then sqlstr &= " AND [api_SendungsId] LIKE @SendungsId "
+        If txtZollBelegNr.Text <> "" Then sqlstr &= " AND [api_Zollbelegnummer] LIKE @ZollBelegNr "
+        If txtBezugsNr.Text <> "" Then sqlstr &= " AND [api_BezugsNr] LIKE @BezugsNr "
+
+
+        Return sqlstr
+    End Function
+
+    Function getSpedbuchList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde", kdtxtKunde.KdNr_value))
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_von", txtAbfertDat.Text & " 00:00:00"))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_bis", txtAbfertDatBis.Text & " 23:59:59"))
+        If txtAbfertigungsnummerBis.Text <> "" Then
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "")))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr_bis", txtAbfertigungsnummerBis.Text.Replace("*", "")))
+        Else
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%")))
+        End If
+
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UArt", txtAPIUArt.Text.Replace("*", "%").ToUpper))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIArt", cboAPIArt._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIType", cboType._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIInOut", cboInOut._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", txtAvisoId.Text))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungsId", txtSendungsId.Text))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollBelegNr", txtZollBelegNr.Text.Replace("*", "%").ToUpper))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BezugsNr", txtBezugsNr.Text.Replace("*", "%").ToUpper))
+        Return list
+
+    End Function
+
+    Private Sub txtAbfertigungsnummer_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.TextChanged
+        txtAbfertigungsnummerBis.Enabled = (txtAbfertigungsnummer.Text <> "")
+
+    End Sub
+End Class
--- a/UID/usrCntlERS.Designer.vb
+++ b/UID/usrCntlERS.Designer.vb
@@ -0,0 +1,933 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlERS
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl ü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.SplitContainer = New System.Windows.Forms.SplitContainer()
+        Me.pnlSearch = New System.Windows.Forms.Panel()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.kdtxtKunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.txtAPIUArt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cboAPIArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.cboType = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cboInOut = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.Label35 = New System.Windows.Forms.Label()
+        Me.txtSendungsId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.btnSuche = New System.Windows.Forms.Button()
+        Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.btnJahr = New System.Windows.Forms.Button()
+        Me.btnBisJahr = New System.Windows.Forms.Button()
+        Me.btnVonJahr = New System.Windows.Forms.Button()
+        Me.btnMonat = New System.Windows.Forms.Button()
+        Me.btnBisMonat = New System.Windows.Forms.Button()
+        Me.btnVonMonat = New System.Windows.Forms.Button()
+        Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label26 = New System.Windows.Forms.Label()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtAbfertigungsnummerBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.pnlAnzeige = New System.Windows.Forms.Panel()
+        Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblErgebnis = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer.Panel1.SuspendLayout()
+        Me.SplitContainer.Panel2.SuspendLayout()
+        Me.SplitContainer.SuspendLayout()
+        Me.pnlSearch.SuspendLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        Me.pnlAnzeige.SuspendLayout()
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'SplitContainer
+        '
+        Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer.IsSplitterFixed = True
+        Me.SplitContainer.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer.Name = "SplitContainer"
+        Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer.Panel1
+        '
+        Me.SplitContainer.Panel1.Controls.Add(Me.pnlSearch)
+        '
+        'SplitContainer.Panel2
+        '
+        Me.SplitContainer.Panel2.Controls.Add(Me.pnlAnzeige)
+        Me.SplitContainer.Size = New System.Drawing.Size(1020, 687)
+        Me.SplitContainer.SplitterDistance = 150
+        Me.SplitContainer.SplitterWidth = 2
+        Me.SplitContainer.TabIndex = 3
+        '
+        'pnlSearch
+        '
+        Me.pnlSearch.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlSearch.BackColor = System.Drawing.Color.White
+        Me.pnlSearch.Controls.Add(Me.SplitContainer1)
+        Me.pnlSearch.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlSearch.Location = New System.Drawing.Point(0, 0)
+        Me.pnlSearch.Name = "pnlSearch"
+        Me.pnlSearch.Size = New System.Drawing.Size(1020, 150)
+        Me.pnlSearch.TabIndex = 0
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label9)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.kdtxtKunde)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtAPIUArt)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label8)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboAPIArt)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label7)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboType)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label6)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboInOut)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label5)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label3)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label34)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label35)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtSendungsId)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtAvisoId)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Button7)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Button6)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Button5)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnSuche)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertDat)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label23)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnJahr)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnBisJahr)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnVonJahr)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnMonat)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnBisMonat)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnVonMonat)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertDatBis)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label26)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.DateTimePicker2)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label27)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label13)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboFiliale)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label1)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label2)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertigungsnummerBis)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertigungsnummer)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.DateTimePicker1)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboDatum)
+        Me.SplitContainer1.Panel2Collapsed = True
+        Me.SplitContainer1.Size = New System.Drawing.Size(1020, 150)
+        Me.SplitContainer1.SplitterDistance = 125
+        Me.SplitContainer1.TabIndex = 0
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(14, 92)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(74, 13)
+        Me.Label9.TabIndex = 47
+        Me.Label9.Text = "Kunde (KdNr):"
+        '
+        'kdtxtKunde
+        '
+        Me.kdtxtKunde._AlleFirmenCLUSTER = False
+        Me.kdtxtKunde._AllowSetValue = True
+        Me.kdtxtKunde._autoSizeGross = False
+        Me.kdtxtKunde._display_Name1 = False
+        Me.kdtxtKunde._displayAVISO_Email = False
+        Me.kdtxtKunde._displayFullName = False
+        Me.kdtxtKunde._displayWoelflKd = False
+        Me.kdtxtKunde._hideIfListEmpty = True
+        Me.kdtxtKunde._loadKdData = False
+        Me.kdtxtKunde._UseFIRMA = ""
+        Me.kdtxtKunde._ValueKdAndName = True
+        Me.kdtxtKunde.dgvpos = "LEFT"
+        Me.kdtxtKunde.KdName = ""
+        Me.kdtxtKunde.KdNr = "-1"
+        Me.kdtxtKunde.kdNrField = Nothing
+        Me.kdtxtKunde.KdNrNullInt = Nothing
+        Me.kdtxtKunde.Location = New System.Drawing.Point(94, 89)
+        Me.kdtxtKunde.Name = "kdtxtKunde"
+        Me.kdtxtKunde.nurAktive = False
+        Me.kdtxtKunde.searchActive = True
+        Me.kdtxtKunde.Size = New System.Drawing.Size(214, 20)
+        Me.kdtxtKunde.TabIndex = 48
+        Me.kdtxtKunde.TIMER_SEARCH = True
+        Me.kdtxtKunde.usrcntl = Nothing
+        '
+        'txtAPIUArt
+        '
+        Me.txtAPIUArt._DateTimeOnly = False
+        Me.txtAPIUArt._numbersOnly = False
+        Me.txtAPIUArt._numbersOnlyKommastellen = ""
+        Me.txtAPIUArt._Prozent = False
+        Me.txtAPIUArt._ShortDateNew = False
+        Me.txtAPIUArt._ShortDateOnly = False
+        Me.txtAPIUArt._TimeOnly = False
+        Me.txtAPIUArt._value = Nothing
+        Me.txtAPIUArt._Waehrung = False
+        Me.txtAPIUArt._WaehrungZeichen = True
+        Me.txtAPIUArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAPIUArt.ForeColor = System.Drawing.Color.Black
+        Me.txtAPIUArt.Location = New System.Drawing.Point(720, 30)
+        Me.txtAPIUArt.MaxLineLength = -1
+        Me.txtAPIUArt.MaxLines_Warning = ""
+        Me.txtAPIUArt.MaxLines_Warning_Label = Nothing
+        Me.txtAPIUArt.Name = "txtAPIUArt"
+        Me.txtAPIUArt.Size = New System.Drawing.Size(99, 20)
+        Me.txtAPIUArt.TabIndex = 46
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(717, 14)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(62, 13)
+        Me.Label8.TabIndex = 45
+        Me.Label8.Text = "Unter-Art:"
+        '
+        'cboAPIArt
+        '
+        Me.cboAPIArt._allowedValuesFreiText = Nothing
+        Me.cboAPIArt._allowFreiText = False
+        Me.cboAPIArt._value = ""
+        Me.cboAPIArt.DropDownWidth = 250
+        Me.cboAPIArt.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboAPIArt.FormattingEnabled = True
+        Me.cboAPIArt.Location = New System.Drawing.Point(542, 30)
+        Me.cboAPIArt.Name = "cboAPIArt"
+        Me.cboAPIArt.Size = New System.Drawing.Size(172, 22)
+        Me.cboAPIArt.TabIndex = 44
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(539, 12)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(47, 13)
+        Me.Label7.TabIndex = 43
+        Me.Label7.Text = "API-Art"
+        '
+        'cboType
+        '
+        Me.cboType._allowedValuesFreiText = Nothing
+        Me.cboType._allowFreiText = False
+        Me.cboType._value = ""
+        Me.cboType.DropDownWidth = 250
+        Me.cboType.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboType.FormattingEnabled = True
+        Me.cboType.Location = New System.Drawing.Point(419, 30)
+        Me.cboType.Name = "cboType"
+        Me.cboType.Size = New System.Drawing.Size(105, 22)
+        Me.cboType.TabIndex = 42
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(416, 12)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(35, 13)
+        Me.Label6.TabIndex = 41
+        Me.Label6.Text = "Type"
+        '
+        'cboInOut
+        '
+        Me.cboInOut._allowedValuesFreiText = Nothing
+        Me.cboInOut._allowFreiText = False
+        Me.cboInOut._value = ""
+        Me.cboInOut.DropDownWidth = 250
+        Me.cboInOut.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboInOut.FormattingEnabled = True
+        Me.cboInOut.Location = New System.Drawing.Point(333, 30)
+        Me.cboInOut.Name = "cboInOut"
+        Me.cboInOut.Size = New System.Drawing.Size(80, 22)
+        Me.cboInOut.TabIndex = 40
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(330, 12)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(52, 13)
+        Me.Label5.TabIndex = 39
+        Me.Label5.Text = "IN/OUT"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(330, 66)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(80, 13)
+        Me.Label3.TabIndex = 38
+        Me.Label3.Text = "Aviso Daten:"
+        '
+        'Label34
+        '
+        Me.Label34.AutoSize = True
+        Me.Label34.Location = New System.Drawing.Point(330, 115)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(67, 13)
+        Me.Label34.TabIndex = 37
+        Me.Label34.Text = "SendungsId:"
+        '
+        'Label35
+        '
+        Me.Label35.AutoSize = True
+        Me.Label35.Location = New System.Drawing.Point(330, 89)
+        Me.Label35.Name = "Label35"
+        Me.Label35.Size = New System.Drawing.Size(45, 13)
+        Me.Label35.TabIndex = 34
+        Me.Label35.Text = "AvisoId:"
+        '
+        'txtSendungsId
+        '
+        Me.txtSendungsId._DateTimeOnly = False
+        Me.txtSendungsId._numbersOnly = True
+        Me.txtSendungsId._numbersOnlyKommastellen = ""
+        Me.txtSendungsId._Prozent = False
+        Me.txtSendungsId._ShortDateNew = False
+        Me.txtSendungsId._ShortDateOnly = False
+        Me.txtSendungsId._TimeOnly = False
+        Me.txtSendungsId._value = ""
+        Me.txtSendungsId._Waehrung = False
+        Me.txtSendungsId._WaehrungZeichen = True
+        Me.txtSendungsId.Enabled = False
+        Me.txtSendungsId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSendungsId.ForeColor = System.Drawing.Color.Black
+        Me.txtSendungsId.Location = New System.Drawing.Point(399, 112)
+        Me.txtSendungsId.MaxLineLength = -1
+        Me.txtSendungsId.MaxLines_Warning = ""
+        Me.txtSendungsId.MaxLines_Warning_Label = Nothing
+        Me.txtSendungsId.Name = "txtSendungsId"
+        Me.txtSendungsId.Size = New System.Drawing.Size(125, 20)
+        Me.txtSendungsId.TabIndex = 36
+        '
+        'txtAvisoId
+        '
+        Me.txtAvisoId._DateTimeOnly = False
+        Me.txtAvisoId._numbersOnly = True
+        Me.txtAvisoId._numbersOnlyKommastellen = ""
+        Me.txtAvisoId._Prozent = False
+        Me.txtAvisoId._ShortDateNew = False
+        Me.txtAvisoId._ShortDateOnly = False
+        Me.txtAvisoId._TimeOnly = False
+        Me.txtAvisoId._value = ""
+        Me.txtAvisoId._Waehrung = False
+        Me.txtAvisoId._WaehrungZeichen = True
+        Me.txtAvisoId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAvisoId.ForeColor = System.Drawing.Color.Black
+        Me.txtAvisoId.Location = New System.Drawing.Point(399, 86)
+        Me.txtAvisoId.MaxLineLength = -1
+        Me.txtAvisoId.MaxLines_Warning = ""
+        Me.txtAvisoId.MaxLines_Warning_Label = Nothing
+        Me.txtAvisoId.Name = "txtAvisoId"
+        Me.txtAvisoId.Size = New System.Drawing.Size(125, 20)
+        Me.txtAvisoId.TabIndex = 35
+        '
+        'Button7
+        '
+        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button7.ForeColor = System.Drawing.Color.Black
+        Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button7.Location = New System.Drawing.Point(274, 4)
+        Me.Button7.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(34, 23)
+        Me.Button7.TabIndex = 12
+        Me.Button7.Text = ">>"
+        Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'Button6
+        '
+        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button6.ForeColor = System.Drawing.Color.Black
+        Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button6.Location = New System.Drawing.Point(155, 4)
+        Me.Button6.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(34, 23)
+        Me.Button6.TabIndex = 8
+        Me.Button6.Text = "<<"
+        Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button5.ForeColor = System.Drawing.Color.Black
+        Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button5.Location = New System.Drawing.Point(188, 4)
+        Me.Button5.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(87, 23)
+        Me.Button5.TabIndex = 10
+        Me.Button5.Text = "Heute"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'btnSuche
+        '
+        Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSuche.Location = New System.Drawing.Point(850, 9)
+        Me.btnSuche.Name = "btnSuche"
+        Me.btnSuche.Size = New System.Drawing.Size(162, 52)
+        Me.btnSuche.TabIndex = 28
+        Me.btnSuche.Text = "Ergebnisse laden"
+        Me.btnSuche.UseVisualStyleBackColor = True
+        '
+        'txtAbfertDat
+        '
+        Me.txtAbfertDat._DateTimeOnly = False
+        Me.txtAbfertDat._numbersOnly = False
+        Me.txtAbfertDat._numbersOnlyKommastellen = ""
+        Me.txtAbfertDat._Prozent = False
+        Me.txtAbfertDat._ShortDateNew = False
+        Me.txtAbfertDat._ShortDateOnly = True
+        Me.txtAbfertDat._TimeOnly = False
+        Me.txtAbfertDat._value = ""
+        Me.txtAbfertDat._Waehrung = False
+        Me.txtAbfertDat._WaehrungZeichen = True
+        Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertDat.Location = New System.Drawing.Point(43, 34)
+        Me.txtAbfertDat.MaxLength = 10
+        Me.txtAbfertDat.MaxLineLength = -1
+        Me.txtAbfertDat.MaxLines_Warning = ""
+        Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertDat.Name = "txtAbfertDat"
+        Me.txtAbfertDat.Size = New System.Drawing.Size(63, 20)
+        Me.txtAbfertDat.TabIndex = 1
+        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.Location = New System.Drawing.Point(14, 62)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(23, 13)
+        Me.Label23.TabIndex = 5
+        Me.Label23.Text = "bis:"
+        '
+        'btnJahr
+        '
+        Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnJahr.Location = New System.Drawing.Point(188, 56)
+        Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnJahr.Name = "btnJahr"
+        Me.btnJahr.Size = New System.Drawing.Size(87, 23)
+        Me.btnJahr.TabIndex = 18
+        Me.btnJahr.Text = "2016"
+        Me.btnJahr.UseVisualStyleBackColor = True
+        '
+        'btnBisJahr
+        '
+        Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisJahr.Location = New System.Drawing.Point(274, 56)
+        Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisJahr.Name = "btnBisJahr"
+        Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisJahr.TabIndex = 19
+        Me.btnBisJahr.Text = ">>"
+        Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisJahr.UseVisualStyleBackColor = True
+        '
+        'btnVonJahr
+        '
+        Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonJahr.Location = New System.Drawing.Point(155, 56)
+        Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonJahr.Name = "btnVonJahr"
+        Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonJahr.TabIndex = 17
+        Me.btnVonJahr.Text = "<<"
+        Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonJahr.UseVisualStyleBackColor = True
+        '
+        'btnMonat
+        '
+        Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnMonat.Location = New System.Drawing.Point(188, 30)
+        Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnMonat.Name = "btnMonat"
+        Me.btnMonat.Size = New System.Drawing.Size(87, 23)
+        Me.btnMonat.TabIndex = 15
+        Me.btnMonat.Text = "September"
+        Me.btnMonat.UseVisualStyleBackColor = True
+        '
+        'btnBisMonat
+        '
+        Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisMonat.Location = New System.Drawing.Point(274, 30)
+        Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisMonat.Name = "btnBisMonat"
+        Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisMonat.TabIndex = 16
+        Me.btnBisMonat.Text = ">>"
+        Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisMonat.UseVisualStyleBackColor = True
+        '
+        'btnVonMonat
+        '
+        Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonMonat.Location = New System.Drawing.Point(155, 30)
+        Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonMonat.Name = "btnVonMonat"
+        Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonMonat.TabIndex = 14
+        Me.btnVonMonat.Text = "<<"
+        Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonMonat.UseVisualStyleBackColor = True
+        '
+        'txtAbfertDatBis
+        '
+        Me.txtAbfertDatBis._DateTimeOnly = False
+        Me.txtAbfertDatBis._numbersOnly = False
+        Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertDatBis._Prozent = False
+        Me.txtAbfertDatBis._ShortDateNew = False
+        Me.txtAbfertDatBis._ShortDateOnly = True
+        Me.txtAbfertDatBis._TimeOnly = False
+        Me.txtAbfertDatBis._value = ""
+        Me.txtAbfertDatBis._Waehrung = False
+        Me.txtAbfertDatBis._WaehrungZeichen = True
+        Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertDatBis.Location = New System.Drawing.Point(43, 59)
+        Me.txtAbfertDatBis.MaxLength = 10
+        Me.txtAbfertDatBis.MaxLineLength = -1
+        Me.txtAbfertDatBis.MaxLines_Warning = ""
+        Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
+        Me.txtAbfertDatBis.Size = New System.Drawing.Size(63, 20)
+        Me.txtAbfertDatBis.TabIndex = 3
+        '
+        'Label26
+        '
+        Me.Label26.AutoSize = True
+        Me.Label26.Location = New System.Drawing.Point(649, 115)
+        Me.Label26.Name = "Label26"
+        Me.Label26.Size = New System.Drawing.Size(23, 13)
+        Me.Label26.TabIndex = 30
+        Me.Label26.Text = "bis:"
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.CustomFormat = "''"
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker2.Location = New System.Drawing.Point(43, 59)
+        Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
+        Me.DateTimePicker2.TabIndex = 4
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Location = New System.Drawing.Point(649, 89)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(28, 13)
+        Me.Label27.TabIndex = 21
+        Me.Label27.Text = "von:"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(14, 38)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(28, 13)
+        Me.Label13.TabIndex = 13
+        Me.Label13.Text = "von:"
+        '
+        'cboFiliale
+        '
+        Me.cboFiliale._allowedValuesFreiText = Nothing
+        Me.cboFiliale._allowFreiText = False
+        Me.cboFiliale._value = ""
+        Me.cboFiliale.DropDownWidth = 250
+        Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFiliale.FormattingEnabled = True
+        Me.cboFiliale.Location = New System.Drawing.Point(542, 84)
+        Me.cboFiliale.Name = "cboFiliale"
+        Me.cboFiliale.Size = New System.Drawing.Size(104, 22)
+        Me.cboFiliale.TabIndex = 20
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(539, 66)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(40, 13)
+        Me.Label1.TabIndex = 6
+        Me.Label1.Text = "Filiale"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(649, 66)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(121, 13)
+        Me.Label2.TabIndex = 7
+        Me.Label2.Text = "Abfertigungsnummer"
+        '
+        'txtAbfertigungsnummerBis
+        '
+        Me.txtAbfertigungsnummerBis._DateTimeOnly = False
+        Me.txtAbfertigungsnummerBis._numbersOnly = False
+        Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummerBis._Prozent = False
+        Me.txtAbfertigungsnummerBis._ShortDateNew = False
+        Me.txtAbfertigungsnummerBis._ShortDateOnly = False
+        Me.txtAbfertigungsnummerBis._TimeOnly = False
+        Me.txtAbfertigungsnummerBis._value = Nothing
+        Me.txtAbfertigungsnummerBis._Waehrung = False
+        Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
+        Me.txtAbfertigungsnummerBis.Enabled = False
+        Me.txtAbfertigungsnummerBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertigungsnummerBis.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertigungsnummerBis.Location = New System.Drawing.Point(683, 112)
+        Me.txtAbfertigungsnummerBis.MaxLineLength = -1
+        Me.txtAbfertigungsnummerBis.MaxLines_Warning = ""
+        Me.txtAbfertigungsnummerBis.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertigungsnummerBis.Name = "txtAbfertigungsnummerBis"
+        Me.txtAbfertigungsnummerBis.Size = New System.Drawing.Size(136, 20)
+        Me.txtAbfertigungsnummerBis.TabIndex = 23
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer._DateTimeOnly = False
+        Me.txtAbfertigungsnummer._numbersOnly = False
+        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._Prozent = False
+        Me.txtAbfertigungsnummer._ShortDateNew = False
+        Me.txtAbfertigungsnummer._ShortDateOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._value = Nothing
+        Me.txtAbfertigungsnummer._Waehrung = False
+        Me.txtAbfertigungsnummer._WaehrungZeichen = True
+        Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(683, 86)
+        Me.txtAbfertigungsnummer.MaxLineLength = -1
+        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
+        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(136, 20)
+        Me.txtAbfertigungsnummer.TabIndex = 22
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.CustomFormat = "''"
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker1.Location = New System.Drawing.Point(43, 34)
+        Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20)
+        Me.DateTimePicker1.TabIndex = 2
+        '
+        'cboDatum
+        '
+        Me.cboDatum._allowedValuesFreiText = Nothing
+        Me.cboDatum._allowFreiText = False
+        Me.cboDatum._value = ""
+        Me.cboDatum.BackColor = System.Drawing.Color.White
+        Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboDatum.DropDownWidth = 250
+        Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboDatum.FormattingEnabled = True
+        Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"})
+        Me.cboDatum.Location = New System.Drawing.Point(17, 9)
+        Me.cboDatum.Name = "cboDatum"
+        Me.cboDatum.Size = New System.Drawing.Size(130, 22)
+        Me.cboDatum.TabIndex = 32
+        '
+        'pnlAnzeige
+        '
+        Me.pnlAnzeige.BackColor = System.Drawing.Color.White
+        Me.pnlAnzeige.Controls.Add(Me.DataGridView)
+        Me.pnlAnzeige.Controls.Add(Me.Panel1)
+        Me.pnlAnzeige.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlAnzeige.Location = New System.Drawing.Point(0, 0)
+        Me.pnlAnzeige.Name = "pnlAnzeige"
+        Me.pnlAnzeige.Size = New System.Drawing.Size(1020, 535)
+        Me.pnlAnzeige.TabIndex = 0
+        '
+        'DataGridView
+        '
+        Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1
+        Me.DataGridView.AllowUserToAddRows = False
+        Me.DataGridView.AllowUserToDeleteRows = False
+        Me.DataGridView.AllowUserToOrderColumns = True
+        Me.DataGridView.AllowUserToResizeRows = False
+        Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView.Location = New System.Drawing.Point(0, 0)
+        Me.DataGridView.Name = "DataGridView"
+        Me.DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
+        Me.DataGridView.Size = New System.Drawing.Size(1020, 491)
+        Me.DataGridView.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.lblErgebnis)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.txtMaxSrch)
+        Me.Panel1.Controls.Add(Me.Panel2)
+        Me.Panel1.Controls.Add(Me.Panel3)
+        Me.Panel1.Controls.Add(Me.Button10)
+        Me.Panel1.Controls.Add(Me.Button11)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel1.Location = New System.Drawing.Point(0, 491)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1020, 44)
+        Me.Panel1.TabIndex = 1
+        '
+        'lblErgebnis
+        '
+        Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblErgebnis.Location = New System.Drawing.Point(864, 25)
+        Me.lblErgebnis.Name = "lblErgebnis"
+        Me.lblErgebnis.Size = New System.Drawing.Size(152, 13)
+        Me.lblErgebnis.TabIndex = 45
+        Me.lblErgebnis.Text = "Max:"
+        Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(930, 5)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(30, 13)
+        Me.Label4.TabIndex = 43
+        Me.Label4.Text = "Max:"
+        '
+        'txtMaxSrch
+        '
+        Me.txtMaxSrch._DateTimeOnly = False
+        Me.txtMaxSrch._numbersOnly = True
+        Me.txtMaxSrch._numbersOnlyKommastellen = ""
+        Me.txtMaxSrch._Prozent = False
+        Me.txtMaxSrch._ShortDateNew = False
+        Me.txtMaxSrch._ShortDateOnly = False
+        Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._value = ""
+        Me.txtMaxSrch._Waehrung = False
+        Me.txtMaxSrch._WaehrungZeichen = True
+        Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
+        Me.txtMaxSrch.Location = New System.Drawing.Point(966, 2)
+        Me.txtMaxSrch.MaxLineLength = -1
+        Me.txtMaxSrch.MaxLines_Warning = ""
+        Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
+        Me.txtMaxSrch.Name = "txtMaxSrch"
+        Me.txtMaxSrch.Size = New System.Drawing.Size(51, 20)
+        Me.txtMaxSrch.TabIndex = 44
+        Me.txtMaxSrch.Text = "1000"
+        Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Panel2
+        '
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel2.Location = New System.Drawing.Point(323, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(468, 42)
+        Me.Panel2.TabIndex = 6
+        '
+        'Panel3
+        '
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel3.Location = New System.Drawing.Point(0, 0)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(323, 42)
+        Me.Panel3.TabIndex = 5
+        '
+        'Button10
+        '
+        Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button10.Location = New System.Drawing.Point(1117, 1)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(41, 34)
+        Me.Button10.TabIndex = 3
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button11.ForeColor = System.Drawing.Color.Black
+        Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button11.Location = New System.Drawing.Point(1164, 1)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(41, 34)
+        Me.Button11.TabIndex = 4
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'usrCntlERS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.SplitContainer)
+        Me.Name = "usrCntlERS"
+        Me.Size = New System.Drawing.Size(1020, 687)
+        Me.SplitContainer.Panel1.ResumeLayout(False)
+        Me.SplitContainer.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer.ResumeLayout(False)
+        Me.pnlSearch.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.PerformLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        Me.pnlAnzeige.ResumeLayout(False)
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents SplitContainer As SplitContainer
+    Friend WithEvents pnlSearch As Panel
+    Friend WithEvents SplitContainer1 As SplitContainer
+    Friend WithEvents Label34 As Label
+    Friend WithEvents Label35 As Label
+    Friend WithEvents txtSendungsId As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAvisoId As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Button7 As Button
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents btnSuche As Button
+    Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label23 As Label
+    Friend WithEvents btnJahr As Button
+    Friend WithEvents btnBisJahr As Button
+    Friend WithEvents btnVonJahr As Button
+    Friend WithEvents btnMonat As Button
+    Friend WithEvents btnBisMonat As Button
+    Friend WithEvents btnVonMonat As Button
+    Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label26 As Label
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents Label27 As Label
+    Friend WithEvents Label13 As Label
+    Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents txtAbfertigungsnummerBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents pnlAnzeige As Panel
+    Friend WithEvents DataGridView As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtAPIUArt As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cboAPIArt As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents cboType As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents cboInOut As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents kdtxtKunde As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents lblErgebnis As Label
+End Class
--- a/UID/usrCntlERS.resx
+++ b/UID/usrCntlERS.resx
@@ -0,0 +1,123 @@
+<?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="pnlAnzeige.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>
--- a/UID/usrCntlERS.vb
+++ b/UID/usrCntlERS.vb
@@ -0,0 +1,301 @@
+Imports System.ComponentModel
+
+Public Class usrCntlERS
+
+    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
+    Dim srcTAG As Date = CDate(Now.ToShortDateString)
+
+    Dim JAHR As Date = CDate("01.01." & Now.Year)
+
+    Private Sub usrCntlAPI_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).txtAbfertDatBisToShortDateString
+        txtAbfertDatBis.Text = Now.ToShortDateString
+
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+
+
+        kdtxtKunde.initKdBox(Me.FindForm) '   initKdAbsender()
+
+
+        cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+
+
+        cboDatum.Items.Clear()
+        cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("API-Datum", "ADat"))
+        cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Durchführungsdatum", "DDat"))
+        cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Error-Datum", "EDat"))
+        cboDatum.changeItem("RDat")
+
+        cboInOut.Items.Clear()
+        cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IN", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN))
+        cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OUT", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT))
+        cboInOut.changeItem("")
+
+
+        cboType.Items.Clear()
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP))
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL))
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", VERAG_PROG_ALLGEMEIN.cAPI_Type.REST))
+        cboType.changeItem("")
+
+
+        cboAPIArt.Items.Clear()
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_STATUSMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL))
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_BELEGMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL))
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_EZA", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_EZA))
+        cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_NCTS", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_NCTS))
+        cboAPIArt.changeItem("")
+
+
+
+    End Sub
+
+    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
+        txtAbfertDat._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
+        txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+    Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
+        initBtns("Monat")
+    End Sub
+    Sub initBtns(MonatJahr)
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+        Select Case MonatJahr
+            Case "Monat"
+                DateTimePicker1.Value = MONAT
+                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
+            Case "Jahr"
+                '  If cbxGeschaftsjahr.Checked Then
+                'DateTimePicker1.Value = JAHR.AddMonths(1)
+                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
+                ' Else
+                DateTimePicker1.Value = JAHR
+                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
+                'End If
+            Case "Tag"
+                '  If cbxGeschaftsjahr.Checked Then
+                'DateTimePicker1.Value = JAHR.AddMonths(1)
+                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
+                ' Else
+                DateTimePicker1.Value = srcTAG
+                DateTimePicker2.Value = srcTAG
+                If srcTAG = Now.ToShortDateString Then
+                    Button5.Text = "Heute"
+                ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
+                    Button5.Text = "Gestern"
+                ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
+                    Button5.Text = "Vorgestern"
+                Else
+                    Button5.Text = srcTAG.ToString("dd.MM")
+                End If
+
+                'End If
+            Case ""
+                DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
+                DateTimePicker2.Value = Now
+        End Select
+
+    End Sub
+
+    Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
+        MONAT = MONAT.AddMonths(1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
+        MONAT = MONAT.AddMonths(-1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
+        JAHR = JAHR.AddYears(1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
+        JAHR = JAHR.AddYears(-1)
+        initBtns("Jahr")
+    End Sub
+
+
+
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
+        Me.Cursor = Cursors.WaitCursor
+
+        Dim sqlstr As String = ""
+        Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+        sqlstr &= "SELECT " & TopMax & " api_id, [api_apiArt],[api_apiUArt],[api_apiZollStatus],[api_InOut],[api_datetime],[api_status],[api_fehlversuch],[api_progName],[api_progVersion],[api_Type],[api_EMail],[api_filepathSource],[api_filepathDestination],[api_Firma],[api_Username],[api_Partnersystem],[api_Vorsystem],[api_KundenNr],[api_AvisoId],[api_SendungsId],[api_FilialenNr],[api_AbfertigungsNr],[api_BezugsNr],[api_Zollbelegnummer],[api_finTstmp] 
+                  FROM [tblAPI] WHERE 1=1 "
+
+        With DataGridView
+            '  .DataSource = myTable
+            .SET_SQL(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", getSpedbuchList)
+            .LOAD()
+
+            If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+            .RowHeadersVisible = False
+            .ReadOnly = True
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .MultiSelect = False
+
+            .Columns("api_id").Visible = False
+
+            '.Columns("RechnungsNr").Width = 70
+            '.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr"
+            '.Columns("RechnungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("RechnungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            '.Columns("RechnungsDatum").Width = 100
+            '.Columns("RechnungsDatum").HeaderText = "Rg-Dat."
+            '.Columns("RechnungsDatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("RechnungsDatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            '.Columns("Sammelrechnung").Width = 45
+            '.Columns("Sammelrechnung").HeaderText = "SR"
+
+            '.Columns("FilialenNr").Width = 45
+            '.Columns("FilialenNr").HeaderText = "Filiale"
+            '.Columns("FilialenNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("AbfertigungsNr").Width = 70
+            '.Columns("AbfertigungsNr").HeaderText = "Abf-Nr"
+            '.Columns("AbfertigungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("UnterNr").Width = 45
+            '.Columns("UnterNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("Abfertigungsdatum").Width = 100
+            '.Columns("Abfertigungsdatum").HeaderText = "Abf-Dat."
+            '.Columns("Abfertigungsdatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            '.Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            '.Columns("RechnungAn").MinimumWidth = 150
+            '.Columns("RechnungAn").HeaderText = "Rechnung an"
+            '.Columns("RechnungAn").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            ''.Columns("Absender").MinimumWidth = 150
+            ''.Columns("Absender").HeaderText = "Absender"
+            ''.Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            '.Columns("Vermittler").MinimumWidth = 150
+            '.Columns("Vermittler").HeaderText = "Auftraggeber"
+            '.Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            ''.Columns("Empfänger").MinimumWidth = 150
+            ''.Columns("Empfänger").HeaderText = "Empfänger"
+            ''.Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            '.Columns("LKW Kennzeichen").Width = 120
+            '.Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen"
+
+            '.Columns("Sachbearbeiter").MinimumWidth = 100
+            '.Columns("Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            '.Columns("SteuerpflichtigerGesamtbetrag").Width = 120
+            '.Columns("SteuerpflichtigerGesamtbetrag").HeaderText = "Betrag (stpfl.)"
+            '.Columns("SteuerpflichtigerGesamtbetrag").DefaultCellStyle.Format = "N2"
+            '.Columns("SteuerfreierGesamtbetrag").Width = 120
+            '.Columns("SteuerfreierGesamtbetrag").HeaderText = "Betrag (stfr.)"
+            '.Columns("SteuerfreierGesamtbetrag").DefaultCellStyle.Format = "N2"
+
+
+            lblErgebnis.Text = "Ergebnisse: " & .RowCount
+        End With
+
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Function getRechnungsAusgangWhere() As String
+        Dim sqlstr = ""
+        If kdtxtKunde.Text <> "" And IsNumeric(kdtxtKunde.Text) Then sqlstr &= " AND [api_KundenNr] LIKE @Kunde "
+
+
+        If cboDatum._value = "ADat" Then
+            If txtAbfertDat.Text <> "" Then
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_bis ) "
+                Else
+                    sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_von ) "
+                End If
+            End If
+        ElseIf cboDatum._value = "DDat" Then
+            If txtAbfertDat.Text <> "" Then
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_bis ) "
+                Else
+                    sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_von ) "
+                End If
+            End If
+        ElseIf cboDatum._value = "EDat" Then
+            If txtAbfertDat.Text <> "" Then
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_bis ) "
+                Else
+                    sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_von ) "
+                End If
+            End If
+        End If
+
+
+        If txtAbfertigungsnummer.Text <> "" Then
+            If txtAbfertigungsnummerBis.Text <> "" Then
+                sqlstr &= " AND ([api_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis) "
+            Else
+                sqlstr &= " AND [api_AbfertigungsNr] LIKE @AbfertigungsNr "
+            End If
+        End If
+
+        If cboFiliale._value <> "" Then sqlstr &= " AND [api_FilialenNr] LIKE @FilialenNr "
+
+        If txtAPIUArt.Text <> "" Then sqlstr &= " AND [api_apiUArt] LIKE @UArt "
+
+        If cboAPIArt._value <> "" Then sqlstr &= " AND [api_apiArt] LIKE @APIArt "
+        If cboType._value <> "" Then sqlstr &= " AND [api_Type] LIKE @APIType "
+        If cboInOut._value <> "" Then sqlstr &= " AND [api_InOut] LIKE @APIInOut "
+
+        If txtAvisoId.Text <> "" Then sqlstr &= " AND [api_AvisoId] LIKE @AvisoId "
+        If txtSendungsId.Text <> "" Then sqlstr &= " AND [api_SendungsId] LIKE @SendungsId "
+
+
+
+        Return sqlstr
+    End Function
+
+    Function getSpedbuchList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde", kdtxtKunde.KdNr_value))
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_von", txtAbfertDat.Text & " 00:00:00"))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_bis", txtAbfertDatBis.Text & " 23:59:59"))
+        If txtAbfertigungsnummerBis.Text <> "" Then
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "")))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr_bis", txtAbfertigungsnummerBis.Text.Replace("*", "")))
+        Else
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%")))
+        End If
+
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UArt", txtAPIUArt.Text.Replace("*", "%").ToUpper))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIArt", cboAPIArt._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIType", cboType._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIInOut", cboInOut._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", txtAvisoId._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungsId", txtSendungsId._value))
+        Return list
+
+    End Function
+End Class