CBAM

SDL/Administration/frmKasseAbschliessen.vb

@@ -82,7 +82,7 @@
 
     Sub insertBELEGALT(KASSE As cRKSV_Kasse, betrag As Double)
         Dim BELEG_ALT As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!!
-        BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value)
+        BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value, KASSE.rksv_firma).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value)
 
         If txtxAbwBetragALT._value <> "" AndAlso IsNumeric(txtxAbwBetragALT._value) Then betrag = txtxAbwBetragALT._value
 
@@ -143,7 +143,7 @@
     End Sub
     Sub insertBELEGNEU(KASSE As cRKSV_Kasse, betrag As Double)
         Dim BELEG_NEU As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!!
-        BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value)
+        BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value, KASSE.rksv_firma).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value)
         BELEG_NEU.Beleg_TYP = "E"
         BELEG_NEU.Belegart = 1 'EINGANG
         BELEG_NEU.rksv_aktiv = KASSE.rksv_aktiv

SDL/Classes/cRKSV.vb

@@ -2,6 +2,7 @@
 Imports System.Drawing.Printing
 Imports GrapeCity.ActiveReports
 Imports VERAG_PROG_ALLGEMEIN.DSFinVKService
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class cRKSV
     Shared SQL As New SQL
@@ -1003,10 +1004,10 @@ Public Class cRKSV
     Shared Function getGJ_FIRMA(BelegDat As Date, FIRMA As String) As Integer
         If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
         Select Case FIRMA
-            Case "IMEX", "FRONTOFFICE", "UNISPED", "AMBAR"
+            Case "VERAG", "ATILLA"
-                Return BelegDat.Year
-            Case Else
                 Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
+            Case Else
+                Return BelegDat.Year
         End Select
 
     End Function
@@ -1014,7 +1015,7 @@ Public Class cRKSV
     Shared Function getGJ(BelegDat As Date, Optional FIRMA_ID As Integer = -1) As Integer
         'If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
         Select Case FIRMA_ID
-            Case -1, 1, 3, 11, 7, 19, 15 'Abweichendes WJ
+            Case -1, 1, 3, 11, 7, 15 'Abweichendes WJ
                 Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)
             Case Else
                 Return BelegDat.Year
@@ -1043,21 +1044,23 @@ Public Class cRKSV
     'End Function
 
 
-    Shared Function getGJ_EndOfYear(GeschaerftsJahr As Integer) As Date
+    Shared Function getGJ_EndOfYear(GeschaerftsJahr As Integer, Optional FIRMA As String = "") As Date
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "FRONTOFFICE"
+        Select Case FIRMA
-                Return CDate("31.12." & GeschaerftsJahr)
+            Case "VERAG", "ATILLA"
-            Case Else
                 Return CDate("31.01." & (GeschaerftsJahr + 1))
+            Case Else
+                Return CDate("31.12." & GeschaerftsJahr)
         End Select
     End Function
 
-    Shared Function getGJ_BeginOfYear(GeschaerftsJahr As Integer) As Date
+    Shared Function getGJ_BeginOfYear(GeschaerftsJahr As Integer, Optional FIRMA As String = "") As Date
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "FRONTOFFICE"
+        Select Case FIRMA
-                Return CDate("01.01." & GeschaerftsJahr)
+            Case "VERAG", "ATILLA"
-            Case Else
                 Return CDate("01.02." & GeschaerftsJahr)
+            Case Else
+                Return CDate("01.01." & GeschaerftsJahr)
         End Select
     End Function
 

SDL/Fakturierung/cFakturierung.vb

@@ -787,7 +787,30 @@ Public Class cFakturierung
                         End If
                     End If
                 End If
-            Case Else 'VERAG,ATILLA
+            Case 7 ' ATILLA
+
+                If Rechnung.RechnungsLandKz = "TR" Then
+                    rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                    rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                    rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                    rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
+                    If Not hasEUSTZOLL(Rechnung) Then
+
+                        rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy" & vbNewLine & "EUR-IBAN: TR08 6 2000 5440 0009 0603 73" & vbNewLine & "Hesap Numarası: 544-9060373"
+
+                    End If
+                Else
+                    rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                    rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                    rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                    rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
+                End If
+
+            Case Else 'VERAG
 
                 If Rechnung.RechnungsLandKz = "TR" Then
                     rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim

SDL/Fakturierung/frmRechnungenSuche.vb

@@ -532,22 +532,23 @@ Public Class frmRechnungenSuche
 
 
         Me.Cursor = Cursors.WaitCursor
+
         'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
         If brexitXLS Then
             cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£")
         Else
-            cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)})
+            Dim sqlstr As String = ""
+            ' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+            sqlstr &= "SELECT  RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum,  isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
+                "  isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " &
+                " FROM [Rechnungsausgang] WHERE 1=1 "
+            Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList)
+
+            cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)})
         End If
         Me.Cursor = Cursors.Default
 
 
-        'Dim sqlstr As String = ""
-        '' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
-        'sqlstr &= "SELECT  RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum,  isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
-        '        "  isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " &
-        '        " FROM [Rechnungsausgang] WHERE 1=1 "
-        'Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList)
-
 
 
         'Me.Cursor = Cursors.WaitCursor
@@ -815,7 +816,7 @@ Public Class frmRechnungenSuche
                           and Firma_ID=26
                           "
 
-            MsgBox(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr")
+            '  MsgBox(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr")
             .SET_SQL(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr", "FMZOLL", getSpedbuchList)
             .LOAD()
 

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.7.9")>
+<Assembly: AssemblyVersion("1.2.8.1")>
-<Assembly: AssemblyFileVersion("1.2.7.9")>
+<Assembly: AssemblyFileVersion("1.2.8.1")>

SDL/My Project/Resources.Designer.vb

@@ -150,6 +150,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property air_pollution() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("air-pollution", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -419,6 +429,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property cbam_s() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("cbam_s", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

SDL/My Project/Resources.resx

@@ -139,18 +139,21 @@
   <data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="pdf_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdf_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="brexit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="air-pollution" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\air-pollution.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="person1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="verag_Card1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\verag_Card1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -181,8 +184,8 @@
   <data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="dakosy1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dakosy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -217,6 +220,9 @@
   <data name="uhr_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="pay_card_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pay_card_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -238,9 +244,6 @@
   <data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="_exit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\exit.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -262,9 +265,6 @@
   <data name="rechnung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="beleg_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\beleg1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -283,6 +283,9 @@
   <data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="picboxZoomIn_Enter1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -292,9 +295,6 @@
   <data name="person_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="entwurf" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -349,15 +349,18 @@
   <data name="lorry_motion" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="aeo_CS" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>F:\Grafik\VERAG\AEO\aeo_CS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -373,6 +376,9 @@
   <data name="sgs" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="passpic" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -436,6 +442,9 @@
   <data name="Excel_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="picboxNext_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -460,12 +469,15 @@
   <data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Info" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\info.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>
@@ -478,27 +490,24 @@
   <data name="Route5_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Route5_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="picboxZoomOut_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="unisped_aeo_ZS_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="cards" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Verag_AG_Logo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Verag-AG-Logo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pay_card" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="chimes2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
@@ -523,9 +532,6 @@
   <data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -547,12 +553,12 @@
   <data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Route4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -577,8 +583,8 @@
   <data name="aktiveVeredelung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Verag_AG_Logo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="cards" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Verag-AG-Logo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="plose_cz" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\plose_cz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -628,9 +634,6 @@
   <data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="list_new_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\list_new_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -649,8 +652,8 @@
   <data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pdf_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -676,8 +679,8 @@
   <data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -715,8 +718,8 @@
   <data name="Route3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="transfer" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -724,8 +727,8 @@
   <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="durmaz" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\durmaz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -790,14 +793,14 @@
   <data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="modaltrans_original" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\modaltrans_original.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -808,8 +811,8 @@
   <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="email_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -841,8 +844,8 @@
   <data name="Verag_Customs_Service_GMBH_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Verag-Customs-Service-GMBH-Logo2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pin" xml:space="preserve">
     <value>VERAGZoll1</value>
@@ -850,8 +853,8 @@
   <data name="report" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
   <data name="moneybag1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -859,8 +862,8 @@
   <data name="mahn" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\..\data\mahn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="email_print1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -874,8 +877,8 @@
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="picboxZoomOut_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -889,8 +892,8 @@
   <data name="Einheitspapier_0777_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einheitspapier-0777_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -904,7 +907,10 @@
   <data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="pdf_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="durmaz" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pdf_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\durmaz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

SDL/OriginalArchiv_ATR/frmATR.Designer.vb

@@ -24,6 +24,8 @@ Partial Class frmATR
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATR))
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label()
+        Me.lblErr_DocNr = New System.Windows.Forms.Label()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
@@ -51,6 +53,7 @@ Partial Class frmATR
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtDocNumber = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.Label9 = New System.Windows.Forms.Label()
@@ -69,15 +72,13 @@ Partial Class frmATR
         Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.txtInfo = New System.Windows.Forms.RichTextBox()
         Me.lblErr_Ausstellungsdatum = New System.Windows.Forms.Label()
-        Me.lblErr_DocNr = New System.Windows.Forms.Label()
+        Me.lblErr_ErhaltenDatum = New System.Windows.Forms.Label()
-        Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label()
-        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.Panel1.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel3.SuspendLayout()
         Me.Panel4.SuspendLayout()
-        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Panel1
@@ -124,6 +125,32 @@ Partial Class frmATR
         Me.Panel1.Size = New System.Drawing.Size(658, 588)
         Me.Panel1.TabIndex = 0
         '
+        'lblErr_Aufbewarungsort
+        '
+        Me.lblErr_Aufbewarungsort.AutoSize = True
+        Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
+        Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327)
+        Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort"
+        Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13)
+        Me.lblErr_Aufbewarungsort.TabIndex = 108
+        Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!"
+        Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_Aufbewarungsort.Visible = False
+        '
+        'lblErr_DocNr
+        '
+        Me.lblErr_DocNr.AutoSize = True
+        Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
+        Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53)
+        Me.lblErr_DocNr.Name = "lblErr_DocNr"
+        Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13)
+        Me.lblErr_DocNr.TabIndex = 107
+        Me.lblErr_DocNr.Text = "Pflichtfeld!"
+        Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_DocNr.Visible = False
+        '
         'Button5
         '
         Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -558,6 +585,17 @@ Partial Class frmATR
         Me.Panel2.Size = New System.Drawing.Size(658, 44)
         Me.Panel2.TabIndex = 1
         '
+        'PictureBox6
+        '
+        Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox6.Location = New System.Drawing.Point(640, 0)
+        Me.PictureBox6.Name = "PictureBox6"
+        Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
+        Me.PictureBox6.TabIndex = 134
+        Me.PictureBox6.TabStop = False
+        '
         'Label10
         '
         Me.Label10.AutoSize = True
@@ -574,6 +612,7 @@ Partial Class frmATR
         '
         Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Panel3.BackColor = System.Drawing.Color.FloralWhite
+        Me.Panel3.Controls.Add(Me.lblErr_ErhaltenDatum)
         Me.Panel3.Controls.Add(Me.Label9)
         Me.Panel3.Controls.Add(Me.cbxKurierPaketdienst)
         Me.Panel3.Controls.Add(Me.txtErhaltenReferenz)
@@ -816,42 +855,18 @@ Partial Class frmATR
         Me.lblErr_Ausstellungsdatum.TextAlign = System.Drawing.ContentAlignment.TopRight
         Me.lblErr_Ausstellungsdatum.Visible = False
         '
-        'lblErr_DocNr
+        'lblErr_ErhaltenDatum
         '
-        Me.lblErr_DocNr.AutoSize = True
+        Me.lblErr_ErhaltenDatum.AutoSize = True
-        Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
+        Me.lblErr_ErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
-        Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_ErhaltenDatum.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53)
+        Me.lblErr_ErhaltenDatum.Location = New System.Drawing.Point(245, 26)
-        Me.lblErr_DocNr.Name = "lblErr_DocNr"
+        Me.lblErr_ErhaltenDatum.Name = "lblErr_ErhaltenDatum"
-        Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13)
+        Me.lblErr_ErhaltenDatum.Size = New System.Drawing.Size(56, 13)
-        Me.lblErr_DocNr.TabIndex = 107
+        Me.lblErr_ErhaltenDatum.TabIndex = 109
-        Me.lblErr_DocNr.Text = "Pflichtfeld!"
+        Me.lblErr_ErhaltenDatum.Text = "Pflichtfeld!"
-        Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_ErhaltenDatum.TextAlign = System.Drawing.ContentAlignment.TopRight
-        Me.lblErr_DocNr.Visible = False
+        Me.lblErr_ErhaltenDatum.Visible = False
-        '
-        'lblErr_Aufbewarungsort
-        '
-        Me.lblErr_Aufbewarungsort.AutoSize = True
-        Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
-        Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327)
-        Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort"
-        Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13)
-        Me.lblErr_Aufbewarungsort.TabIndex = 108
-        Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!"
-        Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight
-        Me.lblErr_Aufbewarungsort.Visible = False
-        '
-        'PictureBox6
-        '
-        Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
-        Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox6.Location = New System.Drawing.Point(640, 0)
-        Me.PictureBox6.Name = "PictureBox6"
-        Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
-        Me.PictureBox6.TabIndex = 134
-        Me.PictureBox6.TabStop = False
         '
         'frmATR
         '
@@ -869,10 +884,10 @@ Partial Class frmATR
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel3.ResumeLayout(False)
         Me.Panel3.PerformLayout()
         Me.Panel4.ResumeLayout(False)
-        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -926,4 +941,5 @@ Partial Class frmATR
     Friend WithEvents lblErr_DocNr As Label
     Friend WithEvents lblErr_Ausstellungsdatum As Label
     Friend WithEvents PictureBox6 As PictureBox
+    Friend WithEvents lblErr_ErhaltenDatum As Label
 End Class

SDL/OriginalArchiv_ATR/frmATR.vb

@@ -69,7 +69,7 @@ Public Class frmATR
                 End If
             End If
 
-            If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And (loadedDSID <> DSID Or loadedDSID <= 0) Then
+            If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And ((loadedDSID <> DSID Or loadedDSID <= 0) Or (loadedDSID > 0 And ATR.atr_anhID <= 0)) Then
                 If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then
                     If ATR.atr_dsId < 0 Then
                         MsgBox("Kein PDF-Anhang!")
@@ -111,9 +111,11 @@ Public Class frmATR
         lblErr_Ausstellungsdatum.Visible = False
         lblErr_DocNr.Visible = False
         lblErr_Aufbewarungsort.Visible = False
+        lblErr_ErhaltenDatum.Visible = False
 
         If txtDocNumber.Text.Trim = "" Then lblErr_Ausstellungsdatum.Visible = True : Return False
         If txtDocDatum._value = "" Then lblErr_DocNr.Visible = True : Return False
+        If txtErhaltenDatum._value = "" Then lblErr_ErhaltenDatum.Visible = True : Return False
         If txtLocation._value = "" Then lblErr_Aufbewarungsort.Visible = True : Return False
 
         Return True
@@ -167,9 +169,9 @@ Public Class frmATR
         ATR.atr_documentNr = txtDocNumber.Text
         ATR.atr_austellungsdatum = txtDocDatum._value
         'ATR.atr_erfassungsdatum = Now
-        ATR.atr_absender = txtAbsender.KdName
+        ATR.atr_absender = If(txtAbsender.KdNr > 0, txtAbsender.KdName, txtAbsender.Text)
         ATR.atr_absenderkdnr = txtAbsender.KdNr
-        ATR.atr_empfaenger = txtEmpfaenger.KdName
+        ATR.atr_empfaenger = If(txtEmpfaenger.KdNr > 0, txtEmpfaenger.KdName, txtEmpfaenger.Text)
         ATR.atr_empfaengerkdnr = txtEmpfaenger.KdNr
         ATR.atr_location = txtLocation.Text
         ATR.atr_info = txtInfo.Text
@@ -207,7 +209,7 @@ Public Class frmATR
 
         'sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID],LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,[Code]+' - ' +[Description] as display   FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
         ' sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr    FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') ", "Datum DESC", "tblSnd_SendungID", "Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr", "AVISO", False, 600, 300)
-        sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display    FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /* AND (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300)
+        sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display    FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'  /*AND (Datum >= '" & Now.AddDays(-40).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300)
 
 
         If ATR IsNot Nothing Then

SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb

@@ -25,12 +25,23 @@ Partial Class frmOriginalArchiv_ATR
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmOriginalArchiv_ATR))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtAbfertigungsnummer = 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()
@@ -38,6 +49,7 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label23 = New System.Windows.Forms.Label()
         Me.btnJahr = New System.Windows.Forms.Button()
         Me.pnlTop = New System.Windows.Forms.Panel()
+        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.btnBisJahr = New System.Windows.Forms.Button()
         Me.btnVonJahr = New System.Windows.Forms.Button()
@@ -46,47 +58,36 @@ Partial Class frmOriginalArchiv_ATR
         Me.btnVonMonat = New System.Windows.Forms.Button()
         Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
         Me.Label13 = New System.Windows.Forms.Label()
-        Me.lblAbfertigungsdatum = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Button2 = New System.Windows.Forms.Button()
         Me.pnloptions = New System.Windows.Forms.Panel()
+        Me.btnSendungKoppeln = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnDel = New System.Windows.Forms.Button()
         Me.btnExcel = New System.Windows.Forms.Button()
         Me.FlatButton7 = New System.Windows.Forms.Button()
         Me.lblErgebnis = New System.Windows.Forms.Label()
         Me.Label37 = New System.Windows.Forms.Label()
-        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.btnSendungKoppeln = New System.Windows.Forms.Button()
+        Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.pnl.SuspendLayout()
         Me.pnlTop.SuspendLayout()
-        Me.Panel1.SuspendLayout()
-        Me.pnloptions.SuspendLayout()
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnloptions.SuspendLayout()
         Me.SuspendLayout()
         '
         'pnl
         '
         Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.cboDatum)
         Me.pnl.Controls.Add(Me.txtSuche)
         Me.pnl.Controls.Add(Me.Label9)
         Me.pnl.Controls.Add(Me.txtSB)
@@ -118,7 +119,6 @@ Partial Class frmOriginalArchiv_ATR
         Me.pnl.Controls.Add(Me.btnVonMonat)
         Me.pnl.Controls.Add(Me.DateTimePicker2)
         Me.pnl.Controls.Add(Me.Label13)
-        Me.pnl.Controls.Add(Me.lblAbfertigungsdatum)
         Me.pnl.Controls.Add(Me.Label1)
         Me.pnl.Controls.Add(Me.Label2)
         Me.pnl.Controls.Add(Me.Label12)
@@ -129,6 +129,30 @@ Partial Class frmOriginalArchiv_ATR
         Me.pnl.Size = New System.Drawing.Size(1419, 171)
         Me.pnl.TabIndex = 0
         '
+        'txtSuche
+        '
+        Me.txtSuche._DateTimeOnly = False
+        Me.txtSuche._numbersOnly = False
+        Me.txtSuche._numbersOnlyKommastellen = ""
+        Me.txtSuche._numbersOnlyTrennzeichen = False
+        Me.txtSuche._Prozent = False
+        Me.txtSuche._ShortDateNew = False
+        Me.txtSuche._ShortDateOnly = False
+        Me.txtSuche._TimeOnly = False
+        Me.txtSuche._TimeOnly_Seconds = False
+        Me.txtSuche._value = ""
+        Me.txtSuche._Waehrung = False
+        Me.txtSuche._WaehrungZeichen = False
+        Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSuche.ForeColor = System.Drawing.Color.Black
+        Me.txtSuche.Location = New System.Drawing.Point(338, 75)
+        Me.txtSuche.MaxLineLength = -1
+        Me.txtSuche.MaxLines_Warning = ""
+        Me.txtSuche.MaxLines_Warning_Label = Nothing
+        Me.txtSuche.Name = "txtSuche"
+        Me.txtSuche.Size = New System.Drawing.Size(258, 20)
+        Me.txtSuche.TabIndex = 77
+        '
         'Label9
         '
         Me.Label9.AutoSize = True
@@ -139,6 +163,55 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label9.TabIndex = 76
         Me.Label9.Text = "Suche:"
         '
+        'txtSB
+        '
+        Me.txtSB._DateTimeOnly = False
+        Me.txtSB._numbersOnly = False
+        Me.txtSB._numbersOnlyKommastellen = ""
+        Me.txtSB._numbersOnlyTrennzeichen = False
+        Me.txtSB._Prozent = False
+        Me.txtSB._ShortDateNew = False
+        Me.txtSB._ShortDateOnly = False
+        Me.txtSB._TimeOnly = False
+        Me.txtSB._TimeOnly_Seconds = False
+        Me.txtSB._value = ""
+        Me.txtSB._Waehrung = False
+        Me.txtSB._WaehrungZeichen = False
+        Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSB.ForeColor = System.Drawing.Color.Black
+        Me.txtSB.Location = New System.Drawing.Point(920, 131)
+        Me.txtSB.MaxLineLength = -1
+        Me.txtSB.MaxLines_Warning = ""
+        Me.txtSB.MaxLines_Warning_Label = Nothing
+        Me.txtSB.Multiline = True
+        Me.txtSB.Name = "txtSB"
+        Me.txtSB.Size = New System.Drawing.Size(240, 22)
+        Me.txtSB.TabIndex = 75
+        '
+        'txtDocumetNummer
+        '
+        Me.txtDocumetNummer._DateTimeOnly = False
+        Me.txtDocumetNummer._numbersOnly = False
+        Me.txtDocumetNummer._numbersOnlyKommastellen = ""
+        Me.txtDocumetNummer._numbersOnlyTrennzeichen = False
+        Me.txtDocumetNummer._Prozent = False
+        Me.txtDocumetNummer._ShortDateNew = False
+        Me.txtDocumetNummer._ShortDateOnly = False
+        Me.txtDocumetNummer._TimeOnly = False
+        Me.txtDocumetNummer._TimeOnly_Seconds = False
+        Me.txtDocumetNummer._value = ""
+        Me.txtDocumetNummer._Waehrung = False
+        Me.txtDocumetNummer._WaehrungZeichen = False
+        Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black
+        Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75)
+        Me.txtDocumetNummer.MaxLineLength = -1
+        Me.txtDocumetNummer.MaxLines_Warning = ""
+        Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing
+        Me.txtDocumetNummer.Name = "txtDocumetNummer"
+        Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20)
+        Me.txtDocumetNummer.TabIndex = 74
+        '
         'Label8
         '
         Me.Label8.AutoSize = True
@@ -149,6 +222,30 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label8.TabIndex = 73
         Me.Label8.Text = "Dokument-Nummer"
         '
+        'txtAbsender
+        '
+        Me.txtAbsender._DateTimeOnly = False
+        Me.txtAbsender._numbersOnly = False
+        Me.txtAbsender._numbersOnlyKommastellen = ""
+        Me.txtAbsender._numbersOnlyTrennzeichen = True
+        Me.txtAbsender._Prozent = False
+        Me.txtAbsender._ShortDateNew = False
+        Me.txtAbsender._ShortDateOnly = False
+        Me.txtAbsender._TimeOnly = False
+        Me.txtAbsender._TimeOnly_Seconds = False
+        Me.txtAbsender._value = Nothing
+        Me.txtAbsender._Waehrung = False
+        Me.txtAbsender._WaehrungZeichen = True
+        Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbsender.ForeColor = System.Drawing.Color.Black
+        Me.txtAbsender.Location = New System.Drawing.Point(666, 133)
+        Me.txtAbsender.MaxLineLength = -1
+        Me.txtAbsender.MaxLines_Warning = ""
+        Me.txtAbsender.MaxLines_Warning_Label = Nothing
+        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.Size = New System.Drawing.Size(228, 20)
+        Me.txtAbsender.TabIndex = 72
+        '
         'Label7
         '
         Me.Label7.AutoSize = True
@@ -159,6 +256,30 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label7.TabIndex = 71
         Me.Label7.Text = "Absender"
         '
+        'txtReferenz
+        '
+        Me.txtReferenz._DateTimeOnly = False
+        Me.txtReferenz._numbersOnly = False
+        Me.txtReferenz._numbersOnlyKommastellen = ""
+        Me.txtReferenz._numbersOnlyTrennzeichen = True
+        Me.txtReferenz._Prozent = False
+        Me.txtReferenz._ShortDateNew = False
+        Me.txtReferenz._ShortDateOnly = False
+        Me.txtReferenz._TimeOnly = False
+        Me.txtReferenz._TimeOnly_Seconds = False
+        Me.txtReferenz._value = Nothing
+        Me.txtReferenz._Waehrung = False
+        Me.txtReferenz._WaehrungZeichen = True
+        Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtReferenz.ForeColor = System.Drawing.Color.Black
+        Me.txtReferenz.Location = New System.Drawing.Point(394, 133)
+        Me.txtReferenz.MaxLineLength = -1
+        Me.txtReferenz.MaxLines_Warning = ""
+        Me.txtReferenz.MaxLines_Warning_Label = Nothing
+        Me.txtReferenz.Name = "txtReferenz"
+        Me.txtReferenz.Size = New System.Drawing.Size(202, 20)
+        Me.txtReferenz.TabIndex = 70
+        '
         'Label5
         '
         Me.Label5.AutoSize = True
@@ -169,6 +290,30 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label5.TabIndex = 69
         Me.Label5.Text = "Referenz:"
         '
+        'txtFEmpfänger
+        '
+        Me.txtFEmpfänger._DateTimeOnly = False
+        Me.txtFEmpfänger._numbersOnly = False
+        Me.txtFEmpfänger._numbersOnlyKommastellen = ""
+        Me.txtFEmpfänger._numbersOnlyTrennzeichen = True
+        Me.txtFEmpfänger._Prozent = False
+        Me.txtFEmpfänger._ShortDateNew = False
+        Me.txtFEmpfänger._ShortDateOnly = False
+        Me.txtFEmpfänger._TimeOnly = False
+        Me.txtFEmpfänger._TimeOnly_Seconds = False
+        Me.txtFEmpfänger._value = Nothing
+        Me.txtFEmpfänger._Waehrung = False
+        Me.txtFEmpfänger._WaehrungZeichen = True
+        Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black
+        Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109)
+        Me.txtFEmpfänger.MaxLineLength = -1
+        Me.txtFEmpfänger.MaxLines_Warning = ""
+        Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing
+        Me.txtFEmpfänger.Name = "txtFEmpfänger"
+        Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20)
+        Me.txtFEmpfänger.TabIndex = 68
+        '
         'Label6
         '
         Me.Label6.AutoSize = True
@@ -179,6 +324,30 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label6.TabIndex = 67
         Me.Label6.Text = "Empfänger:"
         '
+        'txtLKWKennzeichen
+        '
+        Me.txtLKWKennzeichen._DateTimeOnly = False
+        Me.txtLKWKennzeichen._numbersOnly = False
+        Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
+        Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
+        Me.txtLKWKennzeichen._Prozent = False
+        Me.txtLKWKennzeichen._ShortDateNew = False
+        Me.txtLKWKennzeichen._ShortDateOnly = False
+        Me.txtLKWKennzeichen._TimeOnly = False
+        Me.txtLKWKennzeichen._TimeOnly_Seconds = False
+        Me.txtLKWKennzeichen._value = Nothing
+        Me.txtLKWKennzeichen._Waehrung = False
+        Me.txtLKWKennzeichen._WaehrungZeichen = True
+        Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black
+        Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110)
+        Me.txtLKWKennzeichen.MaxLineLength = -1
+        Me.txtLKWKennzeichen.MaxLines_Warning = ""
+        Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing
+        Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
+        Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20)
+        Me.txtLKWKennzeichen.TabIndex = 66
+        '
         'Label3
         '
         Me.Label3.AutoSize = True
@@ -189,6 +358,94 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label3.TabIndex = 65
         Me.Label3.Text = "LKW:"
         '
+        'txtAbfertDat
+        '
+        Me.txtAbfertDat._DateTimeOnly = False
+        Me.txtAbfertDat._numbersOnly = False
+        Me.txtAbfertDat._numbersOnlyKommastellen = ""
+        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
+        Me.txtAbfertDat._Prozent = False
+        Me.txtAbfertDat._ShortDateNew = True
+        Me.txtAbfertDat._ShortDateOnly = False
+        Me.txtAbfertDat._TimeOnly = False
+        Me.txtAbfertDat._TimeOnly_Seconds = 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(41, 77)
+        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(83, 20)
+        Me.txtAbfertDat.TabIndex = 33
+        '
+        'txtAbfertDatBis
+        '
+        Me.txtAbfertDatBis._DateTimeOnly = False
+        Me.txtAbfertDatBis._numbersOnly = False
+        Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
+        Me.txtAbfertDatBis._Prozent = False
+        Me.txtAbfertDatBis._ShortDateNew = True
+        Me.txtAbfertDatBis._ShortDateOnly = False
+        Me.txtAbfertDatBis._TimeOnly = False
+        Me.txtAbfertDatBis._TimeOnly_Seconds = 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(41, 106)
+        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(83, 20)
+        Me.txtAbfertDatBis.TabIndex = 36
+        '
+        '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(920, 75)
+        Me.cboFiliale.Name = "cboFiliale"
+        Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
+        Me.cboFiliale.TabIndex = 53
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer._DateTimeOnly = False
+        Me.txtAbfertigungsnummer._numbersOnly = True
+        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
+        Me.txtAbfertigungsnummer._Prozent = False
+        Me.txtAbfertigungsnummer._ShortDateNew = False
+        Me.txtAbfertigungsnummer._ShortDateOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
+        Me.txtAbfertigungsnummer._value = ""
+        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(999, 75)
+        Me.txtAbfertigungsnummer.MaxLineLength = -1
+        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
+        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertigungsnummer.Multiline = True
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22)
+        Me.txtAbfertigungsnummer.TabIndex = 55
+        '
         'Button7
         '
         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -281,6 +538,17 @@ Partial Class frmOriginalArchiv_ATR
         Me.pnlTop.Size = New System.Drawing.Size(1417, 48)
         Me.pnlTop.TabIndex = 34
         '
+        'PictureBox6
+        '
+        Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox6.Location = New System.Drawing.Point(1374, 9)
+        Me.PictureBox6.Name = "PictureBox6"
+        Me.PictureBox6.Size = New System.Drawing.Size(32, 30)
+        Me.PictureBox6.TabIndex = 135
+        Me.PictureBox6.TabStop = False
+        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -386,16 +654,6 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label13.TabIndex = 46
         Me.Label13.Text = "von:"
         '
-        'lblAbfertigungsdatum
-        '
-        Me.lblAbfertigungsdatum.AutoSize = True
-        Me.lblAbfertigungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblAbfertigungsdatum.Location = New System.Drawing.Point(12, 59)
-        Me.lblAbfertigungsdatum.Name = "lblAbfertigungsdatum"
-        Me.lblAbfertigungsdatum.Size = New System.Drawing.Size(118, 13)
-        Me.lblAbfertigungsdatum.TabIndex = 32
-        Me.lblAbfertigungsdatum.Text = "Ausstellungs-Datum"
-        '
         'Label1
         '
         Me.Label1.AutoSize = True
@@ -447,6 +705,23 @@ Partial Class frmOriginalArchiv_ATR
         Me.Panel1.Size = New System.Drawing.Size(1419, 390)
         Me.Panel1.TabIndex = 1
         '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.AllowUserToAddRows = False
+        Me.MyDatagridview1.AllowUserToDeleteRows = False
+        Me.MyDatagridview1.AllowUserToOrderColumns = True
+        Me.MyDatagridview1.AllowUserToResizeRows = False
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.ReadOnly = True
+        Me.MyDatagridview1.RowHeadersVisible = False
+        Me.MyDatagridview1.RowHeadersWidth = 51
+        Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390)
+        Me.MyDatagridview1.TabIndex = 0
+        '
         'Button2
         '
         Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -481,6 +756,21 @@ Partial Class frmOriginalArchiv_ATR
         Me.pnloptions.Size = New System.Drawing.Size(1419, 59)
         Me.pnloptions.TabIndex = 2
         '
+        'btnSendungKoppeln
+        '
+        Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1
+        Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6)
+        Me.btnSendungKoppeln.Name = "btnSendungKoppeln"
+        Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47)
+        Me.btnSendungKoppeln.TabIndex = 75
+        Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen"
+        Me.btnSendungKoppeln.UseVisualStyleBackColor = True
+        Me.btnSendungKoppeln.Visible = False
+        '
         'Button1
         '
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -559,280 +849,6 @@ Partial Class frmOriginalArchiv_ATR
         Me.Label37.TabIndex = 69
         Me.Label37.Text = "Max:"
         '
-        'MyDatagridview1
-        '
-        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
-        Me.MyDatagridview1.AllowUserToAddRows = False
-        Me.MyDatagridview1.AllowUserToDeleteRows = False
-        Me.MyDatagridview1.AllowUserToOrderColumns = True
-        Me.MyDatagridview1.AllowUserToResizeRows = False
-        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
-        Me.MyDatagridview1.Name = "MyDatagridview1"
-        Me.MyDatagridview1.ReadOnly = True
-        Me.MyDatagridview1.RowHeadersVisible = False
-        Me.MyDatagridview1.RowHeadersWidth = 51
-        Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390)
-        Me.MyDatagridview1.TabIndex = 0
-        '
-        'txtSuche
-        '
-        Me.txtSuche._DateTimeOnly = False
-        Me.txtSuche._numbersOnly = False
-        Me.txtSuche._numbersOnlyKommastellen = ""
-        Me.txtSuche._numbersOnlyTrennzeichen = False
-        Me.txtSuche._Prozent = False
-        Me.txtSuche._ShortDateNew = False
-        Me.txtSuche._ShortDateOnly = False
-        Me.txtSuche._TimeOnly = False
-        Me.txtSuche._TimeOnly_Seconds = False
-        Me.txtSuche._value = ""
-        Me.txtSuche._Waehrung = False
-        Me.txtSuche._WaehrungZeichen = False
-        Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSuche.ForeColor = System.Drawing.Color.Black
-        Me.txtSuche.Location = New System.Drawing.Point(338, 75)
-        Me.txtSuche.MaxLineLength = -1
-        Me.txtSuche.MaxLines_Warning = ""
-        Me.txtSuche.MaxLines_Warning_Label = Nothing
-        Me.txtSuche.Name = "txtSuche"
-        Me.txtSuche.Size = New System.Drawing.Size(258, 20)
-        Me.txtSuche.TabIndex = 77
-        '
-        'txtSB
-        '
-        Me.txtSB._DateTimeOnly = False
-        Me.txtSB._numbersOnly = False
-        Me.txtSB._numbersOnlyKommastellen = ""
-        Me.txtSB._numbersOnlyTrennzeichen = False
-        Me.txtSB._Prozent = False
-        Me.txtSB._ShortDateNew = False
-        Me.txtSB._ShortDateOnly = False
-        Me.txtSB._TimeOnly = False
-        Me.txtSB._TimeOnly_Seconds = False
-        Me.txtSB._value = ""
-        Me.txtSB._Waehrung = False
-        Me.txtSB._WaehrungZeichen = False
-        Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSB.ForeColor = System.Drawing.Color.Black
-        Me.txtSB.Location = New System.Drawing.Point(920, 131)
-        Me.txtSB.MaxLineLength = -1
-        Me.txtSB.MaxLines_Warning = ""
-        Me.txtSB.MaxLines_Warning_Label = Nothing
-        Me.txtSB.Multiline = True
-        Me.txtSB.Name = "txtSB"
-        Me.txtSB.Size = New System.Drawing.Size(240, 22)
-        Me.txtSB.TabIndex = 75
-        '
-        'txtDocumetNummer
-        '
-        Me.txtDocumetNummer._DateTimeOnly = False
-        Me.txtDocumetNummer._numbersOnly = False
-        Me.txtDocumetNummer._numbersOnlyKommastellen = ""
-        Me.txtDocumetNummer._numbersOnlyTrennzeichen = False
-        Me.txtDocumetNummer._Prozent = False
-        Me.txtDocumetNummer._ShortDateNew = False
-        Me.txtDocumetNummer._ShortDateOnly = False
-        Me.txtDocumetNummer._TimeOnly = False
-        Me.txtDocumetNummer._TimeOnly_Seconds = False
-        Me.txtDocumetNummer._value = ""
-        Me.txtDocumetNummer._Waehrung = False
-        Me.txtDocumetNummer._WaehrungZeichen = False
-        Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black
-        Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75)
-        Me.txtDocumetNummer.MaxLineLength = -1
-        Me.txtDocumetNummer.MaxLines_Warning = ""
-        Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing
-        Me.txtDocumetNummer.Name = "txtDocumetNummer"
-        Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20)
-        Me.txtDocumetNummer.TabIndex = 74
-        '
-        'txtAbsender
-        '
-        Me.txtAbsender._DateTimeOnly = False
-        Me.txtAbsender._numbersOnly = False
-        Me.txtAbsender._numbersOnlyKommastellen = ""
-        Me.txtAbsender._numbersOnlyTrennzeichen = True
-        Me.txtAbsender._Prozent = False
-        Me.txtAbsender._ShortDateNew = False
-        Me.txtAbsender._ShortDateOnly = False
-        Me.txtAbsender._TimeOnly = False
-        Me.txtAbsender._TimeOnly_Seconds = False
-        Me.txtAbsender._value = Nothing
-        Me.txtAbsender._Waehrung = False
-        Me.txtAbsender._WaehrungZeichen = True
-        Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbsender.ForeColor = System.Drawing.Color.Black
-        Me.txtAbsender.Location = New System.Drawing.Point(666, 133)
-        Me.txtAbsender.MaxLineLength = -1
-        Me.txtAbsender.MaxLines_Warning = ""
-        Me.txtAbsender.MaxLines_Warning_Label = Nothing
-        Me.txtAbsender.Name = "txtAbsender"
-        Me.txtAbsender.Size = New System.Drawing.Size(228, 20)
-        Me.txtAbsender.TabIndex = 72
-        '
-        'txtReferenz
-        '
-        Me.txtReferenz._DateTimeOnly = False
-        Me.txtReferenz._numbersOnly = False
-        Me.txtReferenz._numbersOnlyKommastellen = ""
-        Me.txtReferenz._numbersOnlyTrennzeichen = True
-        Me.txtReferenz._Prozent = False
-        Me.txtReferenz._ShortDateNew = False
-        Me.txtReferenz._ShortDateOnly = False
-        Me.txtReferenz._TimeOnly = False
-        Me.txtReferenz._TimeOnly_Seconds = False
-        Me.txtReferenz._value = Nothing
-        Me.txtReferenz._Waehrung = False
-        Me.txtReferenz._WaehrungZeichen = True
-        Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtReferenz.ForeColor = System.Drawing.Color.Black
-        Me.txtReferenz.Location = New System.Drawing.Point(394, 133)
-        Me.txtReferenz.MaxLineLength = -1
-        Me.txtReferenz.MaxLines_Warning = ""
-        Me.txtReferenz.MaxLines_Warning_Label = Nothing
-        Me.txtReferenz.Name = "txtReferenz"
-        Me.txtReferenz.Size = New System.Drawing.Size(202, 20)
-        Me.txtReferenz.TabIndex = 70
-        '
-        'txtFEmpfänger
-        '
-        Me.txtFEmpfänger._DateTimeOnly = False
-        Me.txtFEmpfänger._numbersOnly = False
-        Me.txtFEmpfänger._numbersOnlyKommastellen = ""
-        Me.txtFEmpfänger._numbersOnlyTrennzeichen = True
-        Me.txtFEmpfänger._Prozent = False
-        Me.txtFEmpfänger._ShortDateNew = False
-        Me.txtFEmpfänger._ShortDateOnly = False
-        Me.txtFEmpfänger._TimeOnly = False
-        Me.txtFEmpfänger._TimeOnly_Seconds = False
-        Me.txtFEmpfänger._value = Nothing
-        Me.txtFEmpfänger._Waehrung = False
-        Me.txtFEmpfänger._WaehrungZeichen = True
-        Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black
-        Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109)
-        Me.txtFEmpfänger.MaxLineLength = -1
-        Me.txtFEmpfänger.MaxLines_Warning = ""
-        Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing
-        Me.txtFEmpfänger.Name = "txtFEmpfänger"
-        Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20)
-        Me.txtFEmpfänger.TabIndex = 68
-        '
-        'txtLKWKennzeichen
-        '
-        Me.txtLKWKennzeichen._DateTimeOnly = False
-        Me.txtLKWKennzeichen._numbersOnly = False
-        Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
-        Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
-        Me.txtLKWKennzeichen._Prozent = False
-        Me.txtLKWKennzeichen._ShortDateNew = False
-        Me.txtLKWKennzeichen._ShortDateOnly = False
-        Me.txtLKWKennzeichen._TimeOnly = False
-        Me.txtLKWKennzeichen._TimeOnly_Seconds = False
-        Me.txtLKWKennzeichen._value = Nothing
-        Me.txtLKWKennzeichen._Waehrung = False
-        Me.txtLKWKennzeichen._WaehrungZeichen = True
-        Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black
-        Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110)
-        Me.txtLKWKennzeichen.MaxLineLength = -1
-        Me.txtLKWKennzeichen.MaxLines_Warning = ""
-        Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing
-        Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
-        Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20)
-        Me.txtLKWKennzeichen.TabIndex = 66
-        '
-        'txtAbfertDat
-        '
-        Me.txtAbfertDat._DateTimeOnly = False
-        Me.txtAbfertDat._numbersOnly = False
-        Me.txtAbfertDat._numbersOnlyKommastellen = ""
-        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
-        Me.txtAbfertDat._Prozent = False
-        Me.txtAbfertDat._ShortDateNew = True
-        Me.txtAbfertDat._ShortDateOnly = False
-        Me.txtAbfertDat._TimeOnly = False
-        Me.txtAbfertDat._TimeOnly_Seconds = 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(41, 77)
-        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(83, 20)
-        Me.txtAbfertDat.TabIndex = 33
-        '
-        'txtAbfertDatBis
-        '
-        Me.txtAbfertDatBis._DateTimeOnly = False
-        Me.txtAbfertDatBis._numbersOnly = False
-        Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
-        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
-        Me.txtAbfertDatBis._Prozent = False
-        Me.txtAbfertDatBis._ShortDateNew = True
-        Me.txtAbfertDatBis._ShortDateOnly = False
-        Me.txtAbfertDatBis._TimeOnly = False
-        Me.txtAbfertDatBis._TimeOnly_Seconds = 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(41, 106)
-        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(83, 20)
-        Me.txtAbfertDatBis.TabIndex = 36
-        '
-        '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(920, 75)
-        Me.cboFiliale.Name = "cboFiliale"
-        Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
-        Me.cboFiliale.TabIndex = 53
-        '
-        'txtAbfertigungsnummer
-        '
-        Me.txtAbfertigungsnummer._DateTimeOnly = False
-        Me.txtAbfertigungsnummer._numbersOnly = True
-        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
-        Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
-        Me.txtAbfertigungsnummer._Prozent = False
-        Me.txtAbfertigungsnummer._ShortDateNew = False
-        Me.txtAbfertigungsnummer._ShortDateOnly = False
-        Me.txtAbfertigungsnummer._TimeOnly = False
-        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
-        Me.txtAbfertigungsnummer._value = ""
-        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(999, 75)
-        Me.txtAbfertigungsnummer.MaxLineLength = -1
-        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
-        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
-        Me.txtAbfertigungsnummer.Multiline = True
-        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
-        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22)
-        Me.txtAbfertigungsnummer.TabIndex = 55
-        '
         'txtMaxSrch
         '
         Me.txtMaxSrch._DateTimeOnly = False
@@ -860,31 +876,22 @@ Partial Class frmOriginalArchiv_ATR
         Me.txtMaxSrch.Text = "1000"
         Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'btnSendungKoppeln
+        'cboDatum
         '
-        Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cboDatum._allowedValuesFreiText = Nothing
-        Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboDatum._allowFreiText = False
-        Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboDatum._value = ""
-        Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1
+        Me.cboDatum.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6)
+        Me.cboDatum.DropDownWidth = 250
-        Me.btnSendungKoppeln.Name = "btnSendungKoppeln"
+        Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup
-        Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47)
+        Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnSendungKoppeln.TabIndex = 75
+        Me.cboDatum.FormattingEnabled = True
-        Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen"
+        Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"})
-        Me.btnSendungKoppeln.UseVisualStyleBackColor = True
+        Me.cboDatum.Location = New System.Drawing.Point(15, 52)
-        Me.btnSendungKoppeln.Visible = False
+        Me.cboDatum.Name = "cboDatum"
-        '
+        Me.cboDatum.Size = New System.Drawing.Size(141, 22)
-        'PictureBox6
+        Me.cboDatum.TabIndex = 78
-        '
-        Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
-        Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox6.Location = New System.Drawing.Point(1374, 9)
-        Me.PictureBox6.Name = "PictureBox6"
-        Me.PictureBox6.Size = New System.Drawing.Size(32, 30)
-        Me.PictureBox6.TabIndex = 135
-        Me.PictureBox6.TabStop = False
         '
         'frmOriginalArchiv_ATR
         '
@@ -902,11 +909,11 @@ Partial Class frmOriginalArchiv_ATR
         Me.pnl.PerformLayout()
         Me.pnlTop.ResumeLayout(False)
         Me.pnlTop.PerformLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnloptions.ResumeLayout(False)
         Me.pnloptions.PerformLayout()
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -930,7 +937,6 @@ Partial Class frmOriginalArchiv_ATR
     Friend WithEvents btnVonMonat As System.Windows.Forms.Button
     Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
     Friend WithEvents Label13 As System.Windows.Forms.Label
-    Friend WithEvents lblAbfertigungsdatum As System.Windows.Forms.Label
     Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents Label12 As System.Windows.Forms.Label
@@ -961,4 +967,5 @@ Partial Class frmOriginalArchiv_ATR
     Friend WithEvents txtSB As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents btnSendungKoppeln As Button
     Friend WithEvents PictureBox6 As PictureBox
+    Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb

@@ -20,6 +20,13 @@ Public Class frmOriginalArchiv_ATR
         txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
         txtAbfertDatBis.Text = Now.ToShortDateString
 
+
+        cboDatum.Items.Clear()
+        cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausstellungs-Datum", "ADat"))
+        cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erhalten-Datum", "EDat"))
+        cboDatum.changeItem("ADat")
+
+
         btnMonat.Text = MONAT.ToString("MMMM")
         btnJahr.Text = JAHR.Year
 
@@ -148,14 +155,28 @@ Public Class frmOriginalArchiv_ATR
     Function getWhere() As String
         Dim sqlstr = ""
 
-        If txtAbfertDat.Text <> "" Then
+
-            If txtAbfertDatBis.Text <> "" Then
+        If cboDatum._value = "ADat" Then
-                sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) "
+
-            Else
+            If txtAbfertDat.Text <> "" Then
-                sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) "
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) "
+                Else
+                    sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) "
+                End If
+            End If
+        ElseIf cboDatum._value = "EDat" Then
+
+            If txtAbfertDat.Text <> "" Then
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @DatumBis) "
+                Else
+                    sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @Datum ) "
+                End If
             End If
         End If
 
+
         If txtSuche._value <> "" Then
             sqlstr &= " AND ( "
             sqlstr &= " atr_documentNr LIKE '" & txtSuche._value & "%' OR "

SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb

@@ -52,7 +52,7 @@ Public Class rptKontrolleLKW_Dakosy
 
         Dim firmaStr = ""
         If FIRMA = "DURMAZ" Then
-            firmaStr = " AND ncts_ObjectName LIKE 'DU%' "
+            firmaStr = " AND (ncts_ObjectName LIKE 'DU%' OR ncts_firma='DURMAZ') "
         ElseIf FIRMA = "IMEX" Then
             firmaStr = " AND (ncts_ObjectName LIKE '402%' OR ncts_ObjectName LIKE '502%' OR ncts_ObjectName LIKE '5501%') "
         ElseIf FIRMA = "AMBAR" Then

SDL/Reports/Zoll/rptKontrolleLKW_TELOTEC.vb

@@ -54,7 +54,7 @@ Public Class rptKontrolleLKW_TELOTEC
 
         'If FIRMA = "DURMAZ" Then mandant = "SUW" 
 
-        Dim sqlStr As String = "SELECT [Transp_CrossIdnt] as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum ,COUNT(*) ,SUM(GVal) as GarantieWert
+        Dim sqlStr As String = "SELECT isnull([Transp_CrossIdnt],'X') as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum ,COUNT(*) ,SUM(GVal) as GarantieWert
                                 FROM  tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
                                 WHERE [tblTelotec_Anmeldung].[Hea_AccDT] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1  
                                 AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) 
@@ -80,7 +80,7 @@ Public Class rptKontrolleLKW_TELOTEC
         Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
 
 
-        Dim sqlStrSUB As String = "  SELECT [Transp_CrossIdnt] as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum, * 
+        Dim sqlStrSUB As String = "  SELECT isnull([Transp_CrossIdnt],'X') as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum, * 
                                 FROM  tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
                                 WHERE [tblTelotec_Anmeldung].[Hea_AccDT] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1  
                                 AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) 

SDL/SDL.vbproj

@@ -713,6 +713,12 @@
     <Compile Include="kunden\usrCntlKundenZollVollmachten.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="kunden\usrCntlCBAM.Designer.vb">
+      <DependentUpon>usrCntlCBAM.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\usrCntlCBAM.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="kunden\usrcntlVertraege.Designer.vb">
       <DependentUpon>usrcntlVertraege.vb</DependentUpon>
     </Compile>
@@ -2921,6 +2927,12 @@
     <Compile Include="zoll\usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="zoll\usrCntlAuswertungenCBAM_DE.Designer.vb">
+      <DependentUpon>usrCntlAuswertungenCBAM_DE.vb</DependentUpon>
+    </Compile>
+    <Compile Include="zoll\usrCntlAuswertungenCBAM_DE.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="zoll\usrCntlAuswertungenFiskalvertretung_4200.Designer.vb">
       <DependentUpon>usrCntlAuswertungenFiskalvertretung_4200.vb</DependentUpon>
     </Compile>
@@ -3151,6 +3163,9 @@
     <EmbeddedResource Include="kunden\usrCntlKundenZollVollmachten.resx">
       <DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\usrCntlCBAM.resx">
+      <DependentUpon>usrCntlCBAM.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\usrcntlVertraege.resx">
       <DependentUpon>usrcntlVertraege.vb</DependentUpon>
     </EmbeddedResource>
@@ -4241,6 +4256,9 @@
     <EmbeddedResource Include="zoll\usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.resx">
       <DependentUpon>usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="zoll\usrCntlAuswertungenCBAM_DE.resx">
+      <DependentUpon>usrCntlAuswertungenCBAM_DE.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="zoll\usrCntlAuswertungenFiskalvertretung_4200.resx">
       <DependentUpon>usrCntlAuswertungenFiskalvertretung_4200.vb</DependentUpon>
     </EmbeddedResource>
@@ -4693,6 +4711,8 @@
     <None Include="Resources\creditsafe.png" />
     <None Include="Resources\Abrechnung.png" />
     <None Include="Resources\Abrechnung_s.png" />
+    <None Include="Resources\air-pollution.png" />
+    <None Include="Resources\cbam_s.png" />
     <Content Include="Resources\food.png" />
     <None Include="Resources\food1.png" />
     <None Include="Resources\food2.png" />

SDL/kunden/frmKundenUebersichtZOLL.Designer.vb

@@ -35,12 +35,10 @@ Partial Class frmKundenUebersichtZOLL
         Me.tabZolltarife = New System.Windows.Forms.TabPage()
         Me.pnlZollTarife = New System.Windows.Forms.Panel()
         Me.tabKundendaten = New System.Windows.Forms.TabPage()
-        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
         Me.tbStatistik = New System.Windows.Forms.TabPage()
         Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -95,7 +93,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.Label40 = New System.Windows.Forms.Label()
         Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
         Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
-        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
+        Me.tbCBAM = New System.Windows.Forms.TabPage()
         Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
@@ -122,6 +120,8 @@ Partial Class frmKundenUebersichtZOLL
         Me.VUBVERAGSpeditionAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnueCBAM = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueFiskaluebersicht = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem()
         Me.toolNeuerKunde = New System.Windows.Forms.ToolStripMenuItem()
@@ -148,7 +148,9 @@ Partial Class frmKundenUebersichtZOLL
         Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
+        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.tabZolltarife.SuspendLayout()
         Me.tabKundendaten.SuspendLayout()
@@ -221,17 +223,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.tabKundendaten.TabIndex = 0
         Me.tabKundendaten.Text = "Kundendaten"
         '
-        'usrcntlKundenuebersicht
-        '
-        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
-        Me.usrcntlKundenuebersicht.BER_STUFE = 0
-        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
-        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
-        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
-        Me.usrcntlKundenuebersicht.TabIndex = 0
-        '
         'ContextMenuStrip2
         '
         Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -256,6 +247,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbcntrKundenDaten.Controls.Add(Me.tbRechnungen)
         Me.tbcntrKundenDaten.Controls.Add(Me.tbSpeditionsbuch)
         Me.tbcntrKundenDaten.Controls.Add(Me.tbFiskaluebersicht)
+        Me.tbcntrKundenDaten.Controls.Add(Me.tbCBAM)
         Me.tbcntrKundenDaten.Dock = System.Windows.Forms.DockStyle.Fill
         Me.tbcntrKundenDaten.ItemSize = New System.Drawing.Size(76, 0)
         Me.tbcntrKundenDaten.Location = New System.Drawing.Point(0, 0)
@@ -276,16 +268,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.TabPage1.TabIndex = 2
         Me.TabPage1.Text = "Offerte"
         '
-        'UsrCntlOfferte1
-        '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
         'tbStatistik
         '
         Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -973,14 +955,15 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbFiskaluebersicht.Text = "Fiskal-Analyse"
         Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
         '
-        'UsrcntlFiskaluebersicht1
+        'tbCBAM
         '
-        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
+        Me.tbCBAM.Location = New System.Drawing.Point(4, 25)
-        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tbCBAM.Name = "tbCBAM"
-        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
+        Me.tbCBAM.Padding = New System.Windows.Forms.Padding(3)
-        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
+        Me.tbCBAM.Size = New System.Drawing.Size(1182, 697)
-        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
+        Me.tbCBAM.TabIndex = 8
-        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
+        Me.tbCBAM.Text = "CBAM"
+        Me.tbCBAM.UseVisualStyleBackColor = True
         '
         'NotifyIcon1
         '
@@ -1006,7 +989,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.MenuStripKunden.Dock = System.Windows.Forms.DockStyle.Left
         Me.MenuStripKunden.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.MenuStripKunden.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1})
+        Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueCBAM, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1})
         Me.MenuStripKunden.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
         Me.MenuStripKunden.Location = New System.Drawing.Point(0, 0)
         Me.MenuStripKunden.Name = "MenuStripKunden"
@@ -1023,8 +1006,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.mnueKunden.ImageAlign = System.Drawing.ContentAlignment.TopCenter
         Me.mnueKunden.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
         Me.mnueKunden.Name = "mnueKunden"
-        Me.mnueKunden.Padding = New System.Windows.Forms.Padding(4, 0, 4, 5)
+        Me.mnueKunden.Size = New System.Drawing.Size(107, 64)
-        Me.mnueKunden.Size = New System.Drawing.Size(107, 69)
         Me.mnueKunden.Text = "Kunden"
         Me.mnueKunden.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mnueKunden.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal
@@ -1039,8 +1021,8 @@ Partial Class frmKundenUebersichtZOLL
         Me.mnueZoll.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
         Me.mnueZoll.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
         Me.mnueZoll.Name = "mnueZoll"
-        Me.mnueZoll.Padding = New System.Windows.Forms.Padding(0, 0, 0, 5)
+        Me.mnueZoll.Padding = New System.Windows.Forms.Padding(0)
-        Me.mnueZoll.Size = New System.Drawing.Size(107, 64)
+        Me.mnueZoll.Size = New System.Drawing.Size(107, 59)
         Me.mnueZoll.Text = "Kunden-Zolltarif"
         Me.mnueZoll.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mnueZoll.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1054,8 +1036,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.mnueOfferte.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
         Me.mnueOfferte.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
         Me.mnueOfferte.Name = "mnueOfferte"
-        Me.mnueOfferte.Padding = New System.Windows.Forms.Padding(4, 0, 4, 15)
+        Me.mnueOfferte.Size = New System.Drawing.Size(107, 49)
-        Me.mnueOfferte.Size = New System.Drawing.Size(107, 64)
         Me.mnueOfferte.Text = "Offerte/Preise"
         Me.mnueOfferte.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mnueOfferte.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal
@@ -1069,8 +1050,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.mnueRechnungen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
         Me.mnueRechnungen.Margin = New System.Windows.Forms.Padding(0, 0, 0, 2)
         Me.mnueRechnungen.Name = "mnueRechnungen"
-        Me.mnueRechnungen.Padding = New System.Windows.Forms.Padding(4, 0, 4, 10)
+        Me.mnueRechnungen.Size = New System.Drawing.Size(107, 51)
-        Me.mnueRechnungen.Size = New System.Drawing.Size(107, 61)
         Me.mnueRechnungen.Text = "Rechnungen"
         Me.mnueRechnungen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mnueRechnungen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1082,8 +1062,8 @@ Partial Class frmKundenUebersichtZOLL
         Me.mnueSpeditionsbuch.Image = Global.SDL.My.Resources.Resources.spedbuch1
         Me.mnueSpeditionsbuch.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
         Me.mnueSpeditionsbuch.Name = "mnueSpeditionsbuch"
-        Me.mnueSpeditionsbuch.Padding = New System.Windows.Forms.Padding(4, 10, 4, 10)
+        Me.mnueSpeditionsbuch.Padding = New System.Windows.Forms.Padding(4, 10, 4, 0)
-        Me.mnueSpeditionsbuch.Size = New System.Drawing.Size(107, 79)
+        Me.mnueSpeditionsbuch.Size = New System.Drawing.Size(107, 69)
         Me.mnueSpeditionsbuch.Text = "Speditionsbuch"
         Me.mnueSpeditionsbuch.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mnueSpeditionsbuch.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1096,8 +1076,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.mnueStatistik.ImageAlign = System.Drawing.ContentAlignment.TopCenter
         Me.mnueStatistik.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
         Me.mnueStatistik.Name = "mnueStatistik"
-        Me.mnueStatistik.Padding = New System.Windows.Forms.Padding(4, 0, 4, 5)
+        Me.mnueStatistik.Size = New System.Drawing.Size(107, 58)
-        Me.mnueStatistik.Size = New System.Drawing.Size(107, 63)
         Me.mnueStatistik.Text = "Statistik"
         Me.mnueStatistik.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mnueStatistik.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1217,6 +1196,26 @@ Partial Class frmKundenUebersichtZOLL
         Me.ToolStripMenuItem19.Size = New System.Drawing.Size(242, 22)
         Me.ToolStripMenuItem19.Text = "Bonitätsauskunft (Creditreform)"
         '
+        'EORIAntragToolStripMenuItem
+        '
+        Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem"
+        Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
+        Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag"
+        '
+        'mnueCBAM
+        '
+        Me.mnueCBAM.Enabled = False
+        Me.mnueCBAM.ForeColor = System.Drawing.Color.White
+        Me.mnueCBAM.Image = Global.SDL.My.Resources.Resources.cbam_s
+        Me.mnueCBAM.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.mnueCBAM.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
+        Me.mnueCBAM.Name = "mnueCBAM"
+        Me.mnueCBAM.Size = New System.Drawing.Size(107, 49)
+        Me.mnueCBAM.Text = "CBAM"
+        Me.mnueCBAM.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.mnueCBAM.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.mnueCBAM.Visible = False
+        '
         'mnueFiskaluebersicht
         '
         Me.mnueFiskaluebersicht.Enabled = False
@@ -1469,11 +1468,35 @@ Partial Class frmKundenUebersichtZOLL
         Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
-        'EORIAntragToolStripMenuItem
+        'usrcntlKundenuebersicht
         '
-        Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem"
+        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
-        Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
+        Me.usrcntlKundenuebersicht.BER_STUFE = 0
-        Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag"
+        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
+        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
+        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
+        Me.usrcntlKundenuebersicht.TabIndex = 0
+        '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
+        'UsrcntlFiskaluebersicht1
+        '
+        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
+        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
+        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
         '
         'frmKundenUebersichtZOLL
         '
@@ -1644,4 +1667,6 @@ Partial Class frmKundenUebersichtZOLL
     Friend WithEvents UsrcntlFiskaluebersicht1 As usrcntlFiskaluebersicht
     Friend WithEvents mneBearbeiten As ToolStripMenuItem
     Friend WithEvents EORIAntragToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tbCBAM As TabPage
+    Friend WithEvents mnueCBAM As ToolStripMenuItem
 End Class

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -105,7 +105,6 @@ Public Class frmKundenUebersichtZOLL
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
 
-
         Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL")
         timerOP.Interval = 500
         timerOP.Enabled = False
@@ -206,6 +205,12 @@ Public Class frmKundenUebersichtZOLL
             mnueFiskaluebersicht.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CBAM", Me) Then
+            mnueCBAM.Visible = True
+            mnueCBAM.Visible = True
+            mnueCBAM.Visible = True
+        End If
+
 
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
@@ -303,6 +308,7 @@ Public Class frmKundenUebersichtZOLL
         mnueFiskaluebersicht.Enabled = True
         'SchließenToolStripMenuItem.Enabled = True
         mnueFiskal.Enabled = True
+        mnueCBAM.Enabled = True
 
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -335,6 +341,7 @@ Public Class frmKundenUebersichtZOLL
                 mnueStatistik.Enabled = False
                 mneFormulare.Enabled = False
                 mnueFiskal.Enabled = False
+                mnueCBAM.Enabled = False
                 mneBearbeiten.Enabled = False
                 toolOptionen.Enabled = False
                 mnueFiskaluebersicht.Enabled = False
@@ -517,6 +524,9 @@ Public Class frmKundenUebersichtZOLL
         ElseIf tbcntrKundenDaten.SelectedIndex = 6 Then
             ' initBtns("Monat")
             initSpeditinsbuch()
+        ElseIf tbcntrKundenDaten.SelectedIndex = 8 Then
+            ' initBtns("Monat")
+            initCBAM()
         End If
     End Sub
 
@@ -613,6 +623,15 @@ Public Class frmKundenUebersichtZOLL
     End Sub
 
 
+    Sub initCBAM()
+        tbCBAM.Controls.Clear()
+        Dim s As New SDL.usrCntlCBAM(kdNr)
+        s.Dock = DockStyle.Fill
+        tbCBAM.Controls.Add(s)
+
+    End Sub
+
+
 
     Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles dgvRg.DoubleClick
         If dgvRg.SelectedRows.Count = 0 Then Exit Sub
@@ -1419,6 +1438,12 @@ Public Class frmKundenUebersichtZOLL
     Private Sub EORIAntragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIAntragToolStripMenuItem.Click
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.EORI_Antrag, kdNr, {})
     End Sub
+
+    Private Sub ToolStripMenuItem5_Click_1(sender As Object, e As EventArgs) Handles mnueCBAM.Click
+        changeTab(8, mnueStatistik)
+    End Sub
+
+
 End Class
 
 

SDL/kunden/usrCntlCBAM.Designer.vb

@@ -0,0 +1,646 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlCBAM
+    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.lblOffert = New System.Windows.Forms.TextBox()
+        Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnCBAMPruef_DAKOSY = New System.Windows.Forms.Button()
+        Me.btnCBAMPruef_DHF_VERAG = New System.Windows.Forms.Button()
+        Me.btnCBAMPruef_TELOTEC = New System.Windows.Forms.Button()
+        Me.btnCBAMPruef_DHF_UNISPED = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnCBAMPruef_ALLE = New System.Windows.Forms.Button()
+        Me.txtCBAMPruef_DAKOSY = New System.Windows.Forms.TextBox()
+        Me.txtCBAMPruef_DHF_VERAG = New System.Windows.Forms.TextBox()
+        Me.txtCBAMPruef_DHF_UNISPED = New System.Windows.Forms.TextBox()
+        Me.txtCBAMPruef_TELOTEC = New System.Windows.Forms.TextBox()
+        Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.btnCBAM_DS_DHF_UNISPED = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_TELOTEC = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DHF_VERAG = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DAKOSY = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.btnCBAM_DS_DAKOSY_Deteil = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DAKOSY_Summe = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DHF_VERAG_Summe = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DHF_VERAG_Deteil = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DHF_UNISPED_Summe = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_TELOTEC_Summe = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_TELOTEC_Detail = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.btnCBAM_DS_DAKOSY_Copy = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DHF_VERAG_Copy = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_DHF_UNISPED_Copy = New System.Windows.Forms.Button()
+        Me.btnCBAM_DS_TELOTEC_Copy = New System.Windows.Forms.Button()
+        Me.cntxtAddSdl.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'lblOffert
+        '
+        Me.lblOffert.BackColor = System.Drawing.Color.White
+        Me.lblOffert.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.lblOffert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblOffert.Location = New System.Drawing.Point(5, 10)
+        Me.lblOffert.Multiline = True
+        Me.lblOffert.Name = "lblOffert"
+        Me.lblOffert.ReadOnly = True
+        Me.lblOffert.Size = New System.Drawing.Size(110, 22)
+        Me.lblOffert.TabIndex = 0
+        Me.lblOffert.Text = "CBAM"
+        '
+        'cntxtAddSdl
+        '
+        Me.cntxtAddSdl.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DToolStripMenuItem})
+        Me.cntxtAddSdl.Name = "cntxtAddSdl"
+        Me.cntxtAddSdl.Size = New System.Drawing.Size(82, 26)
+        '
+        'DToolStripMenuItem
+        '
+        Me.DToolStripMenuItem.Name = "DToolStripMenuItem"
+        Me.DToolStripMenuItem.Size = New System.Drawing.Size(81, 22)
+        Me.DToolStripMenuItem.Text = "d"
+        '
+        'txtEori
+        '
+        Me.txtEori._DateTimeOnly = False
+        Me.txtEori._numbersOnly = False
+        Me.txtEori._numbersOnlyKommastellen = ""
+        Me.txtEori._numbersOnlyTrennzeichen = True
+        Me.txtEori._Prozent = False
+        Me.txtEori._ShortDateNew = False
+        Me.txtEori._ShortDateOnly = False
+        Me.txtEori._TimeOnly = False
+        Me.txtEori._TimeOnly_Seconds = False
+        Me.txtEori._value = ""
+        Me.txtEori._Waehrung = False
+        Me.txtEori._WaehrungZeichen = True
+        Me.txtEori.ForeColor = System.Drawing.Color.Black
+        Me.txtEori.Location = New System.Drawing.Point(106, 48)
+        Me.txtEori.MaxLineLength = -1
+        Me.txtEori.MaxLines_Warning = ""
+        Me.txtEori.MaxLines_Warning_Label = Nothing
+        Me.txtEori.Name = "txtEori"
+        Me.txtEori.Size = New System.Drawing.Size(341, 20)
+        Me.txtEori.TabIndex = 1
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(5, 51)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(36, 13)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "EORI:"
+        '
+        'btnCBAMPruef_DAKOSY
+        '
+        Me.btnCBAMPruef_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 74)
+        Me.btnCBAMPruef_DAKOSY.Name = "btnCBAMPruef_DAKOSY"
+        Me.btnCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAMPruef_DAKOSY.TabIndex = 3
+        Me.btnCBAMPruef_DAKOSY.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)"
+        Me.btnCBAMPruef_DAKOSY.UseVisualStyleBackColor = True
+        '
+        'btnCBAMPruef_DHF_VERAG
+        '
+        Me.btnCBAMPruef_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 74)
+        Me.btnCBAMPruef_DHF_VERAG.Name = "btnCBAMPruef_DHF_VERAG"
+        Me.btnCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAMPruef_DHF_VERAG.TabIndex = 4
+        Me.btnCBAMPruef_DHF_VERAG.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - VERAG)"
+        Me.btnCBAMPruef_DHF_VERAG.UseVisualStyleBackColor = True
+        '
+        'btnCBAMPruef_TELOTEC
+        '
+        Me.btnCBAMPruef_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 74)
+        Me.btnCBAMPruef_TELOTEC.Name = "btnCBAMPruef_TELOTEC"
+        Me.btnCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAMPruef_TELOTEC.TabIndex = 5
+        Me.btnCBAMPruef_TELOTEC.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)"
+        Me.btnCBAMPruef_TELOTEC.UseVisualStyleBackColor = True
+        '
+        'btnCBAMPruef_DHF_UNISPED
+        '
+        Me.btnCBAMPruef_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 74)
+        Me.btnCBAMPruef_DHF_UNISPED.Name = "btnCBAMPruef_DHF_UNISPED"
+        Me.btnCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAMPruef_DHF_UNISPED.TabIndex = 6
+        Me.btnCBAMPruef_DHF_UNISPED.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)"
+        Me.btnCBAMPruef_DHF_UNISPED.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(5, 130)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(51, 13)
+        Me.Label2.TabIndex = 7
+        Me.Label2.Text = "Ergebnis:"
+        '
+        'btnCBAMPruef_ALLE
+        '
+        Me.btnCBAMPruef_ALLE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAMPruef_ALLE.Location = New System.Drawing.Point(802, 74)
+        Me.btnCBAMPruef_ALLE.Name = "btnCBAMPruef_ALLE"
+        Me.btnCBAMPruef_ALLE.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAMPruef_ALLE.TabIndex = 8
+        Me.btnCBAMPruef_ALLE.Text = "Alle"
+        Me.btnCBAMPruef_ALLE.UseVisualStyleBackColor = True
+        '
+        'txtCBAMPruef_DAKOSY
+        '
+        Me.txtCBAMPruef_DAKOSY.BackColor = System.Drawing.Color.White
+        Me.txtCBAMPruef_DAKOSY.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtCBAMPruef_DAKOSY.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 125)
+        Me.txtCBAMPruef_DAKOSY.Multiline = True
+        Me.txtCBAMPruef_DAKOSY.Name = "txtCBAMPruef_DAKOSY"
+        Me.txtCBAMPruef_DAKOSY.ReadOnly = True
+        Me.txtCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 22)
+        Me.txtCBAMPruef_DAKOSY.TabIndex = 10
+        Me.txtCBAMPruef_DAKOSY.Text = "-"
+        Me.txtCBAMPruef_DAKOSY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'txtCBAMPruef_DHF_VERAG
+        '
+        Me.txtCBAMPruef_DHF_VERAG.BackColor = System.Drawing.Color.White
+        Me.txtCBAMPruef_DHF_VERAG.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtCBAMPruef_DHF_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 125)
+        Me.txtCBAMPruef_DHF_VERAG.Multiline = True
+        Me.txtCBAMPruef_DHF_VERAG.Name = "txtCBAMPruef_DHF_VERAG"
+        Me.txtCBAMPruef_DHF_VERAG.ReadOnly = True
+        Me.txtCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 22)
+        Me.txtCBAMPruef_DHF_VERAG.TabIndex = 11
+        Me.txtCBAMPruef_DHF_VERAG.Text = "-"
+        Me.txtCBAMPruef_DHF_VERAG.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'txtCBAMPruef_DHF_UNISPED
+        '
+        Me.txtCBAMPruef_DHF_UNISPED.BackColor = System.Drawing.Color.White
+        Me.txtCBAMPruef_DHF_UNISPED.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtCBAMPruef_DHF_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 125)
+        Me.txtCBAMPruef_DHF_UNISPED.Multiline = True
+        Me.txtCBAMPruef_DHF_UNISPED.Name = "txtCBAMPruef_DHF_UNISPED"
+        Me.txtCBAMPruef_DHF_UNISPED.ReadOnly = True
+        Me.txtCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 22)
+        Me.txtCBAMPruef_DHF_UNISPED.TabIndex = 12
+        Me.txtCBAMPruef_DHF_UNISPED.Text = "-"
+        Me.txtCBAMPruef_DHF_UNISPED.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'txtCBAMPruef_TELOTEC
+        '
+        Me.txtCBAMPruef_TELOTEC.BackColor = System.Drawing.Color.White
+        Me.txtCBAMPruef_TELOTEC.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtCBAMPruef_TELOTEC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 125)
+        Me.txtCBAMPruef_TELOTEC.Multiline = True
+        Me.txtCBAMPruef_TELOTEC.Name = "txtCBAMPruef_TELOTEC"
+        Me.txtCBAMPruef_TELOTEC.ReadOnly = True
+        Me.txtCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 22)
+        Me.txtCBAMPruef_TELOTEC.TabIndex = 13
+        Me.txtCBAMPruef_TELOTEC.Text = "-"
+        Me.txtCBAMPruef_TELOTEC.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'txtBis
+        '
+        Me.txtBis._DateTimeOnly = False
+        Me.txtBis._numbersOnly = False
+        Me.txtBis._numbersOnlyKommastellen = ""
+        Me.txtBis._numbersOnlyTrennzeichen = True
+        Me.txtBis._Prozent = False
+        Me.txtBis._ShortDateNew = False
+        Me.txtBis._ShortDateOnly = False
+        Me.txtBis._TimeOnly = False
+        Me.txtBis._TimeOnly_Seconds = False
+        Me.txtBis._value = ""
+        Me.txtBis._Waehrung = False
+        Me.txtBis._WaehrungZeichen = True
+        Me.txtBis.ForeColor = System.Drawing.Color.Black
+        Me.txtBis.Location = New System.Drawing.Point(860, 49)
+        Me.txtBis.MaxLineLength = -1
+        Me.txtBis.MaxLines_Warning = ""
+        Me.txtBis.MaxLines_Warning_Label = Nothing
+        Me.txtBis.Name = "txtBis"
+        Me.txtBis.Size = New System.Drawing.Size(110, 20)
+        Me.txtBis.TabIndex = 14
+        '
+        'txtVon
+        '
+        Me.txtVon._DateTimeOnly = False
+        Me.txtVon._numbersOnly = False
+        Me.txtVon._numbersOnlyKommastellen = ""
+        Me.txtVon._numbersOnlyTrennzeichen = True
+        Me.txtVon._Prozent = False
+        Me.txtVon._ShortDateNew = False
+        Me.txtVon._ShortDateOnly = False
+        Me.txtVon._TimeOnly = False
+        Me.txtVon._TimeOnly_Seconds = False
+        Me.txtVon._value = ""
+        Me.txtVon._Waehrung = False
+        Me.txtVon._WaehrungZeichen = True
+        Me.txtVon.ForeColor = System.Drawing.Color.Black
+        Me.txtVon.Location = New System.Drawing.Point(744, 49)
+        Me.txtVon.MaxLineLength = -1
+        Me.txtVon.MaxLines_Warning = ""
+        Me.txtVon.MaxLines_Warning_Label = Nothing
+        Me.txtVon.Name = "txtVon"
+        Me.txtVon.Size = New System.Drawing.Size(110, 20)
+        Me.txtVon.TabIndex = 15
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(694, 52)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(44, 13)
+        Me.Label4.TabIndex = 17
+        Me.Label4.Text = "von-bis:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(453, 51)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(51, 13)
+        Me.Label5.TabIndex = 18
+        Me.Label5.Text = "Zeitraum:"
+        '
+        'cboQuartal
+        '
+        Me.cboQuartal._allowedValuesFreiText = Nothing
+        Me.cboQuartal._allowFreiText = False
+        Me.cboQuartal._value = ""
+        Me.cboQuartal.FormattingEnabled = True
+        Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"})
+        Me.cboQuartal.Location = New System.Drawing.Point(511, 48)
+        Me.cboQuartal.Name = "cboQuartal"
+        Me.cboQuartal.Size = New System.Drawing.Size(45, 21)
+        Me.cboQuartal.TabIndex = 19
+        '
+        'txtJahr
+        '
+        Me.txtJahr._DateTimeOnly = False
+        Me.txtJahr._numbersOnly = False
+        Me.txtJahr._numbersOnlyKommastellen = ""
+        Me.txtJahr._numbersOnlyTrennzeichen = True
+        Me.txtJahr._Prozent = False
+        Me.txtJahr._ShortDateNew = False
+        Me.txtJahr._ShortDateOnly = False
+        Me.txtJahr._TimeOnly = False
+        Me.txtJahr._TimeOnly_Seconds = False
+        Me.txtJahr._value = ""
+        Me.txtJahr._Waehrung = False
+        Me.txtJahr._WaehrungZeichen = True
+        Me.txtJahr.ForeColor = System.Drawing.Color.Black
+        Me.txtJahr.Location = New System.Drawing.Point(562, 49)
+        Me.txtJahr.MaxLineLength = -1
+        Me.txtJahr.MaxLines_Warning = ""
+        Me.txtJahr.MaxLines_Warning_Label = Nothing
+        Me.txtJahr.Name = "txtJahr"
+        Me.txtJahr.Size = New System.Drawing.Size(60, 20)
+        Me.txtJahr.TabIndex = 20
+        '
+        'btnCBAM_DS_DHF_UNISPED
+        '
+        Me.btnCBAM_DS_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DHF_UNISPED.Location = New System.Drawing.Point(454, 168)
+        Me.btnCBAM_DS_DHF_UNISPED.Name = "btnCBAM_DS_DHF_UNISPED"
+        Me.btnCBAM_DS_DHF_UNISPED.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAM_DS_DHF_UNISPED.TabIndex = 24
+        Me.btnCBAM_DS_DHF_UNISPED.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)"
+        Me.btnCBAM_DS_DHF_UNISPED.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_TELOTEC
+        '
+        Me.btnCBAM_DS_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_TELOTEC.Location = New System.Drawing.Point(628, 168)
+        Me.btnCBAM_DS_TELOTEC.Name = "btnCBAM_DS_TELOTEC"
+        Me.btnCBAM_DS_TELOTEC.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAM_DS_TELOTEC.TabIndex = 23
+        Me.btnCBAM_DS_TELOTEC.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)"
+        Me.btnCBAM_DS_TELOTEC.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DHF_VERAG
+        '
+        Me.btnCBAM_DS_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DHF_VERAG.Location = New System.Drawing.Point(280, 168)
+        Me.btnCBAM_DS_DHF_VERAG.Name = "btnCBAM_DS_DHF_VERAG"
+        Me.btnCBAM_DS_DHF_VERAG.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAM_DS_DHF_VERAG.TabIndex = 22
+        Me.btnCBAM_DS_DHF_VERAG.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - VERAG)"
+        Me.btnCBAM_DS_DHF_VERAG.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DAKOSY
+        '
+        Me.btnCBAM_DS_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DAKOSY.Location = New System.Drawing.Point(106, 168)
+        Me.btnCBAM_DS_DAKOSY.Name = "btnCBAM_DS_DAKOSY"
+        Me.btnCBAM_DS_DAKOSY.Size = New System.Drawing.Size(168, 42)
+        Me.btnCBAM_DS_DAKOSY.TabIndex = 21
+        Me.btnCBAM_DS_DAKOSY.Text = "Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)"
+        Me.btnCBAM_DS_DAKOSY.UseVisualStyleBackColor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(5, 183)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(64, 13)
+        Me.Label3.TabIndex = 25
+        Me.Label3.Text = "Datensätze:"
+        '
+        'btnCBAM_DS_DAKOSY_Deteil
+        '
+        Me.btnCBAM_DS_DAKOSY_Deteil.Enabled = False
+        Me.btnCBAM_DS_DAKOSY_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DAKOSY_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnCBAM_DS_DAKOSY_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DAKOSY_Deteil.Location = New System.Drawing.Point(144, 216)
+        Me.btnCBAM_DS_DAKOSY_Deteil.Name = "btnCBAM_DS_DAKOSY_Deteil"
+        Me.btnCBAM_DS_DAKOSY_Deteil.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DAKOSY_Deteil.TabIndex = 26
+        Me.btnCBAM_DS_DAKOSY_Deteil.Text = "Detailbericht"
+        Me.btnCBAM_DS_DAKOSY_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCBAM_DS_DAKOSY_Deteil.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DAKOSY_Summe
+        '
+        Me.btnCBAM_DS_DAKOSY_Summe.Enabled = False
+        Me.btnCBAM_DS_DAKOSY_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DAKOSY_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnCBAM_DS_DAKOSY_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DAKOSY_Summe.Location = New System.Drawing.Point(144, 264)
+        Me.btnCBAM_DS_DAKOSY_Summe.Name = "btnCBAM_DS_DAKOSY_Summe"
+        Me.btnCBAM_DS_DAKOSY_Summe.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DAKOSY_Summe.TabIndex = 27
+        Me.btnCBAM_DS_DAKOSY_Summe.Text = "Summenbereicht"
+        Me.btnCBAM_DS_DAKOSY_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCBAM_DS_DAKOSY_Summe.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DHF_VERAG_Summe
+        '
+        Me.btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
+        Me.btnCBAM_DS_DHF_VERAG_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DHF_VERAG_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnCBAM_DS_DHF_VERAG_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DHF_VERAG_Summe.Location = New System.Drawing.Point(318, 264)
+        Me.btnCBAM_DS_DHF_VERAG_Summe.Name = "btnCBAM_DS_DHF_VERAG_Summe"
+        Me.btnCBAM_DS_DHF_VERAG_Summe.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DHF_VERAG_Summe.TabIndex = 29
+        Me.btnCBAM_DS_DHF_VERAG_Summe.Text = "Summenbereicht"
+        Me.btnCBAM_DS_DHF_VERAG_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCBAM_DS_DHF_VERAG_Summe.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DHF_VERAG_Deteil
+        '
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.Location = New System.Drawing.Point(318, 216)
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.Name = "btnCBAM_DS_DHF_VERAG_Deteil"
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.TabIndex = 28
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.Text = "Detailbericht"
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCBAM_DS_DHF_VERAG_Deteil.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DHF_UNISPED_Summe
+        '
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.Enabled = False
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.Location = New System.Drawing.Point(492, 264)
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.Name = "btnCBAM_DS_DHF_UNISPED_Summe"
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.TabIndex = 31
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.Text = "Summenbereicht"
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCBAM_DS_DHF_UNISPED_Summe.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DHF_UNISPED_Deteil
+        '
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.Enabled = False
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.Location = New System.Drawing.Point(492, 216)
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.Name = "btnCBAM_DS_DHF_UNISPED_Deteil"
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.TabIndex = 30
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.Text = "Detailbericht"
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCBAM_DS_DHF_UNISPED_Deteil.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_TELOTEC_Summe
+        '
+        Me.btnCBAM_DS_TELOTEC_Summe.Enabled = False
+        Me.btnCBAM_DS_TELOTEC_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_TELOTEC_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnCBAM_DS_TELOTEC_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_TELOTEC_Summe.Location = New System.Drawing.Point(666, 264)
+        Me.btnCBAM_DS_TELOTEC_Summe.Name = "btnCBAM_DS_TELOTEC_Summe"
+        Me.btnCBAM_DS_TELOTEC_Summe.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_TELOTEC_Summe.TabIndex = 33
+        Me.btnCBAM_DS_TELOTEC_Summe.Text = "Summenbereicht"
+        Me.btnCBAM_DS_TELOTEC_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCBAM_DS_TELOTEC_Summe.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_TELOTEC_Detail
+        '
+        Me.btnCBAM_DS_TELOTEC_Detail.Enabled = False
+        Me.btnCBAM_DS_TELOTEC_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_TELOTEC_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnCBAM_DS_TELOTEC_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_TELOTEC_Detail.Location = New System.Drawing.Point(666, 216)
+        Me.btnCBAM_DS_TELOTEC_Detail.Name = "btnCBAM_DS_TELOTEC_Detail"
+        Me.btnCBAM_DS_TELOTEC_Detail.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_TELOTEC_Detail.TabIndex = 32
+        Me.btnCBAM_DS_TELOTEC_Detail.Text = "Detailbericht"
+        Me.btnCBAM_DS_TELOTEC_Detail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCBAM_DS_TELOTEC_Detail.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(5, 74)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(41, 13)
+        Me.Label6.TabIndex = 34
+        Me.Label6.Text = "Prüfen:"
+        '
+        'btnCBAM_DS_DAKOSY_Copy
+        '
+        Me.btnCBAM_DS_DAKOSY_Copy.Enabled = False
+        Me.btnCBAM_DS_DAKOSY_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DAKOSY_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(144, 312)
+        Me.btnCBAM_DS_DAKOSY_Copy.Name = "btnCBAM_DS_DAKOSY_Copy"
+        Me.btnCBAM_DS_DAKOSY_Copy.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DAKOSY_Copy.TabIndex = 35
+        Me.btnCBAM_DS_DAKOSY_Copy.Text = "In Zwischenablage kopieren"
+        Me.btnCBAM_DS_DAKOSY_Copy.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DHF_VERAG_Copy
+        '
+        Me.btnCBAM_DS_DHF_VERAG_Copy.Enabled = False
+        Me.btnCBAM_DS_DHF_VERAG_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DHF_VERAG_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DHF_VERAG_Copy.Location = New System.Drawing.Point(318, 312)
+        Me.btnCBAM_DS_DHF_VERAG_Copy.Name = "btnCBAM_DS_DHF_VERAG_Copy"
+        Me.btnCBAM_DS_DHF_VERAG_Copy.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DHF_VERAG_Copy.TabIndex = 36
+        Me.btnCBAM_DS_DHF_VERAG_Copy.Text = "In Zwischenablage kopieren"
+        Me.btnCBAM_DS_DHF_VERAG_Copy.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_DHF_UNISPED_Copy
+        '
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.Enabled = False
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.Location = New System.Drawing.Point(492, 312)
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.Name = "btnCBAM_DS_DHF_UNISPED_Copy"
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.TabIndex = 37
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.Text = "In Zwischenablage kopieren"
+        Me.btnCBAM_DS_DHF_UNISPED_Copy.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_DS_TELOTEC_Copy
+        '
+        Me.btnCBAM_DS_TELOTEC_Copy.Enabled = False
+        Me.btnCBAM_DS_TELOTEC_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCBAM_DS_TELOTEC_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCBAM_DS_TELOTEC_Copy.Location = New System.Drawing.Point(666, 312)
+        Me.btnCBAM_DS_TELOTEC_Copy.Name = "btnCBAM_DS_TELOTEC_Copy"
+        Me.btnCBAM_DS_TELOTEC_Copy.Size = New System.Drawing.Size(130, 42)
+        Me.btnCBAM_DS_TELOTEC_Copy.TabIndex = 38
+        Me.btnCBAM_DS_TELOTEC_Copy.Text = "In Zwischenablage kopieren"
+        Me.btnCBAM_DS_TELOTEC_Copy.UseVisualStyleBackColor = True
+        '
+        'usrCntlCBAM
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Copy)
+        Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Copy)
+        Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Copy)
+        Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Copy)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Summe)
+        Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Detail)
+        Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Summe)
+        Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Deteil)
+        Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Summe)
+        Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Deteil)
+        Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Summe)
+        Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Deteil)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED)
+        Me.Controls.Add(Me.btnCBAM_DS_TELOTEC)
+        Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG)
+        Me.Controls.Add(Me.btnCBAM_DS_DAKOSY)
+        Me.Controls.Add(Me.txtJahr)
+        Me.Controls.Add(Me.cboQuartal)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.txtVon)
+        Me.Controls.Add(Me.txtBis)
+        Me.Controls.Add(Me.txtCBAMPruef_TELOTEC)
+        Me.Controls.Add(Me.txtCBAMPruef_DHF_UNISPED)
+        Me.Controls.Add(Me.txtCBAMPruef_DHF_VERAG)
+        Me.Controls.Add(Me.txtCBAMPruef_DAKOSY)
+        Me.Controls.Add(Me.btnCBAMPruef_ALLE)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.btnCBAMPruef_DHF_UNISPED)
+        Me.Controls.Add(Me.btnCBAMPruef_TELOTEC)
+        Me.Controls.Add(Me.btnCBAMPruef_DHF_VERAG)
+        Me.Controls.Add(Me.btnCBAMPruef_DAKOSY)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtEori)
+        Me.Controls.Add(Me.lblOffert)
+        Me.Margin = New System.Windows.Forms.Padding(2)
+        Me.Name = "usrCntlCBAM"
+        Me.Size = New System.Drawing.Size(1041, 576)
+        Me.cntxtAddSdl.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents lblOffert As System.Windows.Forms.TextBox
+    Friend WithEvents cntxtAddSdl As ContextMenuStrip
+    Friend WithEvents DToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents btnCBAMPruef_DAKOSY As Button
+    Friend WithEvents btnCBAMPruef_DHF_VERAG As Button
+    Friend WithEvents btnCBAMPruef_TELOTEC As Button
+    Friend WithEvents btnCBAMPruef_DHF_UNISPED As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents btnCBAMPruef_ALLE As Button
+    Friend WithEvents txtCBAMPruef_DAKOSY As TextBox
+    Friend WithEvents txtCBAMPruef_DHF_VERAG As TextBox
+    Friend WithEvents txtCBAMPruef_DHF_UNISPED As TextBox
+    Friend WithEvents txtCBAMPruef_TELOTEC As TextBox
+    Friend WithEvents txtBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents cboQuartal As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btnCBAM_DS_DHF_UNISPED As Button
+    Friend WithEvents btnCBAM_DS_TELOTEC As Button
+    Friend WithEvents btnCBAM_DS_DHF_VERAG As Button
+    Friend WithEvents btnCBAM_DS_DAKOSY As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents btnCBAM_DS_DAKOSY_Deteil As Button
+    Friend WithEvents btnCBAM_DS_DAKOSY_Summe As Button
+    Friend WithEvents btnCBAM_DS_DHF_VERAG_Summe As Button
+    Friend WithEvents btnCBAM_DS_DHF_VERAG_Deteil As Button
+    Friend WithEvents btnCBAM_DS_DHF_UNISPED_Summe As Button
+    Friend WithEvents btnCBAM_DS_DHF_UNISPED_Deteil As Button
+    Friend WithEvents btnCBAM_DS_TELOTEC_Summe As Button
+    Friend WithEvents btnCBAM_DS_TELOTEC_Detail As Button
+    Friend WithEvents Label6 As Label
+    Friend WithEvents btnCBAM_DS_DAKOSY_Copy As Button
+    Friend WithEvents btnCBAM_DS_DHF_VERAG_Copy As Button
+    Friend WithEvents btnCBAM_DS_DHF_UNISPED_Copy As Button
+    Friend WithEvents btnCBAM_DS_TELOTEC_Copy As Button
+End Class

SDL/kunden/usrCntlCBAM.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="cntxtAddSdl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

SDL/kunden/usrCntlCBAM.vb

@@ -0,0 +1,570 @@
+
+
+Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
+
+Public Class usrCntlCBAM
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Public kdnr = -1
+    Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
+    Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
+
+    Sub New()
+        InitializeComponent()
+    End Sub
+
+    Sub New(kdNr)
+        InitializeComponent()
+        Me.kdnr = kdNr
+    End Sub
+
+
+    Private Sub btnCBAMPruef_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DAKOSY.Click
+        txtCBAMPruef_DAKOSY.Text = "-"
+        Try
+            Dim EORI = txtEori.Text
+            If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
+            If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
+            If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim SQLSTR = "
+                SELECT  COUNT(*) FROM [tblDakosy_EZA] inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
+                  where  isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
+                  and 
+                  (
+                  left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7301 and 7311
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7205 and 7229
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7603 and 7614
+                  OR   ezaWP_WarennummerEZT like '25070080%'
+                  OR   ezaWP_WarennummerEZT like '283421%'
+                  OR   ezaWP_WarennummerEZT like '260112%'
+                  OR   ezaWP_WarennummerEZT like '720211%'
+                  OR   ezaWP_WarennummerEZT like '720219%'
+                  OR   ezaWP_WarennummerEZT like '720241%'
+                  OR   ezaWP_WarennummerEZT like '720249%'
+                  OR   ezaWP_WarennummerEZT like '720260%'
+                  OR   ezaWP_WarennummerEZT like '280410%'
+                     )
+                  and ezaWP_WarennummerEZT not like '310560%'
+                  and (select   isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' 
+                  and eza_status between 41  and 60
+            "
+
+            Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                txtCBAMPruef_DAKOSY.Text = dt.Rows(0)(0) & " Einträge"
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+
+            txtCBAMPruef_DAKOSY.Text = "0"
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnCBAMPruef_ALLE_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_ALLE.Click
+        btnCBAMPruef_DAKOSY.PerformClick()
+        btnCBAMPruef_DHF_VERAG.PerformClick()
+        btnCBAMPruef_DHF_UNISPED.PerformClick()
+        btnCBAMPruef_TELOTEC.PerformClick()
+    End Sub
+
+    Private Sub btnCBAMPruef_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_VERAG.Click
+        txtCBAMPruef_DHF_VERAG.Text = "-"
+        Try
+            Dim EORI = txtEori.Text
+            If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
+            If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
+            If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim SQLSTR = "
+                 select COUNT(*) from zsAnmRefs 
+				 inner join zsAnmGdsitem  on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
+				 inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
+				 inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
+				 inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
+					 	where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
+                  and 
+                  (
+                  left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
+                  OR   left(ComCd,4)  between 7301 and 7311
+                  OR   left(ComCd,4)  between 7205 and 7229
+                  OR   left(ComCd,4)  between 7603 and 7614
+                  OR   ComCd like '25070080%'
+                  OR   ComCd like '283421%'
+                  OR   ComCd like '260112%'
+                  OR   ComCd like '720211%'
+                  OR   ComCd like '720219%'
+                  OR   ComCd like '720241%'
+                  OR   ComCd like '720249%'
+                  OR   ComCd like '720260%'
+                  OR   ComCd like '280410%'  
+                  ) 
+                  and ComCd not like '310560%' 
+                 and crn is not null 
+                  and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "' 
+             "
+
+            Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                txtCBAMPruef_DHF_VERAG.Text = dt.Rows(0)(0) & " Einträge"
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+
+            txtCBAMPruef_DHF_VERAG.Text = "0"
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnCBAMPruef_DHF_UNISPED_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_UNISPED.Click
+        txtCBAMPruef_DHF_UNISPED.Text = "-"
+        Try
+            Dim EORI = txtEori.Text
+            If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
+            If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
+            If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim SQLSTR = "
+                 select COUNT(*) from zsAnmRefs 
+				 inner join zsAnmGdsitem  on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
+				 inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
+				 inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
+				 inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
+					 	where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
+                  and 
+                  (
+                  left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
+                  OR   left(ComCd,4)  between 7301 and 7311
+                  OR   left(ComCd,4)  between 7205 and 7229
+                  OR   left(ComCd,4)  between 7603 and 7614
+                  OR   ComCd like '25070080%'
+                  OR   ComCd like '283421%'
+                  OR   ComCd like '260112%'
+                  OR   ComCd like '720211%'
+                  OR   ComCd like '720219%'
+                  OR   ComCd like '720241%'
+                  OR   ComCd like '720249%'
+                  OR   ComCd like '720260%'
+                  OR   ComCd like '280410%'  
+                  ) 
+                  and ComCd not like '310560%' 
+                 and crn is not null 
+                  and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "' 
+             "
+
+            Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL_UNISPED", 600)
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                txtCBAMPruef_DHF_UNISPED.Text = dt.Rows(0)(0) & " Einträge"
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+
+            txtCBAMPruef_DHF_UNISPED.Text = "0"
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnCBAMPruef_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_TELOTEC.Click
+        txtCBAMPruef_TELOTEC.Text = "nicht verfügbar"
+        Exit Sub
+        Try
+            Dim EORI = txtEori.Text
+            If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+            Dim SQLSTR = "
+                
+
+         
+             "
+
+            Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                txtCBAMPruef_TELOTEC.Text = dt.Rows(0)(0) & " Einträge"
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
+
+            txtCBAMPruef_TELOTEC.Text = "0"
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+
+    End Sub
+
+    Private Sub usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtJahr.Text = Now.Year
+
+
+        If Now.Month < 3 Then
+            txtJahr.Text = Now.Year - 1
+            cboQuartal.Text = "Q4"
+        ElseIf Now.Month < 6 Then : cboQuartal.Text = "Q1"
+        ElseIf Now.Month < 9 Then : cboQuartal.Text = "Q2"
+        ElseIf Now.Month < 12 Then : cboQuartal.Text = "Q3"
+        End If
+
+        If kdnr > 0 Then
+            AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
+            KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
+        End If
+        If KD IsNot Nothing Then
+            txtEori.Text = KD.EORITIN
+        End If
+
+    End Sub
+
+    Private Sub cboQuartal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboQuartal.SelectedIndexChanged
+        If cboQuartal.Text <> "" And IsNumeric(txtJahr.Text) AndAlso txtJahr.Text.Length = 4 Then
+
+            Select Case cboQuartal.Text
+                Case "Q1" : txtVon._value = CDate("01.01." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
+                Case "Q2" : txtVon._value = CDate("01.04." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
+                Case "Q3" : txtVon._value = CDate("01.07." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
+                Case "Q4" : txtVon._value = CDate("01.10." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
+
+            End Select
+
+
+        End If
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click
+        btnCBAM_DS_DAKOSY_Deteil.Enabled = False
+        btnCBAM_DS_DAKOSY_Copy.Enabled = False
+        btnCBAM_DS_DAKOSY_Deteil.Tag = ""
+
+        Try
+            Dim EORI = txtEori.Text
+            If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
+            If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
+            If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim SQLSTR = "
+               SELECT  
+                      [eza_ANR] RegistriernummerATLAS 
+	                  ,ezaWP_PositionsNummer PositionsNummer
+                      ,isnull( eza_anmeldedatum, eza_Trans_DatumZeit) Anmeldedatum 
+                      ,[eza_ObjectName] BezugsNr 
+                      ,[eza_VertretungsVerhaeltnisCode] VertretungsVerhaeltnis 
+                      ,ezaWP_WarennummerEZT Tarifnummer
+	                  ,ezaWP_Eigenmasse Eigenmasse 
+                      ,[eza_VersendungsLandCode] VersendungsLand
+                      ,[eza_Bestimmungsland] Bestimmungsland
+                      ,[ezaWP_Artikelpreis]Rechnungspreis
+                      ,[ezaWP_ArtikelpreisWaehrung] Rechnungswaehrung
+	                  ,(select   isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN') as Empfänger
+	                  ,(select   isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CZ') as Absender
+	  
+                  FROM [VERAG].[dbo].[tblDakosy_EZA]
+                  inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id 
+                  where  
+                  isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
+                  and 
+                  (
+                  left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7301 and 7311
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7205 and 7229
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7603 and 7614
+                  OR   ezaWP_WarennummerEZT like '25070080%'
+                  OR   ezaWP_WarennummerEZT like '283421%'
+                  OR   ezaWP_WarennummerEZT like '260112%'
+                  OR   ezaWP_WarennummerEZT like '720211%'
+                  OR   ezaWP_WarennummerEZT like '720219%'
+                  OR   ezaWP_WarennummerEZT like '720241%'
+                  OR   ezaWP_WarennummerEZT like '720249%'
+                  OR   ezaWP_WarennummerEZT like '720260%'
+                  OR   ezaWP_WarennummerEZT like '280410%' 
+                  )
+                  and ezaWP_WarennummerEZT not like '310560%' 
+                  and (select   isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'  
+                  and eza_status between 41  and 60
+                  order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer
+            "
+
+            Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
+                btnCBAM_DS_DAKOSY_Deteil.Tag = path
+                btnCBAM_DS_DAKOSY_Deteil.Enabled = True
+                btnCBAM_DS_DAKOSY_Copy.Enabled = True
+                Me.Cursor = Cursors.Default
+
+            End If
+
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+
+
+        '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+
+        btnCBAM_DS_DAKOSY_Summe.Enabled = False
+        btnCBAM_DS_DAKOSY_Summe.Tag = ""
+
+        Try
+            Dim EORI = txtEori.Text
+            If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
+            If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
+            If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim SQLSTR = "
+                SELECT  
+                     left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand 
+                  FROM [VERAG].[dbo].[tblDakosy_EZA]
+                  inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
+                   where  
+                    isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
+                  and 
+                  (
+                  left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7301 and 7311
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7205 and 7229
+                  OR   left(ezaWP_WarennummerEZT,4)  between 7603 and 7614
+                  OR   ezaWP_WarennummerEZT like '25070080%'
+                  OR   ezaWP_WarennummerEZT like '283421%'
+                  OR   ezaWP_WarennummerEZT like '260112%'
+                  OR   ezaWP_WarennummerEZT like '720211%'
+                  OR   ezaWP_WarennummerEZT like '720219%'
+                  OR   ezaWP_WarennummerEZT like '720241%'
+                  OR   ezaWP_WarennummerEZT like '720249%'
+                  OR   ezaWP_WarennummerEZT like '720260%'
+                  OR   ezaWP_WarennummerEZT like '280410%'
+   
+                  )
+                    and ezaWP_WarennummerEZT not like '310560%'
+                  and (select   isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'  
+                     and eza_status between 41  and 60
+                     group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8)
+            "
+
+            Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
+                btnCBAM_DS_DAKOSY_Summe.Tag = path
+                btnCBAM_DS_DAKOSY_Summe.Enabled = True
+                btnCBAM_DS_DAKOSY_Copy.Enabled = True
+
+                Me.Cursor = Cursors.Default
+
+            End If
+
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+
+    End Sub
+
+    Private Sub btnCBAM_DS_DAKOSY_Deteil_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Deteil.Click, btnCBAM_DS_DAKOSY_Summe.Click, btnCBAM_DS_DHF_VERAG_Deteil.Click,
+        btnCBAM_DS_DHF_VERAG_Summe.Click, btnCBAM_DS_DHF_UNISPED_Deteil.Click, btnCBAM_DS_DHF_UNISPED_Summe.Click, btnCBAM_DS_TELOTEC_Detail.Click, btnCBAM_DS_TELOTEC_Summe.Click
+        If sender.tag <> "" Then
+            Try : Process.Start(sender.tag) : Catch : End Try
+        End If
+    End Sub
+
+    Private Sub btnCBAM_DS_DAKOSY_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Copy.Click
+        Dim f As New List(Of String)
+        If btnCBAM_DS_DAKOSY_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Deteil.Tag)
+        If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag)
+
+        If f.Count > 0 Then
+            'Zwischenablage
+            Clipboard.Clear()
+            Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
+            Clipboard.SetDataObject(d, True)
+        End If
+    End Sub
+
+    Private Sub btnCBAM_DS_DHF_VERAG_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG_Copy.Click
+        Dim f As New List(Of String)
+        If btnCBAM_DS_DHF_VERAG_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Deteil.Tag)
+        If btnCBAM_DS_DHF_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Summe.Tag)
+
+        If f.Count > 0 Then
+            'Zwischenablage
+            Clipboard.Clear()
+            Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
+            Clipboard.SetDataObject(d, True)
+        End If
+    End Sub
+
+    Private Sub btnCBAM_DS_DHF_UNISPED_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_UNISPED_Copy.Click
+        Dim f As New List(Of String)
+        If btnCBAM_DS_DHF_UNISPED_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Deteil.Tag)
+        If btnCBAM_DS_DHF_UNISPED_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Summe.Tag)
+
+        If f.Count > 0 Then
+            'Zwischenablage
+            Clipboard.Clear()
+            Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
+            Clipboard.SetDataObject(d, True)
+        End If
+    End Sub
+
+    Private Sub btnCBAM_DS_TELOTEC_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC_Copy.Click
+        Dim f As New List(Of String)
+        If btnCBAM_DS_TELOTEC_Detail.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Detail.Tag)
+        If btnCBAM_DS_TELOTEC_Summe.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Summe.Tag)
+
+        If f.Count > 0 Then
+            'Zwischenablage
+            Clipboard.Clear()
+            Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
+            Clipboard.SetDataObject(d, True)
+        End If
+    End Sub
+
+    Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click
+        btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False
+        btnCBAM_DS_DHF_VERAG_Copy.Enabled = False
+        btnCBAM_DS_DHF_VERAG_Deteil.Tag = ""
+
+        Try
+            Dim EORI = txtEori.Text
+            If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
+            If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
+            If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim SQLSTR = "
+               select  CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis
+				                 , Orig Ursprungsland
+
+				                 , isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender 
+				                 , isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender
+				                 , isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger
+				                 , isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger
+				                   from  				 zsAnmRefs 
+				                 inner join zsAnmGdsitem  on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
+				                 inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
+				                 inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
+				                 inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
+					 	                where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
+					                  and 
+                  (
+                  left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
+                  OR   left(ComCd,4)  between 7301 and 7311
+                  OR   left(ComCd,4)  between 7205 and 7229
+                  OR   left(ComCd,4)  between 7603 and 7614
+                  OR   ComCd like '25070080%'
+                  OR   ComCd like '283421%'
+                  OR   ComCd like '260112%'
+                  OR   ComCd like '720211%'
+                  OR   ComCd like '720219%'
+                  OR   ComCd like '720241%'
+                  OR   ComCd like '720249%'
+                  OR   ComCd like '720260%'
+                  OR   ComCd like '280410%'  
+                  ) 
+                  and ComCd not like '310560%' 
+                 and crn is not null
+                  and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "' 
+                    order by  (SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID ))
+            "
+
+            Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
+                btnCBAM_DS_DHF_VERAG_Deteil.Tag = path
+                btnCBAM_DS_DHF_VERAG_Deteil.Enabled = True
+                btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
+                Me.Cursor = Cursors.Default
+
+            End If
+
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+
+
+        '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+
+        btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
+        btnCBAM_DS_DHF_VERAG_Summe.Tag = ""
+
+        Try
+            Dim EORI = txtEori.Text
+            If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
+            If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
+            If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim SQLSTR = "
+                 select   left(zsAnmGdsitem.ComCd,8) Tarifnummer, sum(Net)Eigenmasse, sum(ItVal)Rechnungspreis,Orig
+  		                       from  				 zsAnmRefs 
+				                     inner join zsAnmGdsitem  on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
+				                     inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
+				                     inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
+				                     inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
+					 	                    where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
+					                      and 
+                      (
+                      left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
+                      OR   left(ComCd,4)  between 7301 and 7311
+                      OR   left(ComCd,4)  between 7205 and 7229
+                      OR   left(ComCd,4)  between 7603 and 7614
+                      OR   ComCd like '25070080%'
+                      OR   ComCd like '283421%'
+                      OR   ComCd like '260112%'
+                      OR   ComCd like '720211%'
+                      OR   ComCd like '720219%'
+                      OR   ComCd like '720241%'
+                      OR   ComCd like '720249%'
+                      OR   ComCd like '720260%'
+                      OR   ComCd like '280410%'  
+                      ) 
+                      and ComCd not like '310560%' 
+                     and crn is not null
+                      and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "' 
+                       GROUP BY Orig,left(zsAnmGdsitem.ComCd,8)
+            "
+
+            Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
+                btnCBAM_DS_DHF_VERAG_Summe.Tag = path
+                btnCBAM_DS_DHF_VERAG_Summe.Enabled = True
+                btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
+
+                Me.Cursor = Cursors.Default
+
+            End If
+
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+
+    End Sub
+End Class

SDL/zoll/usrCntlAuswertungenCBAM_DE.Designer.vb

@@ -0,0 +1,266 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlAuswertungenCBAM_DE
+    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.Label8 = New System.Windows.Forms.Label()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.kdKunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.lblCnt2 = New System.Windows.Forms.Label()
+        Me.txtJahr = New System.Windows.Forms.NumericUpDown()
+        Me.cboMonat = New System.Windows.Forms.ComboBox()
+        Me.Label77 = New System.Windows.Forms.Label()
+        Me.datAuswertBis = New System.Windows.Forms.DateTimePicker()
+        Me.Label78 = New System.Windows.Forms.Label()
+        Me.Label79 = New System.Windows.Forms.Label()
+        Me.Label80 = New System.Windows.Forms.Label()
+        Me.datAuswertVon = New System.Windows.Forms.DateTimePicker()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.lblErr = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.lblCnt = New System.Windows.Forms.Label()
+        Me.GroupBox2.SuspendLayout()
+        CType(Me.txtJahr, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label8.Location = New System.Drawing.Point(3, 0)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(118, 17)
+        Me.Label8.TabIndex = 16
+        Me.Label8.Text = "CBAM DAKOSY"
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.Label1)
+        Me.GroupBox2.Controls.Add(Me.kdKunde)
+        Me.GroupBox2.Controls.Add(Me.lblCnt2)
+        Me.GroupBox2.Controls.Add(Me.txtJahr)
+        Me.GroupBox2.Controls.Add(Me.cboMonat)
+        Me.GroupBox2.Controls.Add(Me.Label77)
+        Me.GroupBox2.Controls.Add(Me.datAuswertBis)
+        Me.GroupBox2.Controls.Add(Me.Label78)
+        Me.GroupBox2.Controls.Add(Me.Label79)
+        Me.GroupBox2.Controls.Add(Me.Label80)
+        Me.GroupBox2.Controls.Add(Me.datAuswertVon)
+        Me.GroupBox2.Controls.Add(Me.Button3)
+        Me.GroupBox2.Controls.Add(Me.lblErr)
+        Me.GroupBox2.Controls.Add(Me.Label14)
+        Me.GroupBox2.Controls.Add(Me.lblCnt)
+        Me.GroupBox2.Location = New System.Drawing.Point(2, 11)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(697, 86)
+        Me.GroupBox2.TabIndex = 15
+        Me.GroupBox2.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(145, 63)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(41, 13)
+        Me.Label1.TabIndex = 45
+        Me.Label1.Text = "Kunde:"
+        '
+        'kdKunde
+        '
+        Me.kdKunde._AlleFirmenCLUSTER = True
+        Me.kdKunde._AllowSetValue = True
+        Me.kdKunde._autoSizeGross = False
+        Me.kdKunde._display_Name1 = False
+        Me.kdKunde._displayAVISO_Email = False
+        Me.kdKunde._displayFullName = False
+        Me.kdKunde._displayWoelflKd = False
+        Me.kdKunde._hideIfListEmpty = True
+        Me.kdKunde._loadKdData = False
+        Me.kdKunde._searchName1 = True
+        Me.kdKunde._UseFIRMA = ""
+        Me.kdKunde._ValueKdAndName = True
+        Me.kdKunde.dgvpos = "LEFT"
+        Me.kdKunde.KdName = ""
+        Me.kdKunde.KdNr = "-1"
+        Me.kdKunde.kdNrField = Nothing
+        Me.kdKunde.KdNrNullInt = Nothing
+        Me.kdKunde.Location = New System.Drawing.Point(186, 60)
+        Me.kdKunde.Name = "kdKunde"
+        Me.kdKunde.nurAktive = True
+        Me.kdKunde.searchActive = True
+        Me.kdKunde.Size = New System.Drawing.Size(177, 20)
+        Me.kdKunde.TabIndex = 44
+        Me.kdKunde.TIMER_SEARCH = True
+        Me.kdKunde.usrcntl = Nothing
+        '
+        'lblCnt2
+        '
+        Me.lblCnt2.Location = New System.Drawing.Point(52, 69)
+        Me.lblCnt2.Name = "lblCnt2"
+        Me.lblCnt2.Size = New System.Drawing.Size(78, 13)
+        Me.lblCnt2.TabIndex = 43
+        Me.lblCnt2.Text = "99/99"
+        Me.lblCnt2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtJahr
+        '
+        Me.txtJahr.Location = New System.Drawing.Point(315, 37)
+        Me.txtJahr.Maximum = New Decimal(New Integer() {2050, 0, 0, 0})
+        Me.txtJahr.Minimum = New Decimal(New Integer() {1999, 0, 0, 0})
+        Me.txtJahr.Name = "txtJahr"
+        Me.txtJahr.Size = New System.Drawing.Size(48, 20)
+        Me.txtJahr.TabIndex = 40
+        Me.txtJahr.Value = New Decimal(New Integer() {2016, 0, 0, 0})
+        '
+        'cboMonat
+        '
+        Me.cboMonat.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboMonat.FormattingEnabled = True
+        Me.cboMonat.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"})
+        Me.cboMonat.Location = New System.Drawing.Point(186, 36)
+        Me.cboMonat.Name = "cboMonat"
+        Me.cboMonat.Size = New System.Drawing.Size(87, 21)
+        Me.cboMonat.TabIndex = 41
+        '
+        'Label77
+        '
+        Me.Label77.AutoSize = True
+        Me.Label77.Location = New System.Drawing.Point(569, 40)
+        Me.Label77.Name = "Label77"
+        Me.Label77.Size = New System.Drawing.Size(23, 13)
+        Me.Label77.TabIndex = 39
+        Me.Label77.Text = "bis:"
+        '
+        'datAuswertBis
+        '
+        Me.datAuswertBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.datAuswertBis.Location = New System.Drawing.Point(598, 37)
+        Me.datAuswertBis.Name = "datAuswertBis"
+        Me.datAuswertBis.Size = New System.Drawing.Size(93, 20)
+        Me.datAuswertBis.TabIndex = 38
+        '
+        'Label78
+        '
+        Me.Label78.AutoSize = True
+        Me.Label78.Location = New System.Drawing.Point(279, 40)
+        Me.Label78.Name = "Label78"
+        Me.Label78.Size = New System.Drawing.Size(30, 13)
+        Me.Label78.TabIndex = 35
+        Me.Label78.Text = "Jahr:"
+        '
+        'Label79
+        '
+        Me.Label79.AutoSize = True
+        Me.Label79.Location = New System.Drawing.Point(145, 40)
+        Me.Label79.Name = "Label79"
+        Me.Label79.Size = New System.Drawing.Size(41, 13)
+        Me.Label79.TabIndex = 36
+        Me.Label79.Text = "Quartal"
+        '
+        'Label80
+        '
+        Me.Label80.AutoSize = True
+        Me.Label80.Location = New System.Drawing.Point(436, 40)
+        Me.Label80.Name = "Label80"
+        Me.Label80.Size = New System.Drawing.Size(28, 13)
+        Me.Label80.TabIndex = 37
+        Me.Label80.Text = "von:"
+        '
+        'datAuswertVon
+        '
+        Me.datAuswertVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.datAuswertVon.Location = New System.Drawing.Point(470, 37)
+        Me.datAuswertVon.Name = "datAuswertVon"
+        Me.datAuswertVon.Size = New System.Drawing.Size(93, 20)
+        Me.datAuswertVon.TabIndex = 34
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button3.Location = New System.Drawing.Point(9, 16)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(121, 37)
+        Me.Button3.TabIndex = 33
+        Me.Button3.Text = "CBAM Kunden"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'lblErr
+        '
+        Me.lblErr.AutoSize = True
+        Me.lblErr.ForeColor = System.Drawing.Color.Red
+        Me.lblErr.Location = New System.Drawing.Point(6, 56)
+        Me.lblErr.Name = "lblErr"
+        Me.lblErr.Size = New System.Drawing.Size(69, 13)
+        Me.lblErr.TabIndex = 13
+        Me.lblErr.Text = "Keine Daten!"
+        Me.lblErr.Visible = False
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(145, 16)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(222, 13)
+        Me.Label14.TabIndex = 5
+        Me.Label14.Text = "Erstellt Excel Dateien für dei EV Veranlagung."
+        '
+        'lblCnt
+        '
+        Me.lblCnt.Location = New System.Drawing.Point(52, 56)
+        Me.lblCnt.Name = "lblCnt"
+        Me.lblCnt.Size = New System.Drawing.Size(78, 13)
+        Me.lblCnt.TabIndex = 42
+        Me.lblCnt.Text = "99/99"
+        Me.lblCnt.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'usrCntlAuswertungenCBAM_DE
+        '
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        CType(Me.txtJahr, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+    Friend WithEvents lblErr As System.Windows.Forms.Label
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents txtJahr As NumericUpDown
+    Friend WithEvents cboMonat As ComboBox
+    Friend WithEvents Label77 As Label
+    Friend WithEvents datAuswertBis As DateTimePicker
+    Friend WithEvents Label78 As Label
+    Friend WithEvents Label79 As Label
+    Friend WithEvents Label80 As Label
+    Friend WithEvents datAuswertVon As DateTimePicker
+    Friend WithEvents lblCnt As Label
+    Friend WithEvents lblCnt2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents kdKunde As VERAG_PROG_ALLGEMEIN.KdSearchBox
+End Class

SDL/zoll/usrCntlAuswertungenCBAM_DE.resx

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

SDL/zoll/usrCntlAuswertungenCBAM_DE.vb

@@ -0,0 +1,241 @@
+Imports System.IO
+
+Public Class usrCntlAuswertungenCBAM_DE
+
+
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Private Property rst As Object
+
+    Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs)
+        kdKunde.initKdBox(Me.FindForm)
+        'datVon.Value = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
+        'datBis.Value = datVon.Value.AddMonths(1).AddDays(-1)
+
+        txtJahr.Value = Now.Year
+        cboMonat.SelectedIndex = Now.AddMonths(-1).Month
+
+        'datVon_NCTSTR.Value = Now
+        'datBis_NCTSTR.Value = Now.AddDays(3)
+        lblErr.Visible = False
+        lblCnt.Text = ""
+        lblCnt2.Text = ""
+    End Sub
+
+
+
+
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs)
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            lblCnt.Text = ""
+            lblCnt2.Text = ""
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT [kde_KundenNr], [Name 1] Name  FROM [tblKundenErweitert] INNER JOIN ADRESSEN on adressennr = kde_KundenNr WHERE " & If(kdKunde.KdNr_value > 0, " kde_KundenNr='" & kdKunde.KdNr_value & "' AND ", "") & " [Veranlagungskunde]=1 and Auswahl='A' ", "FMZOLL")
+            If dt Is Nothing Then lblErr.Visible = True : Exit Sub
+            Dim folderpath = ""
+            Dim FolderBrowserDialog1 As New FolderBrowserDialog
+            If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
+                folderpath = FolderBrowserDialog1.SelectedPath
+                If vbYes = MsgBox("Es werden '" & dt.Rows.Count & "' Kunden ausgewertet. Möchten Sie fortfahren?", vbYesNoCancel) Then
+                    Dim cnt = 1
+                    For Each r In dt.Rows
+                        lblCnt.Text = cnt & "/ " & dt.Rows.Count
+                        Me.Refresh()
+                        genExcelKd(r("kde_KundenNr"), folderpath, r("Name"))
+                        cnt += 1
+                    Next
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Sub genExcelKd(KdNr, sPath, Optional EmpfName = "")
+
+        Dim dt As DataTable = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],Empfänger FROM [Speditionsbuch]  where (EmpfängerKundenNr='" & KdNr & "' OR VermittlerKundenNr='" & KdNr & "')  and cast(Abfertigungsdatum as date) between '" & datAuswertVon.Value & "' and '" & datAuswertBis.Value & "' and Abfertigungsart=38 ORDER BY Abfertigungsdatum ", "FMZOLL")
+        lblCnt2.Text = ""
+
+        'EXCEL
+        Try
+
+            'Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" ' My.Computer.FileSystem.GetTempFileName
+            'If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
+            '    My.Computer.FileSystem.CreateDirectory(sPath)
+            'End If
+
+            Dim Path = ""
+            Dim exclApp As Object 'as Application
+            Dim Datei As Object 'as WorkBook
+            Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
+            exclApp = CreateObject("Excel.Application")
+
+            Dim nodata = False
+            If dt Is Nothing Or dt.Rows.Count = 0 Then nodata = True
+
+
+            Try
+                Path = sPath & "\" & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(EmpfName) & ".xlsx"
+                While System.IO.File.Exists(Path)
+                    Path = sPath & "\" & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(EmpfName) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                End While
+                My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.FA_Graz_EV_Veranlagung_Muster, False)
+                'Path = sPath & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & ".xlsx"
+                'While System.IO.File.Exists(Path)
+                '    Path = sPath & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                'End While
+                'My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.FA_Graz_EV_Veranlagung_Muster, False)
+
+
+            Catch ex As System.Exception
+                '  MsgBox(ex.Message)
+                MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                Exit Sub
+            End Try
+
+
+            With exclApp
+                .Visible = False
+                Datei = .Workbooks.Open(Path)
+                Blatt = Datei.Worksheets(1)
+
+                Blatt.Range("A2").Value = EmpfName & "  /   Finanzamt Graz   " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString
+                'Blatt.Range("A2").Value = dt.Rows(0)("Empfänger") & "  /   Finanzamt Graz   " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString
+
+
+
+                If Not nodata Then
+                    Dim cnt = 8
+                    Dim cnt_zeile = 1
+                    For Each r In dt.Rows
+                        lblCnt2.Text = cnt_zeile & "/" & dt.Rows.Count
+                        Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("UnterNr"))
+                        If SPEDBUCH.hasEntry Then
+                            'LRN
+                            Dim BezugsNr = If(SPEDBUCH.AtlasBezNrEZA, "")
+                            If BezugsNr = "" Then BezugsNr = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr
+
+                            'Handelsrechnungen
+                            Dim handelsrechnungen = "" : Dim semi = ""
+
+
+                            'EUST
+                            Dim EUST_Basis As Double = 0
+                            Dim EUST_5EV As Double = 0
+
+                            Select Case r("FilialenNr")
+                                Case "5501"
+                                    'EUST
+                                    Dim dtEUST = SQL.loadDgvBySql("  select sum(base) Base,sum(Amnt)Amnt FROM tblTelotec_Anmeldung as TC inner join tblTelotec_PositionsdatenAbgaben as AGB on AGB.telposAbg_telanmId=TC.telanm_id  
+                                        where  Ty IN ('5EV') and  tc.telanm_BezugsNr LIKE '" & BezugsNr & "' AND telanm_Status between 50 and 60", "FMZOLL")
+                                    If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then
+                                        If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base")
+                                        If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt")
+                                    End If
+
+                                    'Handelsrechnungen
+                                    For Each rg In SQL.DLookupArray("distinct([DocCerts_DRef]) ", "[tblTelotec_PositionsdatenDokumente] As DOC inner join tblTelotec_Anmeldung As ANM ON telanm_id=[telposAbg_telanmId]", " (ANM.Refs_LRN = '" & BezugsNr & "') and [DocCerts_DocCd] IN ('N380','N325')", "FMZOLL", "DocCerts_DRef")
+                                        handelsrechnungen &= semi & rg : semi = ","
+                                    Next
+
+                                Case Else
+                                    'EUST
+                                    Dim dtEUST = SQL.loadDgvBySql("select sum(base) Base,sum(Amnt)Amnt FROM ztIMsgGdsItemDutyCalc as GDS inner join zzAktivitaet as AKT on GDS.OperatorID=AKT.OperatorID AND GDS.LizenzNr=AKT.LizenzNr AND GDS.IMsgID=AKT.IMsgID
+                                        inner join zsAnmRefs as ANM on ANM.LizenzNr=AKT.LizenzNr And  ANM.OperatorID=AKT.OperatorID And  ANM.AnmID=AKT.AnmID  
+                                        where  Ty IN ('5EV') and  LRN LIKE '" & BezugsNr & "' AND ErledigungsTypID LIKE 'F%'", "EZOLL")
+                                    If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then
+                                        If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base")
+                                        If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt")
+                                    End If
+
+                                    'Handelsrechnungen
+                                    For Each rg In SQL.DLookupArray("distinct(DRef)", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And  ANM.OperatorID=DOC.OperatorID And  ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", "EZOLL", "DRef")
+                                        handelsrechnungen &= semi & rg : semi = ","
+                                    Next
+                            End Select
+
+
+                            If SPEDBUCH.ENDEMPFAENGER.Count > 0 Then
+                                Dim cnt2 = 0
+                                For Each EEMPF In SPEDBUCH.ENDEMPFAENGER
+
+                                    Blatt.Range("A" & cnt).EntireRow.Copy()
+                                    Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown)
+
+                                    Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr
+                                    Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum
+                                    Blatt.Range("C" & cnt).Value = handelsrechnungen
+
+                                    If cnt2 = 0 Then 'Nur oberste Zeile je Abfertigung
+                                        Blatt.Range("D" & cnt).Value = EUST_Basis
+                                        Blatt.Range("E" & cnt).Value = EUST_5EV
+                                        'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00")
+                                        'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00")
+                                        'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €"
+                                        'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €"
+                                    Else
+                                        Blatt.Range("D" & cnt).Value = "-"
+                                        Blatt.Range("E" & cnt).Value = "-"
+                                    End If
+
+                                    Blatt.Range("F" & cnt).Value = EEMPF.EndEmpfaenger
+                                    Blatt.Range("G" & cnt).Value = If(EEMPF.UstIdKz, "") & If(EEMPF.UstIdNr, "")
+                                    If EEMPF.Rechnungsbetrag IsNot Nothing AndAlso IsNumeric(EEMPF.Rechnungsbetrag) Then
+                                        Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag)
+                                        'Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag).ToString("0.00")
+                                        'Blatt.Range("H" & cnt).Style.NumberFormat = "###,###,##0.00 €"
+                                    End If
+
+                                    cnt += 1
+                                    cnt2 += 1
+                                    '+Zeile
+                                Next
+                            Else
+                                Blatt.Range("A" & cnt).EntireRow.Copy()
+                                Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown)
+
+                                Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr
+                                Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum
+
+                                Blatt.Range("C" & cnt).Value = handelsrechnungen
+                                Blatt.Range("D" & cnt).Value = EUST_Basis
+                                Blatt.Range("E" & cnt).Value = EUST_5EV
+                                'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00")
+                                'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00")
+                                'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €"
+                                'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €"
+
+                                cnt += 1
+                                '+Zeile
+                            End If
+
+
+
+                        End If
+                        cnt_zeile += 1
+                    Next
+                End If
+
+                Datei.Save
+                Datei.Close
+                '  .Visible = True 'TEST
+            End With
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+    End Sub
+    Private Function AdjustPath(Input As String) As String
+        Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|]", String.Empty)
+    End Function
+    Private Sub Nctstr_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If cboMonat.SelectedIndex <= 0 Then Exit Sub
+        Dim d As Date = CDate("01." & (cboMonat.SelectedIndex) & "." & txtJahr.Text)
+        datAuswertVon.Value = d
+        datAuswertBis.Value = d.AddMonths(1).AddDays(-1)
+    End Sub
+End Class

SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb

@@ -64,7 +64,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label19 = New System.Windows.Forms.Label()
         Me.cboEZOLLMandant = New System.Windows.Forms.ComboBox()
         Me.Label29 = New System.Windows.Forms.Label()
-        Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboEZOLLStatus = New System.Windows.Forms.ComboBox()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.datEZOLLBis = New System.Windows.Forms.DateTimePicker()
@@ -93,7 +92,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label30 = New System.Windows.Forms.Label()
         Me.GroupBox5 = New System.Windows.Forms.GroupBox()
         Me.Label95 = New System.Windows.Forms.Label()
-        Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxSplittungNachPos = New System.Windows.Forms.CheckBox()
         Me.cbxAnrechnungRefBetrag = New System.Windows.Forms.CheckBox()
         Me.Button8 = New System.Windows.Forms.Button()
@@ -114,7 +112,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.tbcntr = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.Label98 = New System.Windows.Forms.Label()
-        Me.cboNCTSSystemDY = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.pic = New System.Windows.Forms.PictureBox()
         Me.Label88 = New System.Windows.Forms.Label()
@@ -147,7 +144,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label76 = New System.Windows.Forms.Label()
         Me.GroupBox11 = New System.Windows.Forms.GroupBox()
         Me.Label94 = New System.Windows.Forms.Label()
-        Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button22 = New System.Windows.Forms.Button()
         Me.Button19 = New System.Windows.Forms.Button()
         Me.Button18 = New System.Windows.Forms.Button()
@@ -190,7 +186,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label56 = New System.Windows.Forms.Label()
         Me.Button12 = New System.Windows.Forms.Button()
         Me.Label53 = New System.Windows.Forms.Label()
-        Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label55 = New System.Windows.Forms.Label()
         Me.datEZOLL_TC_Bis = New System.Windows.Forms.DateTimePicker()
         Me.Label57 = New System.Windows.Forms.Label()
@@ -251,6 +246,12 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Button14 = New System.Windows.Forms.Button()
         Me.PictureBox8 = New System.Windows.Forms.PictureBox()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.cboNCTSSystemDY = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
         Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
@@ -258,7 +259,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
         Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
         Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
-        Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -760,20 +760,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label29.TabIndex = 19
         Me.Label29.Text = "Mandant:"
         '
-        'cboEZOLLBrg
-        '
-        Me.cboEZOLLBrg._allowedValuesFreiText = Nothing
-        Me.cboEZOLLBrg._allowFreiText = False
-        Me.cboEZOLLBrg._value = ""
-        Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboEZOLLBrg.DropDownWidth = 350
-        Me.cboEZOLLBrg.FormattingEnabled = True
-        Me.cboEZOLLBrg.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
-        Me.cboEZOLLBrg.Location = New System.Drawing.Point(223, 69)
-        Me.cboEZOLLBrg.Name = "cboEZOLLBrg"
-        Me.cboEZOLLBrg.Size = New System.Drawing.Size(201, 21)
-        Me.cboEZOLLBrg.TabIndex = 12
-        '
         'cboEZOLLStatus
         '
         Me.cboEZOLLStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
@@ -1073,19 +1059,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label95.TabIndex = 23
         Me.Label95.Text = "NCTS-SYSTEM:"
         '
-        'cboDY_NCTS
-        '
-        Me.cboDY_NCTS._allowedValuesFreiText = Nothing
-        Me.cboDY_NCTS._allowFreiText = False
-        Me.cboDY_NCTS._value = ""
-        Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboDY_NCTS.DropDownWidth = 350
-        Me.cboDY_NCTS.FormattingEnabled = True
-        Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117)
-        Me.cboDY_NCTS.Name = "cboDY_NCTS"
-        Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21)
-        Me.cboDY_NCTS.TabIndex = 22
-        '
         'cbxSplittungNachPos
         '
         Me.cbxSplittungNachPos.AutoSize = True
@@ -1261,7 +1234,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.tbcntr.Location = New System.Drawing.Point(0, 57)
         Me.tbcntr.Name = "tbcntr"
         Me.tbcntr.SelectedIndex = 0
-        Me.tbcntr.Size = New System.Drawing.Size(689, 1829)
+        Me.tbcntr.Size = New System.Drawing.Size(701, 1829)
         Me.tbcntr.TabIndex = 22
         '
         'TabPage1
@@ -1304,7 +1277,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(681, 1803)
+        Me.TabPage1.Size = New System.Drawing.Size(693, 1803)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Bürgschaften"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -1318,19 +1291,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label98.TabIndex = 39
         Me.Label98.Text = "NCTS-SYSTEM (DAKOSY):"
         '
-        'cboNCTSSystemDY
-        '
-        Me.cboNCTSSystemDY._allowedValuesFreiText = Nothing
-        Me.cboNCTSSystemDY._allowFreiText = False
-        Me.cboNCTSSystemDY._value = ""
-        Me.cboNCTSSystemDY.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboNCTSSystemDY.DropDownWidth = 350
-        Me.cboNCTSSystemDY.FormattingEnabled = True
-        Me.cboNCTSSystemDY.Location = New System.Drawing.Point(448, 706)
-        Me.cboNCTSSystemDY.Name = "cboNCTSSystemDY"
-        Me.cboNCTSSystemDY.Size = New System.Drawing.Size(252, 21)
-        Me.cboNCTSSystemDY.TabIndex = 38
-        '
         'Panel1
         '
         Me.Panel1.Controls.Add(Me.Label3)
@@ -1671,19 +1631,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label94.TabIndex = 18
         Me.Label94.Text = "Bürgschaft (keine Auswahl = alle):"
         '
-        'cboBRG_Verimex
-        '
-        Me.cboBRG_Verimex._allowedValuesFreiText = Nothing
-        Me.cboBRG_Verimex._allowFreiText = False
-        Me.cboBRG_Verimex._value = ""
-        Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboBRG_Verimex.DropDownWidth = 350
-        Me.cboBRG_Verimex.FormattingEnabled = True
-        Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120)
-        Me.cboBRG_Verimex.Name = "cboBRG_Verimex"
-        Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21)
-        Me.cboBRG_Verimex.TabIndex = 17
-        '
         'Button22
         '
         Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -2117,20 +2064,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label53.TabIndex = 13
         Me.Label53.Text = "Bürgschaft (keine Auswahl = alle):"
         '
-        'cboBrgEZollTC
-        '
-        Me.cboBrgEZollTC._allowedValuesFreiText = Nothing
-        Me.cboBrgEZollTC._allowFreiText = False
-        Me.cboBrgEZollTC._value = ""
-        Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboBrgEZollTC.DropDownWidth = 350
-        Me.cboBrgEZollTC.FormattingEnabled = True
-        Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
-        Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68)
-        Me.cboBrgEZollTC.Name = "cboBrgEZollTC"
-        Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21)
-        Me.cboBrgEZollTC.TabIndex = 12
-        '
         'Label55
         '
         Me.Label55.AutoSize = True
@@ -2501,7 +2434,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(698, 1803)
+        Me.TabPage2.Size = New System.Drawing.Size(710, 1803)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Kunden"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -2514,7 +2447,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(698, 1803)
+        Me.TabPage3.Size = New System.Drawing.Size(710, 1803)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
         Me.TabPage3.UseVisualStyleBackColor = True
@@ -2525,7 +2458,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
         Me.TabPage4.Location = New System.Drawing.Point(4, 22)
         Me.TabPage4.Name = "TabPage4"
-        Me.TabPage4.Size = New System.Drawing.Size(698, 1803)
+        Me.TabPage4.Size = New System.Drawing.Size(710, 1803)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Aufschubdaten"
         Me.TabPage4.UseVisualStyleBackColor = True
@@ -2538,7 +2471,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage5.Location = New System.Drawing.Point(4, 22)
         Me.TabPage5.Name = "TabPage5"
         Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage5.Size = New System.Drawing.Size(698, 1803)
+        Me.TabPage5.Size = New System.Drawing.Size(710, 1803)
         Me.TabPage5.TabIndex = 4
         Me.TabPage5.Text = "UNISPED"
         Me.TabPage5.UseVisualStyleBackColor = True
@@ -2746,9 +2679,89 @@ Partial Class usrCntlZOLLAuswertungen
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(689, 57)
+        Me.pnl.Size = New System.Drawing.Size(701, 57)
         Me.pnl.TabIndex = 23
         '
+        'cboNCTSSystemDY
+        '
+        Me.cboNCTSSystemDY._allowedValuesFreiText = Nothing
+        Me.cboNCTSSystemDY._allowFreiText = False
+        Me.cboNCTSSystemDY._value = ""
+        Me.cboNCTSSystemDY.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboNCTSSystemDY.DropDownWidth = 350
+        Me.cboNCTSSystemDY.FormattingEnabled = True
+        Me.cboNCTSSystemDY.Location = New System.Drawing.Point(448, 706)
+        Me.cboNCTSSystemDY.Name = "cboNCTSSystemDY"
+        Me.cboNCTSSystemDY.Size = New System.Drawing.Size(252, 21)
+        Me.cboNCTSSystemDY.TabIndex = 38
+        '
+        'cboBRG_Verimex
+        '
+        Me.cboBRG_Verimex._allowedValuesFreiText = Nothing
+        Me.cboBRG_Verimex._allowFreiText = False
+        Me.cboBRG_Verimex._value = ""
+        Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboBRG_Verimex.DropDownWidth = 350
+        Me.cboBRG_Verimex.FormattingEnabled = True
+        Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120)
+        Me.cboBRG_Verimex.Name = "cboBRG_Verimex"
+        Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21)
+        Me.cboBRG_Verimex.TabIndex = 17
+        '
+        'cboBrgEZollTC
+        '
+        Me.cboBrgEZollTC._allowedValuesFreiText = Nothing
+        Me.cboBrgEZollTC._allowFreiText = False
+        Me.cboBrgEZollTC._value = ""
+        Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboBrgEZollTC.DropDownWidth = 350
+        Me.cboBrgEZollTC.FormattingEnabled = True
+        Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
+        Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68)
+        Me.cboBrgEZollTC.Name = "cboBrgEZollTC"
+        Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21)
+        Me.cboBrgEZollTC.TabIndex = 12
+        '
+        'cboDYDatumArt
+        '
+        Me.cboDYDatumArt._allowedValuesFreiText = Nothing
+        Me.cboDYDatumArt._allowFreiText = False
+        Me.cboDYDatumArt._value = ""
+        Me.cboDYDatumArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboDYDatumArt.DropDownWidth = 350
+        Me.cboDYDatumArt.FormattingEnabled = True
+        Me.cboDYDatumArt.Location = New System.Drawing.Point(439, 9)
+        Me.cboDYDatumArt.Name = "cboDYDatumArt"
+        Me.cboDYDatumArt.Size = New System.Drawing.Size(234, 21)
+        Me.cboDYDatumArt.TabIndex = 39
+        '
+        'cboDY_NCTS
+        '
+        Me.cboDY_NCTS._allowedValuesFreiText = Nothing
+        Me.cboDY_NCTS._allowFreiText = False
+        Me.cboDY_NCTS._value = ""
+        Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboDY_NCTS.DropDownWidth = 350
+        Me.cboDY_NCTS.FormattingEnabled = True
+        Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117)
+        Me.cboDY_NCTS.Name = "cboDY_NCTS"
+        Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21)
+        Me.cboDY_NCTS.TabIndex = 22
+        '
+        'cboEZOLLBrg
+        '
+        Me.cboEZOLLBrg._allowedValuesFreiText = Nothing
+        Me.cboEZOLLBrg._allowFreiText = False
+        Me.cboEZOLLBrg._value = ""
+        Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboEZOLLBrg.DropDownWidth = 350
+        Me.cboEZOLLBrg.FormattingEnabled = True
+        Me.cboEZOLLBrg.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
+        Me.cboEZOLLBrg.Location = New System.Drawing.Point(223, 69)
+        Me.cboEZOLLBrg.Name = "cboEZOLLBrg"
+        Me.cboEZOLLBrg.Size = New System.Drawing.Size(201, 21)
+        Me.cboEZOLLBrg.TabIndex = 12
+        '
         'UsrCntlAuswertungenUIDPruefung1
         '
         Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
@@ -2764,7 +2777,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(29, 235)
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
         '
         'UsrCntlAuswertungenEV_Veranlagungen1
@@ -2807,19 +2820,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
         Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
         '
-        'cboDYDatumArt
-        '
-        Me.cboDYDatumArt._allowedValuesFreiText = Nothing
-        Me.cboDYDatumArt._allowFreiText = False
-        Me.cboDYDatumArt._value = ""
-        Me.cboDYDatumArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboDYDatumArt.DropDownWidth = 350
-        Me.cboDYDatumArt.FormattingEnabled = True
-        Me.cboDYDatumArt.Location = New System.Drawing.Point(439, 9)
-        Me.cboDYDatumArt.Name = "cboDYDatumArt"
-        Me.cboDYDatumArt.Size = New System.Drawing.Size(234, 21)
-        Me.cboDYDatumArt.TabIndex = 39
-        '
         'usrCntlZOLLAuswertungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2829,7 +2829,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Controls.Add(Me.tbcntr)
         Me.Controls.Add(Me.pnl)
         Me.Name = "usrCntlZOLLAuswertungen"
-        Me.Size = New System.Drawing.Size(689, 1174)
+        Me.Size = New System.Drawing.Size(701, 1174)
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)

SDL/zoll/usrCntlZOLLAuswertungen.vb

@@ -664,7 +664,7 @@ Public Class usrCntlZOLLAuswertungen
 
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
         Dim frmPrintLayout As New frmPrintLayout()
-        frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "DURMAZ", cboNCTSSystemDY._value)
+        frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ", cboNCTSSystemDY._value)
         frmPrintLayout.Show()
     End Sub
 
@@ -873,7 +873,7 @@ Public Class usrCntlZOLLAuswertungen
 
     Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
         If cbxSplittungNachPos_NCTSTR.Checked Then
-            Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_ncts_tr_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL")
+            Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_NCTS_TR_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL")
             If dt IsNot Nothing Then
                 cProgramFunctions.genExcelFromDT_NEW(clearDTPosSiBetrag(dt))
             End If

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb

@@ -265,7 +265,7 @@ Public Class MySearchBox
                 If srch <> "" And SQL_WhereParamList.Count > 0 Then 'erster Suchparameter
                     SQLstr &= " AND ( 1<>1 "
                     For Each s In SQL_WhereParamList
-                        SQLstr &= " OR " & s & " LIKE '" & srch & "%' "
+                        SQLstr &= " OR " & s & " LIKE '" & srch.Replace("*", "%") & "%' "
                     Next
                     SQLstr &= " ) "
                 End If
@@ -273,7 +273,7 @@ Public Class MySearchBox
                 If srch2 <> "" And SQL_WhereParamList.Count > 0 Then 'Wenn zweiter Suchparameter
                     SQLstr &= " AND ( 1<>1 "
                     For Each s In SQL_WhereParamList
-                        SQLstr &= " OR " & s & " LIKE '" & srch2 & "%' "
+                        SQLstr &= " OR " & s & " LIKE '" & srch2.Replace("*", "%") & "%' "
                     Next
                     SQLstr &= " ) "
                 End If

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -787,7 +787,7 @@ Public Class SQL
         Return defaultReturn
 
     End Function
-    Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing) As Boolean
+    Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional timeout As Integer = 0) As Boolean
 
         If conn Is Nothing Then
             conn = New SqlConnection
@@ -812,9 +812,11 @@ Public Class SQL
                     conn.Open()
             End Select
         End If
+
         Try
             '  MsgBox(sql)
             Using cmd As New SqlCommand(sql, conn)
+                If timeout > 0 Then cmd.CommandTimeout = timeout
                 If list IsNot Nothing Then
                     For Each i In list
                         'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))

VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb

@@ -0,0 +1,128 @@
+
+Imports System.Data.SqlClient
+    Imports System.Reflection
+
+Public Class cAvisoStatusMails
+    Property asm_AvisoId As Integer
+    Property asm_KdNr As Integer
+    Property asm_StatuscodeSent As Integer
+    Property asm_datetime As Date = Now
+
+
+
+    Public hasEntry = False
+
+    Dim SQL As New SQL
+
+
+    Sub New(asm_AvisoId, asm_KdNr, asm_StatuscodeSent)
+        Me.asm_AvisoId = asm_AvisoId
+        Me.asm_KdNr = asm_KdNr
+        Me.asm_StatuscodeSent = asm_StatuscodeSent
+        LOAD()
+    End Sub
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_AvisoId", asm_AvisoId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_KdNr", asm_KdNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_StatuscodeSent", asm_StatuscodeSent))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_datetime", asm_datetime))
+
+        Return list
+    End Function
+
+
+
+    Public Shared Function INSERT_INTO(asm_AvisoId, asm_KdNr, asm_StatuscodeSent) As Boolean
+        Dim AST As New cAvisoStatusMails(asm_AvisoId, asm_KdNr, asm_StatuscodeSent)
+        AST.asm_AvisoId = asm_AvisoId
+        AST.asm_KdNr = asm_KdNr
+        AST.asm_StatuscodeSent = asm_StatuscodeSent
+
+        Return AST.SAVE()
+    End Function
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAvisoStatusMails  WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+                Using cmd As New SqlCommand("SELECT * FROM tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent  ", conn)
+                    cmd.Parameters.AddWithValue("@asm_AvisoId", asm_AvisoId)
+                    cmd.Parameters.AddWithValue("@asm_KdNr", asm_KdNr)
+                    cmd.Parameters.AddWithValue("@asm_StatuscodeSent", asm_StatuscodeSent)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblAvisoStatusMails] SET " & str & " WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ")
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblAvisoStatusMails  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -62,7 +62,7 @@ Public Class cKundenErweitert
     Property Veranlagungskunde As Boolean = False
     Property Anmerkungen_Warnhinweis As Object = Nothing
     Property kde_VERAG_INTERFACE_ID As Object = Nothing
-    Property kde_BesonderheitenNeu As Boolean = False
+    Property kde_BesonderheitenNeu As Boolean = True
     Property kde_InfoAuftragsNr As Object = Nothing
     Property kde_KundeFremdspedition As Boolean = False
     Property kde_verzolltBei As Object = Nothing

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -809,6 +809,7 @@ Public Class frmMessenger
     Function checkNewestShit() As Boolean
         Try
 
+
             Dim Dt_New As DataTable = SQL.loadDgvBySql("SELECT [chat_id],CASE WHEN chat_name<>'' THEN chat_name ELSE (SELECT TOP 1 mit_vname + ' ' + mit_nname FROM tblMessenger_ChatMembers INNER JOIN tblMitarbeiter ON mit_id=chatMb_maId where chatMb_chatId=chat_id AND chatMb_maId <>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ") END as chat_name 
                                           ,(SELECT REPLACE(COUNT(*),'0','') FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE [chat_id]=chatMg_chatId AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0)  as ungelesen  
                                             FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0

VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.xsd

@@ -0,0 +1,364 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"
+           xmlns="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
+           targetNamespace="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
+           elementFormDefault="qualified"
+           attributeFormDefault="unqualified"
+           xmlns:jaxb="http://java.sun.com/xml/ns/jaxb"
+           jaxb:version="2.1">
+    <xs:include schemaLocation="stypes.xsd"/>
+    <xs:element name="QReport" type="QReportType" />
+    <xs:complexType name="QReportType">
+        <xs:sequence>
+            <xs:element name="SubmissionDate" type="DateTimeContentType"/>
+            <xs:element name="DraftReportId" type="an..22"/>
+            <xs:element name="ReportId" type="an..22" minOccurs="0"/>
+            <xs:element name="ReportingPeriod" type="an2"/>
+            <xs:element name="Year" type="n4"/>
+            <xs:element name="TotalImported" type="n..5"/>
+            <xs:element name="TotalEmissions" type="dec16-5"/>
+            <xs:element name="Declarant" type="DeclarantType"/>
+            <xs:element name="Representative" type="RepresentativeType" minOccurs="0"/>
+            <xs:element name="Importer" type="ImporterType" minOccurs="0"/>
+            <xs:element name="NationalCompetentAuth" type="NationalCompetentAuthType"/>
+            <xs:element name="Signatures" type="SignaturesType"/>
+            <xs:element name="Remarks" type="RemarksType" minOccurs="0"/>
+            <xs:element name="ImportedGood" type="ImportedGoodType" maxOccurs="99999"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="DeclarantType">
+        <xs:sequence>
+            <xs:element name="IdentificationNumber" type="an..17"/>
+            <xs:element name="Name" type="an..70"/>
+            <xs:element name="Role" type="an..5"/>
+            <xs:element name="ActorAddress" type="AddressType"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ImporterType">
+        <xs:sequence>
+            <xs:element name="IdentificationNumber" type="an..17"/>
+            <xs:element name="Name" type="an..70"/>
+            <xs:element name="ImporterAddress" type="AddressType"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="RepresentativeType">
+        <xs:sequence>
+            <xs:element name="IdentificationNumber" type="an..17"/>
+            <xs:element name="Name" type="an..70"/>
+            <xs:element name="RepresentativeAddress" type="AddressType"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="NationalCompetentAuthType">
+        <xs:sequence>
+            <xs:element name="ReferenceNumber" type="an..128"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="SignaturesType">
+        <xs:sequence>
+            <xs:element name="ReportConfirmation" type="ReportConfirmationType"/>
+            <xs:element name="ApplicableMethdologyConfirmation" type="ApplicableMethodologyConfirmationType" minOccurs="0"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ReportConfirmationType">
+        <xs:sequence>
+            <xs:element name="GlobalDataConfirmation" type="xs:boolean"/>
+            <xs:element name="UseOfDataConfirmation" type="xs:boolean"/>
+            <xs:element name="SignatureDate" type="n8"/>
+            <xs:element name="SignaturePlace" type="an..128"/>
+            <xs:element name="Signature" type="an..128"/>
+            <xs:element name ="PositionOfPersonSending" type="an..128"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ApplicableMethodologyConfirmationType">
+        <xs:sequence>
+            <xs:element name="OtherApplicableReportingMethodology" type="xs:boolean"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="RemarksType">
+        <xs:sequence>
+            <xs:element name="AdditionalInformation" type="an..512"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ImportedGoodType">
+        <xs:sequence>
+            <xs:element name="ItemNumber" type="n..5"/>
+            <xs:element name="Representative" type="RepresentativeType" minOccurs="0"/>
+            <xs:element name="Importer" type="ImporterType" minOccurs="0"/>
+            <xs:element name="CommodityCode" type="CommodityCodeType" minOccurs="0"/>
+            <xs:element name="OriginCountry" type="OriginCountryType"/>
+            <xs:element name="ImportedQuantity" type="ImportedQuantityType" minOccurs="1" maxOccurs="9"/>
+            <xs:element name="MeasureImported" type="MeasureType"/>
+            <xs:element name="TotalEmissions" type="TotalEmissionsType"/>
+            <xs:element name="SupportingDocuments" type="SupportingDocumentsType" minOccurs="0" maxOccurs="99"/>
+            <xs:element name="Remarks" type="RemarksType" minOccurs="0"/>
+            <xs:element name="GoodsEmissions" type="GoodsEmissionsType" minOccurs="1" maxOccurs="999"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="CommodityCodeType">
+        <xs:sequence>
+            <xs:element name="HsCode" type="an6"/>
+            <xs:element name="CnCode" type="an2"/>
+            <xs:element name="CommodityDetails" type="CommodityDetailsType"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="CommodityDetailsType">
+        <xs:sequence>
+            <xs:element name="Description" type="an..512"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="OriginCountryType">
+        <xs:sequence>
+            <xs:element name="Country" type="a2"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ImportedQuantityType">
+        <xs:sequence>
+            <xs:element name="SequenceNumber" type="n..5"/>
+            <xs:element name="Procedure" type="ProcedureType"/>
+            <xs:element name="ImportArea" type="ImportAreaType"/>
+            <xs:element name="MeasureProcedureImported" type="MeasureProcedureType" maxOccurs="2"/>
+            <xs:element name="SpecialReferences" type="SpecialReferencesType" minOccurs="0"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ProcedureType">
+        <xs:sequence>
+            <xs:element name="RequestedProc" type="an2"/>
+            <xs:element name="PreviousProc" type="an2" minOccurs="0"/>
+            <xs:element name="InwardProcessingInfo" type="InwardProcessingInfoType" minOccurs="0" maxOccurs="999"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="InwardProcessingInfoType">
+        <xs:sequence>
+            <xs:element name="MemberStateAuth" type="a2"/>
+            <xs:element name="DischargeBillWaiver" type="n1"/>
+            <xs:element name="Authorisation" type="an..512" />
+            <xs:element name="StartTime" type="n8"/>
+            <xs:element name="EndTime" type="n8"/>
+            <xs:element name="Deadline" type="n8"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ImportAreaType">
+        <xs:sequence>
+            <xs:element name="ImportArea" type="an..5"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="MeasureType">
+        <xs:sequence>
+            <xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
+            <xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
+            <xs:element name="MeasurementUnit" type="an..5"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="MeasureProcedureType">
+        <xs:sequence>
+            <xs:element name="Indicator" type="n1"/>
+            <xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
+            <xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
+            <xs:element name="MeasurementUnit" type="an..5"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="SpecialReferencesType">
+        <xs:sequence>
+            <xs:element name="AdditionalInformation" type="an..512"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="TotalEmissionsType">
+        <xs:sequence>
+            <xs:element name="EmissionsPerUnit" type="xs:decimal"/>
+            <xs:element name="OverallEmissions" type="xs:decimal"/>
+            <xs:element name="TotalDirect" type="xs:decimal"/>
+            <xs:element name="TotalIndirect" type="xs:decimal"/>
+            <xs:element name="MeasurementUnit" type="an..5"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="SupportingDocumentsType">
+        <xs:sequence>
+            <xs:element name="SequenceNumber" type="n..5"/>
+            <xs:element name="Type" type="an4"/>
+            <xs:element name="Country" type="a2" minOccurs="0"/>
+            <xs:element name="ReferenceNumber" type="an..70"/>
+            <xs:element name="LineItemNumber" type="n..5" minOccurs="0"/>
+            <xs:element name="IssuingAuthName" type="an..70" minOccurs="0"/>
+            <xs:element name="ValidityStartDate" type="DateContentType" minOccurs="0"/>
+            <xs:element name="ValidityEndDate" type="DateContentType" minOccurs="0"/>
+            <xs:element name="Description" type="an..256" minOccurs="0"/>
+            <xs:element name="Attachment" type="AttachmentType" minOccurs="0"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="AttachmentType">
+        <xs:sequence>
+            <xs:element name="Filename" type="an..256"/>
+            <xs:element name="URI" type="an..2048" minOccurs="0"/>
+            <xs:element name="MIME" type="an..70"/>
+            <xs:element name="Binary" type="xs:base64Binary"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="QualifyingParametersType">
+        <xs:sequence>
+            <xs:element name="SequenceNumber" type="n..5"/>
+            <xs:element name="DeterminationType" type="an..5"/>
+            <xs:element name="ParameterId" type="an..5"/>
+            <xs:element name="ParameterName" type="an..256"/>
+            <xs:element name="Description" type="an..256" minOccurs="0"/>
+            <xs:element name="ParameterValueType" type="an..256"/>
+            <xs:element name="ParameterValue" type="an..256"/>
+            <xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="GoodsEmissionsType">
+        <xs:sequence>
+            <xs:element name="SequenceNumber" type="n..5"/>
+            <xs:element name="ProductionCountry" type="a2" minOccurs="0"/>
+            <xs:element name="InstallationOperator" type="InstallationOperatorType" minOccurs="0"/>
+            <xs:element name="Installation" type="InstallationType" minOccurs="0"/>
+            <xs:element name="ProducedMeasure" type="MeasureType"/>
+            <xs:element name="InstallationEmissions" type="InstallationEmissionsType"/>
+            <xs:element name="DirectEmissions" type="DirectEmissionsType"/>
+            <xs:element name="IndirectEmissions" type="IndirectEmissionsType" minOccurs="0"/>
+            <xs:element name="ProdMethodQualifyingParams" type="ProdMethodQualifyingParamsType" maxOccurs="99"/>
+            <xs:element name="SupportingDocuments" type="SupportingDocumentsType" minOccurs="0" maxOccurs="99"/>
+            <xs:element name="CarbonPriceDue" type="CarbonPriceDueType" minOccurs="0" maxOccurs="99"/>
+            <xs:element name="RemarksEmissions" type="RemarksEmissionsType" minOccurs="0" maxOccurs="9"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="InstallationType">
+        <xs:sequence>
+            <xs:element name="InstallationId" type="an..17"/>
+            <xs:element name="InstallationName" type="an..256"/>
+            <xs:element name="EconomicActivity" type="an..256" minOccurs="0"/>
+            <xs:element name="Address" type="InstallationAddressType"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="InstallationAddressType">
+        <xs:sequence>
+            <xs:element name="EstablishmentCountry" type="a2"/>
+            <xs:element name="SubDivision" type="an..35" minOccurs="0"/>
+            <xs:element name="City" type="an..35" minOccurs="0"/>
+            <xs:element name="Street" type="an..70" minOccurs="0"/>
+            <xs:element name="StreetAdditionalLine" type="an..70" minOccurs="0"/>
+            <xs:element name="Number" type="an..35" minOccurs="0"/>
+            <xs:element name="Postcode" type="an..17" minOccurs="0"/>
+            <xs:element name="POBox" type="an..70" minOccurs="0"/>
+            <xs:element name="PlotParcelNumber" type="an..15" minOccurs="0"/>
+            <xs:element name="UNLOCODE" type="an..17" minOccurs="0"/>
+            <xs:element name="Latitude" type="an..17" minOccurs="0"/>
+            <xs:element name="Longitude" type="an..17" minOccurs="0"/>
+            <xs:element name="CoordinatesType" type="an..5" minOccurs="0"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="InstallationOperatorType">
+        <xs:sequence>
+            <xs:element name="OperatorId" type="an..17"/>
+            <xs:element name="OperatorName" type="an..70"/>
+            <xs:element name="OperatorAddress" type="AddressType"/>
+            <xs:element name="ContactDetails" type="ContactDetailsType" maxOccurs="9"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="AddressType">
+        <xs:sequence>
+            <xs:element name="Country" type="a2"/>
+            <xs:element name="SubDivision" type="an..35" minOccurs="0"/>
+            <xs:element name="City" type="an..35"/>
+            <xs:element name="Street" type="an..70" minOccurs="0"/>
+            <xs:element name="StreetAdditionalLine" type="an..70" minOccurs="0"/>
+            <xs:element name="Number" type="an..35" minOccurs="0"/>
+            <xs:element name="Postcode" type="an..17" minOccurs="0"/>
+            <xs:element name="POBox" type="an..70" minOccurs="0"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ContactDetailsType">
+        <xs:sequence>
+            <xs:element name="Name" type="an..70"/>
+            <xs:element name="Phone" type="an..35"/>
+            <xs:element name="Email" type="an..256"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ProdMethodQualifyingParamsType">
+        <xs:sequence>
+            <xs:element name="SequenceNumber" type="n..5"/>
+            <xs:element name="MethodId" type="an..5"/>
+            <xs:element name="MethodName" type="an..256"/>
+            <xs:element name="SteelMillNumber" type="an..256" minOccurs="0"/>
+            <xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
+            <xs:element name="DirectQualifyingParameters" type="QualifyingParametersType" minOccurs="0" maxOccurs="99"/>
+            <xs:element name="IndirectQualifyingParameters" type="QualifyingParametersType" minOccurs="0" maxOccurs="99"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ProducedGoodsMeasureType">
+        <xs:sequence>
+            <xs:element name="NetMass" type="dec16-6" minOccurs="0"/>
+            <xs:element name="SupplementaryUnits" type="dec16-6" minOccurs="0"/>
+            <xs:element name="MeasurementUnit" type="an..5"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="InstallationEmissionsType">
+        <xs:sequence>
+            <xs:element name="OverallEmissions" type="xs:decimal"/>
+            <xs:element name="TotalDirect" type="xs:decimal"/>
+            <xs:element name="TotalIndirect" type="xs:decimal"/>
+            <xs:element name="MeasurementUnit" type="an..5"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="DirectEmissionsType">
+        <xs:sequence>
+            <xs:element name="DeterminationType" type="an..5" minOccurs="0"/>
+            <xs:element name="DeterminationTypeElectricity" type="an..5" minOccurs="0"/>
+            <xs:element name="ApplicableReportingTypeMethodology" type="an..5"/>
+            <xs:element name="ApplicableReportingMethodology" type="an..256" minOccurs="0"/>
+            <xs:element name="SpecificEmbeddedEmissions" type="dec16-5" minOccurs="0"/>
+            <xs:element name="OtherSourceIndication" type="an..256" minOccurs="0"/>
+            <xs:element name="EmissionFactorSourceElectricity" type="an..5" minOccurs="0"/>
+            <xs:element name="EmissionFactor" type="dec16-5" minOccurs="0"/>
+            <xs:element name="ElectricityImported" type="xs:decimal" minOccurs="0"/>
+            <xs:element name="TotalEmbeddedElectricityImported" type="dec16-5" minOccurs="0"/>
+            <xs:element name="MeasurementUnit" type="an..5"/>
+            <xs:element name="EmissionFactorSourceValue" type="an..512" minOccurs="0"/>
+            <xs:element name="Justification" type="an..512" minOccurs="0"/>
+            <xs:element name="ConditionalityFulfillment" type="an..512" minOccurs="0"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="IndirectEmissionsType">
+        <xs:sequence>
+            <xs:element name="DeterminationType" type="an..5"/>
+            <xs:element name="EmissionFactorSource" type="an..5" minOccurs="0"/>
+            <xs:element name="EmissionFactor" type="dec16-5" minOccurs="0"/>
+            <xs:element name="SpecificEmbeddedEmissions" type="xs:decimal"/>
+            <xs:element name="MeasurementUnit" type="an..5"/>
+            <xs:element name="ElectricityConsumed" type="dec5-2" minOccurs="0"/>
+            <xs:element name="ElectricitySource" type="an..5"/>
+            <xs:element name="OtherSourceIndication" type="an..256" minOccurs="0"/>
+            <xs:element name="EmissionFactorSourceValue" type="an..512" minOccurs="0"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="CarbonPriceDueType">
+        <xs:sequence>
+            <xs:element name="SequenceNumber" type="n..5"/>
+            <xs:element name="InstrumentType" type="an..5"/>
+            <xs:element name="LegalActDescription" type="an..512"/>
+            <xs:element name="Amount" type="xs:decimal"/>
+            <xs:element name="Currency" type="a3"/>
+            <xs:element name="ExchangeRate" type="an..2"/>
+            <xs:element name="EURO" type="xs:decimal"/>
+            <xs:element name="Country" type="a2"/>
+            <xs:element name="ProductsCovered" type="ProductsCoveredType" minOccurs="0" maxOccurs="9"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="ProductsCoveredType">
+        <xs:sequence>
+            <xs:element name="SequenceNumber" type="n..5"/>
+            <xs:element name="Type" type="an..5"/>
+            <xs:element name="CN" type="an..8" minOccurs="0"/>
+            <xs:element name="QuantityCovered" type="dec16-5"/>
+            <xs:element name="QuantityCoveredFreeAloc" type="dec16-5"/>
+            <xs:element name="SupplementaryInformation" type="an..256" minOccurs="0"/>
+            <xs:element name="AdditionalInformation" type="an..512" minOccurs="0"/>
+            <xs:element name="Measure" type="MeasureType"/>
+        </xs:sequence>
+    </xs:complexType>
+    <xs:complexType name="RemarksEmissionsType">
+        <xs:sequence>
+            <xs:element name="SequenceNumber" type="n..5"/>
+            <xs:element name="AdditionalInformation" type="an..512"/>
+        </xs:sequence>
+    </xs:complexType>
+</xs:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/stypes.xsd

@@ -0,0 +1,202 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"
+           xmlns="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
+           targetNamespace="http://xmlns.ec.eu/BusinessObjects/CBAM/Types/V1"
+           elementFormDefault="qualified"
+           attributeFormDefault="unqualified">
+    <xs:simpleType name="an20">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="20"/>
+            <xs:maxLength value="20"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..20">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="20"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an2">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="2"/>
+            <xs:maxLength value="2"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an8">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="8"/>
+            <xs:maxLength value="8"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..15">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="15"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..17">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="17"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..70">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="70"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..5">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="5"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..2">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="2"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..128">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="128"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..512">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="512"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..256">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="256"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..2048">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="2048"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an4">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="4"/>
+            <xs:maxLength value="4"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an9">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="9"/>
+            <xs:maxLength value="9"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an6">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="6"/>
+            <xs:maxLength value="6"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="a2">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="2"/>
+            <xs:maxLength value="2"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="n4">
+        <xs:restriction base="xs:int">
+            <xs:totalDigits value="4"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="n1">
+        <xs:restriction base="xs:int">
+            <xs:totalDigits value="1"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="n2">
+        <xs:restriction base="xs:int">
+            <xs:totalDigits value="2"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="n8">
+        <xs:restriction base="xs:int">
+            <xs:totalDigits value="8"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="n6.16">
+        <xs:restriction base="xs:integer">
+            <xs:pattern value="\d{6,16}" />
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="n..5">
+        <xs:restriction base="xs:integer">
+            <xs:pattern value="\d{1,5}" />
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="n..2">
+        <xs:restriction base="xs:integer">
+            <xs:pattern value="\d{1,2}" />
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="dec5-2">
+        <xs:restriction base="xs:decimal">
+            <xs:totalDigits value="7"/>
+            <xs:fractionDigits value="2"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="dec16-6">
+        <xs:restriction base="xs:decimal">
+            <xs:totalDigits value="16"/>
+            <xs:fractionDigits value="6"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="dec16-5">
+        <xs:restriction base="xs:decimal">
+            <xs:totalDigits value="16"/>
+            <xs:fractionDigits value="5"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..35">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="35"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an3">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="3"/>
+            <xs:maxLength value="3"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="a3">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="3"/>
+            <xs:maxLength value="3"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="DateTimeContentType">
+        <xs:restriction base="xs:dateTime">
+            <xs:pattern value="\d{4}-\d\d-\d\dT\d\d:\d\d:\d\dZ" />
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="DateContentType">
+        <xs:restriction base="xs:date">
+            <xs:pattern value="\d{4}-\d\d-\d\d" />
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..22">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="22"/>
+        </xs:restriction>
+    </xs:simpleType>
+    <xs:simpleType name="an..8">
+        <xs:restriction base="xs:string">
+            <xs:minLength value="1"/>
+            <xs:maxLength value="8"/>
+        </xs:restriction>
+    </xs:simpleType>
+</xs:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -267,12 +267,14 @@ Public Class cSyska_Interface
             ' If Not genDatensatz_Stammdaten(OpenFile) Then genDatensatz_ALL = False
             If Not genDatensatz_Stammdaten(1, OpenFile) Then genDatensatz_ALL = False
             If Not genDatensatz_Stammdaten(7, OpenFile) Then genDatensatz_ALL = False
+            If Not genDatensatz_Stammdaten(4, OpenFile) Then genDatensatz_ALL = False
             If Not genDatensatz_Stammdaten(11, OpenFile) Then genDatensatz_ALL = False
             If Not genDatensatz_Stammdaten(17, OpenFile) Then genDatensatz_ALL = False
             If Not genDatensatz_Stammdaten(19, OpenFile) Then genDatensatz_ALL = False
         End If
         If boolBuchungen Then
             If Not genDatensatz_Buchungen(1, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
+            If Not genDatensatz_Buchungen(4, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
             If Not genDatensatz_Buchungen(7, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
             If Not genDatensatz_Buchungen(11, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
             If Not genDatensatz_Buchungen(17, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
@@ -1366,7 +1368,7 @@ Public Class cSyska_Interface
             Return False
         End Try
     End Function
-    Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
+    Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer) As Boolean
         Try
 
             Dim sqlStr = " 
@@ -1377,10 +1379,9 @@ Public Class cSyska_Interface
                        Kunden   
 	                    WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE  KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0  "
 
-            If KdNr > 0 Then sqlStr &= " AND KundenNrZentrale='" & KdNr & "' "
 
 
-            SQL.doSQL(sqlStr, "FMZOLL")
+            SQL.doSQL(sqlStr, "FMZOLL",,,, 1800)
 
             Return True
         Catch ex As Exception
@@ -1390,6 +1391,32 @@ Public Class cSyska_Interface
     End Function
 
 
+    Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, KdNr As Integer) As Boolean
+        If KdNr <= 0 Then
+            Return OP_LFD_SALDO_AKTUALISIERN(Firma_ID)
+        End If
+
+        Try
+
+            Dim sqlStr = " 
+                      UPDATE KUNDEN
+                        SET LfdSaldo=(SELECT TOP 1 [KumSaldoEUR] FROM [Offene Posten] where  Kontonummer=KundenNrZentrale  order by [OP_ID] desc )
+
+                          FROM
+                           Kunden   
+	                        WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE  KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0  
+                        AND KundenNrZentrale='" & KdNr & "' 
+                    "
+
+
+            SQL.doSQL(sqlStr, "FMZOLL",,,, 600)
+
+            Return True
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            Return False
+        End Try
+    End Function
 
 
 

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -327,6 +327,7 @@
     <Compile Include="Classes\cAvisoAnhaenge.vb" />
     <Compile Include="Classes\cAvisoAnhangsarten.vb" />
     <Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
+    <Compile Include="Classes\cAvisoStatusMails.vb" />
     <Compile Include="Classes\cBesuchsbericht.vb" />
     <Compile Include="Classes\cBonitaetsauskunft.vb" />
     <Compile Include="Classes\cChilkat_Helper.vb" />
@@ -382,6 +383,7 @@
       <AutoGen>True</AutoGen>
       <DependentUpon>Resources.resx</DependentUpon>
     </Compile>
+    <Compile Include="Schnittstellen\CBAM\QReport_v17.00.Designer.vb" />
     <Compile Include="Schnittstellen\Digicast\cDigicustAPI.vb" />
     <Compile Include="Schnittstellen\Modaltrans\cOregonNCTSDeclarations.vb" />
     <Compile Include="Classes\cParameter.vb" />
@@ -781,6 +783,12 @@
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
     <None Include="ProgAllg.pfx" />
+    <None Include="Schnittstellen\CBAM\QReport_v17.00.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\CBAM\stypes.xsd">
+      <SubType>Designer</SubType>
+    </None>
     <None Include="Schnittstellen\GASTON_SCHUL\agsCustomsExchange.xsd">
       <SubType>Designer</SubType>
     </None>