neu

SDL.sln

@@ -1,7 +1,7 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.28307.106
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.30804.86
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
 EndProject
@@ -21,6 +21,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -123,6 +125,18 @@ Global
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Mixed Platforms.Build.0 = Release|x86
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.Build.0 = Release|x86
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

SDL/Classes/cGeschaeftsjahr.vb

@@ -20,24 +20,77 @@ Public Class cGeschaeftsjahr
 
 
     Public Function INCREASE_BELEG() As Integer
+
         If LfdBelegNr > 0 Then
             LfdBelegNr += 1
-        Else
-            LfdBelegNr = 1
-        End If
+
+            '-------Falls Nr schon existiert (geleichzeitige Buchung)
+            Dim cnt_ = 0
+            While EXISTS_BelegNr(LfdBelegNr)
+                If cnt_ > 10 Then Exit While
+                LfdBelegNr += 1
+                cnt_ += 1
+            End While
+            '-------
+
+
             SAVE()
             Return LfdBelegNr
+        Else
+            LfdBelegNr = 1
+            SAVE()
+            Return LfdBelegNr
+        End If
+
+
     End Function
+
+    'Public Function INCREASE_BELEG() As Integer
+    '    If LfdBelegNr > 0 Then
+    '        LfdBelegNr += 1
+    '    Else
+    '        LfdBelegNr = 1
+    '    End If
+
+    '    Return LfdBelegNr
+    'End Function
+    'Public Function INCREASE_JOURNAL() As Integer
+    '    If LfdJournalNr > 0 Then
+    '        LfdJournalNr += 1
+    '    Else
+    '        LfdJournalNr = 1
+    '    End If
+    '    SAVE()
+    '    Return LfdJournalNr
+    'End Function
+
+
     Public Function INCREASE_JOURNAL() As Integer
         If LfdJournalNr > 0 Then
             LfdJournalNr += 1
-        Else
-            LfdJournalNr = 1
-        End If
+
+            '-------Falls Nr schon existiert (geleichzeitige Buchung)
+            Dim cnt_ = 0
+            While EXISTS_JournalNr(LfdJournalNr)
+                If cnt_ > 10 Then Exit While
+                LfdJournalNr += 1
+                cnt_ += 1
+            End While
+            '-------
+
+
             SAVE()
             Return LfdJournalNr
+        Else
+            LfdJournalNr = 1
+            SAVE()
+            Return LfdJournalNr
+        End If
+
+
     End Function
 
+
     Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
 
@@ -78,6 +131,57 @@ Public Class cGeschaeftsjahr
         '  Return Nothing
     End Sub
 
+    Public Function EXISTS_BelegNr(LfdBelegNr As Integer) As Boolean
+        Try
+            Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT count(*) as COUNT FROM tblGeschäftsjahr WHERE  [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND LfdBelegNr=@LfdBelegNr ", conn)
+                    cmd.Parameters.AddWithValue("@Mandant", Mandant)
+                    cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
+                    cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
+                    cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr)
+                    cmd.Parameters.AddWithValue("@LfdBelegNr", LfdBelegNr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        If cSqlDb.checkNullInteger(dr.Item("COUNT")) > 0 Then Return True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+
+            Return False
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        '  Return Nothing
+    End Function
+
+
+    Public Function EXISTS_JournalNr(LfdJournalNr As Integer) As Boolean
+        Try
+            Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT count(*) as COUNT FROM tblGeschäftsjahr WHERE  [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND LfdJournalNr=@LfdJournalNr ", conn)
+                    cmd.Parameters.AddWithValue("@Mandant", Mandant)
+                    cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
+                    cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
+                    cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr)
+                    cmd.Parameters.AddWithValue("@LfdJournalNr", LfdJournalNr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        If cSqlDb.checkNullInteger(dr.Item("COUNT")) > 0 Then Return True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+
+            Return False
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        '  Return Nothing
+    End Function
+
 
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)

SDL/Fakturierung/cFakturierung.vb

@@ -552,7 +552,7 @@ Public Class cFakturierung
 
         If SPEDBUCH_TMP Is Nothing Then Return False
         Dim f As New frmFaktEmail(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), SPEDBUCH_TMP, Nothing)
-        f.Show(RG_TMP)
+        f.Show()
         Return True
         '     Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb)
     End Function
@@ -1274,7 +1274,7 @@ Public Class cFakturierung
                 Case "IMEX" : firma = 20
                 Case "ATILLA" : firma = 7
                 Case "UNISPED" : firma = 21
-                Case "AMBAR" : firma = 22
+                Case "AMBAR" : firma = 24
                 Case "FRONTOFFICE" : firma = 17
                 Case Else : firma = 1
             End Select
@@ -1318,6 +1318,10 @@ Public Class cFakturierung
                         getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
                         If displayFirmenmane Then getSignature &= "<br>Imex Customs Service GmbH<br>"
                         getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15  <br><b>T</b>  +43 7711 31630  |  <b>F</b>  +43 7711 31630-1  |  <b>@</b>  " & If(individuell, emailindividuell, "info@imex-group.at") & "  |  www.imex-group.at  |  FN 410356s</div>"
+                    Case 24 'AMBAR
+                        getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "ambar_simple.png""/>"
+                        If displayFirmenmane Then getSignature &= "<br>AMBAR Logistic Services GmbH<br>"
+                        getSignature &= "<div style=""font-size:12px"">D 83435 Bad Reichenhall, Reichenhallerstrasse 62<br><b>T</b>  +49 8651 99624911  |  <b>F</b>  +49 8651 9962493   |  <b>@</b>  " & If(individuell, emailindividuell, "info@ambarlog.de") & "  |  www.ambarlog.com  |  DE309105428</div>"
                     Case 21 'UNISPED
                         getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
                         If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
@@ -1511,7 +1515,7 @@ Public Class cFakturierung
     End Function
 
 
-    Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
+    Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False, Optional AnlageExcelTransferry360 As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
         'If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False
         Try
             'If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") "
@@ -1564,7 +1568,7 @@ Public Class cFakturierung
                             If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID  'erstes Mal
                             If kdTmp <> RG.RechnungsKundenNr Or AvisoIdTmp <> RG.AvisoID Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr
                                 Dim path = ""
-                                doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID) 'hier wird auch die RG Nr erhöht!
+                                doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360) 'hier wird auch die RG Nr erhöht!
                                 Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr)
                                 If path <> "" Then listPDFs.Add(path)
                             End If
@@ -1578,7 +1582,7 @@ Public Class cFakturierung
                             If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID  'erstes Mal
                             If kdTmp <> RG.RechnungsKundenNr Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr
                                 Dim path = ""
-                                doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID)
+                                doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360)
                                 Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr)
                                 If path <> "" Then listPDFs.Add(path)
                             End If
@@ -1605,7 +1609,7 @@ Public Class cFakturierung
             'Letzter Abschnitt:
             If found Then
                 Dim path = ""
-                doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID)
+                doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360)
                 If path <> "" Then listPDFs.Add(path)
             End If
             lastAktuelle_RgNr = Aktuelle_RgNr
@@ -1624,7 +1628,7 @@ Public Class cFakturierung
         RG_NR.CHECK_RGNR()
     End Function
 
-    Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "") As Boolean
+    Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False) As Boolean
         'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit
 
         Dim dt As DataTable
@@ -1643,6 +1647,7 @@ Public Class cFakturierung
         Dim pathPDF_SammelRg = ""
         Dim pathPDF_SammelBericht = ""
         Dim xls_Evolog = ""
+        Dim xls_Transferry360 = ""
         Dim pathPDF_Anlage As New List(Of String)
 
         '-------------- ENDE -------------- 
@@ -1659,10 +1664,17 @@ Public Class cFakturierung
                 doSAMMELRechnungsDruck_Abschnitt = False
             End If
         End If
+        If AnlageExcelTransferry360 Then 'Sammelrechnungsbericht EVOLOG  
+            If doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelTransFerry360(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, xls_Transferry360, PrinterName, VorschauID) Then
+                If xls_Transferry360 <> "" Then SonstAnlagen.Add(xls_Transferry360)
+            Else
+                doSAMMELRechnungsDruck_Abschnitt = False
+            End If
+        End If
 
         'ZOLLBELEGE:
         If RechnungsdruckArt = 0 Or RechnungsdruckArt = 1 Then 'DRUCK
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Then 'Sammelrechnungsbericht EVOLOG  
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Then
                 Try
                     Dim pathZollbeleg = getSpedBuchAnhaenge_Path(dt.Rows(0)("FilialenNr"), dt.Rows(0)("AbfertigungsNr"), dt.Rows(0)("SpeditionsbuchUnterNr"))
                     If pathZollbeleg <> "" Then SonstAnlagen.Add(pathZollbeleg)
@@ -1846,6 +1858,110 @@ Public Class cFakturierung
     End Function
 
 
+    Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelTransFerry360(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
+        Try
+            'Dim sqlStr = " SELECT [RechnungsName 1],[AbsenderName 1],[EmpfängerName 1],Abfertigungsarten.Abfertigungsart,RechnungsNr,RechnungsDatum,RechnungsKundenNr,Rechnungsausgang.Abfertigungsdatum,Rechnungsausgang.KdAuftragsNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.SpeditionsbuchUnterNr,Rechnungsausgang.[LKW Kennzeichen] as Kennzeichen,Abfertigungsarten.Abfertigungsbezeichnung, (SELECT SUM([SteuerpflichtigerBetrag]+[SteuerfreierBetrag]) FROM RechnungsausgangPositionen where RechnungsausgangPositionen.RK_ID=Rechnungsausgang.RK_ID) as Betrag
+            '                    ,isnull((SELECT cast(Sum(Anzahl)as varchar(5)) FROM RechnungsausgangPositionen AS POS2 where POS2.RK_ID=Rechnungsausgang.RK_ID and POS2.[BerechnungsartNr]=10),'') As POSAnz 
+            '                  FROM Rechnungsausgang INNER JOIN Speditionsbuch on Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr
+            '                  INNER JOIN Abfertigungsarten ON Abfertigungsarten .Abfertigungsart=Speditionsbuch.Abfertigungsart 
+            '                WHERE 1=1 "
+            Dim sqlStr = " SELECT [RechnungsName 1],[AbsenderName 1],[EmpfängerName 1],Abfertigungsarten.Abfertigungsart,RechnungsNr,RechnungsDatum,RechnungsKundenNr,Rechnungsausgang.Abfertigungsdatum,Rechnungsausgang.KdAuftragsNr,
+                                Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.SpeditionsbuchUnterNr,Rechnungsausgang.[LKW Kennzeichen] as Kennzeichen,POS.LeistungsBez,([SteuerpflichtigerBetrag]+[SteuerfreierBetrag]) Betrag 
+                                ,CASE WHEN [BerechnungsartNr]=10 THEN '' ELSE pos.Anzahl  END as  [Count],CASE WHEN [BerechnungsartNr]=10 THEN pos.Anzahl ELSE '' END as  POSCnt
+                              FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen as POS ON pos.RK_ID=Rechnungsausgang.RK_ID INNER JOIN Speditionsbuch on Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr
+                              INNER JOIN Abfertigungsarten ON Abfertigungsarten .Abfertigungsart=Speditionsbuch.Abfertigungsart 
+                            WHERE  1=1 "
+
+            If VorschauID = "" Then
+                sqlStr &= " AND  Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "'  and RechnungsNr='" & RechnungsNr & "'  "
+            Else
+                sqlStr &= " AND RechnungsNr is null  AND VorschauID='" & VorschauID & "' "
+            End If
+            'sqlStr &= " ORDER BY Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr"
+            sqlStr &= " 	order by Rechnungsausgang.AvisoID desc, FilialenNr,AbfertigungsNr,POS.[BerechnungsartNr]"
+
+
+            Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL")
+
+
+            If dt IsNot Nothing And dt.Rows.Count > 0 Then
+
+
+                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 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 nWeek As Integer
+                ' nWeek = DatePart(DateInterval.WeekOfYear, New Date(2004, 3, 22), _
+                '     FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
+
+
+                With exclApp
+                    .Visible = False
+
+                    Try
+                        Path = sPath & "SR_" & dt.Rows(0)("RechnungsKundenNr") & ".xlsx"
+                        While System.IO.File.Exists(Path)
+                            Path = sPath & "SR_" & dt.Rows(0)("RechnungsKundenNr") & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                        End While
+                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.SR_TransFerry360, False)
+                    Catch ex As System.Exception
+                        '  MsgBox(ex.Message)
+                        MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                        Return False
+                    End Try
+
+
+                    Datei = .Workbooks.Open(Path) 'Anpassen
+                    Blatt = Datei.Worksheets(1) 'Anpassen
+
+                    Dim cnt = 2
+                    For Each r In dt.Rows
+                        Blatt.Range("A" & cnt).Value = cnt - 1
+                        Blatt.Range("B" & cnt).Value = r("RechnungsNr")
+                        Blatt.Range("C" & cnt).Value = r("RechnungsDatum")
+                        Blatt.Range("D" & cnt).Value = r("FilialenNr")
+                        Blatt.Range("E" & cnt).Value = r("AbfertigungsNr")
+                        Blatt.Range("F" & cnt).Value = r("Abfertigungsdatum")
+                        Blatt.Range("G" & cnt).Value = r("RechnungsName 1")
+                        Blatt.Range("H" & cnt).Value = r("AbsenderName 1")
+                        Blatt.Range("I" & cnt).Value = r("EmpfängerName 1")
+                        Blatt.Range("J" & cnt).Value = r("Kennzeichen")
+                        Blatt.Range("K" & cnt).Value = r("LeistungsBez")
+                        Blatt.Range("L" & cnt).Value = If(r("Count") = "0", "", r("Count"))
+                        Blatt.Range("M" & cnt).Value = If(r("POSCnt") = "0", "", r("POSCnt"))
+                        Blatt.Range("N" & cnt).Value = r("Betrag")
+                        Blatt.Range("O" & cnt).Value = r("KdAuftragsNr")
+
+                        cnt += 1
+                    Next
+                    Datei.Save
+
+                    If Rechnugnsdruck = -1 Then
+                        Blatt.PrintOutEx()
+                    ElseIf Rechnugnsdruck = 3 Then
+                        'Process.Start(Path)
+                        .Visible = True
+
+                    End If
+                End With
+
+                Return True
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
+
     Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
         Try
 
@@ -2021,6 +2137,22 @@ Public Class cFakturierung
                                                   sumSteuerpflichtig += stPfl
                                                   sumSteuerfrei += stFrei
 
+
+                                                  Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
+                                                  If KUNDE_ERW.kde_FakturierungSR_Details Then
+                                                      Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG)
+                                                      rpt.SubReport.Report = subRpt
+                                                      rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+                                                      rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+
+                                                      'txtPackstuecke.Top += SubReport.Height
+                                                      'txtKdAuftragsnummer.Top += SubReport.Height
+                                                      'txtSendungsdetails.Top += SubReport.Height
+                                                  Else
+                                                      rpt.SubReport.Report = Nothing
+                                                  End If
+                                                  ' rpt.Line10.AnchorBottom = True
+                                                  ' rpt.Line10.Height = rpt.Detail.Height
                                               End If
 
                                           End Sub

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -48,7 +48,7 @@ Public Class frmAbrechnungsMaske
                     cboFirma.changeItem("1")
                     MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR [mit_id] IN (SELECT  [beroz_bergrId]  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND  beroz_art='B')) order by mit_username", False, "ADMIN", True)
                 Else
-                    cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE') ", False, "FMZOLL")
+                    cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA') ", False, "FMZOLL")
                     cboFirma.changeItem("1")
                     MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR [mit_id] IN (SELECT  [beroz_bergrId]  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND  beroz_art='B')) order by mit_username", False, "ADMIN", True)
                 End If
@@ -126,7 +126,6 @@ Public Class frmAbrechnungsMaske
             sqlstr &= getRGWhere(MyComboBox3._value)
             '  sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)"
             sqlstr &= " ORDER BY FilialenNr, AbfertigungsNr, UnterNr "
-            '  MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM & " - " & sqlstr)
 
             .SET_SQL(sqlstr, "FMZOLL")
             .LOAD()
@@ -251,7 +250,7 @@ Public Class frmAbrechnungsMaske
         If checkSrchValues() Then
 
             Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg")
-            Dim dt = SQL.loadDgvBySql("SELECT RK_ID,AD.Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL")
+            Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL")
             If dt IsNot Nothing Then
                 If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
                     Dim RechnungsDatum As Date = Now
@@ -262,7 +261,6 @@ Public Class frmAbrechnungsMaske
                             Else
                                 cFakturierung.doRechnungsDruck(r("RK_ID"), RechnungsDatum,,,, cboPrinter.Text,, PARAM_printZollbeleg)
                             End If
-
                         Next
                         initDGV()
                     End If

SDL/Fakturierung/frmFaktEmail.Designer.vb

@@ -66,6 +66,7 @@ Partial Class frmFaktEmail
         Me.Label6 = New System.Windows.Forms.Label()
         Me.cbxMergeRg = New System.Windows.Forms.CheckBox()
         Me.cbxExcelEvolog = New System.Windows.Forms.CheckBox()
+        Me.cbxTransFerry = New System.Windows.Forms.CheckBox()
         CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -512,12 +513,23 @@ Partial Class frmFaktEmail
         Me.cbxExcelEvolog.Text = "Excel Evolog"
         Me.cbxExcelEvolog.UseVisualStyleBackColor = True
         '
+        'cbxTransFerry
+        '
+        Me.cbxTransFerry.AutoSize = True
+        Me.cbxTransFerry.Location = New System.Drawing.Point(614, 740)
+        Me.cbxTransFerry.Name = "cbxTransFerry"
+        Me.cbxTransFerry.Size = New System.Drawing.Size(105, 17)
+        Me.cbxTransFerry.TabIndex = 32
+        Me.cbxTransFerry.Text = "Excel TransFerry"
+        Me.cbxTransFerry.UseVisualStyleBackColor = True
+        '
         'frmFaktEmail
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.ClientSize = New System.Drawing.Size(750, 850)
+        Me.Controls.Add(Me.cbxTransFerry)
         Me.Controls.Add(Me.cbxExcelEvolog)
         Me.Controls.Add(Me.cbxMergeRg)
         Me.Controls.Add(Me.Label6)
@@ -605,4 +617,5 @@ Partial Class frmFaktEmail
     Friend WithEvents Label6 As Label
     Friend WithEvents cbxMergeRg As CheckBox
     Friend WithEvents cbxExcelEvolog As CheckBox
+    Friend WithEvents cbxTransFerry As CheckBox
 End Class

SDL/Fakturierung/frmFaktEmail.vb

@@ -22,6 +22,7 @@ Public Class frmFaktEmail
     Dim EinzelAnlagen As Boolean
     Dim Sammelbericht As Boolean
     Dim xlsEvolog As Boolean
+    Dim xlsTransFerry As Boolean
     Dim RechnungsNr As Integer
     Dim DruckDatumZeit As DateTime
     Dim AvisoIds As List(Of Integer)
@@ -42,7 +43,7 @@ Public Class frmFaktEmail
     End Sub
 
 
-    Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False)
+    Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False, Optional xlsTransFerry As Boolean = False)
         '(Firma_ID As Integer, SammelrechungArt As Integer, KdNr As Integer, DatumBis As Date, SB As String, EinzelAnlagen As Boolean, Sammelbericht As Boolean) 'Sammelrechnung
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -56,6 +57,7 @@ Public Class frmFaktEmail
         Me.EinzelAnlagen = EinzelAnlagen
         Me.Sammelbericht = Sammelbericht
         Me.xlsEvolog = xlsEvolog
+        Me.xlsTransFerry = xlsTransFerry
         Me.KdNr = KdNr
         Me.Rechnungsdatum = Rechnungsdatum
         Me.RechnungsNr = lastAktuelle_RgNr
@@ -92,6 +94,7 @@ Public Class frmFaktEmail
 
 
         cbxExcelEvolog.Checked = xlsEvolog
+        cbxTransFerry.Checked = xlsTransFerry
 
 
         If SR Then
@@ -125,6 +128,7 @@ Public Class frmFaktEmail
         End If
 
         If AD.AdressenNr = 1001688 Then cbxExcelEvolog.Checked = True 'EVOLOG
+        If AD.AdressenNr = 800020 Then cbxTransFerry.Checked = True 'TRANS FERRY 360
 
         If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then lkl.Text = """" & AD.E_Mail & """ anfügen" : lkl.Tag = AD.E_Mail
         lblKunde.Text = AD.AdressenNr & " - " & AD.Ordnungsbegriff
@@ -226,11 +230,11 @@ Public Class frmFaktEmail
                     '-----------------------------------------------------------------
                     Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
                     If RechnungsNr <= 0 Then
-                        cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen)
+                        cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked)
                         RechnungsNr = lastAktuelle_RgNr
                     Else
                         Dim path = ""
-                        cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RechnungsNr, -1, -1, DruckDatumZeit, "", False, , 4, path, True,, cbxExcelEvolog.Checked, SonstAnlagen)
+                        cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RechnungsNr, -1, -1, DruckDatumZeit, "", False, , 4, path, True,, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked)
 
                         lastAktuelle_RgNr = RechnungsNr
                         listPDFs.Add(path)

SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb

@@ -52,6 +52,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.cbxEVOLOG = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
+        Me.cbxTransFerry = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -312,7 +313,7 @@ Partial Class frmFaktSammelRgDrucken
         'cbxEinzelAnlagen
         '
         Me.cbxEinzelAnlagen.AutoSize = True
-        Me.cbxEinzelAnlagen.Location = New System.Drawing.Point(150, 206)
+        Me.cbxEinzelAnlagen.Location = New System.Drawing.Point(150, 195)
         Me.cbxEinzelAnlagen.Name = "cbxEinzelAnlagen"
         Me.cbxEinzelAnlagen.Size = New System.Drawing.Size(96, 17)
         Me.cbxEinzelAnlagen.TabIndex = 14
@@ -324,7 +325,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.cbxSammelbericht.AutoSize = True
         Me.cbxSammelbericht.Checked = True
         Me.cbxSammelbericht.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxSammelbericht.Location = New System.Drawing.Point(150, 229)
+        Me.cbxSammelbericht.Location = New System.Drawing.Point(150, 215)
         Me.cbxSammelbericht.Name = "cbxSammelbericht"
         Me.cbxSammelbericht.Size = New System.Drawing.Size(95, 17)
         Me.cbxSammelbericht.TabIndex = 16
@@ -380,7 +381,7 @@ Partial Class frmFaktSammelRgDrucken
         'cbxEVOLOG
         '
         Me.cbxEVOLOG.AutoSize = True
-        Me.cbxEVOLOG.Location = New System.Drawing.Point(151, 268)
+        Me.cbxEVOLOG.Location = New System.Drawing.Point(151, 253)
         Me.cbxEVOLOG.Name = "cbxEVOLOG"
         Me.cbxEVOLOG.Size = New System.Drawing.Size(99, 17)
         Me.cbxEVOLOG.TabIndex = 19
@@ -390,7 +391,7 @@ Partial Class frmFaktSammelRgDrucken
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(148, 252)
+        Me.Label4.Location = New System.Drawing.Point(148, 237)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(41, 13)
         Me.Label4.TabIndex = 20
@@ -409,6 +410,16 @@ Partial Class frmFaktSammelRgDrucken
         Me.Button1.Text = "Vorschau"
         Me.Button1.UseVisualStyleBackColor = True
         '
+        'cbxTransFerry
+        '
+        Me.cbxTransFerry.AutoSize = True
+        Me.cbxTransFerry.Location = New System.Drawing.Point(151, 271)
+        Me.cbxTransFerry.Name = "cbxTransFerry"
+        Me.cbxTransFerry.Size = New System.Drawing.Size(105, 17)
+        Me.cbxTransFerry.TabIndex = 22
+        Me.cbxTransFerry.Text = "Excel TransFerry"
+        Me.cbxTransFerry.UseVisualStyleBackColor = True
+        '
         'frmFaktSammelRgDrucken
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -437,6 +448,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.Controls.Add(Me.pnl)
         Me.Controls.Add(Me.cbxSammelbericht)
         Me.Controls.Add(Me.cbxZusammenfassen)
+        Me.Controls.Add(Me.cbxTransFerry)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmFaktSammelRgDrucken"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
@@ -477,4 +489,5 @@ Partial Class frmFaktSammelRgDrucken
     Friend WithEvents cbxEVOLOG As CheckBox
     Friend WithEvents Label4 As Label
     Friend WithEvents Button1 As Button
+    Friend WithEvents cbxTransFerry As CheckBox
 End Class

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -204,7 +204,7 @@ Public Class frmFaktSammelRgDrucken
 
         If Not IsNumeric(getSelectionKdNr_Simple) Then MsgBox("Es muss eine eindeutige KundenNr ausgewählt werden!") : Exit Sub
 
-        Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked)
+        Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked)
         f.ShowDialog(Me)
         initDGV()
         'Else
@@ -236,7 +236,7 @@ Public Class frmFaktSammelRgDrucken
             Me.Cursor = Cursors.WaitCursor
             Dim listPDFs As New List(Of String)
             Dim SonstAnlagen As New List(Of String)
-            cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau)
+            cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked)
 
             '-------------- für PDF-Sammel-Rechnung -------------- 
 

SDL/Fakturierung/frmRechnungenSuche.Designer.vb

@@ -126,6 +126,7 @@ Partial Class frmRechnungenSuche
         Me.Label4 = New System.Windows.Forms.Label()
         Me.pnlTop = New System.Windows.Forms.Panel()
         Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
@@ -1528,14 +1529,14 @@ Partial Class frmRechnungenSuche
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
         Me.MenuStrip1.Location = New System.Drawing.Point(368, 23)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(179, 27)
+        Me.MenuStrip1.Size = New System.Drawing.Size(299, 27)
         Me.MenuStrip1.TabIndex = 43
         Me.MenuStrip1.Text = "Kundenauswertungen"
         '
         'KundenauswertungenToolStripMenuItem1
         '
         Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem, Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem})
+        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem, Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem})
         Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
         Me.KundenauswertungenToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.statistik_small
@@ -1547,14 +1548,14 @@ Partial Class frmRechnungenSuche
         '
         Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image = CType(resources.GetObject("EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
         Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Name = "EVOLOGSammelrechnungAuswählenToolStripMenuItem"
-        Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24)
+        Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24)
         Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)"
         '
         'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem
         '
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24)
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24)
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)"
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
         '
@@ -1677,6 +1678,13 @@ Partial Class frmRechnungenSuche
         Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19)
         Me.TestToolStripMenuItem.Text = "test"
         '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image)
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(372, 24)
+        Me.ToolStripMenuItem1.Text = "TRANSFERRY/360 (Sammelrechnung auswählen)"
+        '
         'frmRechnungenSuche
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1820,4 +1828,5 @@ Partial Class frmRechnungenSuche
     Friend WithEvents KundenauswertungenToolStripMenuItem1 As ToolStripMenuItem
     Friend WithEvents EVOLOGSammelrechnungAuswählenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
 End Class

SDL/Fakturierung/frmRechnungenSuche.resx

@@ -127,6 +127,88 @@
     <value>316, 17</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripMenuItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+        DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+        bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+        sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+        AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+        JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+        3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+        li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+        ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+        wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+        hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+        4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+        VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+        5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+        qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+        j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+        1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+        rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+        fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+        B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+        yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+        YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+        yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+        vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+        vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+        Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+        bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+        llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+        ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+        xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+        eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+        YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+        XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+        WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+        xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+        dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+        V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+        Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+        Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+        PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+        0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+        /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+        XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+        fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+        tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAB3VJREFUSEu9VntQ1NUe
+        /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r
+        ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ
+        UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C
+        MGn2uYHkVRZLWz5uJwmY1VbNQDUU16ijwr3racWBTZTX+ibF1ueOKWxfNzvz7aqF4WvT13gvX3DAv+r1
+        nhdKYu+r8sMwIcMPNsmzaILWj1wMIeRWGPHngGm7Kkm/p46y21Y7RmzURiRsLyyNqc9pClideNqrPPaG
+        R3EUJuvUsM8JlGab4YtJWn84ZQfB3RB5zTkvmGwy55Bdtr/JsvxpfLaf3I/P8pP2dMpMciuKoD2nO4kC
+        65Iq59Ys6Zn+xquPlcXhcDQEY2JeICbmBsBJr4aTLhhT9CFQGMLgqg+Fa34oFLp5mJwTDI+CKMxcseDc
+        tOLILo/i6C6PEjbrr9nci6K6phZFdHHUDORQEHyIDU5GfpQBlUXhULEpC8OhMGrAoYGSwQSgggEV+XxP
+        FwLbtLnwMEbht0ePYFkDDx+gf+C++dfQunOvD7tPHQIleh0ht7LIZrfSSKiElURCWRwxCCjBhBVYA5o8
+        HJ/uA09jNH746Qqu3rqO3mtX8PjxYwlwkc9+vHkNl67/iJt9v8qzkxe6MCrVu5kBo5pVpQzCYKoS/o4E
+        ZDALoAipCTAESl0oXHLVeDZ9Dp7NmAOKtsXWY3vQ0fURKHIsnkl/EbTACeraFAl49JvP+Wy2AIxkQIuH
+        JsDJBs4Rm4pBVQxqm+mD0ctmwYU9U+oZnAGFTcmbh0m5gdJo4WS89ck+HPzqOOhVR9PZkmng1pKAH1oD
+        WkKqZMBppdFcNAH4i9aHcxgGey6gGWWvYP6GbHiWzIdzbrAMqV26L57jHH518Ttc+O9F+f35zk3c6r/D
+        +3M4d+U/6O49jx841GIdPntCeG0KqQXQgSvUvTxGPnDywhnQUi+46Ofh9r278jG7DB84cGsI70SVKrkX
+        FzTo8NpmAwKqEvDB2ZM41dONgMp4LGzUI2j1UpTtq5eAR77+zOKhyKEJ0JWrlJZ64pvL38tLEzksSU3l
+        cq/fXQdapBwMqZteI0FF+CjOATSLsObQDrR8/g/QTDKd+RG4LeTfH/33KTNg6VAOhaej0rwRWJskL+36
+        7CC+vdKDu/f7MCr5BTjkBsmicWVAwTLuBZEyNye4Ag+zd5d/uYqffv0Zh7o/wfHvvkQne/Wv3nPyLeH9
+        8BxaVSkleuDYt6flRbGym1eC4lVQFWgGq9RBG4iphnBs+KAZmz5qw8qOzTh76QK+v9qLqv2NaDjahpqD
+        27H3yw/lG51ff2rJ4fA+dOeiofgpWLzVKC/efzjAVeqLcVrfYW0xVR8O55yXQZpnQGGjQdMIVQe2YOfJ
+        DpAbh1SczSDJVGKZQjqiaASgYBtKfE6GxLJ0rW/yP6FkD5l9zID2WQHsYQQ2dA552H3pPHt4CSutPfxn
+        p3yj86zwUOZwCJD3oOTnEbUxW15q+PgdZpLLnMN+jEn5qyRvC7VNzPSHu9Gcw/Ocw+4Tgzk8PJjDT3GG
+        W0QskcMxaeaisQC6FIZiNBfN9ds35CVarEL5301lbWxfB3rNdahK83+/SltFlXqbq9Sfq7RkZJVaqI0B
+        x+X4IWhNEn65cwttXzDZxtljxvI4SdCCmB2zAzCJQykAXWQfhpr6sPGP+nCjBBR9KD1UWeVQMI0oGmeD
+        GrZZvlAUajApJwA+lQlI2GxkxomDExeKALTjuTiMaXrNTNPHTMOtMMg0TORiibZ5okrFV4wnR32wiUuL
+        +DdzqQ0T8VPJM+UgVnHDC0AFk7fgUtssP/CQBb1ij78d34v3zhwDzZ8gzylegbC6NAkocm3O4RDTjJwW
+        w+chV6e5LUTjK/IEeYfAOV8NZx7UlKDEzhMdeJ8LhhZNkeeU6InYjTmDgE9Q2xPjiUMqAFmXjACch3E8
+        gL0KY3C7/y4e/PYQ/Q+GBq/YP+Szew8GzCfmebiM56FDgXr4xGdTFTGoFeDvDWDbNB858fsG7pmfZCCe
+        9qKFrNcjHspy4osiTPQ8QgFrhKZZbKVp1HI8CeIWoXLKH9I01hJDahoG9K5gTcOaReqYEVrGYlLTFEZ0
+        MYEYKHXXG5TfXsdSsUaqtvhtRlZt2U0vCdVWFnvDndnepNqCeDQFYbxUbS/JamXyNqm2jLms0ixKzWR2
+        rNYsv59O8aapFtW2uKmIhXC1NKFLje+uo4qOTZTbsprm1+eMMbavnZ2xs3KhZlCXLumZMUyXzmZd6m/W
+        peGsQ4Ue1bA+tWhTDevSIHreoksFoFDdGS0rpfLW8l63u5aS31pOEeszqWJ/A606sIWWsRIXynv53vqx
+        +pba6dFrM1PV1UllydvKbJK3ltKLlYvIQffynwNyXv+PBvofzgNyIxLbwtkAAAAASUVORK5CYII=
+</value>
+  </data>
   <data name="EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH

SDL/Fakturierung/frmRechnungenSuche.vb

@@ -743,5 +743,11 @@ Public Class frmRechnungenSuche
         Me.Cursor = Cursors.Default
     End Sub
 
-
+    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
+        If DataGridView.SelectedRows.Count = 0 Then Exit Sub
+        Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(DataGridView.SelectedRows(0).Cells("RK_ID").Value)
+        If RG_TMP.Sammelrechnung <> 0 Then
+            cFakturierung.doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelTransFerry360(RG_TMP.RechnungsNr, RG_TMP.DruckDatumZeit, 3, "", "")
+        End If
+    End Sub
 End Class

SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb

@@ -29,6 +29,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtSendungsdetails = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtPackstuecke = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
         Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
         Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
         Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
@@ -170,8 +171,8 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         '
         'Detail
         '
-        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblPosNr, Me.lblDatum, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.Line10, Me.Line11, Me.txtKdAuftragsnummer, Me.txtAbfertigungsart, Me.txtSendungsdetails, Me.txtPackstuecke})
-        Me.Detail.Height = 0.4037949!
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblPosNr, Me.lblDatum, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.Line10, Me.Line11, Me.txtKdAuftragsnummer, Me.txtAbfertigungsart, Me.txtSendungsdetails, Me.txtPackstuecke, Me.SubReport})
+        Me.Detail.Height = 0.4247707!
         Me.Detail.KeepTogether = True
         Me.Detail.Name = "Detail"
         '
@@ -252,12 +253,12 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         'txtKdAuftragsnummer
         '
         Me.txtKdAuftragsnummer.Height = 0.1141732!
-        Me.txtKdAuftragsnummer.Left = 0.01417321!
+        Me.txtKdAuftragsnummer.Left = 0.01417323!
         Me.txtKdAuftragsnummer.Name = "txtKdAuftragsnummer"
         Me.txtKdAuftragsnummer.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
         Me.txtKdAuftragsnummer.Style = "font-size: 9pt; ddo-char-set: 1"
         Me.txtKdAuftragsnummer.Text = "-"
-        Me.txtKdAuftragsnummer.Top = 0.1574803!
+        Me.txtKdAuftragsnummer.Top = 0.1771654!
         Me.txtKdAuftragsnummer.Width = 2.134252!
         '
         'txtAbfertigungsart
@@ -279,7 +280,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         Me.txtSendungsdetails.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
         Me.txtSendungsdetails.Style = "color: DimGray; font-size: 8pt; ddo-char-set: 1"
         Me.txtSendungsdetails.Text = "-"
-        Me.txtSendungsdetails.Top = 0.2716536!
+        Me.txtSendungsdetails.Top = 0.2913387!
         Me.txtSendungsdetails.Width = 4.85748!
         '
         'txtPackstuecke
@@ -290,9 +291,20 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         Me.txtPackstuecke.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
         Me.txtPackstuecke.Style = "color: Black; font-size: 8pt; ddo-char-set: 1"
         Me.txtPackstuecke.Text = "-"
-        Me.txtPackstuecke.Top = 0.1574803!
+        Me.txtPackstuecke.Top = 0.1771654!
         Me.txtPackstuecke.Width = 4.857481!
         '
+        'SubReport
+        '
+        Me.SubReport.CloseBorder = False
+        Me.SubReport.Height = 0.007874016!
+        Me.SubReport.Left = 2.208662!
+        Me.SubReport.Name = "SubReport"
+        Me.SubReport.Report = Nothing
+        Me.SubReport.ReportName = "SubReport1"
+        Me.SubReport.Top = 0.3893701!
+        Me.SubReport.Width = 4.857481!
+        '
         'PageFooter
         '
         Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer})
@@ -1307,4 +1319,5 @@ Partial Public Class rptSammelRechnungAnlagenDruck
     Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents txtPackstuecke As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents lblRechnung_Land As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
 End Class

SDL/Fakturierung/rptSammelRechnungAnlagenDruck.vb

@@ -2,7 +2,7 @@ Imports GrapeCity.ActiveReports
 Imports GrapeCity.ActiveReports.Document
 
 Public Class rptSammelRechnungAnlagenDruck
-    Dim _LAN = ""
+    Public _LAN = ""
     Sub New()
         InitializeComponent()
     End Sub

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.Designer.vb

@@ -0,0 +1,165 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptSammelRechnungAnlagenDruck_Leistungen
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptSammelRechnungAnlagenDruck_Leistungen))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.lblSteuerfrei = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSteuerpflichtig = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.CanGrow = False
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtAbfertigungsart})
+        Me.Detail.Height = 0.1338583!
+        Me.Detail.KeepTogether = True
+        Me.Detail.Name = "Detail"
+        '
+        'lblSteuerfrei
+        '
+        Me.lblSteuerfrei.Height = 0.1338583!
+        Me.lblSteuerfrei.HyperLink = Nothing
+        Me.lblSteuerfrei.Left = 3.655119!
+        Me.lblSteuerfrei.Name = "lblSteuerfrei"
+        Me.lblSteuerfrei.Style = "color: #202020; font-size: 8pt; font-style: italic; font-weight: normal; text-ali" &
+    "gn: right; ddo-char-set: 1"
+        Me.lblSteuerfrei.Text = "999.999,99"
+        Me.lblSteuerfrei.Top = 0!
+        Me.lblSteuerfrei.Width = 1.207481!
+        '
+        'lblSteuerpflichtig
+        '
+        Me.lblSteuerpflichtig.Height = 0.1338583!
+        Me.lblSteuerpflichtig.HyperLink = Nothing
+        Me.lblSteuerpflichtig.Left = 2.447638!
+        Me.lblSteuerpflichtig.Name = "lblSteuerpflichtig"
+        Me.lblSteuerpflichtig.Style = "color: #202020; font-size: 8pt; font-style: italic; font-weight: normal; text-ali" &
+    "gn: right; ddo-char-set: 1"
+        Me.lblSteuerpflichtig.Text = "999.999,99"
+        Me.lblSteuerpflichtig.Top = 0!
+        Me.lblSteuerpflichtig.Width = 1.20748!
+        '
+        'txtAbfertigungsart
+        '
+        Me.txtAbfertigungsart.Height = 0.1338583!
+        Me.txtAbfertigungsart.Left = 0.005119062!
+        Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
+        Me.txtAbfertigungsart.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtAbfertigungsart.Style = "color: #202020; font-size: 8pt; font-style: italic; ddo-char-set: 1"
+        Me.txtAbfertigungsart.Text = "-"
+        Me.txtAbfertigungsart.Top = 0!
+        Me.txtAbfertigungsart.Width = 2.44252!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'GroupHeader4
+        '
+        Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line4})
+        Me.GroupHeader4.Height = 0!
+        Me.GroupHeader4.KeepTogether = True
+        Me.GroupHeader4.Name = "GroupHeader4"
+        '
+        'Line4
+        '
+        Me.Line4.Height = 0!
+        Me.Line4.Left = 0.005118111!
+        Me.Line4.LineColor = System.Drawing.Color.DarkGray
+        Me.Line4.LineWeight = 1.0!
+        Me.Line4.Name = "Line4"
+        Me.Line4.Top = 0!
+        Me.Line4.Visible = False
+        Me.Line4.Width = 4.852363!
+        Me.Line4.X1 = 0.005118111!
+        Me.Line4.X2 = 4.857481!
+        Me.Line4.Y1 = 0!
+        Me.Line4.Y2 = 0!
+        '
+        'GroupFooter4
+        '
+        Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18})
+        Me.GroupFooter4.Height = 0.1875001!
+        Me.GroupFooter4.Name = "GroupFooter4"
+        '
+        'Line18
+        '
+        Me.Line18.Height = 0!
+        Me.Line18.Left = 0.03444719!
+        Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
+        Me.Line18.LineWeight = 1.0!
+        Me.Line18.Name = "Line18"
+        Me.Line18.Top = 0.09375003!
+        Me.Line18.Width = 4.852365!
+        Me.Line18.X1 = 0.03444719!
+        Me.Line18.X2 = 4.886813!
+        Me.Line18.Y1 = 0.09375003!
+        Me.Line18.Y2 = 0.09375003!
+        '
+        'rptSammelRechnungAnlagenDruck_Leistungen
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3937008!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 4.92126!
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader4)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter4)
+        Me.Sections.Add(Me.PageFooter)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblSteuerpflichtig As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
+End Class

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.resx

@@ -0,0 +1,126 @@
+<?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="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb

@@ -0,0 +1,56 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptSammelRechnungAnlagenDruck_Leistungen
+    dim _LAN=""
+    Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
+    Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me._LAN = _LAN
+        Me.RECHNUNG = RECHNUNG
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+    Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+        If _LAN.replace("DE", "") <> "" Then
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN)
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN)
+        End If
+    End Sub
+
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
+            txtAbfertigungsart.Text = ""
+            lblSteuerfrei.Text = ""
+            lblSteuerpflichtig.Text = ""
+            If Me.Fields.Item("clmnAnzahl") IsNot Nothing AndAlso Me.Fields.Item("clmnAnzahl").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnAnzahl").Value.ToString & "x "
+            If Me.Fields.Item("clmnLeistung") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistung").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnLeistung").Value.ToString
+            If Me.Fields.Item("clmnSteuerfreierBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerfreierBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value) > 0 Then
+                lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString).ToString("N2")
+            End If
+            If Me.Fields.Item("clmnSteuerpflichtigerBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value) > 0 Then
+                lblSteuerpflichtig.Text = CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value.ToString).ToString("N2")
+            End If
+        End If
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+        If RECHNUNG Is Nothing Then Exit Sub
+
+        Dim dt As New DataTable
+        dt.Columns.Add("clmnLeistung")
+        dt.Columns.Add("clmnSteuerfreierBetrag")
+        dt.Columns.Add("clmnSteuerpflichtigerBetrag")
+        dt.Columns.Add("clmnAnzahl")
+
+        RECHNUNG.ORDER_POSITIONEN()
+
+        For Each POS In RECHNUNG.POSITIONEN
+            dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl)
+        Next
+
+        Me.DataSource = dt
+
+    End Sub
+End Class

SDL/Fakturierung/usrCntlFaktAbrechnung.resx

@@ -166,24 +166,6 @@
   <metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>109, 17</value>
   </metadata>
-  <metadata name="Leistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="SteuerpflichtigerBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="SteuerfreierBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>28</value>
   </metadata>

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -555,12 +555,19 @@ Public Class usrCntlFaktAbrechnung
                                                               initDGVOffertenSperrliste(kdFirmaRechnungAn.KdNr_value)
                                                               initWarnKd(kdFirmaRechnungAn, picWarnRgAn)
 
+                                                              cboRechnungSprache.changeItem("DE")
+                                                              If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing Then
+                                                                  If If(kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache, "") <> "" Then
+                                                                      cboRechnungSprache.changeItem(kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_Fakturierung_Sprache)
+                                                                  End If
+                                                              End If
 
 
                                                               If kdFirmaRechnungAn.KdData_KUNDE_ERW IsNot Nothing AndAlso kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr IsNot Nothing AndAlso kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then
                                                                   ToolTip.SetToolTip(picKdAuftrInfo, kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr)
                                                                   picKdAuftrInfo.Cursor = Cursors.Hand
                                                                   picKdAuftrInfo.Tag = kdFirmaRechnungAn.KdData_KUNDE_ERW.kde_InfoAuftragsNr
+
                                                               Else
                                                                   ToolTip.SetToolTip(picKdAuftrInfo, "")
                                                                   picKdAuftrInfo.Cursor = Cursors.Default
@@ -3546,4 +3553,6 @@ Nächste_Textzeile_lesen:
     Private Sub Label53_Click(sender As Object, e As EventArgs) Handles Label53.Click
         Label53.Visible = False
     End Sub
+
+
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb

@@ -482,7 +482,7 @@ Partial Public Class rptDispoHaftListe
         Me.TextBox8.Name = "TextBox8"
         Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
     "ddo-char-set: 1"
-        Me.TextBox8.Text = "Abfertigung / Yapilan Islem" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungen / Gönderici"
+        Me.TextBox8.Text = "Abfertigungsart / Zoll-Agent" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Yapilan Islem / Gümrükleme Ajentasi"
         Me.TextBox8.Top = 4.001182!
         Me.TextBox8.Width = 1.130709!
         '
@@ -545,7 +545,7 @@ Partial Public Class rptDispoHaftListe
         Me.TextBox4.Name = "TextBox4"
         Me.TextBox4.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
     "ddo-char-set: 1"
-        Me.TextBox4.Text = "Absender" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anmerkung"
+        Me.TextBox4.Text = "Absender / Gönderici" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungsdaten / Mal bilgileri"
         Me.TextBox4.Top = 4.001182!
         Me.TextBox4.Width = 1.511024!
         '
@@ -802,7 +802,7 @@ Partial Public Class rptDispoHaftListe
         Me.PageSettings.Margins.Top = 0.1968504!
         Me.PageSettings.PaperHeight = 11.0!
         Me.PageSettings.PaperWidth = 8.5!
-        Me.PrintWidth = 7.981886!
+        Me.PrintWidth = 7.780266!
         Me.Sections.Add(Me.ReportHeader1)
         Me.Sections.Add(Me.PageHeader)
         Me.Sections.Add(Me.Detail)

SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb

@@ -69,6 +69,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtFirma_UNISPED = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.SubReport1 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtGesColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtGesGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
@@ -113,6 +114,7 @@ Partial Public Class rptLaufzettelZollDE
         CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtFirma_UNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGesColli, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -315,7 +317,7 @@ Partial Public Class rptLaufzettelZollDE
         '
         'ReportHeader1
         '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1})
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1, Me.TextBox7, Me.txtFirmaInfo_VERAG})
         Me.ReportHeader1.Height = 2.227953!
         Me.ReportHeader1.Name = "ReportHeader1"
         '
@@ -348,7 +350,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG"
         Me.txtFirmaInfo_VERAG.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
         Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "      www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax  +4" &
-    "3 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "       eu@verag.ag"
+    "3 77 11 / 27 88                          quickstop@verag.ag"
         Me.txtFirmaInfo_VERAG.Top = 0!
         Me.txtFirmaInfo_VERAG.Width = 6.67165!
         '
@@ -662,6 +664,18 @@ Partial Public Class rptLaufzettelZollDE
         Me.SubReport1.Visible = False
         Me.SubReport1.Width = 7.197245!
         '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.5000001!
+        Me.TextBox7.Left = 0.4775591!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
+        Me.TextBox7.Text = "D 92726 Waidhaus  " & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +49 9652 81450 " & Global.Microsoft.VisualBasic.ChrW(9) & "      www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Am Autohof 3" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax  +" &
+    "43 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & "      waidhaus@verag.ag"
+        Me.TextBox7.Top = 0!
+        Me.TextBox7.Visible = False
+        Me.TextBox7.Width = 6.67165!
+        '
         'txtGesColli
         '
         Me.txtGesColli.Height = 0.1574803!
@@ -798,6 +812,7 @@ Partial Public Class rptLaufzettelZollDE
         CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtFirma_UNISPED, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGesColli, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).EndInit()
@@ -855,7 +870,6 @@ Partial Public Class rptLaufzettelZollDE
     Public WithEvents txtEmail As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents txtDW As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
-    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
     Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
@@ -863,4 +877,6 @@ Partial Public Class rptLaufzettelZollDE
     Public WithEvents txtFirma_UNISPED As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents SubReport1 As GrapeCity.ActiveReports.SectionReportModel.SubReport
     Public WithEvents txtPos As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb

@@ -46,6 +46,7 @@ Partial Public Class rptPreislisten
         Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
         Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -75,6 +76,7 @@ Partial Public Class rptPreislisten
         CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -275,7 +277,7 @@ Partial Public Class rptPreislisten
         '
         'ReportHeader1
         '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9})
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6})
         Me.ReportHeader1.Height = 2.176378!
         Me.ReportHeader1.Name = "ReportHeader1"
         '
@@ -312,6 +314,7 @@ Partial Public Class rptPreislisten
         Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & "      www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax  +43" &
     " 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & "       eu@verag.ag"
         Me.txtFirmaInfo_VERAG.Top = 0!
+        Me.txtFirmaInfo_VERAG.Visible = False
         Me.txtFirmaInfo_VERAG.Width = 3.592911!
         '
         'picVERAG
@@ -405,6 +408,18 @@ Partial Public Class rptPreislisten
         Me.Line9.Y1 = 0.6181103!
         Me.Line9.Y2 = 0.6181923!
         '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.5000001!
+        Me.TextBox6.Left = 3.138189!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
+        Me.TextBox6.Text = "DE-83435 Bad Reichenhall " & Global.Microsoft.VisualBasic.ChrW(9) & "                        +49 8651 99624911" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Reichenhalle" &
+    "rstrasse 62                       import@ambarlog.com "
+        Me.TextBox6.Top = 0!
+        Me.TextBox6.Visible = False
+        Me.TextBox6.Width = 3.592911!
+        '
         'ReportFooter1
         '
         Me.ReportFooter1.CanShrink = True
@@ -425,7 +440,7 @@ Partial Public Class rptPreislisten
         '
         'Line
         '
-        Me.Line.Height = 0.0001809597!
+        Me.Line.Height = 0.0001811981!
         Me.Line.Left = 0.02362209!
         Me.Line.LineWeight = 1.0!
         Me.Line.Name = "Line"
@@ -584,6 +599,7 @@ Partial Public Class rptPreislisten
         CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).EndInit()
@@ -635,4 +651,5 @@ Partial Public Class rptPreislisten
     Public WithEvents txtFirmaInfo_IMEX As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
+    Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb

@@ -94,6 +94,12 @@
             Case "ATILLA"
                 cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition GmbH", "ATILLA"))
                 cboFirma.changeItem("ATILLA")
+            Case "AMBAR"
+                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR"))
+                cboFirma.changeItem("AMBAR")
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
             Case Else
                 cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
                 cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
@@ -156,7 +162,7 @@
                         dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
                         dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
 
-                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
                         'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
                         'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
                         '   dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
@@ -256,7 +262,45 @@
 
                         dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
 
-                        cboFirma.changeItem("AG")
+
+                End Select
+            Case "AMBAR"
+                Select Case MyComboBox1._value
+                    Case "VZ"
+                        DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1
+                        DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
+                        DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
+                        DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                        DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
+                        DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                        DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+
+                        dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                        dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+
+                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
+                        '   dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
+
+                    Case "T1"
+                        DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1
+
+                    Case "EUST"
+
+                        DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
+                        DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
+                        DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                        DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
+                        DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                        DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+                        dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+
 
                 End Select
 
@@ -279,7 +323,7 @@
                         dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
                         dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
 
-                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
                         'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
                         'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
                         '   dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
@@ -384,7 +428,7 @@
                         dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
                         dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
 
-                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
                         dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
                         'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
                         'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb

@@ -118,6 +118,7 @@ Partial Class usrcntlVerzollungsunterlagen
         Me.txtAdresse2._WaehrungZeichen = True
         Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
         Me.txtAdresse2.Location = New System.Drawing.Point(254, 110)
+        Me.txtAdresse2.MaxLength = 60
         Me.txtAdresse2.MaxLineLength = -1
         Me.txtAdresse2.MaxLines_Warning = ""
         Me.txtAdresse2.MaxLines_Warning_Label = Nothing
@@ -139,6 +140,7 @@ Partial Class usrcntlVerzollungsunterlagen
         Me.txtAdresse1._WaehrungZeichen = True
         Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
         Me.txtAdresse1.Location = New System.Drawing.Point(254, 91)
+        Me.txtAdresse1.MaxLength = 40
         Me.txtAdresse1.MaxLineLength = -1
         Me.txtAdresse1.MaxLines_Warning = ""
         Me.txtAdresse1.MaxLines_Warning_Label = Nothing
@@ -227,6 +229,7 @@ Partial Class usrcntlVerzollungsunterlagen
         Me.txtAdresse3._WaehrungZeichen = True
         Me.txtAdresse3.ForeColor = System.Drawing.Color.Black
         Me.txtAdresse3.Location = New System.Drawing.Point(254, 129)
+        Me.txtAdresse3.MaxLength = 60
         Me.txtAdresse3.MaxLineLength = -1
         Me.txtAdresse3.MaxLines_Warning = ""
         Me.txtAdresse3.MaxLines_Warning_Label = Nothing

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb

@@ -116,6 +116,7 @@
         cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
         cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
         cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR"))
         cboFirma.changeItem("AG")
         '  cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
 
@@ -124,8 +125,9 @@
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
-            Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"}
-            Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
+            Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} : cboFirma.changeItem("UNISPED") : cboFirma.Enabled = False
+            Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} : cboFirma.changeItem("ATILLA") : cboFirma.Enabled = False
+            Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"} : cboFirma.changeItem("AMBAR") : cboFirma.Enabled = False
         End Select
 
         txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "")
@@ -253,6 +255,9 @@
         cPostversand.post_ReferenzPaketdienst = txtRefNr.Text
         cPostversand.post_RgEmpfaenger_KdNr = kdRgEmpfaenger.KdNr
         cPostversand.post_RgEmpfaenger_Name = kdRgEmpfaenger.Text
+        If cPostversand.post_RgEmpfaenger_Name.length > 40 Then
+            cPostversand.post_RgEmpfaenger_Name = cPostversand.post_RgEmpfaenger_Name.ToString.Substring(0, 40)
+        End If
         cPostversand.post_KdAuftrNrAvisierer = Me.txtAvisiererAuftragsNr.Text
 
         'VK.vk_Rolle = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(ROLLE)
@@ -421,6 +426,7 @@
         Select Case cboFirma._value
             Case "IMEX" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value
             Case "UNISPED" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value
+            Case "AMBAR" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value
             Case Else : txtFirma._UseFIRMA = "VERAG" : KdInAuftrag._UseFIRMA = "VERAG"
         End Select
     End Sub

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -17,6 +17,8 @@ Public Class frmFormulare
     Event ShownFIN()
     Dim KdNr As Integer = 0
     Public printed As Boolean = False
+    Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+    Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
 
     Sub New()
 
@@ -440,8 +442,12 @@ Public Class frmFormulare
                         c = New usrcntlVorauskasse
                     Else
                         c = New usrcntlVorauskasse(param)
+                        If param.Length > 3 Then AVISO = param(3)
                     End If
                     '   Dim c As New usrcntlVorauskasse(param(0))
+                    If cboTextkonserve._value = "" Then cboTextkonserve._value = "Vorauskasse"
+                    If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
+
                     If ControlExists_addOK(c.GetType.ToString) Then
                         c.Width = MyFlowLayoutPanel1.Width - 6
                         c.KdNR = KdNr
@@ -985,8 +991,25 @@ Public Class frmFormulare
                                 If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
                                 If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
                                     Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
-                                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & tX.txt_text & cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig) & "</div>"
-                                    Mail.Subject = tX.txt_betreff.Replace("%LKW%", "")
+
+                                    Dim TextHTML = ""
+                                    TextHTML &= tX.txt_text
+                                    TextHTML &= cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig, True, True)
+                                    TextHTML &= "<br>"
+                                    TextHTML &= "Mit freundlichen Grüßen<br>"
+                                    TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                                    TextHTML &= "<br>"
+
+                                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
+
+
+                                    Mail.Subject = tX.txt_betreff
+                                    If AVISO IsNot Nothing Then
+                                        Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr)
+                                        Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
+                                    End If
+                                    Mail.Subject = Mail.Subject.Replace("%LKW%", "")
+                                    Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "")
                                 End If
 
                                 Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
@@ -1815,7 +1838,13 @@ Public Class FormularManagerNEU
                 Case Else
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                         Case "SBG" : ort = "Bad Reichenhall"
-                        Case "WAI" : ort = "Waidhaus"
+                        Case "WAI"
+                            ort = "Waidhaus"
+                            rpt.txtFirmaInfo_VERAG.Visible = False
+                            rpt.TextBox7.Visible = True
+                            If AVISO.ImEx = "EXPORT" Then rpt.TextBox3.Visible = False
+                            rpt.picVERAG.Image = My.Resources.Verag_Spedition_GMBH_Logo
+
                         Case "NKD" : ort = "Nickelsdorf"
                         Case "NEU" : ort = "Neuhaus am Inn"
                     End Select
@@ -3399,12 +3428,21 @@ Public Class FormularManagerNEU
                     rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
                     rpt.txtFirmaInfo_VERAG.Visible = False
                     rpt.txtFirmaInfo_IMEX.Visible = True
+                    rpt.TextBox6.Visible = False
+                Case "AMBAR"
+                    rpt.txtFirmenkennung.Text = "Ambar Logistic Services GmbH"
+                    rpt.picVERAG.Image = My.Resources.ambar_simple
+                    rpt.txtFirmaInfo_VERAG.Visible = False
+                    rpt.txtFirmaInfo_IMEX.Visible = False
+                    rpt.TextBox6.Visible = True
                 Case "ATILLA"
                     rpt.txtFirmenkennung.Text = "ATILLA Spedition GmbH"
                     rpt.picVERAG.Image = My.Resources.Atilla
                     rpt.txtFirmaInfo_VERAG.Visible = False
                     rpt.txtFirmaInfo_ATILLA.Visible = True
+                    rpt.TextBox6.Visible = False
                 Case Else 'Nix 
+                    rpt.txtFirmaInfo_VERAG.Visible = True
             End Select
 
             rpt.DataSource = dt
@@ -3650,6 +3688,7 @@ Public Class FormularManagerNEU
             nameDispo = "VerzollungsunterlagenAG2"
             Select Case usrCntl.cboFirma._value
                 Case "IMEX" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "IMEX"
+                Case "AMBAR" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "AMBAR"
                 Case "UNISPED" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "UNISPED"
                 Case "CS" : nameDispo = "VerzollungsunterlagenCS"
                 Case Else : nameDispo = "VerzollungsunterlagenAG2"
@@ -3799,6 +3838,7 @@ Public Class FormularManagerNEU
             Select Case usrCntl.cboFiliale._value
                 Case "5501" : Firma_idI_Sig_AT = 20 : Firma_idI_Sig_DE = 20 : Firma_idI_Sig_EV = 20 : SonderUID_AT = "DE295575575" : SonderUID_DE = "DE295575575" : Postfach_DE = "IMEX CUSTOMS SERVICE GMBH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
                 Case "5601" : Firma_idI_Sig_AT = 23 : Firma_idI_Sig_DE = 22 : Firma_idI_Sig_EV = 23 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "UNISPED Speditions GmbH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
+                Case "5701" : Firma_idI_Sig_AT = 24 : Firma_idI_Sig_DE = 24 : Firma_idI_Sig_EV = 24 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "AMBAR Logistic Services GmbH<br>Reichenhallerstraße 62<br>D 83435 BAD REICHENHALL<br>"
                 Case Else : Firma_idI_Sig_AT = 11 : Firma_idI_Sig_DE = 99 : Firma_idI_Sig_EV = 11 ' VERAG
 
             End Select
@@ -4068,6 +4108,14 @@ Public Class FormularManagerNEU
                             MailHTMLText &= "Vielen Dank im Voraus.<br>"
                             MailHTMLText &= "<br>"
                             MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
+                        Case "AMBAR"
+                            MailHTMLText &= "Ambar Logistic Services GmbH <br>"
+                            MailHTMLText &= "Reichenhallerstrasse 62</b><br>"
+                            MailHTMLText &= "DE-83435 Bad Reichenhall </b><br>"
+                            MailHTMLText &= "<br>"
+                            MailHTMLText &= "Vielen Dank im Voraus.<br>"
+                            MailHTMLText &= "<br>"
+                            MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
                         Case Else
                             MailHTMLText &= "Verag Customs Service GmbH<br>"
                             MailHTMLText &= "Postfach 1013<br>"
@@ -4101,6 +4149,14 @@ Public Class FormularManagerNEU
                             MailHTMLText &= "Vielen Dank im Voraus.<br>"
                             MailHTMLText &= "<br>"
                             MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
+                        Case "AMBAR"
+                            MailHTMLText &= "Ambar Logistic Services GmbH <br>"
+                            MailHTMLText &= "Reichenhallerstrasse 62</b><br>"
+                            MailHTMLText &= "DE-83435 Bad Reichenhall </b><br>"
+                            MailHTMLText &= "<br>"
+                            MailHTMLText &= "Vielen Dank im Voraus.<br>"
+                            MailHTMLText &= "<br>"
+                            MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
                         Case Else
                             MailHTMLText &= "Verag Customs Service GmbH<br>"
                             MailHTMLText &= "Postfach 1013<br>"
@@ -4134,6 +4190,8 @@ Public Class FormularManagerNEU
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                         Case "IMEX"
                             MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
+                        Case "AMBAR"
+                            MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
                         Case Else
                             MailHTMLText &= cFakturierung.getSignature("GB", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
                     End Select
@@ -4161,6 +4219,8 @@ Public Class FormularManagerNEU
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                         Case "IMEX"
                             MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
+                        Case "AMBAR"
+                            MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
                         Case Else
                             MailHTMLText &= cFakturierung.getSignature("FR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
                     End Select
@@ -4180,6 +4240,8 @@ Public Class FormularManagerNEU
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                         Case "IMEX"
                             MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
+                        Case "AMBAR"
+                            MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
                         Case Else
                             MailHTMLText &= cFakturierung.getSignature("TR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
                     End Select
@@ -4303,8 +4365,8 @@ Public Class FormularManagerNEU
             listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT))
             'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
             listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
-            If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 216, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
-            If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 265, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
+            If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
+            If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
             Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso", listTowrite)
             'End Select
             '         End If
@@ -4313,6 +4375,29 @@ Public Class FormularManagerNEU
     End Function
 
 
+    Shared Function zumZOLL_AVISO_WAI(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+        Dim top = 0
+
+        '  If AVISO.Grenzstelle = "WAI" Then
+        '  If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
+        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        '    Case "FRONTOFFICE", "VERAG"
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 55, 23, 65, 8, "bold", 15, , iTextSharp.text.Element.ALIGN_CENTER))
+            'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 150, 32, 45, 10, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))
+            'If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
+            'If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
+            Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "zumZoll_Aviso_WAI", listTowrite)
+        'End Select
+        ' End If
+        '   End If
+        Return ""
+    End Function
+
+
     Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
         Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
 

SDL/My Project/Resources.Designer.vb

@@ -488,6 +488,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
+        '''</summary>
+        Friend ReadOnly Property dfdf43344444345434543() As String
+            Get
+                Return ResourceManager.GetString("dfdf43344444345434543", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -964,6 +973,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property LKW_Liste() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("LKW_Liste", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1004,6 +1023,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property mic_logo() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("mic_logo", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property mic_logo___short() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("mic_logo___short", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1833,6 +1872,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property SR_TransFerry360() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("SR_TransFerry360", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -2222,7 +2271,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.9.2 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.2.0.0 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

SDL/My Project/Resources.resx

@@ -638,7 +638,7 @@
     <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>1.1.9.2</value>
+    <value>1.2.0.0</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>
@@ -805,4 +805,19 @@
   <data name="VERAG_UNISPED_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="mic_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\mic-logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="mic_logo___short" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\mic-logo - short.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="LKW_Liste" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\LKW_Liste.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="dfdf43344444345434543" xml:space="preserve">
+    <value />
+  </data>
 </root>

SDL/Post/frmPostEinschreiben.vb

@@ -26,6 +26,7 @@
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "ATILLA" : QSwhere = ""
             Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') "
+            Case "AMBAR" : QSwhere = " AND mit_firma IN ('AMBAR','BEIDE') "
             Case Else
                 QSwhere = " AND mit_firma <> 'IMEX' "
         End Select
@@ -39,6 +40,8 @@
                 where = " AND FilialenNr IN (5501) "
             Case "ATILLA"
                 where = " AND FilialenNr IN (4801) "
+            Case "AMBAR"
+                where = " AND FilialenNr IN (5701) "
             Case Else
                 where = " AND FilialenNr NOT IN (5501) "
         End Select
@@ -46,11 +49,16 @@
         cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & where & " ORDER BY FilialenNr ", True, "FMZOLL", True)
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "IMEX"
-                cboFiliale._allowedValuesFreiText = {"5501"}
+                'cboFiliale._allowedValuesFreiText = {"5501"}
                 cboFiliale.changeItem("5501")
             Case "ATILLA"
                 cboFiliale._allowedValuesFreiText = {"4801"}
                 cboFiliale.changeItem("4801")
+                cboFiliale.Enabled = False
+            Case "AMBAR"
+                cboFiliale._allowedValuesFreiText = {"5701"}
+                cboFiliale.changeItem("5701")
+                cboFiliale.Enabled = False
         End Select
 
         cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &

SDL/SDL.vbproj

@@ -450,6 +450,12 @@
       <SubType>Component</SubType>
     </Compile>
     <Compile Include="cSqlDb.vb" />
+    <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.Designer.vb">
+      <DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.Designer.vb">
       <DependentUpon>subRptLaufzettelZollDE_Vorpapier.vb</DependentUpon>
     </Compile>
@@ -480,10 +486,21 @@
     <Compile Include="kunden\usrCntlKundenBesonderheiten.vb">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="mdm\frmMDM_USTVAntrag.Designer.vb">
+    <Compile Include="mdm\PLOSE\frmPLOSE_ProductCodes.Designer.vb">
+      <DependentUpon>frmPLOSE_ProductCodes.vb</DependentUpon>
+    </Compile>
+    <Compile Include="mdm\PLOSE\frmPLOSE_ProductCodes.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="USTV\frmMDM_USTVAntrag.Designer.vb">
       <DependentUpon>frmMDM_USTVAntrag.vb</DependentUpon>
     </Compile>
-    <Compile Include="mdm\frmMDM_USTVAntrag.vb">
+    <Compile Include="USTV\frmMDM_USTVAntrag.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="mdm\PLOSE\rptPLOSE_LaenderGesamt.Designer.vb">
@@ -498,10 +515,10 @@
     <Compile Include="mdm\PLOSE\rptPLOSE_Konsortium.vb">
       <SubType>Component</SubType>
     </Compile>
-    <Compile Include="mdm\usrCntlUSTV.Designer.vb">
+    <Compile Include="USTV\usrCntlUSTV.Designer.vb">
       <DependentUpon>usrCntlUSTV.vb</DependentUpon>
     </Compile>
-    <Compile Include="mdm\usrCntlUSTV.vb">
+    <Compile Include="USTV\usrCntlUSTV.vb">
       <SubType>UserControl</SubType>
     </Compile>
     <Compile Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb">
@@ -1781,11 +1798,6 @@
     <Compile Include="mdm\usrCntlWoelfl_IM_CSVRg.vb">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
     <Compile Include="PopUp\frmPopUpInfo.Designer.vb">
       <DependentUpon>frmPopUpInfo.vb</DependentUpon>
     </Compile>
@@ -2392,6 +2404,12 @@
       <DesignTime>True</DesignTime>
       <DependentUpon>Reference.map</DependentUpon>
     </Compile>
+    <Compile Include="ZOLLSYSTEM\MIC\usrCntlMIC_NCTS.Designer.vb">
+      <DependentUpon>usrCntlMIC_NCTS.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\MIC\usrCntlMIC_NCTS.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="ZOLLSYSTEM\SGS\usrCntlSGS_NCTS.Designer.vb">
       <DependentUpon>usrCntlSGS_NCTS.vb</DependentUpon>
     </Compile>
@@ -2591,6 +2609,9 @@
     <EmbeddedResource Include="Checkliste\subRptVM.resx">
       <DependentUpon>subRptVM.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.resx">
+      <DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.resx">
       <DependentUpon>subRptLaufzettelZollDE_Vorpapier.vb</DependentUpon>
     </EmbeddedResource>
@@ -2606,7 +2627,10 @@
     <EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
       <DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="mdm\frmMDM_USTVAntrag.resx">
+    <EmbeddedResource Include="mdm\PLOSE\frmPLOSE_ProductCodes.resx">
+      <DependentUpon>frmPLOSE_ProductCodes.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="USTV\frmMDM_USTVAntrag.resx">
       <DependentUpon>frmMDM_USTVAntrag.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="mdm\PLOSE\rptPLOSE_LaenderGesamt.resx">
@@ -2615,7 +2639,7 @@
     <EmbeddedResource Include="mdm\PLOSE\rptPLOSE_Konsortium.resx">
       <DependentUpon>rptPLOSE_Konsortium.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="mdm\usrCntlUSTV.resx">
+    <EmbeddedResource Include="USTV\usrCntlUSTV.resx">
       <DependentUpon>usrCntlUSTV.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.resx">
@@ -3549,6 +3573,9 @@
     <EmbeddedResource Include="usrCntlWelcome.resx">
       <DependentUpon>usrCntlWelcome.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="ZOLLSYSTEM\MIC\usrCntlMIC_NCTS.resx">
+      <DependentUpon>usrCntlMIC_NCTS.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="ZOLLSYSTEM\SGS\usrCntlSGS_NCTS.resx">
       <DependentUpon>usrCntlSGS_NCTS.vb</DependentUpon>
     </EmbeddedResource>
@@ -3627,10 +3654,12 @@
     <None Include="Resources\FA_Graz_EV-Veranlagung_Muster.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
+    <None Include="Resources\LKW_Liste.xlsx" />
     <None Include="Resources\RG_ZF.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
     <None Include="Resources\SR_EVOLOG.xlsx" />
+    <None Include="Resources\SR_TransFerry360.xlsx" />
     <None Include="Web References\eu.europa.ec1\eoriValidationResult.datasource">
       <DependentUpon>Reference.map</DependentUpon>
     </None>
@@ -4029,6 +4058,8 @@
   <ItemGroup>
     <Content Include="My Project\logo_mdm.png" />
     <Content Include="My Project\zoll.png" />
+    <None Include="Resources\mic-logo.jpg" />
+    <None Include="Resources\mic-logo - short.jpg" />
     <None Include="Resources\VERAG-UNISPED-Logo.jpg" />
     <None Include="Resources\unisped_aeo_ZS_AT.jpg" />
     <None Include="Resources\Unisped_ZS_logo.png" />
@@ -4305,6 +4336,10 @@
       <Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
       <Name>DAKOSY_Worker_lib</Name>
     </ProjectReference>
+    <ProjectReference Include="..\..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj">
+      <Project>{2e4dbc09-e57b-4ac5-8554-6117d71f993b}</Project>
+      <Name>MDM_Worker_lib</Name>
+    </ProjectReference>
     <ProjectReference Include="..\..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj">
       <Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project>
       <Name>TELOTEC_Worker_lib</Name>

SDL/SMS/frmSendSMS.Designer.vb

@@ -47,6 +47,14 @@ Partial Class frmSendSMS
         Me.cbxLKWOK = New System.Windows.Forms.CheckBox()
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.Button13 = New System.Windows.Forms.Button()
+        Me.Button14 = New System.Windows.Forms.Button()
+        Me.Button15 = New System.Windows.Forms.Button()
+        Me.Button16 = New System.Windows.Forms.Button()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.Button18 = New System.Windows.Forms.Button()
+        Me.Button19 = New System.Windows.Forms.Button()
+        Me.Button20 = New System.Windows.Forms.Button()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -115,7 +123,7 @@ Partial Class frmSendSMS
         Me.txtNachricht.MaxLines_Warning = ""
         Me.txtNachricht.MaxLines_Warning_Label = Nothing
         Me.txtNachricht.Name = "txtNachricht"
-        Me.txtNachricht.Size = New System.Drawing.Size(534, 144)
+        Me.txtNachricht.Size = New System.Drawing.Size(558, 144)
         Me.txtNachricht.TabIndex = 6
         Me.txtNachricht.Text = ""
         '
@@ -125,9 +133,9 @@ Partial Class frmSendSMS
         Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnAbbrechen.Image = Global.SDL.My.Resources.Resources.del_small
         Me.btnAbbrechen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnAbbrechen.Location = New System.Drawing.Point(405, 339)
+        Me.btnAbbrechen.Location = New System.Drawing.Point(456, 339)
         Me.btnAbbrechen.Name = "btnAbbrechen"
-        Me.btnAbbrechen.Size = New System.Drawing.Size(144, 25)
+        Me.btnAbbrechen.Size = New System.Drawing.Size(117, 25)
         Me.btnAbbrechen.TabIndex = 22
         Me.btnAbbrechen.Text = "       Abbrechen"
         Me.btnAbbrechen.UseVisualStyleBackColor = True
@@ -137,9 +145,9 @@ Partial Class frmSendSMS
         Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnOK.Image = Global.SDL.My.Resources.Resources.ok
         Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnOK.Location = New System.Drawing.Point(405, 265)
+        Me.btnOK.Location = New System.Drawing.Point(456, 265)
         Me.btnOK.Name = "btnOK"
-        Me.btnOK.Size = New System.Drawing.Size(144, 51)
+        Me.btnOK.Size = New System.Drawing.Size(117, 51)
         Me.btnOK.TabIndex = 14
         Me.btnOK.Text = "          SMS senden"
         Me.btnOK.UseVisualStyleBackColor = True
@@ -159,7 +167,7 @@ Partial Class frmSendSMS
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.Location = New System.Drawing.Point(15, 267)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(300, 25)
+        Me.Button1.Size = New System.Drawing.Size(293, 25)
         Me.Button1.TabIndex = 8
         Me.Button1.Text = "Bitte zu VERAG kommen!"
         Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -170,7 +178,7 @@ Partial Class frmSendSMS
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button2.Location = New System.Drawing.Point(15, 291)
         Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(300, 25)
+        Me.Button2.Size = New System.Drawing.Size(293, 25)
         Me.Button2.TabIndex = 11
         Me.Button2.Text = "Bitte zu VERAG kommen und den Pass mitnehmen!"
         Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -181,7 +189,7 @@ Partial Class frmSendSMS
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.Location = New System.Drawing.Point(15, 315)
         Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(300, 25)
+        Me.Button3.Size = New System.Drawing.Size(293, 25)
         Me.Button3.TabIndex = 15
         Me.Button3.Text = "Bitte zu VERAG kommen und den Stempel mitnehmen!"
         Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -192,7 +200,7 @@ Partial Class frmSendSMS
         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button4.Location = New System.Drawing.Point(15, 339)
         Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(300, 25)
+        Me.Button4.Size = New System.Drawing.Size(293, 25)
         Me.Button4.TabIndex = 19
         Me.Button4.Text = "Bitte zu VERAG kommen und Bargeld mitnehmen: €" & Global.Microsoft.VisualBasic.ChrW(10) & " ..." & Global.Microsoft.VisualBasic.ChrW(10)
         Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -201,9 +209,9 @@ Partial Class frmSendSMS
         'Button5
         '
         Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button5.Location = New System.Drawing.Point(314, 339)
+        Me.Button5.Location = New System.Drawing.Point(307, 339)
         Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(43, 25)
+        Me.Button5.Size = New System.Drawing.Size(35, 25)
         Me.Button5.TabIndex = 20
         Me.Button5.Text = "TR"
         Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -212,9 +220,9 @@ Partial Class frmSendSMS
         'Button6
         '
         Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button6.Location = New System.Drawing.Point(314, 315)
+        Me.Button6.Location = New System.Drawing.Point(307, 315)
         Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(43, 25)
+        Me.Button6.Size = New System.Drawing.Size(35, 25)
         Me.Button6.TabIndex = 16
         Me.Button6.Text = "TR"
         Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -223,9 +231,9 @@ Partial Class frmSendSMS
         'Button7
         '
         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button7.Location = New System.Drawing.Point(314, 291)
+        Me.Button7.Location = New System.Drawing.Point(307, 291)
         Me.Button7.Name = "Button7"
-        Me.Button7.Size = New System.Drawing.Size(43, 25)
+        Me.Button7.Size = New System.Drawing.Size(35, 25)
         Me.Button7.TabIndex = 12
         Me.Button7.Text = "TR"
         Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -234,9 +242,9 @@ Partial Class frmSendSMS
         'Button8
         '
         Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button8.Location = New System.Drawing.Point(314, 267)
+        Me.Button8.Location = New System.Drawing.Point(307, 267)
         Me.Button8.Name = "Button8"
-        Me.Button8.Size = New System.Drawing.Size(43, 25)
+        Me.Button8.Size = New System.Drawing.Size(35, 25)
         Me.Button8.TabIndex = 9
         Me.Button8.Text = "TR"
         Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -245,9 +253,9 @@ Partial Class frmSendSMS
         'Button9
         '
         Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button9.Location = New System.Drawing.Point(356, 339)
+        Me.Button9.Location = New System.Drawing.Point(341, 339)
         Me.Button9.Name = "Button9"
-        Me.Button9.Size = New System.Drawing.Size(43, 25)
+        Me.Button9.Size = New System.Drawing.Size(35, 25)
         Me.Button9.TabIndex = 21
         Me.Button9.Text = "YU"
         Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -256,9 +264,9 @@ Partial Class frmSendSMS
         'Button10
         '
         Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button10.Location = New System.Drawing.Point(356, 315)
+        Me.Button10.Location = New System.Drawing.Point(341, 315)
         Me.Button10.Name = "Button10"
-        Me.Button10.Size = New System.Drawing.Size(43, 25)
+        Me.Button10.Size = New System.Drawing.Size(35, 25)
         Me.Button10.TabIndex = 17
         Me.Button10.Text = "YU"
         Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -267,9 +275,9 @@ Partial Class frmSendSMS
         'Button11
         '
         Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button11.Location = New System.Drawing.Point(356, 291)
+        Me.Button11.Location = New System.Drawing.Point(341, 291)
         Me.Button11.Name = "Button11"
-        Me.Button11.Size = New System.Drawing.Size(43, 25)
+        Me.Button11.Size = New System.Drawing.Size(35, 25)
         Me.Button11.TabIndex = 13
         Me.Button11.Text = "YU"
         Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -278,9 +286,9 @@ Partial Class frmSendSMS
         'Button12
         '
         Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button12.Location = New System.Drawing.Point(356, 267)
+        Me.Button12.Location = New System.Drawing.Point(341, 267)
         Me.Button12.Name = "Button12"
-        Me.Button12.Size = New System.Drawing.Size(43, 25)
+        Me.Button12.Size = New System.Drawing.Size(35, 25)
         Me.Button12.TabIndex = 10
         Me.Button12.Text = "YU"
         Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -292,7 +300,7 @@ Partial Class frmSendSMS
         Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.pic.Location = New System.Drawing.Point(418, 9)
         Me.pic.Name = "pic"
-        Me.pic.Size = New System.Drawing.Size(131, 100)
+        Me.pic.Size = New System.Drawing.Size(158, 100)
         Me.pic.TabIndex = 20
         Me.pic.TabStop = False
         '
@@ -301,7 +309,7 @@ Partial Class frmSendSMS
         Me.cbxLKWOK.AutoSize = True
         Me.cbxLKWOK.Checked = True
         Me.cbxLKWOK.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxLKWOK.Location = New System.Drawing.Point(406, 320)
+        Me.cbxLKWOK.Location = New System.Drawing.Point(456, 320)
         Me.cbxLKWOK.Name = "cbxLKWOK"
         Me.cbxLKWOK.Size = New System.Drawing.Size(120, 17)
         Me.cbxLKWOK.TabIndex = 18
@@ -331,12 +339,108 @@ Partial Class frmSendSMS
         Me.Label3.TabIndex = 4
         Me.Label3.Text = "Firma:"
         '
+        'Button13
+        '
+        Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button13.Location = New System.Drawing.Point(375, 339)
+        Me.Button13.Name = "Button13"
+        Me.Button13.Size = New System.Drawing.Size(35, 25)
+        Me.Button13.TabIndex = 26
+        Me.Button13.Text = "RO"
+        Me.Button13.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button13.UseVisualStyleBackColor = True
+        '
+        'Button14
+        '
+        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button14.Location = New System.Drawing.Point(375, 315)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(35, 25)
+        Me.Button14.TabIndex = 25
+        Me.Button14.Text = "RO"
+        Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button14.UseVisualStyleBackColor = True
+        '
+        'Button15
+        '
+        Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button15.Location = New System.Drawing.Point(375, 291)
+        Me.Button15.Name = "Button15"
+        Me.Button15.Size = New System.Drawing.Size(35, 25)
+        Me.Button15.TabIndex = 24
+        Me.Button15.Text = "RO"
+        Me.Button15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button15.UseVisualStyleBackColor = True
+        '
+        'Button16
+        '
+        Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button16.Location = New System.Drawing.Point(375, 267)
+        Me.Button16.Name = "Button16"
+        Me.Button16.Size = New System.Drawing.Size(35, 25)
+        Me.Button16.TabIndex = 23
+        Me.Button16.Text = "RO"
+        Me.Button16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button16.UseVisualStyleBackColor = True
+        '
+        'Button17
+        '
+        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button17.Location = New System.Drawing.Point(408, 339)
+        Me.Button17.Name = "Button17"
+        Me.Button17.Size = New System.Drawing.Size(35, 25)
+        Me.Button17.TabIndex = 30
+        Me.Button17.Text = "BG"
+        Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button17.UseVisualStyleBackColor = True
+        '
+        'Button18
+        '
+        Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button18.Location = New System.Drawing.Point(408, 315)
+        Me.Button18.Name = "Button18"
+        Me.Button18.Size = New System.Drawing.Size(35, 25)
+        Me.Button18.TabIndex = 29
+        Me.Button18.Text = "BG"
+        Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button18.UseVisualStyleBackColor = True
+        '
+        'Button19
+        '
+        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button19.Location = New System.Drawing.Point(408, 291)
+        Me.Button19.Name = "Button19"
+        Me.Button19.Size = New System.Drawing.Size(35, 25)
+        Me.Button19.TabIndex = 28
+        Me.Button19.Text = "BG"
+        Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button19.UseVisualStyleBackColor = True
+        '
+        'Button20
+        '
+        Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button20.Location = New System.Drawing.Point(408, 267)
+        Me.Button20.Name = "Button20"
+        Me.Button20.Size = New System.Drawing.Size(35, 25)
+        Me.Button20.TabIndex = 27
+        Me.Button20.Text = "BG"
+        Me.Button20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button20.UseVisualStyleBackColor = True
+        '
         'frmSendSMS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(560, 371)
+        Me.ClientSize = New System.Drawing.Size(583, 371)
+        Me.Controls.Add(Me.Button17)
+        Me.Controls.Add(Me.Button18)
+        Me.Controls.Add(Me.Button19)
+        Me.Controls.Add(Me.Button20)
+        Me.Controls.Add(Me.Button13)
+        Me.Controls.Add(Me.Button14)
+        Me.Controls.Add(Me.Button15)
+        Me.Controls.Add(Me.Button16)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.cboFirma)
         Me.Controls.Add(Me.cbxLKWOK)
@@ -394,4 +498,12 @@ Partial Class frmSendSMS
     Friend WithEvents cbxLKWOK As CheckBox
     Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label3 As Label
+    Friend WithEvents Button13 As Button
+    Friend WithEvents Button14 As Button
+    Friend WithEvents Button15 As Button
+    Friend WithEvents Button16 As Button
+    Friend WithEvents Button17 As Button
+    Friend WithEvents Button18 As Button
+    Friend WithEvents Button19 As Button
+    Friend WithEvents Button20 As Button
 End Class

SDL/SMS/frmSendSMS.vb

@@ -129,10 +129,14 @@ Public Class frmSendSMS
             nr &= txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
 
 
-        If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Then
+            If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Or nr.StartsWith("000") Then
                 MsgBox("Bitte prüfen Sie die Nummer!" & vbNewLine & "Jede Nummer muss mit der Ländervorwahl beginnen.")
                 Exit Sub
             End If
+            If nr.Trim.Length <= 5 Then
+                MsgBox("Bitte prüfen Sie die Nummer!")
+                Exit Sub
+            End If
 
             Dim absenderAccount = ""
             Dim absenderFirma = ""
@@ -154,13 +158,12 @@ Public Class frmSendSMS
             End Select
 
 
-
             ' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
             SMS = New VERAG_PROG_ALLGEMEIN.cSMS
 
 
             SMS.sms_Vorwahl = cboLandVorwahl._value
-        SMS.sms_Handynummer = txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
+            SMS.sms_Handynummer = nr 'txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
             SMS.sms_Nachricht = txtNachricht.Text
 
 
@@ -171,49 +174,14 @@ Public Class frmSendSMS
             SMS.sms_Fahrername = If(FahrerName <> "", FahrerName, Nothing)
             SMS.sms_AvisoId = If(AvisoId > 0, AvisoId, Nothing)
 
-        Try
-
-            Dim messagingService As New MessagingService("al@verag.ag", "Developer#2")
-            'SENDEN DER SMS
-            Dim result = messagingService.SendMessage(New SmsMessage(nr, txtNachricht.Text, absenderAccount))
-
-            Dim msgIDs As String = ""
-            Try
-                SMS.sms_BatchId = result.BatchId
-                If result.MessageIds IsNot Nothing Then
-                    For Each m In result.MessageIds
-                        msgIDs &= m.Uri & ";;"
-                    Next
-                    SMS.sms_MessageIds = msgIDs
-                End If
-            Catch ex As Exception
-            End Try
-            If msgIDs.EndsWith(";;") Then msgIDs = msgIDs.Substring(0, msgIDs.Length - 2)
-
-            If Not SMS.SAVE() Then
-                MsgBox("Fehler: SMS Daten wurden nicht gespeichert!")
-            End If
-
+            If SMS.sendSMS Then
                 If cbxLKWOK.Visible And cbxLKWOK.Checked And AvisoId > 0 Then
-
                     VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
-
                 End If
-
-
                 Me.DialogResult = Windows.Forms.DialogResult.OK
-
-
-            Exit Sub
-
-            Me.Close()
-        Catch ex As Exception
-            MsgBox("Fehler beim Senden der SMS!" & vbNewLine & ex.Message & ex.StackTrace)
+            Else
                 Me.DialogResult = Windows.Forms.DialogResult.None
-
-        End Try
-
-            ' End If
+            End If
 
         Catch ex As Exception
             MsgBox(vbNewLine & ex.Message & ex.StackTrace)
@@ -310,11 +278,43 @@ Public Class frmSendSMS
     Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
         initFirma()
     End Sub
+
+    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
+        fillTXT("Va rog sa va prezentati la sediul firmei VERAG!", "TRUCK: ")
+    End Sub
+
+    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
+        fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu Buletin/ Pasaport!", "TRUCK: ")
+    End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu Stampila firmei!", "TRUCK: ")
+    End Sub
+
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+        fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu suma in Cash: € ", "TRUCK: ")
+    End Sub
+
+    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
+        fillTXT("Моля, елате във VERAG!", "TRUCK: ")
+    End Sub
+
+    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
+        fillTXT("Моля, елате във VERAG и вземете паспорта си!", "TRUCK: ")
+    End Sub
+
+    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
+        fillTXT("Моля, елате във VERAG и вземете печата си!", "TRUCK: ")
+    End Sub
+
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+        fillTXT("Моля, елате във VERAG и вземете пари в борй в размер на: € ", "TRUCK: ")
+    End Sub
 End Class
 
 Public Class cSMSOptions
 
-    Shared Sub insertVermerk(AvisoId, HandyNr, Optional DatumTmp = Nothing)
+    Shared Sub insertVermerkSMS(AvisoId, HandyNr, SMSId, Optional DatumTmp = Nothing)
         Try
             Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
 
@@ -329,6 +329,8 @@ Public Class cSMSOptions
             myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
             myVermerk.Hinweis_Vermerk = "SMS an Fahrer gesendet: " & HandyNr
             myVermerk.VermerkCodeId = 46
+            myVermerk.SMSId = SMSId
+            myVermerk.SMSStatus = 0
 
             VermerkeDAL.SpeichernVermerk(myVermerk)
 

SDL/SMS/usrCntlSMS.Designer.vb

@@ -61,6 +61,7 @@ Partial Class usrCntlSMS
         Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.pnloptions.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -94,6 +95,7 @@ Partial Class usrCntlSMS
         Me.txtAbfertDatBis._TimeOnly = False
         Me.txtAbfertDatBis._value = ""
         Me.txtAbfertDatBis._Waehrung = False
+        Me.txtAbfertDatBis._WaehrungZeichen = True
         Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
         Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
@@ -116,6 +118,7 @@ Partial Class usrCntlSMS
         Me.txtAbfertDat._TimeOnly = False
         Me.txtAbfertDat._value = ""
         Me.txtAbfertDat._Waehrung = False
+        Me.txtAbfertDat._WaehrungZeichen = True
         Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
         Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
@@ -130,7 +133,7 @@ Partial Class usrCntlSMS
         'btnExcel
         '
         Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
+        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
         Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
         Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnExcel.Location = New System.Drawing.Point(1020, 22)
@@ -150,6 +153,7 @@ Partial Class usrCntlSMS
         Me.txtHandyNr._TimeOnly = False
         Me.txtHandyNr._value = ""
         Me.txtHandyNr._Waehrung = False
+        Me.txtHandyNr._WaehrungZeichen = True
         Me.txtHandyNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtHandyNr.ForeColor = System.Drawing.Color.Black
         Me.txtHandyNr.Location = New System.Drawing.Point(435, 57)
@@ -207,6 +211,7 @@ Partial Class usrCntlSMS
         'pnloptions
         '
         Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.pnloptions.Controls.Add(Me.Button1)
         Me.pnloptions.Controls.Add(Me.Button2)
         Me.pnloptions.Controls.Add(Me.btnExcel)
         Me.pnloptions.Controls.Add(Me.FlatButton7)
@@ -222,7 +227,7 @@ Partial Class usrCntlSMS
         '
         Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Image = Global.SDL.My.Resources.plus
+        Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
         Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button2.Location = New System.Drawing.Point(12, 5)
         Me.Button2.Margin = New System.Windows.Forms.Padding(0)
@@ -237,7 +242,7 @@ Partial Class usrCntlSMS
         'FlatButton7
         '
         Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
+        Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
         Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -270,6 +275,7 @@ Partial Class usrCntlSMS
         Me.txtMaxSrch._TimeOnly = False
         Me.txtMaxSrch._value = ""
         Me.txtMaxSrch._Waehrung = False
+        Me.txtMaxSrch._WaehrungZeichen = True
         Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
@@ -285,9 +291,10 @@ Partial Class usrCntlSMS
         '
         'btnSuche
         '
+        Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnSuche.Image = Global.SDL.My.Resources.search
+        Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
         Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnSuche.Location = New System.Drawing.Point(923, 72)
         Me.btnSuche.Name = "btnSuche"
@@ -584,6 +591,19 @@ Partial Class usrCntlSMS
         Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
         Me.StornoToolStripMenuItem.Text = "Storno"
         '
+        'Button1
+        '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(113, 5)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(104, 45)
+        Me.Button1.TabIndex = 9
+        Me.Button1.Text = "Status prüfen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         'usrCntlSMS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -642,5 +662,5 @@ Partial Class usrCntlSMS
     Friend WithEvents Label8 As System.Windows.Forms.Label
     Friend WithEvents cboAbsedner As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label1 As System.Windows.Forms.Label
-
+    Friend WithEvents Button1 As Button
 End Class

SDL/SMS/usrCntlSMS.vb

@@ -1,4 +1,6 @@
-Public Class usrCntlSMS
+Imports com.esendex.sdk.sent
+
+Public Class usrCntlSMS
 
     Dim FahrerAbholAuftrag = False
     Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
@@ -162,7 +164,7 @@
         Dim sqlstr As String = ""
 
 
-        sqlstr &= " SELECT " & TopMax & " [sms_id],[sms_Datum],[sms_Account], sms_Vorwahl + '' + [sms_Handynummer] as Nummer,[sms_Nachricht],[sms_Sachbearbeiter] FROM [tblSMS]  WHERE 1=1 "
+        sqlstr &= " SELECT " & TopMax & " [sms_id],[sms_Datum],[sms_Account], sms_Vorwahl + '' + [sms_Handynummer] as Nummer,[sms_Nachricht],[sms_Sachbearbeiter],sms_BatchId,sms_MessageIds FROM [tblSMS]  WHERE 1=1 "
 
         With MyDatagridview1
             '  .DataSource = myTable
@@ -224,6 +226,8 @@
             .MultiSelect = False
 
             .Columns("sms_id").Visible = False
+            .Columns("sms_BatchId").Visible = False
+            .Columns("sms_MessageIds").Visible = False
 
             .Columns("sms_Datum").Width = 100
             .Columns("sms_Datum").HeaderText = "Datum"
@@ -363,6 +367,20 @@
         End If
     End Sub
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS(MyDatagridview1.SelectedRows(0).Cells("sms_id").Value)
+            Select Case SMS.checkSMSStatus
+                Case <= 0 : MsgBox("SMS-Status: Wartend...")
+                Case 1 : MsgBox("SMS-Status: Wartend...")
+                Case 2 : MsgBox("SMS-Status: Gesendet")
+                Case 3 : MsgBox("SMS-Status: Empfangen")
+                Case 4 : MsgBox("SMS-Status: Fehler")
+            End Select
+        End If
+    End Sub
+
+
 End Class
 
- 

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb

@@ -120,6 +120,7 @@ Partial Class frmNacherfassungNEU
         Me.Label34 = New System.Windows.Forms.Label()
         Me.btnFertig = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.txtKdAuftragsnummerEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtKdAuftragsnummerFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtKdAuftragsnummerAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -228,7 +229,7 @@ Partial Class frmNacherfassungNEU
         Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Button4 = New System.Windows.Forms.Button()
+        Me.cbxEIDR = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         Me.Panel3.SuspendLayout()
         Me.GroupBox4.SuspendLayout()
@@ -1418,6 +1419,7 @@ Partial Class frmNacherfassungNEU
         'Panel1
         '
         Me.Panel1.AutoScroll = True
+        Me.Panel1.Controls.Add(Me.cbxEIDR)
         Me.Panel1.Controls.Add(Me.Button4)
         Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerEmpfaenger)
         Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerFrachtfuehrer)
@@ -1517,6 +1519,18 @@ Partial Class frmNacherfassungNEU
         Me.Panel1.Size = New System.Drawing.Size(883, 799)
         Me.Panel1.TabIndex = 1
         '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button4.Location = New System.Drawing.Point(440, 265)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(145, 27)
+        Me.Button4.TabIndex = 42
+        Me.Button4.Text = "Endempfänger Liste"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
         'txtKdAuftragsnummerEmpfaenger
         '
         Me.txtKdAuftragsnummerEmpfaenger._DateTimeOnly = False
@@ -3235,17 +3249,16 @@ Partial Class frmNacherfassungNEU
         Me.DataGridViewTextBoxColumn5.HeaderText = "Anzahl"
         Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
         '
-        'Button4
+        'cbxEIDR
         '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.Button4.Location = New System.Drawing.Point(440, 265)
-        Me.Button4.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(145, 27)
-        Me.Button4.TabIndex = 42
-        Me.Button4.Text = "Endempfänger Liste"
-        Me.Button4.UseVisualStyleBackColor = True
+        Me.cbxEIDR.AutoSize = True
+        Me.cbxEIDR.BackColor = System.Drawing.Color.White
+        Me.cbxEIDR.Location = New System.Drawing.Point(484, 70)
+        Me.cbxEIDR.Name = "cbxEIDR"
+        Me.cbxEIDR.Size = New System.Drawing.Size(106, 17)
+        Me.cbxEIDR.TabIndex = 93
+        Me.cbxEIDR.Text = "EIDR ausständig"
+        Me.cbxEIDR.UseVisualStyleBackColor = False
         '
         'frmNacherfassungNEU
         '
@@ -3483,4 +3496,5 @@ Partial Class frmNacherfassungNEU
     Friend WithEvents Label64 As Label
     Public WithEvents cboAbklärungFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Button4 As Button
+    Friend WithEvents cbxEIDR As CheckBox
 End Class

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -252,6 +252,7 @@ Public Class frmNacherfassungNEU
         End If
 
         cbxBar.Checked = SPEDITIONSBUCH.Bar
+        cbxEIDR.Checked = SPEDITIONSBUCH.UK_EIDR_ausstehend
         cbxFakturiert.Checked = SPEDITIONSBUCH.Fakturiert
 
         txtBelegNummerZAT1T2.Text = SPEDITIONSBUCH.BelegNr
@@ -622,14 +623,9 @@ Public Class frmNacherfassungNEU
 
 
         cboGrenze.Items.Clear()
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
-        cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
+        cboGrenze.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
         cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
-
+        cboGrenze.changeItem("")
 
         If avisoLinkId > 0 Then
             Dim SQLAVISO As New VERAG_PROG_ALLGEMEIN.cavisoDAL
@@ -904,6 +900,7 @@ Public Class frmNacherfassungNEU
         End If
 
 
+        SPEDITIONSBUCH.UK_EIDR_ausstehend = cbxEIDR.Checked
         SPEDITIONSBUCH.Bar = cbxBar.Checked
         SPEDITIONSBUCH.Fakturiert = cbxFakturiert.Checked
 
@@ -1189,6 +1186,11 @@ Public Class frmNacherfassungNEU
         txtFraechter._UseFIRMA = FirmaTmp
         txtEndEmpf._UseFIRMA = FirmaTmp
 
+        If cboFiliale._value = 7001 Then
+            cbxEIDR.Visible = True
+        Else
+            cbxEIDR.Visible = False
+        End If
     End Sub
 
 

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb

@@ -56,6 +56,10 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlOpt = New System.Windows.Forms.Panel()
         Me.pnlBerichte = New System.Windows.Forms.Panel()
+        Me.lblKdAusFortschritt = New System.Windows.Forms.Label()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button20 = New System.Windows.Forms.Button()
         Me.Label46 = New System.Windows.Forms.Label()
@@ -176,10 +180,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.Label45 = New System.Windows.Forms.Label()
         Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
-        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
-        Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.lblKdAusFortschritt = New System.Windows.Forms.Label()
+        Me.cbxEIDR = New System.Windows.Forms.CheckBox()
         Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
         Me.pnlRechts.SuspendLayout()
         CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -187,6 +188,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlOpt.SuspendLayout()
         Me.pnlBerichte.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.pnl.SuspendLayout()
         Me.tbcntr.SuspendLayout()
@@ -201,7 +203,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
         Me.SplitContainer.SuspendLayout()
-        Me.MenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
         'TabPage1
@@ -417,7 +418,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.txtPackstücke.MaxLines_Warning = ""
         Me.txtPackstücke.MaxLines_Warning_Label = Nothing
         Me.txtPackstücke.Name = "txtPackstücke"
-        Me.txtPackstücke.Size = New System.Drawing.Size(141, 20)
+        Me.txtPackstücke.Size = New System.Drawing.Size(110, 20)
         Me.txtPackstücke.TabIndex = 41
         '
         'Label36
@@ -701,6 +702,42 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.pnlBerichte.TabIndex = 6
         Me.pnlBerichte.Visible = False
         '
+        'lblKdAusFortschritt
+        '
+        Me.lblKdAusFortschritt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblKdAusFortschritt.Location = New System.Drawing.Point(767, 135)
+        Me.lblKdAusFortschritt.Name = "lblKdAusFortschritt"
+        Me.lblKdAusFortschritt.Size = New System.Drawing.Size(77, 14)
+        Me.lblKdAusFortschritt.TabIndex = 43
+        Me.lblKdAusFortschritt.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
+        Me.MenuStrip1.Location = New System.Drawing.Point(601, 128)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(163, 27)
+        Me.MenuStrip1.TabIndex = 89
+        Me.MenuStrip1.Text = "Kundenauswertungen"
+        '
+        'KundenauswertungenToolStripMenuItem1
+        '
+        Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem})
+        Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
+        Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1"
+        Me.KundenauswertungenToolStripMenuItem1.Size = New System.Drawing.Size(155, 23)
+        Me.KundenauswertungenToolStripMenuItem1.Text = "Kundenauswertungen"
+        '
+        'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem
+        '
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24)
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)"
+        '
         'cboHandlingssatz
         '
         Me.cboHandlingssatz._allowedValuesFreiText = Nothing
@@ -1666,6 +1703,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         '
         'SplitContainer1.Panel2
         '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.cbxEIDR)
         Me.SplitContainer1.Panel2.Controls.Add(Me.cbxCMR)
         Me.SplitContainer1.Panel2.Controls.Add(Me.Label41)
         Me.SplitContainer1.Panel2.Controls.Add(Me.txtKdAuftragsNr)
@@ -1979,7 +2017,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.cbxCMR.BackColor = System.Drawing.Color.White
         Me.cbxCMR.Checked = True
         Me.cbxCMR.CheckState = System.Windows.Forms.CheckState.Indeterminate
-        Me.cbxCMR.Location = New System.Drawing.Point(669, 195)
+        Me.cbxCMR.Location = New System.Drawing.Point(627, 195)
         Me.cbxCMR.Name = "cbxCMR"
         Me.cbxCMR.Size = New System.Drawing.Size(50, 17)
         Me.cbxCMR.TabIndex = 49
@@ -1990,7 +2028,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         'Label41
         '
         Me.Label41.AutoSize = True
-        Me.Label41.Location = New System.Drawing.Point(666, 93)
+        Me.Label41.Location = New System.Drawing.Point(624, 93)
         Me.Label41.Name = "Label41"
         Me.Label41.Size = New System.Drawing.Size(44, 13)
         Me.Label41.TabIndex = 48
@@ -2022,10 +2060,10 @@ Partial Class usrCntlSpeditionsBuchSuche
         '
         Me.lstGrenze._value = ""
         Me.lstGrenze.FormattingEnabled = True
-        Me.lstGrenze.Location = New System.Drawing.Point(669, 108)
+        Me.lstGrenze.Location = New System.Drawing.Point(627, 108)
         Me.lstGrenze.Name = "lstGrenze"
         Me.lstGrenze.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
-        Me.lstGrenze.Size = New System.Drawing.Size(63, 82)
+        Me.lstGrenze.Size = New System.Drawing.Size(105, 82)
         Me.lstGrenze.TabIndex = 47
         '
         'Label40
@@ -2119,7 +2157,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.cbxFakturiert.BackColor = System.Drawing.Color.White
         Me.cbxFakturiert.Checked = True
         Me.cbxFakturiert.CheckState = System.Windows.Forms.CheckState.Indeterminate
-        Me.cbxFakturiert.Location = New System.Drawing.Point(582, 180)
+        Me.cbxFakturiert.Location = New System.Drawing.Point(557, 180)
         Me.cbxFakturiert.Name = "cbxFakturiert"
         Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17)
         Me.cbxFakturiert.TabIndex = 32
@@ -2328,7 +2366,7 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.txtErfassungsnNr.MaxLines_Warning = ""
         Me.txtErfassungsnNr.MaxLines_Warning_Label = Nothing
         Me.txtErfassungsnNr.Name = "txtErfassungsnNr"
-        Me.txtErfassungsnNr.Size = New System.Drawing.Size(141, 20)
+        Me.txtErfassungsnNr.Size = New System.Drawing.Size(110, 20)
         Me.txtErfassungsnNr.TabIndex = 14
         '
         'Label24
@@ -2441,41 +2479,19 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer.SplitterWidth = 2
         Me.SplitContainer.TabIndex = 3
         '
-        'MenuStrip1
+        'cbxEIDR
         '
-        Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
-        Me.MenuStrip1.Location = New System.Drawing.Point(601, 128)
-        Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(283, 27)
-        Me.MenuStrip1.TabIndex = 89
-        Me.MenuStrip1.Text = "Kundenauswertungen"
-        '
-        'KundenauswertungenToolStripMenuItem1
-        '
-        Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem})
-        Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
-        Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1"
-        Me.KundenauswertungenToolStripMenuItem1.Size = New System.Drawing.Size(155, 23)
-        Me.KundenauswertungenToolStripMenuItem1.Text = "Kundenauswertungen"
-        '
-        'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem
-        '
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24)
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)"
-        '
-        'lblKdAusFortschritt
-        '
-        Me.lblKdAusFortschritt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblKdAusFortschritt.Location = New System.Drawing.Point(767, 135)
-        Me.lblKdAusFortschritt.Name = "lblKdAusFortschritt"
-        Me.lblKdAusFortschritt.Size = New System.Drawing.Size(77, 14)
-        Me.lblKdAusFortschritt.TabIndex = 43
-        Me.lblKdAusFortschritt.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.cbxEIDR.AutoSize = True
+        Me.cbxEIDR.BackColor = System.Drawing.Color.White
+        Me.cbxEIDR.Checked = True
+        Me.cbxEIDR.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cbxEIDR.Location = New System.Drawing.Point(511, 197)
+        Me.cbxEIDR.Name = "cbxEIDR"
+        Me.cbxEIDR.Size = New System.Drawing.Size(106, 17)
+        Me.cbxEIDR.TabIndex = 54
+        Me.cbxEIDR.Text = "EIDR ausständig"
+        Me.cbxEIDR.ThreeState = True
+        Me.cbxEIDR.UseVisualStyleBackColor = False
         '
         'usrCntlSpeditionsBuchSuche
         '
@@ -2496,6 +2512,8 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.pnlOpt.PerformLayout()
         Me.pnlBerichte.ResumeLayout(False)
         Me.pnlBerichte.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         Me.pnl.ResumeLayout(False)
@@ -2516,8 +2534,6 @@ Partial Class usrCntlSpeditionsBuchSuche
         Me.SplitContainer.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer.ResumeLayout(False)
-        Me.MenuStrip1.ResumeLayout(False)
-        Me.MenuStrip1.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -2677,4 +2693,5 @@ Partial Class usrCntlSpeditionsBuchSuche
     Friend WithEvents KundenauswertungenToolStripMenuItem1 As ToolStripMenuItem
     Friend WithEvents ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents lblKdAusFortschritt As Label
+    Friend WithEvents cbxEIDR As CheckBox
 End Class

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -273,6 +273,10 @@ Public Class usrCntlSpeditionsBuchSuche
         If cbxFakturiert.CheckState = CheckState.Unchecked Then sqlstr &= " AND Fakturiert=0 "
         If cbxCMR.CheckState = CheckState.Unchecked Then sqlstr &= " AND SB_CMR=0 "
 
+        If cbxEIDR.Visible Then
+            If cbxEIDR.CheckState = CheckState.Checked Then sqlstr &= " AND UK_EIDR_ausstehend=1 "
+            If cbxEIDR.CheckState = CheckState.Unchecked Then sqlstr &= " AND UK_EIDR_ausstehend=0 "
+        End If
 
 
         If cboSachbearbeiter._value <> "" Then sqlstr &= " AND [Personalnummer] = @Personalnummer "
@@ -423,14 +427,19 @@ Public Class usrCntlSpeditionsBuchSuche
         'End Select
 
         '   lstGrenze.fillWithSQL(" SELECT distinct(Grenzstelle),distinct(Grenzstelle)   FROM [VERAG].[dbo].[Speditionsbuch] where Grenzstelle is not null  order by Grenzstelle  ", , "FMZOLL")
+        'lstGrenze.Items.Clear()
+        'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
+        'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
+        'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
+        'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
+        'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
+        'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
+        'lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
         lstGrenze.Items.Clear()
-        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
-        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
-        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
-        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
-        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
-        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
+        lstGrenze.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO")
         lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+        lstGrenze.changeItem("")
+
 
 
 
@@ -1922,4 +1931,8 @@ Public Class usrCntlSpeditionsBuchSuche
         End Try
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
+        cbxEIDR.Visible = cboFiliale._value = "7001"
+    End Sub
 End Class

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -32,6 +32,8 @@ Partial Class frmMDM_USTVAntrag
         Me.Label1 = New System.Windows.Forms.Label()
         Me.pnlFilter = New System.Windows.Forms.Panel()
         Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.lblPLOSE_EintrageVerarbetiet = New System.Windows.Forms.Label()
+        Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
         Me.Panel3.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.pnlFilter.SuspendLayout()
@@ -40,14 +42,14 @@ Partial Class frmMDM_USTVAntrag
         '
         'Panel3
         '
-        Me.Panel3.AutoSize = True
+        Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien)
+        Me.Panel3.Controls.Add(Me.lblPLOSE_EintrageVerarbetiet)
         Me.Panel3.Controls.Add(Me.Button14)
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel3.Location = New System.Drawing.Point(0, 402)
+        Me.Panel3.Location = New System.Drawing.Point(0, 524)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(800, 48)
+        Me.Panel3.Size = New System.Drawing.Size(1149, 76)
         Me.Panel3.TabIndex = 2
-        Me.Panel3.Visible = False
         '
         'Button14
         '
@@ -57,7 +59,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button14.Location = New System.Drawing.Point(12, 6)
         Me.Button14.Name = "Button14"
-        Me.Button14.Size = New System.Drawing.Size(156, 39)
+        Me.Button14.Size = New System.Drawing.Size(168, 39)
         Me.Button14.TabIndex = 3
         Me.Button14.Text = "PLOSE übernehmen"
         Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -71,7 +73,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(800, 54)
+        Me.Panel1.Size = New System.Drawing.Size(1149, 54)
         Me.Panel1.TabIndex = 3
         '
         'lblFirma
@@ -104,7 +106,7 @@ Partial Class frmMDM_USTVAntrag
         Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlFilter.Location = New System.Drawing.Point(0, 54)
         Me.pnlFilter.Name = "pnlFilter"
-        Me.pnlFilter.Size = New System.Drawing.Size(800, 348)
+        Me.pnlFilter.Size = New System.Drawing.Size(1149, 470)
         Me.pnlFilter.TabIndex = 6
         '
         'dgvUSTVPositionen
@@ -121,14 +123,33 @@ Partial Class frmMDM_USTVAntrag
         Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen"
         Me.dgvUSTVPositionen.ReadOnly = True
         Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvUSTVPositionen.Size = New System.Drawing.Size(798, 346)
+        Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1147, 468)
         Me.dgvUSTVPositionen.TabIndex = 4
         '
+        'lblPLOSE_EintrageVerarbetiet
+        '
+        Me.lblPLOSE_EintrageVerarbetiet.Location = New System.Drawing.Point(12, 48)
+        Me.lblPLOSE_EintrageVerarbetiet.Name = "lblPLOSE_EintrageVerarbetiet"
+        Me.lblPLOSE_EintrageVerarbetiet.Size = New System.Drawing.Size(168, 19)
+        Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 4
+        Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
+        Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cbxArchivierteEintracheNochmalsEinarbetien
+        '
+        Me.cbxArchivierteEintracheNochmalsEinarbetien.AutoSize = True
+        Me.cbxArchivierteEintracheNochmalsEinarbetien.Location = New System.Drawing.Point(186, 6)
+        Me.cbxArchivierteEintracheNochmalsEinarbetien.Name = "cbxArchivierteEintracheNochmalsEinarbetien"
+        Me.cbxArchivierteEintracheNochmalsEinarbetien.Size = New System.Drawing.Size(227, 17)
+        Me.cbxArchivierteEintracheNochmalsEinarbetien.TabIndex = 5
+        Me.cbxArchivierteEintracheNochmalsEinarbetien.Text = "Archivierte Einträche nochmals einarbeiten"
+        Me.cbxArchivierteEintracheNochmalsEinarbetien.UseVisualStyleBackColor = True
+        '
         'frmMDM_USTVAntrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.ClientSize = New System.Drawing.Size(1149, 600)
         Me.Controls.Add(Me.pnlFilter)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.Panel3)
@@ -137,12 +158,12 @@ Partial Class frmMDM_USTVAntrag
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "USTV Antrag"
         Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         Me.pnlFilter.ResumeLayout(False)
         CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
-        Me.PerformLayout()
 
     End Sub
 
@@ -153,4 +174,6 @@ Partial Class frmMDM_USTVAntrag
     Friend WithEvents Label1 As Label
     Friend WithEvents pnlFilter As Panel
     Friend WithEvents dgvUSTVPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents lblPLOSE_EintrageVerarbetiet As Label
+    Friend WithEvents cbxArchivierteEintracheNochmalsEinarbetien As CheckBox
 End Class

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -0,0 +1,264 @@
+Public Class frmMDM_USTVAntrag
+
+    Dim UStVAn_ID As Integer
+
+    Sub New(UStVAn_ID)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.UStVAn_ID = UStVAn_ID
+
+    End Sub
+
+    Sub init()
+        pnlFilter.AutoScroll = False
+
+        With dgvUSTVPositionen
+            .ClearSelection()
+
+            If UStVAn_ID <= 0 Then Exit Sub
+
+            .SET_SQL("SELECT  [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_USteuerbetrag],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter] 
+                      FROM [tblUStVPositionen]
+                      where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL")
+            .LOAD()
+            .RowTemplate.Height = 20
+            .AllowUserToOrderColumns = False
+            .AllowUserToResizeRows = False
+
+            If .Columns.Count > 0 Then
+
+                .Columns("UStVAn_ID").Visible = False
+                .Columns("UStVPo_ID").HeaderText = "Pos"
+            End If
+
+        End With
+
+
+        Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
+        Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, False)
+
+        If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then
+            lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count
+        Else
+            lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
+        End If
+
+
+    End Sub
+
+    Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        lblPLOSE_EintrageVerarbetiet.Text = ""
+        init()
+
+    End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        loadUSTVFrom_PLOSE()
+
+        init()
+    End Sub
+
+
+    Function loadUSTVFrom_PLOSE() As Boolean
+        Try
+            Dim bytSchnittstellenNr = 6 'glaube noch frei?
+            Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
+            Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
+
+            If GET_Antraege IsNot Nothing Then
+
+                For Each ANTRAG In GET_Antraege
+                    Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
+                    USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID]
+                    USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
+                    USTV_POS.UStVPo_ReDat = ANTRAG.plose_RechnungsDatum
+                    USTV_POS.UStVPo_ReNr = ANTRAG.plose_RechnungsNr.ToString
+                    USTV_POS.UStVPo_Schnittstelle = True
+                    USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
+                    USTV_POS.UStVPo_Leistungsbezeichnung = "Maut"
+                    USTV_POS.UStVPo_Leistender = ANTRAG.plose_Lieferant
+                    USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                    USTV_POS.UStVPo_Zeitstempel = Now()
+                    ' Berechnungen
+                    USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(ANTRAG.plose_MWSTBetragWaehrungAbbuchung, USTV_ANTRAG.UStVAn_Währungscode, "EUR")
+                    'USTV_POS.UStVPo_Umrechnungskurs = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuroKurs(ANTRAG.plose_WaehrungAbbuchung, ANTRAG.plose_RechnungsDatum)
+                    USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetragWaehrungAbbuchung / ANTRAG.plose_MWSTBetrag
+                    USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag
+                    USTV_POS.INSERT()
+                Next
+
+                MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr)
+
+            End If
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+
+    '    Private Sub cmdITMautÜbernehmen_Click()
+
+    '        Dim wrk As DAO.Workspace
+    '        Dim qry1 As DAO.QueryDef
+    '        Dim qry2 As DAO.QueryDef
+    '        Dim rst1 As DAO.Recordset
+    '        Dim rstUStVPositionen As DAO.Recordset
+    '        Dim bytSchnittstellenNr As Byte
+    '        Dim fInTransaktion As Boolean
+    '        Dim intUStVPo_ID As Integer
+
+    '1380     On Error GoTo PROC_Error
+
+    '1390     If Eingabefehler Then Exit Sub
+    '1400     If Me!UStVAn_LandNr <> 5 Then
+    '1410         MsgBox "Datenübernahme nicht möglich (Land ist nicht Italien).", vbInformation, "Eingabeprüfung"
+    '1420         Exit Sub
+    '1430     End If
+
+    '         ' Wenn Daten in Formular geändert wurden, Speichern auslösen.
+    '1440     If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
+    '1450     DoCmd.Hourglass True
+
+    '         ' Italienisches Mautarchiv lesen.
+    '1460     Set wrk = DBEngine.Workspaces(0)
+    '1470     Set qry1 = dbs.QueryDefs("qryUStVMautITLesen")
+    '1480     qry1.Parameters("[Param1]") = Me![UStVAn_ReDatVon]
+    '1490     qry1.Parameters("[Param2]") = Me![UStVAn_ReDatBis]
+    '1500     qry1.Parameters("[Param3]") = Me![UStVAn_KuNr]
+    '1510     Set rst1 = qry1.OpenRecordset(dbOpenSnapshot)
+    '1520     If Not rst1.EOF Then
+    '1530         bytSchnittstellenNr = 3
+    '1540         intUStVPo_ID = UStVPo_ID_zuordnen(Me![UStVAn_ID])
+    '1550         Set rstUStVPositionen = dbs.OpenRecordset("tblUStVPositionen", dbOpenDynaset, dbAppendOnly)
+    '1560         wrk.BeginTrans
+    '1570         fInTransaktion = True
+    '1580         Do Until rst1.EOF
+    '1590             If RechnungÜbernehmen(rst1!RechnungsDatum, CStr(rst1!Rechnungsnummer), bytSchnittstellenNr, Me!UStVAn_KuNr, Me!UStVAn_LandNr) Then
+    '1600                 intUStVPo_ID = intUStVPo_ID + 1
+    '                     ' Schreiben der Umsatzsteuerdaten in die Tabelle.
+    '1610                 With rstUStVPositionen
+    '1620                     .AddNew
+    '1630                     !UStVAn_ID = Me![UStVAn_ID]
+    '1640                     !UStVPo_ID = intUStVPo_ID
+    '1650                     !UStVPo_ReDat = rst1!RechnungsDatum
+    '1660                     !UStVPo_ReNr = CStr(rst1!Rechnungsnummer)
+    '1670                     !UStVPo_Schnittstelle = True
+    '1680                     !UStVPo_SchnittstellenNr = bytSchnittstellenNr
+    '1690                     !UStVPo_Leistungsbezeichnung = "Maut"
+    '1700                     !UStVPo_Leistender = "Telepass"
+    '1710                     !UStVPo_Sachbearbeiter = CurrentUser()
+    '1720                     !UStVPo_Zeitstempel = Now()
+    '                         ' Berechnungen
+    '1730                     !UStVPo_USteuerbetragEUR = rst1!MWStBetrag
+    '1740                     !UStVPo_Umrechnungskurs = fktEurokurs(Me![UStVAn_Währungscode], ![UStVPo_ReDat])
+    '1750                     !UStVPo_USteuerbetrag = Int(![UStVPo_USteuerbetragEUR] * !UStVPo_Umrechnungskurs * 100 + 0.5) / 100
+    '1760                     .Update
+    '1770                 End With
+    '                     ' UStV-Antragsnummer im Archiv eintragen.
+    '1780                 Set qry2 = dbs.QueryDefs("qryUStVMautITAntragsNrEintragen")
+    '1790                 qry2.Parameters("[prmUStVAn_ID]") = Me![UStVAn_ID]
+    '1800                 qry2.Parameters("[prmVerrechnungsdatum]") = rst1!RechnungsDatum
+    '1810                 qry2.Parameters("[prmCode_Adressat_des_Kontoauszugs]") = rst1!Rechnungsnummer
+    '1820                 qry2.Execute dbFailOnError
+    '1830                 qry2.Close
+    '1840                 Set qry2 = Nothing
+    '1850             End If
+    '1860             rst1.MoveNext
+    '1870         Loop
+    '1880         wrk.CommitTrans
+    '1890         fInTransaktion = False
+    '1900         Me!tblUStVPositionen.Requery
+    '1910     End If
+
+    'PROC_Exit:
+    '1920     On Error Resume Next
+    '1930     If Not rstUStVPositionen Is Nothing Then
+    '1940         rstUStVPositionen.Close
+    '1950         Set rstUStVPositionen = Nothing
+    '1960     End If
+    '1970     If Not rst1 Is Nothing Then
+    '1980         rst1.Close
+    '1990         Set rst1 = Nothing
+    '2000     End If
+    '2010     If Not qry2 Is Nothing Then
+    '2020         qry2.Close
+    '2030         Set qry2 = Nothing
+    '2040     End If
+    '2050     If Not qry1 Is Nothing Then
+    '2060         qry1.Close
+    '2070         Set qry1 = Nothing
+    '2080     End If
+    '2090     If Not wrk Is Nothing Then
+    '2100         Set wrk = Nothing
+    '2110     End If
+    '2120     DoCmd.Hourglass False
+    '2130     Exit Sub
+
+    'PROC_Error:
+    '2140     If fInTransaktion Then
+    '2150         wrk.Rollback
+    '2160         fInTransaktion = False
+    '2170     End If
+    '2180     DoCmd.Hourglass False
+    '2190     ErrNotify Err, "Form_frmUStVAntragserfassung", "cmdITMautÜbernehmen_Click", eNormalError
+    '2200     Resume PROC_Exit
+
+    '     End Sub
+
+
+
+
+    '    Private Function RechnungÜbernehmen(
+    '          ByRef varUStVPo_ReDat As Variant,
+    '          ByRef varUStVPo_ReNr As Variant,
+    '          ByRef varUStVPo_SchnittstellenNr As Variant,
+    '          ByRef varUStVAn_KuNr,
+    '          ByRef varUStVAn_LandNr) As Boolean
+
+    '        Dim fResult As Boolean
+    '        Dim qry As DAO.QueryDef
+    '        Dim rst As DAO.Recordset
+
+    '12000     On Error GoTo PROC_Error
+
+    '12010     Set qry = dbs.QueryDefs("qryUStVRechnungÜbernehmen")
+    '12020     qry.Parameters("[prmUStVPo_ReDat]") = varUStVPo_ReDat
+    '12030     qry.Parameters("[prmUStVPo_ReNr]") = varUStVPo_ReNr
+    '12040     qry.Parameters("[prmUStVPo_SchnittstellenNr]") = varUStVPo_SchnittstellenNr
+    '12050     qry.Parameters("[prmUStVAn_KuNr]") = varUStVAn_KuNr
+    '12060     qry.Parameters("[prmUStVAn_LandNr]") = varUStVAn_LandNr
+    '12070     Set rst = qry.OpenRecordset(dbOpenSnapshot)
+    '12080     If rst.EOF Then fResult = True Else fResult = False
+
+    'PROC_Exit:
+    '12090     On Error Resume Next
+    '12100     If Not rst Is Nothing Then
+    '12110         rst.Close
+    '12120         Set rst = Nothing
+    '12130     End If
+    '12140     If Not qry Is Nothing Then
+    '12150         qry.Close
+    '12160         Set qry = Nothing
+    '12170     End If
+    '12180     RechnungÜbernehmen = fResult
+    '12190     Exit Function
+
+    'PROC_Error:
+    '12200     Select Case ErrHandler(Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen")
+    '              Case 0
+    '12210             Resume
+    '12220         Case 1
+    '12230             ErrNotify Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen", eNormalError
+    '12240         Case 2
+    '12250             ErrNotify Err, "Form_frmUStVAntragserfassung", "RechnungÜbernehmen", eHiddenError
+    '12260     End Select
+    '12270     fResult = False
+    '12280     Resume PROC_Exit
+
+    '      End Function
+
+
+End Class

SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb

@@ -117,6 +117,29 @@
 
                 End Select
 
+            Case "MIC"
+                Select Case ART
+                    Case "T1", "T2", "NCTS", "ÜT"
+
+                        If ART = "ÜT" Then
+                            ART = "T1"
+                            isSTAMMREF = False
+                            STAMMREF = "" '??????????????????????????????
+                        End If
+
+                        If Me.DY Is Nothing Then
+                            Dim usrcntl As New usrCntlMIC_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
+                            usrcntl.Dock = DockStyle.Fill
+                            Me.pnl.Controls.Add(usrcntl)
+
+                        Else
+                            Dim usrcntl As New usrCntlMIC_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
+                            usrcntl.Dock = DockStyle.Fill
+                            Me.pnl.Controls.Add(usrcntl)
+                        End If
+
+                End Select
+
             Case Else '"DAKOSY'
 
 

SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.Designer.vb

@@ -0,0 +1,515 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlMIC_NCTS
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.btnAllgemein = New System.Windows.Forms.Button()
+        Me.btnAdressen = New System.Windows.Forms.Button()
+        Me.btnSicherheit = New System.Windows.Forms.Button()
+        Me.btnVerschlüsse = New System.Windows.Forms.Button()
+        Me.btnPositionen = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblBezugsnummer = New System.Windows.Forms.Label()
+        Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.txtDyMandant = New System.Windows.Forms.Label()
+        Me.txtDyNiederlassung = New System.Windows.Forms.Label()
+        Me.MenuStrip = New System.Windows.Forms.MenuStrip()
+        Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer.Panel1.SuspendLayout()
+        Me.SplitContainer.SuspendLayout()
+        Me.MyFlowLayoutPanel1.SuspendLayout()
+        Me.pnl.SuspendLayout()
+        Me.cntxtBezugsnr.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MenuStrip.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'SplitContainer
+        '
+        Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer.IsSplitterFixed = True
+        Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
+        Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0)
+        Me.SplitContainer.Name = "SplitContainer"
+        Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer.Panel1
+        '
+        Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1)
+        Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
+        '
+        'SplitContainer.Panel2
+        '
+        Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
+        Me.SplitContainer.SplitterDistance = 72
+        Me.SplitContainer.SplitterWidth = 1
+        Me.SplitContainer.TabIndex = 0
+        '
+        'MyFlowLayoutPanel1
+        '
+        Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSicherheit)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVerschlüsse)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5)
+        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
+        Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
+        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
+        Me.MyFlowLayoutPanel1.TabIndex = 0
+        '
+        'btnAllgemein
+        '
+        Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
+        Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12
+        Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
+        Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnAllgemein.Name = "btnAllgemein"
+        Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
+        Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
+        Me.btnAllgemein.TabIndex = 0
+        Me.btnAllgemein.Text = "Allgemein"
+        Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnAllgemein.UseVisualStyleBackColor = False
+        '
+        'btnAdressen
+        '
+        Me.btnAdressen.BackColor = System.Drawing.Color.White
+        Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAdressen.Image = Global.SDL.My.Resources.Resources.house1
+        Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnAdressen.Location = New System.Drawing.Point(81, 2)
+        Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnAdressen.Name = "btnAdressen"
+        Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
+        Me.btnAdressen.Size = New System.Drawing.Size(75, 67)
+        Me.btnAdressen.TabIndex = 1
+        Me.btnAdressen.Text = "Adressen"
+        Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnAdressen.UseVisualStyleBackColor = False
+        '
+        'btnSicherheit
+        '
+        Me.btnSicherheit.BackColor = System.Drawing.Color.White
+        Me.btnSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSicherheit.Image = Global.SDL.My.Resources.Resources.sicherheit1
+        Me.btnSicherheit.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnSicherheit.Location = New System.Drawing.Point(160, 2)
+        Me.btnSicherheit.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnSicherheit.Name = "btnSicherheit"
+        Me.btnSicherheit.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
+        Me.btnSicherheit.Size = New System.Drawing.Size(81, 67)
+        Me.btnSicherheit.TabIndex = 2
+        Me.btnSicherheit.Text = "Sicherheit"
+        Me.btnSicherheit.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnSicherheit.UseVisualStyleBackColor = False
+        '
+        'btnVerschlüsse
+        '
+        Me.btnVerschlüsse.BackColor = System.Drawing.Color.White
+        Me.btnVerschlüsse.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnVerschlüsse.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVerschlüsse.Image = Global.SDL.My.Resources.Resources.seal3
+        Me.btnVerschlüsse.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnVerschlüsse.Location = New System.Drawing.Point(245, 2)
+        Me.btnVerschlüsse.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnVerschlüsse.Name = "btnVerschlüsse"
+        Me.btnVerschlüsse.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3)
+        Me.btnVerschlüsse.Size = New System.Drawing.Size(81, 67)
+        Me.btnVerschlüsse.TabIndex = 3
+        Me.btnVerschlüsse.Text = "Verschlüsse"
+        Me.btnVerschlüsse.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnVerschlüsse.UseVisualStyleBackColor = False
+        '
+        'btnPositionen
+        '
+        Me.btnPositionen.BackColor = System.Drawing.Color.White
+        Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPositionen.Image = Global.SDL.My.Resources.Resources.list_new_small2
+        Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnPositionen.Location = New System.Drawing.Point(330, 2)
+        Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnPositionen.Name = "btnPositionen"
+        Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
+        Me.btnPositionen.Size = New System.Drawing.Size(81, 67)
+        Me.btnPositionen.TabIndex = 4
+        Me.btnPositionen.Text = "Positionen"
+        Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnPositionen.UseVisualStyleBackColor = False
+        '
+        'Button5
+        '
+        Me.Button5.BackColor = System.Drawing.Color.White
+        Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.Image = Global.SDL.My.Resources.Resources.android_note12
+        Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button5.Location = New System.Drawing.Point(415, 2)
+        Me.Button5.Margin = New System.Windows.Forms.Padding(2)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
+        Me.Button5.Size = New System.Drawing.Size(81, 67)
+        Me.Button5.TabIndex = 5
+        Me.Button5.Text = "Referenzen"
+        Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.Button5.UseVisualStyleBackColor = False
+        Me.Button5.Visible = False
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.pnl.Controls.Add(Me.Label8)
+        Me.pnl.Controls.Add(Me.Label7)
+        Me.pnl.Controls.Add(Me.Label6)
+        Me.pnl.Controls.Add(Me.cboStammreferenz)
+        Me.pnl.Controls.Add(Me.cboDakosyAction)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.Label4)
+        Me.pnl.Controls.Add(Me.Label5)
+        Me.pnl.Controls.Add(Me.Label2)
+        Me.pnl.Controls.Add(Me.Label3)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Right
+        Me.pnl.Location = New System.Drawing.Point(573, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(361, 72)
+        Me.pnl.TabIndex = 1
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(8, 34)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(60, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Rohmasse:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
+        Me.Label7.Location = New System.Drawing.Point(73, 31)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(122, 18)
+        Me.Label7.TabIndex = 13
+        Me.Label7.Text = "0 kg"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(8, 51)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(57, 13)
+        Me.Label6.TabIndex = 12
+        Me.Label6.Text = "Stammref.:"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboStammreferenz
+        '
+        Me.cboStammreferenz._allowedValuesFreiText = Nothing
+        Me.cboStammreferenz._allowFreiText = False
+        Me.cboStammreferenz._value = ""
+        Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboStammreferenz.FormattingEnabled = True
+        Me.cboStammreferenz.Location = New System.Drawing.Point(66, 48)
+        Me.cboStammreferenz.Name = "cboStammreferenz"
+        Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
+        Me.cboStammreferenz.TabIndex = 11
+        '
+        'cboDakosyAction
+        '
+        Me.cboDakosyAction._allowedValuesFreiText = Nothing
+        Me.cboDakosyAction._allowFreiText = False
+        Me.cboDakosyAction._value = ""
+        Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboDakosyAction.FormattingEnabled = True
+        Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
+        Me.cboDakosyAction.Name = "cboDakosyAction"
+        Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21)
+        Me.cboDakosyAction.TabIndex = 1
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button1.BackColor = System.Drawing.Color.White
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button1.Location = New System.Drawing.Point(200, 5)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(2)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(159, 42)
+        Me.Button1.TabIndex = 6
+        Me.Button1.Text = "An MIC senden -->"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(8, 19)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(67, 13)
+        Me.Label4.TabIndex = 9
+        Me.Label4.Text = "Packstücke:"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
+        Me.Label5.Location = New System.Drawing.Point(73, 16)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(122, 18)
+        Me.Label5.TabIndex = 10
+        Me.Label5.Text = "0 Pk"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(8, 4)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(59, 13)
+        Me.Label2.TabIndex = 7
+        Me.Label2.Text = "Positionen:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
+        Me.Label3.Location = New System.Drawing.Point(103, 1)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(92, 18)
+        Me.Label3.TabIndex = 8
+        Me.Label3.Text = "1"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(581, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 5
+        Me.Label1.Text = "Bezugsnummer:"
+        '
+        'lblBezugsnummer
+        '
+        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
+        Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr
+        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1)
+        Me.lblBezugsnummer.Name = "lblBezugsnummer"
+        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
+        Me.lblBezugsnummer.TabIndex = 6
+        Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
+        Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'cntxtBezugsnr
+        '
+        Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem})
+        Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
+        Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26)
+        Me.cntxtBezugsnr.Text = "Bezugsnr"
+        '
+        'NeueBezugsnummerVergebenToolStripMenuItem
+        '
+        Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem"
+        Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
+        Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben"
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.pic)
+        Me.Panel1.Controls.Add(Me.txtDyMandant)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.txtDyNiederlassung)
+        Me.Panel1.Controls.Add(Me.lblBezugsnummer)
+        Me.Panel1.Controls.Add(Me.MenuStrip)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(934, 25)
+        Me.Panel1.TabIndex = 1
+        '
+        'pic
+        '
+        Me.pic.BackColor = System.Drawing.Color.White
+        Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.mic_logo___short
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pic.Location = New System.Drawing.Point(217, 0)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(100, 24)
+        Me.pic.TabIndex = 20
+        Me.pic.TabStop = False
+        '
+        'txtDyMandant
+        '
+        Me.txtDyMandant.BackColor = System.Drawing.Color.White
+        Me.txtDyMandant.Location = New System.Drawing.Point(443, 7)
+        Me.txtDyMandant.Name = "txtDyMandant"
+        Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
+        Me.txtDyMandant.TabIndex = 19
+        Me.txtDyMandant.Text = "VERG"
+        Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'txtDyNiederlassung
+        '
+        Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(497, 7)
+        Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
+        Me.txtDyNiederlassung.Size = New System.Drawing.Size(63, 13)
+        Me.txtDyNiederlassung.TabIndex = 18
+        Me.txtDyNiederlassung.Text = "SUB"
+        '
+        'MenuStrip
+        '
+        Me.MenuStrip.BackColor = System.Drawing.Color.White
+        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem})
+        Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip.Name = "MenuStrip"
+        Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
+        Me.MenuStrip.TabIndex = 0
+        '
+        'OptionenToolStripMenuItem
+        '
+        Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem})
+        Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
+        Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
+        Me.OptionenToolStripMenuItem.Text = "Optionen"
+        '
+        'SpeichernToolStripMenuItem
+        '
+        Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
+        Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
+        Me.SpeichernToolStripMenuItem.Text = "Speichern"
+        '
+        'LadenToolStripMenuItem
+        '
+        Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
+        Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
+        Me.LadenToolStripMenuItem.Text = "Laden ..."
+        '
+        'usrCntlMIC_NCTS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.SplitContainer)
+        Me.Controls.Add(Me.Panel1)
+        Me.Name = "usrCntlMIC_NCTS"
+        Me.Size = New System.Drawing.Size(934, 712)
+        Me.SplitContainer.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer.ResumeLayout(False)
+        Me.MyFlowLayoutPanel1.ResumeLayout(False)
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        Me.cntxtBezugsnr.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MenuStrip.ResumeLayout(False)
+        Me.MenuStrip.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
+    Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
+    Friend WithEvents btnAllgemein As System.Windows.Forms.Button
+    Friend WithEvents btnAdressen As System.Windows.Forms.Button
+    Friend WithEvents btnSicherheit As System.Windows.Forms.Button
+    Friend WithEvents btnVerschlüsse As System.Windows.Forms.Button
+    Friend WithEvents btnPositionen As System.Windows.Forms.Button
+    Friend WithEvents Button5 As System.Windows.Forms.Button
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
+    Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtDyMandant As System.Windows.Forms.Label
+    Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents pic As PictureBox
+End Class

SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.resx

@@ -0,0 +1,129 @@
+<?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="cntxtBezugsnr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>125, 17</value>
+  </metadata>
+  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

SDL/ZOLLSYSTEM/MIC/usrCntlMIC_NCTS.vb

@@ -0,0 +1,629 @@
+Imports DAKOSY_Worker
+
+Imports Tamir
+Imports Tamir.SharpSsh
+
+Public Class usrCntlMIC_NCTS
+
+    Property ALLG As usrCntlATLAS_NCTS_Allg
+    Property ADRESSEN As usrCntlATLAS_ncts_Adressen
+    Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit
+    Property POSITIONEN As usrCntlATLAS_NCTS_Positionen
+    Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse
+    'Property FilialeNr As Integer
+    ' Property AbfertigungsNr As Integer
+    Property Jahr2Stellig As Integer
+    Property zusatz As String
+    Property BezugsNr As String = ""
+    ' Property AvisoId As Integer
+    'Property SENDUNGS_ID As Integer
+    Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
+    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
+    Dim sentToDakosy = False
+
+    Property isSTAMMREF As Boolean = False ' Wenn das Formular als Stammreferenz bearbeitet wird
+    Property STAMMREF As String = "" ' Wenn eine Stammrefereenz als Grundlage dient
+
+    Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+    Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
+
+    Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
+    Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
+
+    Sub New(ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
+        InitializeComponent()
+        Me.isSTAMMREF = isSTAMMREF
+        Me.STAMMREF = STAMMREF
+        Me.ncts_OUT = ncts_OUT
+        DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
+
+        If DY_ANM.dy_AvisoId > 0 Then
+            Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+            AVISO = AV.LesenAviso(DY_ANM.dy_AvisoId, "")
+        End If
+        If DY_ANM.dy_SendungsId > 0 Then
+            SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_ANM.dy_SendungsId)
+        End If
+    End Sub
+
+    Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+
+        Me.Jahr2Stellig = Jahr2Stellig
+        Me.zusatz = zusatz
+
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.DY_ANM = DY_ANM
+        Me.isSTAMMREF = isSTAMMREF
+        Me.STAMMREF = STAMMREF
+
+
+        If DY_ANM IsNot Nothing Then
+            Me.ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(DY_ANM.dy_Id, True)
+            Me.cDy_ART = If(DY_ANM.dy_ART, "")
+            If Me.cDy_ART = "" And Me.ncts_OUT IsNot Nothing Then Me.cDy_ART = If(Me.ncts_OUT.ncts_ArtAnmeldung, "")
+            If Me.cDy_ART = "" Then Me.cDy_ART = "T1"
+            If ncts_OUT IsNot Nothing Then
+                Me.FIRMA_DY = If(Me.ncts_OUT.ncts_firma, "")
+            End If
+
+        End If
+        'DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
+
+
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Sub New(ART As String, AvisoId As Integer, SENDUNGS_ID As Integer, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.cDy_ART = If(ART = "NCTS", "T1", ART)
+
+        If AvisoId > 0 Then
+            Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+            AVISO = AV.LesenAviso(AvisoId, "")
+        End If
+        If SENDUNGS_ID > 0 Then
+            SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SENDUNGS_ID)
+        End If
+
+        Me.Jahr2Stellig = Jahr2Stellig
+        Me.isSTAMMREF = isSTAMMREF
+        Me.STAMMREF = STAMMREF
+        Me.zusatz = zusatz
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "", Optional FIRMA_DY As String = "")
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.cDy_ART = If(ART = "NCTS", "T1", ART)
+
+        Me.AVISO = Aviso
+        Me.SENDUNG = SENDUNG
+        Me.isSTAMMREF = isSTAMMREF
+        Me.STAMMREF = STAMMREF
+
+        Me.Jahr2Stellig = Jahr2Stellig
+        Me.zusatz = zusatz
+        If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Function getBezugsnr(ByRef BezugsNr)
+        Dim BezugsNrTmp = ""
+        Select Case FIRMA_DY
+            Case "UNISPED"
+                If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
+                    BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
+                Else
+                    BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+                End If
+            Case Else
+                BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
+        End Select
+        BezugsNr = BezugsNrTmp
+        zusatz = "A"
+        'Soloagne bis die Bezugsnummer noch nicht existiert
+        While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+
+            If zusatz.Length = 1 Then
+                zusatz = Chr(Asc(zusatz.ToString) + 1)
+            Else
+                zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+            End If
+
+            If zusatz = "Z" Then zusatz = "AA"
+        End While
+        lblBezugsnummer.Text = BezugsNr
+        Return BezugsNr
+    End Function
+
+    Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
+        'MsgBox("LOAD")
+
+        cboDakosyAction.Items.Clear()
+        cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE))
+        cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE))
+        cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL))
+        cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
+        cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
+
+        Select Case FIRMA_DY
+            Case "VERAG" : txtDyMandant.Text = "VERG"
+                txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                '  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                'Case "SUB" : txtDyNiederlassung.Text = "VERG"
+                'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
+                ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
+                'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
+                'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
+                'End Select
+            Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+            Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+            Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+            Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        End Select
+
+
+        cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and dySr_visible=1", False, "FMZOLL", True)
+        cboStammreferenz.changeItem("")
+
+        SICHERHEIT = New usrCntlATLAS_NCTS_Sicherheit(ncts_OUT, FIRMA_DY)
+        VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT)
+        ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT, FIRMA_DY) ')
+        ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT)
+        POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT)
+
+        If isSTAMMREF Then
+            Me.BezugsNr = "STAMMREFERENZ"
+            If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
+            ncts_OUT.ncts_ObjectName = BezugsNr
+        Else
+            If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG
+                Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY)
+                Dim Stammreferenz = Nothing
+                If f.ShowDialog(Me) Then
+                    Stammreferenz = f.STAMMREF
+                    sentToDakosy = f.sentToDakosy
+                End If
+                Try
+
+                    BezugsNr = getBezugsnr(BezugsNr)
+
+                Catch ex As Exception
+                    MsgBox(ex.Message & ex.StackTrace)
+                End Try
+                ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(BezugsNr, True)
+                If ncts_OUT Is Nothing Then
+                    'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
+                    ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist!
+
+
+                    If ncts_OUT IsNot Nothing Then
+                        'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben
+                        ncts_OUT.ncts_dyaAnmID = -1
+                        ncts_OUT.ncts_Id = -1
+                    Else
+                        ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
+                    End If
+
+
+                    loaddataFromAVISO(ncts_OUT)
+                    cboStammreferenz.changeItem(Stammreferenz)
+
+
+                End If
+                'ncts_OUT
+
+            Else
+                ' ncts_OUT is  ot nothing
+                Me.BezugsNr = ncts_OUT.ncts_ObjectName
+                'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
+
+            End If
+        End If
+        If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY
+
+        If If(Me.cDy_ART, "") <> "" Then
+            'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird...
+            ncts_OUT.ncts_ArtAnmeldung = Me.cDy_ART
+        Else
+            'Wenn keine Art --> T1
+            If ncts_OUT.ncts_ArtAnmeldung Is Nothing Or ncts_OUT.ncts_ArtAnmeldung = "" Then
+                ncts_OUT.ncts_ArtAnmeldung = "T1"
+            End If
+        End If
+
+
+        'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
+        Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT)
+        Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
+        Me.SplitContainer.Panel2.Controls.Add(ALLG)
+        Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
+        Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
+
+        ' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
+        'Werte setzen:
+        SICHERHEIT.setValues_TR(ncts_OUT.ncts_SICHERHEITSANGABEN)
+        'VERSCHLUESSE.setValues_TR(ncts_OUT)
+        ADRESSEN.setValues_TR(ncts_OUT)
+        ALLG.setValues(ncts_OUT)
+        POSITIONEN.setValues_TR(ncts_OUT)
+
+        If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz)
+
+        'Controls wieder entfernen:
+        Me.SplitContainer.Panel2.Controls.Clear()
+
+
+        '    If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.Text = BezugsNr
+
+
+
+        ' ADRESSEN.CreateControl()
+        For Each c In MyFlowLayoutPanel1.Controls
+            If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
+                AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
+            End If
+        Next
+
+        SplitContainer.Panel2.Controls.Add(ALLG)
+        lblBezugsnummer.Text = BezugsNr
+
+
+
+
+        ALLG.Dock = DockStyle.Fill
+        ADRESSEN.Dock = DockStyle.Fill
+        POSITIONEN.Dock = DockStyle.Fill
+        SICHERHEIT.Dock = DockStyle.Fill
+        VERSCHLUESSE.Dock = DockStyle.Fill
+
+        '   
+        '
+        AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke)
+                                                   Label5.Text = packstuecke.ToString("N0") & " Pk"
+                                                   Label7.Text = rohmasse.ToString("N2") & " kg"
+
+                                               End Sub
+        AddHandler POSITIONEN.PosAnzChanged, Sub(anz)
+                                                 Label3.Text = anz
+                                             End Sub
+
+        If isSTAMMREF Then
+            Button1.Visible = False
+            cboDakosyAction.Visible = False
+            lblBezugsnummer.Text = "STAMMREFERENZ"
+            lblBezugsnummer.ForeColor = Color.Red
+        End If
+
+
+        If sentToDakosy Then
+
+            Try
+                Me.Button1.PerformClick()
+                Me.FindForm.Close()
+            Catch
+            End Try
+        End If
+        Try
+            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then
+                Me.FindForm.Close()
+            End If
+        Catch
+        End Try
+    End Sub
+
+    Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED
+        Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button)
+
+        For Each c In MyFlowLayoutPanel1.Controls
+            If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
+                DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White
+                DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black
+            End If
+        Next
+
+        btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128)
+        btn.ForeColor = Drawing.Color.White
+
+
+        SplitContainer.Panel2.Controls.Clear()
+
+        If btn Is btnAllgemein Then
+            SplitContainer.Panel2.Controls.Add(ALLG)
+        ElseIf btn Is btnAdressen Then
+            SplitContainer.Panel2.Controls.Add(ADRESSEN)
+        ElseIf btn Is btnSicherheit Then
+            SplitContainer.Panel2.Controls.Add(SICHERHEIT)
+        ElseIf btn Is btnVerschlüsse Then
+            SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
+        ElseIf btn Is btnPositionen Then
+            SplitContainer.Panel2.Controls.Add(POSITIONEN)
+        End If
+    End Sub
+
+
+
+
+    Sub loaddataFromAVISO(ByRef cdy As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
+        Try
+
+            '==> VORBLENDUNG:
+
+            '   Dim cdy As New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+            cdy.ncts_ObjectName = BezugsNr
+            cdy.ncts_AbgangsDienststellennummer = "" '"DE007701" ' Neuhaus (öSTERR:)
+            frmZollanmeldung.setZollstelle(cdy.ncts_AbgangsDienststellennummer, AVISO)
+
+            cdy.ncts_dyaArt = cDy_ART
+            If AVISO IsNot Nothing Then
+                cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
+                cdy.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = AVISO.LKW_Nationalitaet
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
+                    cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = "X"
+                Else
+                    cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr
+                    cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet
+                End If
+
+            End If
+
+
+            cdy.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = "3"
+            cdy.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = "35"
+
+
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
+                cdy.ncts_SumA_KzSumASicherheit = True
+                cdy.ncts_SumA_BesondereUmstaende = "C"
+                cdy.ncts_SumA_BefoerderungskostenZahlungsweise = "D"
+                cdy.ncts_SumA_Ladeort = "DE"
+                cdy.ncts_SumA_KennnummerSendung = "OHNE"
+
+                If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
+                    Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer
+                    Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer
+                    cdy.ncts_SumA_Befoerderer_EORI = KD_Befoerderer.EORITIN
+                    If KD_Befoerderer.EORITIN IsNot Nothing Then cdy.ncts_SumA_Befoerderer_NLNR = KD_Befoerderer.EORITIN_NL
+                    cdy.ncts_SumA_Befoerderer_Name = (If(AD_Befoerderer.Name_1, "") & " " & If(AD_Befoerderer.Name_2, "")).trim
+                    cdy.ncts_SumA_Befoerderer_StrasseHausnummer = AD_Befoerderer.Straße
+                    cdy.ncts_SumA_Befoerderer_PLZ = AD_Befoerderer.PLZ
+                    cdy.ncts_SumA_Befoerderer_Ort = AD_Befoerderer.Ordnungsbegriff
+                    cdy.ncts_SumA_Befoerderer_Land = cProgramFunctions.getISO2Land(AD_Befoerderer.LandKz)
+                Else
+                    cdy.ncts_SumA_Befoerderer_Name = If(AVISO.Frächter, "")
+                End If
+            End If
+
+
+
+            If SENDUNG IsNot Nothing Then
+
+                Dim p As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing
+                If cdy.ncts_WARENPOS.Count > 0 Then
+                    p = cdy.ncts_WARENPOS(0)
+                Else
+                    p = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
+                    cdy.ncts_WARENPOS.Add(p) ' schon wieder...'nciht mehr anfügen
+                End If
+                p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
+                If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
+                    Dim pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
+                    pk.nctsWpPk_PackstueckeAnzahl = SENDUNG.tblSnd_Colli
+                    pk.nctsWpPk_Verpackungsart = "PK"
+                    pk.nctsWpPk_ZeichenNummern = "OHNE"
+                    p.nctsWP_PACKSTUECKE.Add(pk)
+                End If
+                p.nctsWP_Rohmasse = SENDUNG.tblSnd_Gewicht
+                p.nctsWP_Warenwert = SENDUNG.tblSnd_Warenwert
+                p.nctsWP_WarenwertWaehrung = SENDUNG.tblSnd_WarenwertWaehrung
+                ' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
+                p.nctsWP_VorpapierTyp = "OHNE"
+
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
+                    p.nctsWP_BesondereVermeke_Export = True
+                End If
+                'cdy.ncts_WARENPOS.Add(p)
+
+                cdy.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI)
+                cdy.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI_NL)
+                cdy.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(SENDUNG.tblSnd_NCTSVerzollungsadresse)
+                cdy.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Strasse)
+                cdy.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_PLZ)
+                cdy.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Ort)
+                cdy.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Land)
+                cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
+
+
+                If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+                    Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
+                    Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
+                    cdy.ncts_Versender_EORI = kdVERSENDER.EORITIN
+                    cdy.ncts_Versender_NLNR = kdVERSENDER.EORITIN_NL
+                    cdy.ncts_Versender_Name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "")
+                    cdy.ncts_Versender_StrasseHausnummer = adVERSENDER.Straße
+                    cdy.ncts_Versender_PLZ = adVERSENDER.PLZ
+                    cdy.ncts_Versender_Ort = adVERSENDER.Ort
+                    If adVERSENDER.LandKz IsNot Nothing Then cdy.ncts_Versender_Land = cProgramFunctions.getISO2Land(adVERSENDER.LandKz)
+                    '   cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
+
+                End If
+
+            End If
+
+
+            ' NCTS= cdy
+        Catch ex As Exception
+            MsgBox(ex.StackTrace)
+        End Try
+    End Sub
+
+
+    Sub setValue(ncts_OUT)
+        BezugsNr = ncts_OUT.ncts_ObjectName
+
+    End Sub
+
+
+    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs)
+
+    End Sub
+
+    Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern
+        If DY_ANM Is Nothing Then
+            DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
+        End If
+        DY_ANM.dy_ART = ALLG.NCTS_ART 'cDy_ART
+        DY_ANM.dy_BezugsNr = BezugsNr
+        DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID)
+        DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)
+        'Status?
+        DY_ANM.SAVE() 'Speichern, ID wird erzeugt  
+
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        Me.Refresh()
+        Me.Cursor = Cursors.WaitCursor
+        If sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der MIC Software möglich.", vbYesNoCancel) Then
+            '  Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
+            loadDYZollanmeldungen()
+
+            If ncts_OUT IsNot Nothing Then
+                'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
+                ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
+                ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
+                ncts_OUT.ncts_LetzteBearbeitung = Now
+                ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
+                ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem
+                ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
+                ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
+                loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
+
+
+                If Not ncts_OUT.SAVE_ALL() Then Exit Sub '---> DANN SCHON
+
+                Dim saveFile = ""
+                If VERAG_PROG_ALLGEMEIN.cMIC.generateNCTS(ncts_OUT, saveFile, BezugsNr) Then
+                    If saveFile <> "" Then
+                        Process.Start(saveFile)
+                        '  VERAG_PROG_ALLGEMEIN.cMIC.send_Data_To_Dakosy_FTP()
+                        'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then
+                        '    MsgBox("Sendefehler!")
+                        'End If
+                    End If
+                End If
+
+                '---> DANN SCHON:::
+                'Dim saveFile = ""
+                'If VERAG_PROG_ALLGEMEIN.cMICInterface.generateVersandanmeldungNCTS(ncts_OUT, saveFile, cboDakosyAction._value) Then
+                '    If saveFile <> "" Then
+                '        If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
+                '            DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
+                '        Else
+                '            DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
+                '            MsgBox("Sendefehler!")
+                '        End If
+                '    End If
+                'End If
+            End If
+
+            DY_ANM.UPDATE_DATA()
+            Me.FindForm.Close()
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+
+    Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
+
+        Me.Refresh()
+
+        ' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
+        loadDYZollanmeldungen()
+
+        If ncts_OUT IsNot Nothing Then
+            'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
+            ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
+            ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
+            ncts_OUT.ncts_LetzteBearbeitung = Now
+            ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
+            ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem
+            ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_00
+            ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_00
+
+            loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
+
+            If Not ncts_OUT.SAVE_ALL() Then
+                'gespeichert
+            End If
+
+
+        End If
+        DY_ANM.UPDATE_DATA()
+
+    End Sub
+
+    Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click
+        BezugsNr = getBezugsnr(BezugsNr)
+    End Sub
+
+    Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR, USRCNTL As usrCntlMIC_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cNCTS_TR
+        Try
+
+            Select Case FIRMA_DY
+                Case "UNISPED"
+                    NCTS.ncts_Trans_Partner = "UNAT"
+                Case Else
+                    NCTS.ncts_Trans_Partner = "VERA"
+            End Select
+
+
+            NCTS.ncts_Trans_DatumZeit = Now
+            NCTS.ncts_Gestellt = False
+            NCTS.ncts_Status = "00"
+            NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
+            NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
+            NCTS.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
+            NCTS.ncts_Trans_Version = "003"
+            NCTS.ncts_Trans_Div1 = "ATILLA"
+            'NCTS.ncts_Trans_Div1 = "ATILLA"
+            'NCTS.ncts_Trans_Div1 = "ATILLA"
+
+            NCTS.ncts_Stammreferenz = If(USRCNTL.cboStammreferenz._value = "", Nothing, USRCNTL.cboStammreferenz._value)
+            NCTS.ncts_BezugsnummerVorblendung = NCTS.ncts_Stammreferenz
+
+            NCTS.ncts_ObjectName = USRCNTL.BezugsNr
+            'NCTS.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID
+            USRCNTL.ALLG.getValues(NCTS)
+            USRCNTL.ADRESSEN.getValues_TR(NCTS)
+            USRCNTL.POSITIONEN.getValues_TR(NCTS)
+            NCTS.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues_TR()
+            'USRCNTL.VERSCHLUESSE.getValues_TR(NCTS)
+            'NCTS.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
+            '--------------------------------
+
+
+
+            Return NCTS
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+            Return Nothing
+        End Try
+    End Function
+
+End Class
+

SDL/cProgramFunctions.vb

@@ -180,6 +180,12 @@ Public Class cProgramFunctions
             Dim docid As String = ""
             If Filiale = 4801 Then
                 docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat17] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            ElseIf Filiale = 5601 Then
+                If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat393] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+                If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat394] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+            ElseIf Filiale = 5701 Then
+                If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat395] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+                If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat397] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
             Else
                 docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat291] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
                 If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
@@ -217,7 +223,8 @@ Public Class cProgramFunctions
         Select Case VM_Artid
             Case 1, 7 : Return openThereforeNavigatorZollvollmachten_DE(KundenNr)
             Case 2, 8 : Return openThereforeNavigatorFiskalVM_DE(KundenNr)
-            Case 4, 9, 12, 13 : Return openThereforeNavigatorFiskalVM_AT(KundenNr)
+            Case 4, 9 : Return openThereforeNavigatorFiskalVM_AT(KundenNr)
+            Case 12, 13 : Return openThereforeNavigatorVM_AT(KundenNr)
         End Select
         Return False
     End Function
@@ -295,7 +302,7 @@ Public Class cProgramFunctions
     End Function
 
 
-    Shared Function openThereforeNavigatorFiskalVM_AT(KundenNr As String)
+    Shared Function openThereforeNavigatorVM_AT(KundenNr As String)
         Try
             Dim srch = KundenNr & "%"
             Dim docid As String = ""
@@ -319,6 +326,30 @@ Public Class cProgramFunctions
         Return False
     End Function
 
+    Shared Function openThereforeNavigatorFiskalVM_AT(KundenNr As String)
+        Try
+            Dim srch = KundenNr & "%"
+            Dim docid As String = ""
+            docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat205] WHERE [String] LIKE '" & srch & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+
+            If IsNumeric(docid) AndAlso docid > 0 Then
+                '  Process.Start("theviewer.exe -" & docid)
+                '    Process.Start("C:\Program Files (x86)\Therefore\theviewer.exe -" & docid)
+                Try
+                    Shell("C:\Program Files (x86)\Therefore\theviewer.exe -d" & docid)
+                Catch ex As Exception
+                    Shell("C:\Program Files\Therefore\theviewer.exe -d" & docid)
+                End Try
+            Else
+                MsgBox("Das Dokument konnte nicht gefunden werden.")
+            End If
+            Return True
+        Catch ex As Exception
+            MsgBox("Fehler beim Öffnen!" & vbNewLine & ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
     Shared Function openThereforeNavigatorFiskalVM_DE(KundenNr As String)
         Try
             Dim srch = KundenNr & "%"

SDL/cSqlDb.vb

@@ -422,7 +422,7 @@ Public Class SQLZoll
             End Using
             Return daten
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -471,13 +471,13 @@ Public Class SQLZoll
                         Return newcmd.ExecuteScalar
 
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return -1
     End Function
@@ -496,7 +496,7 @@ Public Class SQLZoll
                     cmd.ExecuteNonQuery()
                     Return True
                 Catch ex As SqlException
-                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                 End Try
             End Using
         End Using
@@ -526,7 +526,7 @@ Public Class SQL
 
 
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
 
         Return Nothing
@@ -546,7 +546,7 @@ Public Class SQL
                 conn.Close()
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return -1
     End Function
@@ -632,7 +632,7 @@ Public Class SQL
                 Next
             End If
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return sql.Replace(" AND ", vbNewLine).Trim
     End Function
@@ -753,7 +753,7 @@ Public Class SQL
             Return myTable
 
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
 
         Return Nothing
@@ -782,7 +782,7 @@ Public Class SQL
             ' End Using
             Return o  'While Schleife wird hier verlassen
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
 
         Return Nothing
@@ -819,7 +819,7 @@ Public Class SQL
 
             Return o  'While Schleife wird hier verlassen
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
 
         Return Nothing
@@ -904,7 +904,7 @@ Public Class SQL
 
             Return s
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         'MsgBox("3")
         Return ""
@@ -934,7 +934,7 @@ Public Class SQL
             conn.Close()
             Return True
         Catch ex As Exception
-            If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace & vbNewLine & sql)
+            If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql)
         End Try
         Return False
     End Function
@@ -952,8 +952,8 @@ Public Class SQL
         Try
             '  MsgBox(sql)
             Using cmd As New SqlCommand(sql, conn)
-                If List IsNot Nothing Then
-                    For Each i In List
+                If list IsNot Nothing Then
+                    For Each i In list
                         '  MsgBox(i.Text.Trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))
                         cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value))
                     Next
@@ -963,7 +963,7 @@ Public Class SQL
             conn.Close()
             Return True
         Catch ex As Exception
-            If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
+            If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql)
         End Try
         Return False
     End Function
@@ -996,7 +996,7 @@ Public Class SQL
             conn.Close()
 
         Catch ex As Exception
-            If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
+            If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql)
         End Try
         Return id
     End Function
@@ -1024,7 +1024,7 @@ Public Class FMZOLL_SQL
             End Using
             Return myTable  'While Schleife wird hier verlassen
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
 
         End Try
 
@@ -1044,7 +1044,7 @@ Public Class FMZOLL_SQL
             End Using
             Return myTable  'While Schleife wird hier verlassen
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
 
         End Try
 
@@ -1105,8 +1105,7 @@ Public Class FMZOLL_SQL
             End Using
             Return Nothing
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1153,7 +1152,7 @@ Public Class FMZOLL_SQL
             End Using
             Return Nothing
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1192,8 +1191,7 @@ Public Class FMZOLL_SQL
             End Using
             Return Nothing
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1225,7 +1223,7 @@ Public Class BerichteSQL
             End Using
             Return d
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
     End Function
 
@@ -1268,7 +1266,7 @@ Public Class kundenSQL
             End Using
             Return d
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1308,7 +1306,7 @@ Public Class kundenSQL
             End Using
             Return d
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1444,7 +1442,7 @@ Public Class kundenSQL
             End Using
             Return Nothing
         Catch ex As Exception
-            MsgBox("Fehler in der Funk!tion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return Nothing
     End Function
@@ -1461,7 +1459,8 @@ Public Class kundenSQL
                     cmd.ExecuteNonQuery()
                     Return True
                 Catch ex As SqlException
-                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Datensatz kann nicht gespeichert werden!")
+
                 End Try
             End Using
         End Using
@@ -1480,7 +1479,8 @@ Public Class kundenSQL
                     cmd.ExecuteNonQuery()
                     Return True
                 Catch ex As SqlException
-                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Datensatz kann nicht gespeichert werden!")
+
                 End Try
             End Using
         End Using
@@ -1504,7 +1504,7 @@ Public Class kundenSQL
             End Using
             Return data
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1526,7 +1526,7 @@ Public Class kundenSQL
             End Using
             Return data
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1550,7 +1550,7 @@ Public Class kundenSQL
             End Using
             Return data
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1587,7 +1587,7 @@ Public Class kundenSQL
             End Using
             Return d
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1608,7 +1608,7 @@ Public Class kundenSQL
             End Using
             Return d
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1628,7 +1628,7 @@ Public Class kundenSQL
             End Using
             Return d
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1654,7 +1654,7 @@ Public Class kundenSQL
             End Using
             '  Return d
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return myTable
     End Function
@@ -1688,7 +1688,7 @@ Public Class kundenSQL
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return False
     End Function
@@ -1710,7 +1710,7 @@ Public Class kundenSQL
                     cmd.ExecuteNonQuery()
                     Return True
                 Catch ex As SqlException
-                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql)
                 End Try
             End Using
         End Using
@@ -1743,7 +1743,7 @@ Public Class kundenSQL
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return False
     End Function
@@ -1778,7 +1778,7 @@ Public Class kundenSQL
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return False
     End Function
@@ -1797,7 +1797,7 @@ Public Class kundenSQL
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return False
 
@@ -1817,7 +1817,7 @@ Public Class kundenSQL
                     cmd.ExecuteNonQuery()
                     Return True
                 Catch ex As SqlException
-                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql)
                 End Try
             End Using
         End Using
@@ -1840,7 +1840,7 @@ Public Class kundenSQL
                     cmd.ExecuteNonQuery()
                     Return True
                 Catch ex As SqlException
-                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,, sql)
                 End Try
             End Using
         End Using
@@ -1864,7 +1864,7 @@ Public Class kundenSQL
             End Using
             Return daten
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -1944,7 +1944,7 @@ Public Class kundenSQL
             conn.Close()
             Return True
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return False
     End Function
@@ -1974,7 +1974,7 @@ Public Class kundenSQL
             conn.Close()
             Return i
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return -1
     End Function
@@ -1996,7 +1996,7 @@ Public Class kundenSQL
             End Using
             Return daten
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2019,7 +2019,7 @@ Public Class kundenSQL
             End Using
             Return daten
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2038,7 +2038,7 @@ Public Class kundenSQL
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return KartenNr
     End Function
@@ -2061,7 +2061,7 @@ Public Class kundenSQL
             End Using
             Return daten
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2080,13 +2080,13 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2108,13 +2108,13 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2133,13 +2133,13 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2171,13 +2171,13 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2203,13 +2203,13 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2234,13 +2234,13 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2276,13 +2276,13 @@ Public Class kundenSQL
                         LAST_SDL_HISTORY = History
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2303,7 +2303,7 @@ Public Class kundenSQL
             End Using
 
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return 1
     End Function
@@ -2325,12 +2325,12 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return False
     End Function
@@ -2346,13 +2346,13 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2369,13 +2369,13 @@ Public Class kundenSQL
                         cmd.ExecuteNonQuery()
                         Return True
                     Catch ex As SqlException
-                        MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End Using
             End Using
             Return False
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2398,7 +2398,7 @@ Public Class kundenSQL
             End Using
             Return daten
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2418,7 +2418,7 @@ Public Class kundenSQL
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return False
     End Function
@@ -2453,7 +2453,7 @@ Public Class kundenSQL
             End Using
 
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return d
     End Function
@@ -2519,7 +2519,7 @@ Public Class kundenSQL
             End Using
             Return d
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
         End Try
         Return Nothing
     End Function
@@ -2580,7 +2580,7 @@ Public Class kundenSQL
                     cmd.ExecuteNonQuery()
                     Return True
                 Catch ex As SqlException
-                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                 End Try
             End Using
         End Using

SDL/frmDienstplan.Designer.vb

@@ -249,6 +249,7 @@ Partial Class frmDienstplan
         '
         'pnlDP
         '
+        Me.pnlDP.AutoScroll = True
         Me.pnlDP.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlDP.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
         Me.pnlDP.Location = New System.Drawing.Point(0, 0)
@@ -256,6 +257,7 @@ Partial Class frmDienstplan
         Me.pnlDP.Name = "pnlDP"
         Me.pnlDP.Size = New System.Drawing.Size(1028, 862)
         Me.pnlDP.TabIndex = 0
+        Me.pnlDP.WrapContents = False
         '
         'Panel2
         '

SDL/frmDienstplan.vb

@@ -26,7 +26,7 @@
         Dim NAHeight = 150
         pnlDP.Controls.Clear()
 
-        Dim dt As DataTable = SQL.loadDgvBySql("SELECT *  FROM [ADMIN].[dbo].[tblDienstplanEintraegeDetails]  where dedet_niederlassung='" & DP_ART & "'  and dedet_benutzerdefinierteSchicht=1  order by dedet_reihenfolge", "ADMIN")
+        Dim dt As DataTable = SQL.loadDgvBySql("SELECT *  FROM [ADMIN].[dbo].[tblDienstplanEintraegeDetails]  where dedet_niederlassung='" & DP_ART & "'  and dedet_benutzerdefinierteSchicht=1  and [dedet_aktiv]=1 order by dedet_reihenfolge", "ADMIN")
 
         For Each r In dt.Rows
             Dim ustCntl As New usrCntlDienstWoche

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -313,7 +313,9 @@ Public Class frmKundenUebersichtZOLL
 
             If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") And
                 Not ((KdFirma = "IMEX" Or KdFirma = "VERAG") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL")) And
-                Not ((KdFirma = "FRONTOFFICE") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_FRONTOFFICE", "SDL")) Then
+                Not ((KdFirma = "AMBAR") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL")) And
+                Not ((KdFirma = "FRONTOFFICE") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_FRONTOFFICE", "SDL")) And
+                Not ((KdFirma = "AMBAR") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_AMBAR", "SDL")) Then
                 mnueOfferte.Enabled = False
                 mnueRechnungen.Enabled = False
                 mnueSpeditionsbuch.Enabled = False

SDL/kunden/frmKundenblatt.vb

@@ -722,7 +722,7 @@ Public Class frmKundenblatt
         Try
             Dim connectionString As String = cSqlDb.GetSDLConnectionString
 
-            Dim sqlstr As String = "SELECT KundenNr,KfzKennzeichen, Nationalität, Abgemeldet, Verkauft,KZAenderung, Vermerk,Erfassungsdatum,Änderungsdatum,Sachbearbeiter FROM LKW WHERE KundenNr=" & kdNr & " "
+            Dim sqlstr As String = "SELECT KundenNr,KfzKennzeichen, Nationalität, Abgemeldet, Verkauft,KZAenderung, Vermerk,Erfassungsdatum,Änderungsdatum,Sachbearbeiter,Baujahr,[KzFinanzierungBank],[KzLeasing],[KzMiete] FROM LKW WHERE KundenNr=" & kdNr & " "
             If TextBox11.Text <> "" Then sqlstr &= " AND KfzKennzeichen LIKE '" & TextBox11.Text & "%'" 'Suchparam
             ' MsgBox(sqlstr)
             Me.dataAdapterLKW = New SqlDataAdapter(sqlstr, connectionString)
@@ -762,6 +762,11 @@ Public Class frmKundenblatt
             .AllowUserToOrderColumns = True
 
             .Columns("KundenNr").Visible = False
+            .Columns("Baujahr").Visible = False
+            .Columns("KzFinanzierungBank").Visible = False
+            .Columns("KzLeasing").Visible = False
+            .Columns("KzMiete").Visible = False
+
 
             .Columns("KfzKennzeichen").MinimumWidth = 100
             .Columns("KfzKennzeichen").HeaderText = "KFZ-Kennzeichen"
@@ -1137,9 +1142,9 @@ Public Class frmKundenblatt
 
     Private Sub dgvSDLLeistungenFull_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSDLLeistungenFull.CellClick
         If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
-            If Not dgvSDLLeistungenFull.CurrentRow.Cells(9).Value Is DBNull.Value Then lblErfassungsdatum_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(9).Value
-            If Not dgvSDLLeistungenFull.CurrentRow.Cells(10).Value Is DBNull.Value Then lblAenderungsdatum_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(10).Value
-            If Not dgvSDLLeistungenFull.CurrentRow.Cells(11).Value Is DBNull.Value Then lblLetzterSA_SDL.Text = dgvSDLLeistungenFull.CurrentRow.Cells(11).Value
+            If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(9).Value Is DBNull.Value Then lblErfassungsdatum_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(9).Value
+            If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(10).Value Is DBNull.Value Then lblAenderungsdatum_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(10).Value
+            If Not dgvSDLLeistungenFull.SelectedRows(0).Cells(11).Value Is DBNull.Value Then lblLetzterSA_SDL.Text = dgvSDLLeistungenFull.SelectedRows(0).Cells(11).Value
         End If
     End Sub
 
@@ -1147,8 +1152,8 @@ Public Class frmKundenblatt
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", "SDL") Then Exit Sub
 
         If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
-            If vbYes = MsgBox("Möchten Sie die Leistung wirklich löschen? " & vbNewLine & vbNewLine & dgvSDLLeistungenFull.CurrentRow.Cells("SDLNr").Value & " - " & dgvSDLLeistungenFull.CurrentRow.Cells("SDLBez").Value, vbYesNo) Then
-                kundenSQL.delKundenSDL(kdNr, dgvSDLLeistungenFull.CurrentRow.Cells(0).Value)
+            If vbYes = MsgBox("Möchten Sie die Leistung wirklich löschen? " & vbNewLine & vbNewLine & dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLNr").Value & " - " & dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLBez").Value, vbYesNo) Then
+                kundenSQL.delKundenSDL(kdNr, dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value)
             End If
 
             dgvSDLLeistungenFull.Columns.Clear()
@@ -1171,7 +1176,7 @@ Public Class frmKundenblatt
         If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
             Panel2.Visible = True
             'Scan-Elemente initialisieren:
-            Dim tmpSDLNr = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value
+            Dim tmpSDLNr = dgvSDLLeistungenFull.SelectedRows(0).Cells("SDLNr").Value
             scanErstbestellung.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr)
             scanJaraVereinbarung.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr)
             scanMWSTAgreement.INIT(kdNr, "MDM_Leistung", "SDL_" & tmpSDLNr)
@@ -1217,7 +1222,7 @@ Public Class frmKundenblatt
 
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click, Button15.Click
         If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
-            Dim sdlNrTmp = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value
+            Dim sdlNrTmp = dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value
             Select Case sdlNrTmp
                 Case 100 : kundenSQL.setPartnerKdNrFromFMZOLL_IDS(kdNr, txtPartnerKdNr.Text) 'IDS :
                     'gibt keine Einträge
@@ -1331,10 +1336,10 @@ Public Class frmKundenblatt
 
 
     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
-        If dgvSDLLeistungenFull.SelectedCells.Count > 0 Then
+        If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
             Dim frmSDLDetails As New frmSDLDetails
             frmSDLDetails.KdNr = kdNr
-            frmSDLDetails.sdlNr = dgvSDLLeistungenFull.CurrentRow.Cells(0).Value
+            frmSDLDetails.sdlNr = dgvSDLLeistungenFull.SelectedRows(0).Cells(0).Value
             Me.Enabled = False
             If frmSDLDetails.ShowDialog(Me) = vbOK Then
                 initTABSDL_Leistungen()
@@ -1534,10 +1539,89 @@ Public Class frmKundenblatt
   
     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
         Me.Cursor = Cursors.WaitCursor
-        cProgramFunctions.genExcelFromDGV_NEW(dgvLKW, True)
+        'cProgramFunctions.genExcelFromDGV_NEW(dgvLKW, True)
+        Dim Path = ""
+        genLKWListeExcel(cProgramFunctions.dgridViewTods(dgvLKW), Path)
+        If Path <> "" Then Process.Start(Path)
         Me.Cursor = Cursors.Default
     End Sub
 
+
+    Shared Function genLKWListeExcel(dt As DataTable, ByRef Path As String) As Boolean
+        Try
+
+            If dt IsNot Nothing And dt.Rows.Count > 0 Then
+
+
+                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\LKWListe\" ' My.Computer.FileSystem.GetTempFileName
+                If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
+                    My.Computer.FileSystem.CreateDirectory(sPath)
+                End If
+
+
+                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")
+
+                With exclApp
+                    .Visible = False
+
+                    Try
+                        Path = sPath & "LKWListe_" & dt.Rows(0)("KundenNr") & ".xlsx"
+                        While System.IO.File.Exists(Path)
+                            Path = sPath & "LKWListe_" & dt.Rows(0)("KundenNr") & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                        End While
+                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.LKW_Liste, False)
+                    Catch ex As System.Exception
+                        '  MsgBox(ex.Message)
+                        MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                        Return False
+                    End Try
+
+
+                    Datei = .Workbooks.Open(Path) 'Anpassen
+                    Blatt = Datei.Worksheets(1) 'Anpassen
+
+                    Blatt.Range("L1").Value = Now.ToShortDateString
+                    Dim cnt = 4
+                    For Each r In dt.Rows
+                        If cnt = 4 Then
+                            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(r("KundenNr"))
+                            Blatt.Range("D1").Value = r("KundenNr")
+                            Blatt.Range("E1").Value = (AD.Name_1 & " " & If(AD.Name_2, "")).trim
+                        End If
+
+                        Blatt.Range("A" & cnt).Value = r("KundenNr")
+                        Blatt.Range("B" & cnt).Value = r("KfzKennzeichen")
+                        Blatt.Range("C" & cnt).Value = r("Nationalität")
+                        Blatt.Range("D" & cnt).Value = VERAG_PROG_ALLGEMEIN.SQL.checkNullDateReturnValue(r("Baujahr"), "") 'If(r("Abgemeldet") IsNot DBNull.Value, CDate(r("Baujahr")).ToShortDateString, "")
+                        Blatt.Range("E" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("Abgemeldet")), "x", "")
+                        '  Blatt.Range("F" & cnt).Value = r("Kennzeichen")
+                        Blatt.Range("G" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzMiete")), "x", "")
+                        Blatt.Range("H" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzLeasing")), "x", "")
+                        Blatt.Range("I" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KzFinanzierungBank")), "x", "")
+                        Blatt.Range("J" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("Verkauft")), "x", "")
+                        Blatt.Range("K" & cnt).Value = If(VERAG_PROG_ALLGEMEIN.SQL.checkNullBool(r("KZAenderung")), "x", "")
+                        Blatt.Range("L" & cnt).Value = r("Vermerk")
+
+                        cnt += 1
+                    Next
+                    Datei.Save
+                    Datei.Close()
+                    Datei = Nothing
+                    exclApp = Nothing
+
+                End With
+
+                Return True
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
     Private Sub frmKundenblatt_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         If showEdit Then changeTab(1, ToolStripMenuItem2)
 

SDL/kunden/frmOffertenBearbeiten.vb

@@ -27,7 +27,7 @@
         Dim where = ""
         Select Case FIRMA_TMP
             Case "IMEX"
-                where = " WHERE [Offertenstamm].[OffertenNr] IN (1,2,3,4,5,6,7,8,9,10,26,27,29)"
+                where = " WHERE [Offertenstamm].[OffertenNr] IN (1,2,3,4,5,6,7,8,9,10,26,27,29,50,51)"
         End Select
         Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offerten where  KundenNr=" & kdnr & " and  [Offerten].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
                     " [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm  " & where & " order by OffertenNr"

SDL/kunden/usrCntlKundenBesonderheiten.vb

@@ -40,7 +40,7 @@
 
     Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
         loaded = False
-        If simpleView Then Panel1.Visible = False 'showhideOptions(False)
+        If simpleView Then Panel1.Height = 0 : Panel1.Visible = False 'showhideOptions(False)
             cboKategorie.changeItem(Kategorie)
         cbx.Checked = False
         initDGV(kdNr, simpleView, preferedKategorie, preferedKategorieOtherIN)
@@ -75,9 +75,10 @@
 
             Dim order = " ORDER BY kdb_AenderungAm desc"
             Dim katIN = " "
+
             If preferedKategorie <> "" Then
-                order = " ORDER BY CASE WHEN kdb_kategorie = '" & preferedKategorie & "' THEN 1 ELSE 2 END desc, kdb_AenderungAm desc "
-                If katIN <> "" Then order = " AND kdb_kategorie IN(" & preferedKategorieOtherIN & ",'" & preferedKategorie & "') "
+                order = " ORDER BY CASE WHEN kdb_kategorie = '" & preferedKategorie & "' THEN 1 ELSE 2 END ASC, kdb_AenderungAm desc "
+                If preferedKategorieOtherIN <> "" Then katIN = " AND kdb_kategorie IN(" & preferedKategorieOtherIN & ",'" & preferedKategorie & "') "
             End If
 
             .DataSource = SQL.loadDgvBySql("Select kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history  FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " And kdb_visible=1  " & katIN & where & " " & order, "FMZOLL")

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -96,7 +96,7 @@ Public Class usrCntlKundenuebersicht
             connection.Close()
 
         Catch ex As Exception
-            MessageBox.Show("Err ! ")
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
@@ -177,7 +177,7 @@ Public Class usrCntlKundenuebersicht
                     tbcntrAllg.TabPages.Remove(tbAvisoMail)
                     tbcntrAllg.TabPages.Remove(tbKdSpez)
                 Catch ex As Exception
-
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                 End Try
             End If
 
@@ -223,7 +223,7 @@ Public Class usrCntlKundenuebersicht
 
             VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
         Catch ex As Exception
-            '  MsgBox(ex.Message & ex.StackTrace)
+            'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
@@ -603,7 +603,7 @@ Public Class usrCntlKundenuebersicht
             '     Button4.Visible = False
             '  Button5.Visible = False
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!")
         End Try
     End Sub
 
@@ -619,7 +619,7 @@ Public Class usrCntlKundenuebersicht
 
             kdErwTmp.SAVE()
         Catch ex As Exception
-            MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
@@ -1204,7 +1204,7 @@ Public Class usrCntlKundenuebersicht
                 Next
 
             Catch ex As Exception
-                MsgBox("OP: " & ex.Message)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             End Try
 
             'Dim OP_tmp As Double = 0
@@ -1330,7 +1330,7 @@ Public Class usrCntlKundenuebersicht
                     End If
                 Next
             Catch ex As Exception
-                MsgBox("OP: " & ex.Message)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             End Try
             txtOPFaellig.Text = sumZZ.ToString("C")
             If sumZZ > 0 Then
@@ -1414,7 +1414,7 @@ Public Class usrCntlKundenuebersicht
                 '  cntxtVollmachten.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position))
             End If
         Catch ex As Exception
-            MsgBox(ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
@@ -1688,10 +1688,10 @@ Public Class usrCntlKundenuebersicht
 
         Catch ex2 As InvalidOperationException
             'Server.GetLastError()
-            MsgBox(ex2.Message & ex2.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         Catch ex As Exception
             'Server.GetLastError()
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
 
         End Try
         sender.BackgroundImage = My.Resources.del
@@ -2022,7 +2022,7 @@ Public Class usrCntlKundenuebersicht
             GG.gg_erhalten_Datum = txtGGDatum._value
             GG.gg_Zollamt = If(cbxGG.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value)
 
-            If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt) Then
+            If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cGestellungsgarantien.ENTRY_Exists(kdNr, GG.gg_Zollamt, txtGGDatum._value) Then
                 MsgBox("Der Eintrag existiert bereits!")
                 Exit Sub
             End If

SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb

@@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.tbcntrDetails = New System.Windows.Forms.TabControl()
         Me.tbAbfertigung = New System.Windows.Forms.TabPage()
         Me.lblHinweisKdNr = New System.Windows.Forms.Label()
@@ -83,6 +83,11 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbFiskal = New System.Windows.Forms.TabPage()
         Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
         Me.tbVerrechnung = New System.Windows.Forms.TabPage()
+        Me.Label95 = New System.Windows.Forms.Label()
+        Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxSammelrechnungBerichtLeistungsdetails = New System.Windows.Forms.CheckBox()
+        Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox()
+        Me.Label94 = New System.Windows.Forms.Label()
         Me.cbxVeranlagungskunde = New System.Windows.Forms.CheckBox()
         Me.Label93 = New System.Windows.Forms.Label()
         Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -210,6 +215,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.tbSonstiges = New System.Windows.Forms.TabPage()
+        Me.txtSonst_KdNrTOBB = New System.Windows.Forms.TextBox()
+        Me.Label96 = New System.Windows.Forms.Label()
         Me.txtSonst_KdNrPLOSE = New System.Windows.Forms.TextBox()
         Me.Label83 = New System.Windows.Forms.Label()
         Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton()
@@ -305,8 +312,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxFiBu = New System.Windows.Forms.CheckBox()
         Me.cbxFiBuLG = New System.Windows.Forms.CheckBox()
-        Me.Label94 = New System.Windows.Forms.Label()
-        Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox()
         Me.tbcntrDetails.SuspendLayout()
         Me.tbAbfertigung.SuspendLayout()
         Me.tbcntrAbf.SuspendLayout()
@@ -979,6 +984,9 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'tbVerrechnung
         '
+        Me.tbVerrechnung.Controls.Add(Me.Label95)
+        Me.tbVerrechnung.Controls.Add(Me.cboRechnungSprache)
+        Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnungBerichtLeistungsdetails)
         Me.tbVerrechnung.Controls.Add(Me.cbxAPITradeshift)
         Me.tbVerrechnung.Controls.Add(Me.Label94)
         Me.tbVerrechnung.Controls.Add(Me.cbxVeranlagungskunde)
@@ -1026,6 +1034,63 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbVerrechnung.Text = "Verrechnung"
         Me.tbVerrechnung.UseVisualStyleBackColor = True
         '
+        'Label95
+        '
+        Me.Label95.AutoSize = True
+        Me.Label95.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label95.Location = New System.Drawing.Point(414, 135)
+        Me.Label95.Name = "Label95"
+        Me.Label95.Size = New System.Drawing.Size(70, 13)
+        Me.Label95.TabIndex = 38
+        Me.Label95.Text = "Rg.-Sprache:"
+        '
+        'cboRechnungSprache
+        '
+        Me.cboRechnungSprache._allowedValuesFreiText = Nothing
+        Me.cboRechnungSprache._allowFreiText = False
+        Me.cboRechnungSprache._value = ""
+        Me.cboRechnungSprache.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cboRechnungSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboRechnungSprache.DropDownWidth = 200
+        Me.cboRechnungSprache.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboRechnungSprache.ForeColor = System.Drawing.Color.Black
+        Me.cboRechnungSprache.FormattingEnabled = True
+        Me.cboRechnungSprache.Location = New System.Drawing.Point(527, 132)
+        Me.cboRechnungSprache.Name = "cboRechnungSprache"
+        Me.cboRechnungSprache.Size = New System.Drawing.Size(73, 21)
+        Me.cboRechnungSprache.TabIndex = 39
+        '
+        'cbxSammelrechnungBerichtLeistungsdetails
+        '
+        Me.cbxSammelrechnungBerichtLeistungsdetails.AutoSize = True
+        Me.cbxSammelrechnungBerichtLeistungsdetails.Location = New System.Drawing.Point(417, 178)
+        Me.cbxSammelrechnungBerichtLeistungsdetails.Name = "cbxSammelrechnungBerichtLeistungsdetails"
+        Me.cbxSammelrechnungBerichtLeistungsdetails.Size = New System.Drawing.Size(225, 17)
+        Me.cbxSammelrechnungBerichtLeistungsdetails.TabIndex = 37
+        Me.cbxSammelrechnungBerichtLeistungsdetails.Text = "Sammelrechnung Bericht: Leistungsdetails"
+        Me.cbxSammelrechnungBerichtLeistungsdetails.UseVisualStyleBackColor = True
+        '
+        'cbxAPITradeshift
+        '
+        Me.cbxAPITradeshift.AutoSize = True
+        Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxAPITradeshift.Location = New System.Drawing.Point(417, 382)
+        Me.cbxAPITradeshift.Name = "cbxAPITradeshift"
+        Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17)
+        Me.cbxAPITradeshift.TabIndex = 36
+        Me.cbxAPITradeshift.Text = "Rechnungskopie Tradeshift"
+        Me.cbxAPITradeshift.UseVisualStyleBackColor = True
+        '
+        'Label94
+        '
+        Me.Label94.AutoSize = True
+        Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label94.Location = New System.Drawing.Point(414, 358)
+        Me.Label94.Name = "Label94"
+        Me.Label94.Size = New System.Drawing.Size(168, 13)
+        Me.Label94.TabIndex = 35
+        Me.Label94.Text = "Fremd-Abrechnungssysteme:"
+        '
         'cbxVeranlagungskunde
         '
         Me.cbxVeranlagungskunde.AutoSize = True
@@ -2379,8 +2444,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
         Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
         Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
         Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
         Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -2477,8 +2542,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvOffenePosten.AllowUserToDeleteRows = False
         Me.dgvOffenePosten.AllowUserToOrderColumns = True
         Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -2634,41 +2699,41 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvKreditkarten.AllowUserToDeleteRows = False
         Me.dgvKreditkarten.AllowUserToOrderColumns = True
         Me.dgvKreditkarten.AllowUserToResizeRows = False
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
         Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
         Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle16
         Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
         Me.dgvKreditkarten.MultiSelect = False
         Me.dgvKreditkarten.Name = "dgvKreditkarten"
         Me.dgvKreditkarten.ReadOnly = True
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
         Me.dgvKreditkarten.RowHeadersVisible = False
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle18
         Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -2806,8 +2871,8 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'dgvUstv_LaenderUndSteuernummern
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
         Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
         Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
@@ -2942,6 +3007,8 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'tbSonstiges
         '
+        Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrTOBB)
+        Me.tbSonstiges.Controls.Add(Me.Label96)
         Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrPLOSE)
         Me.tbSonstiges.Controls.Add(Me.Label83)
         Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern)
@@ -2971,6 +3038,25 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbSonstiges.Text = "Sonstiges"
         Me.tbSonstiges.UseVisualStyleBackColor = True
         '
+        'txtSonst_KdNrTOBB
+        '
+        Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(119, 201)
+        Me.txtSonst_KdNrTOBB.MaxLength = 20
+        Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB"
+        Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20)
+        Me.txtSonst_KdNrTOBB.TabIndex = 22
+        '
+        'Label96
+        '
+        Me.Label96.AutoSize = True
+        Me.Label96.Enabled = False
+        Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label96.Location = New System.Drawing.Point(6, 204)
+        Me.Label96.Name = "Label96"
+        Me.Label96.Size = New System.Drawing.Size(83, 13)
+        Me.Label96.TabIndex = 21
+        Me.Label96.Text = "KdNr bei TOBB:"
+        '
         'txtSonst_KdNrPLOSE
         '
         Me.txtSonst_KdNrPLOSE.Enabled = False
@@ -3011,7 +3097,7 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         Me.Label76.AutoSize = True
         Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label76.Location = New System.Drawing.Point(9, 227)
+        Me.Label76.Location = New System.Drawing.Point(9, 233)
         Me.Label76.Name = "Label76"
         Me.Label76.Size = New System.Drawing.Size(65, 13)
         Me.Label76.TabIndex = 17
@@ -3020,8 +3106,8 @@ Partial Class usrcntlKundeBearbeitenFull
         'dgvSonst_IDSKunden
         '
         Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
         Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
@@ -3033,7 +3119,7 @@ Partial Class usrcntlKundeBearbeitenFull
         'cbxSonst_CsvAsfinag
         '
         Me.cbxSonst_CsvAsfinag.AutoSize = True
-        Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 201)
+        Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 228)
         Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag"
         Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(264, 17)
         Me.cbxSonst_CsvAsfinag.TabIndex = 15
@@ -3224,8 +3310,8 @@ Partial Class usrcntlKundeBearbeitenFull
         'DataGridView1
         '
         Me.DataGridView1.AllowUserToResizeRows = False
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
         Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
         Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView1.Enabled = False
@@ -4064,27 +4150,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cbxFiBuLG.UseVisualStyleBackColor = True
         Me.cbxFiBuLG.Visible = False
         '
-        'Label94
-        '
-        Me.Label94.AutoSize = True
-        Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label94.Location = New System.Drawing.Point(414, 358)
-        Me.Label94.Name = "Label94"
-        Me.Label94.Size = New System.Drawing.Size(168, 13)
-        Me.Label94.TabIndex = 35
-        Me.Label94.Text = "Fremd-Abrechnungssysteme:"
-        '
-        'cbxAPITradeshift
-        '
-        Me.cbxAPITradeshift.AutoSize = True
-        Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxAPITradeshift.Location = New System.Drawing.Point(417, 382)
-        Me.cbxAPITradeshift.Name = "cbxAPITradeshift"
-        Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17)
-        Me.cbxAPITradeshift.TabIndex = 36
-        Me.cbxAPITradeshift.Text = "Rechnungskopie Tradeshift"
-        Me.cbxAPITradeshift.UseVisualStyleBackColor = True
-        '
         'usrcntlKundeBearbeitenFull
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4443,4 +4508,9 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents Button2 As Button
     Friend WithEvents cbxAPITradeshift As CheckBox
     Friend WithEvents Label94 As Label
+    Friend WithEvents cbxSammelrechnungBerichtLeistungsdetails As CheckBox
+    Friend WithEvents Label95 As Label
+    Friend WithEvents cboRechnungSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtSonst_KdNrTOBB As TextBox
+    Friend WithEvents Label96 As Label
 End Class

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -100,6 +100,11 @@ Public Class usrcntlKundeBearbeitenFull
                 End Select
             End If
 
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL") Then
+                cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
+
+            End If
+
             pnlNeukunde.Visible = True
             End If
 
@@ -202,7 +207,7 @@ Public Class usrcntlKundeBearbeitenFull
 
         cboAbf_Steuerschluessel._value = loadValue(KUNDE.Steuerschlüssel, "")
         cboAbf_Waehrung._value = loadValue(KUNDE.Währungscode, "EUR")
-
+        cbxSammelrechnungBerichtLeistungsdetails.Checked = loadValue(KUNDE_ERW.kde_FakturierungSR_Details, False)
         cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "")
 
 
@@ -281,6 +286,7 @@ Public Class usrcntlKundeBearbeitenFull
 
         cbxAPITradeshift.Checked = loadValue(KUNDE_ERW.kde_API_Tradeshift, False)
 
+        cboRechnungSprache._value = loadValue(KUNDE_ERW.kde_Fakturierung_Sprache, "")
 
         txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
         ' ----- Abfertigungsverbot -----
@@ -325,6 +331,7 @@ Public Class usrcntlKundeBearbeitenFull
         txtSonst_KdNrTelepass.Text = loadValue(ADRESSE.TELEPASS_Kd_Nr, "")
         txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "")
         txtSonst_KdNrUTA.Text = loadValue(ADRESSE.UTAKundenNr, "")
+        txtSonst_KdNrTOBB.Text = loadValue(KUNDE_ERW.kde_TOBB_KundenNr, "")
 
         cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False)
         cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)
@@ -482,6 +489,7 @@ Public Class usrcntlKundeBearbeitenFull
         KUNDE.Währungscode = isLeerNothing(cboAbf_Waehrung._value)
         KUNDE.Sammelrechnung = cboAbf_Sammelrechnung._value
 
+        KUNDE_ERW.kde_FakturierungSR_Details = cbxSammelrechnungBerichtLeistungsdetails.Checked
         KUNDE.EORITIN = isLeerNothing(txtEORI.Text)
 
         If IsNumeric(txtEORINL.Text) Then
@@ -549,6 +557,8 @@ Public Class usrcntlKundeBearbeitenFull
         KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
 
         KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked
+        KUNDE_ERW.kde_Fakturierung_Sprache = isLeerNothing(cboRechnungSprache._value)
+
 
         ' ----- Fremdsped -----
         KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked
@@ -597,6 +607,7 @@ Public Class usrcntlKundeBearbeitenFull
         ADRESSE.TELEPASS_Kd_Nr = isLeerNothing(txtSonst_KdNrTelepass.Text)
         ADRESSE.PLOSEKundenNr = isLeerNothing(txtSonst_KdNrPLOSE.Text)
         ADRESSE.UTAKundenNr = isLeerNothing(txtSonst_KdNrUTA.Text)
+        KUNDE_ERW.kde_TOBB_KundenNr = isLeerNothing(txtSonst_KdNrTOBB.Text)
         ADRESSE.ASFINAGExportCSV = cbxSonst_CsvAsfinag.Checked
         ADRESSE.ExportMautberichtCSV = cbxSonst_CsvMautbericht.Checked
         ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked
@@ -608,7 +619,6 @@ Public Class usrcntlKundeBearbeitenFull
 
 
 
-
         UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
 
         Return True
@@ -676,7 +686,7 @@ Public Class usrcntlKundeBearbeitenFull
 
         cboUSt_UstIdNrLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez  " &
                                       " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " &
-                                      " WHERE [Währungstabelle].[MitgliedslandEU] = 1 " &
+                                      " WHERE ([Währungstabelle].[MitgliedslandEU] = 1) " &
                                       " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
         '  cbxLandKz.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez  " & _
         '                               " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " & _
@@ -686,6 +696,11 @@ Public Class usrcntlKundeBearbeitenFull
         cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land  from   Währungstabelle  where landkz is not null  order by LandKz", , "FMZOLL", True)
 
 
+        cboRechnungSprache.Items.Clear()
+        cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
+        cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
+        cboRechnungSprache.changeItem(0)
+
         cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez]  FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True)
         cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma ORDER BY tblFirma.Firma_ID",  , "FMZOLL", True)
 

SDL/mdm/PLOSE/frmPLOSE_ProductCodes.Designer.vb

@@ -0,0 +1,98 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmPLOSE_ProductCodes
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPLOSE_ProductCodes))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.dgvLeistungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.lblPLOSELeistungen = New System.Windows.Forms.Label()
+        Me.pnl.SuspendLayout()
+        CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnl.Controls.Add(Me.lblPLOSELeistungen)
+        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(800, 48)
+        Me.pnl.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel1.Location = New System.Drawing.Point(0, 360)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(800, 90)
+        Me.Panel1.TabIndex = 1
+        '
+        'dgvLeistungen
+        '
+        Me.dgvLeistungen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvLeistungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvLeistungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvLeistungen.Location = New System.Drawing.Point(0, 48)
+        Me.dgvLeistungen.Name = "dgvLeistungen"
+        Me.dgvLeistungen.Size = New System.Drawing.Size(800, 312)
+        Me.dgvLeistungen.TabIndex = 2
+        '
+        'lblPLOSELeistungen
+        '
+        Me.lblPLOSELeistungen.AutoSize = True
+        Me.lblPLOSELeistungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblPLOSELeistungen.ForeColor = System.Drawing.Color.White
+        Me.lblPLOSELeistungen.Location = New System.Drawing.Point(12, 14)
+        Me.lblPLOSELeistungen.Name = "lblPLOSELeistungen"
+        Me.lblPLOSELeistungen.Size = New System.Drawing.Size(172, 20)
+        Me.lblPLOSELeistungen.TabIndex = 0
+        Me.lblPLOSELeistungen.Text = "PLOSE - Leistungen"
+        '
+        'frmPLOSE_ProductCodes
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.dgvLeistungen)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.pnl)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmPLOSE_ProductCodes"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "PLOSE ProductCodes"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents dgvLeistungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents lblPLOSELeistungen As Label
+End Class

SDL/mdm/PLOSE/frmPLOSE_ProductCodes.resx

@@ -0,0 +1,980 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
+        AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
+        OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
+        //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
+        MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
+        v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
+        jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
+        mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
+        ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
+        y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
+        4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
+        p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
+        SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
+        y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
+        MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
+        //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
+        9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
+        ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
+        MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
+        //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
+        ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
+        1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
+        mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
+        MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
+        //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
+        9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
+        mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
+        //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
+        MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
+        MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
+        6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
+        ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
+        //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
+        MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
+        mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
+        //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
+        ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
+        ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
+        jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
+        ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
+        s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
+        ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
+        ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
+        //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
+        ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
+        ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
+        XUL/////////////////////////////////////////////////////////////////////////////
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
+        //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        ///////////////////////////////////////////////////////////////////////////d1tFm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
+        //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
+        1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
+        ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
+        ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
+        //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
+        //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
+        SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
+        6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
+        fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////Uy8XB
+        s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
+        //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
+        ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
+        mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
+        //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
+        //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
+        //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
+        v7j/////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+Mblhm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
+        ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
+        ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
+        ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
+        ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
+        //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
+        //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
+        //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
+        ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3/////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////39fRmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
+        ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
+        ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
+        ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
+        ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT/////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////////L
+        v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
+        s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
+        ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
+        ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
+        //////////////////////////////////////////////////////////////////////////////+A
+        XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

SDL/mdm/PLOSE/frmPLOSE_ProductCodes.vb

@@ -0,0 +1,9 @@
+Public Class frmPLOSE_ProductCodes
+
+
+    Sub initdgvLeistungen()
+        With dgvLeistungen
+            '     .SET_SQL("")
+        End With
+    End Sub
+End Class

SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.Designer.vb

@@ -51,15 +51,15 @@ Partial Class frmSDLAbholungEintrag
         Me.pnl = New System.Windows.Forms.Panel()
         Me.btnFahrerDrucken = New System.Windows.Forms.Button()
         Me.btnFahrer = New System.Windows.Forms.Button()
-        Me.cbxAbgeholt = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
         Me.txtAbholungAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Button2 = New System.Windows.Forms.Button()
         Me.txtHandy = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtLKW = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtVermerkAbholung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
         Me.cbxFahrerAbholung = New System.Windows.Forms.CheckBox()
+        Me.cbxAbgeholt = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label19 = New System.Windows.Forms.Label()
         Me.lblAuftragsnr = New System.Windows.Forms.Label()
         Me.btnOK = New System.Windows.Forms.Button()
@@ -330,7 +330,7 @@ Partial Class frmSDLAbholungEintrag
         '
         'btnFahrerDrucken
         '
-        Me.btnFahrerDrucken.BackgroundImage = Global.SDL.My.Resources.printer21
+        Me.btnFahrerDrucken.BackgroundImage = Global.SDL.My.Resources.Resources.printer21
         Me.btnFahrerDrucken.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
         Me.btnFahrerDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnFahrerDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -343,7 +343,7 @@ Partial Class frmSDLAbholungEintrag
         'btnFahrer
         '
         Me.btnFahrer.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnFahrer.Image = Global.SDL.My.Resources.LKW_klein1
+        Me.btnFahrer.Image = Global.SDL.My.Resources.Resources.LKW_klein1
         Me.btnFahrer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnFahrer.Location = New System.Drawing.Point(411, 68)
         Me.btnFahrer.Name = "btnFahrer"
@@ -352,19 +352,6 @@ Partial Class frmSDLAbholungEintrag
         Me.btnFahrer.Text = "               Formular Fahrer" & Global.Microsoft.VisualBasic.ChrW(10) & "               öffnen" & Global.Microsoft.VisualBasic.ChrW(10)
         Me.btnFahrer.UseVisualStyleBackColor = True
         '
-        'cbxAbgeholt
-        '
-        Me.cbxAbgeholt._value = ""
-        Me.cbxAbgeholt.AutoSize = True
-        Me.cbxAbgeholt.Checked_value = False
-        Me.cbxAbgeholt.CheckedValue = False
-        Me.cbxAbgeholt.Location = New System.Drawing.Point(16, 579)
-        Me.cbxAbgeholt.Name = "cbxAbgeholt"
-        Me.cbxAbgeholt.Size = New System.Drawing.Size(71, 17)
-        Me.cbxAbgeholt.TabIndex = 11
-        Me.cbxAbgeholt.Text = "Abgeholt:"
-        Me.cbxAbgeholt.UseVisualStyleBackColor = True
-        '
         'txtAbholungAm
         '
         Me.txtAbholungAm._DateTimeOnly = False
@@ -376,6 +363,7 @@ Partial Class frmSDLAbholungEintrag
         Me.txtAbholungAm._TimeOnly = False
         Me.txtAbholungAm._value = ""
         Me.txtAbholungAm._Waehrung = False
+        Me.txtAbholungAm._WaehrungZeichen = True
         Me.txtAbholungAm.ForeColor = System.Drawing.Color.Black
         Me.txtAbholungAm.Location = New System.Drawing.Point(411, 26)
         Me.txtAbholungAm.MaxLength = 10
@@ -386,16 +374,6 @@ Partial Class frmSDLAbholungEintrag
         Me.txtAbholungAm.Size = New System.Drawing.Size(194, 20)
         Me.txtAbholungAm.TabIndex = 2
         '
-        'Button2
-        '
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Location = New System.Drawing.Point(412, 418)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(194, 27)
-        Me.Button2.TabIndex = 17
-        Me.Button2.Text = "Auftrag als SMS senden"
-        Me.Button2.UseVisualStyleBackColor = True
-        '
         'txtHandy
         '
         Me.txtHandy._DateTimeOnly = False
@@ -407,6 +385,7 @@ Partial Class frmSDLAbholungEintrag
         Me.txtHandy._TimeOnly = False
         Me.txtHandy._value = ""
         Me.txtHandy._Waehrung = False
+        Me.txtHandy._WaehrungZeichen = True
         Me.txtHandy.ForeColor = System.Drawing.Color.Black
         Me.txtHandy.Location = New System.Drawing.Point(411, 7)
         Me.txtHandy.MaxLineLength = -1
@@ -416,18 +395,6 @@ Partial Class frmSDLAbholungEintrag
         Me.txtHandy.Size = New System.Drawing.Size(194, 20)
         Me.txtHandy.TabIndex = 2
         '
-        'cboPrinter
-        '
-        Me.cboPrinter._allowedValuesFreiText = Nothing
-        Me.cboPrinter._allowFreiText = False
-        Me.cboPrinter._value = ""
-        Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPrinter.FormattingEnabled = True
-        Me.cboPrinter.Location = New System.Drawing.Point(412, 575)
-        Me.cboPrinter.Name = "cboPrinter"
-        Me.cboPrinter.Size = New System.Drawing.Size(194, 21)
-        Me.cboPrinter.TabIndex = 26
-        '
         'txtFahrer
         '
         Me.txtFahrer._DateTimeOnly = False
@@ -439,6 +406,7 @@ Partial Class frmSDLAbholungEintrag
         Me.txtFahrer._TimeOnly = False
         Me.txtFahrer._value = ""
         Me.txtFahrer._Waehrung = False
+        Me.txtFahrer._WaehrungZeichen = True
         Me.txtFahrer.ForeColor = System.Drawing.Color.Black
         Me.txtFahrer.Location = New System.Drawing.Point(81, 26)
         Me.txtFahrer.MaxLength = 10
@@ -460,6 +428,7 @@ Partial Class frmSDLAbholungEintrag
         Me.txtLKW._TimeOnly = False
         Me.txtLKW._value = ""
         Me.txtLKW._Waehrung = False
+        Me.txtLKW._WaehrungZeichen = True
         Me.txtLKW.ForeColor = System.Drawing.Color.Black
         Me.txtLKW.Location = New System.Drawing.Point(81, 7)
         Me.txtLKW.MaxLineLength = -1
@@ -484,7 +453,7 @@ Partial Class frmSDLAbholungEintrag
         '
         Me.cbxFahrerAbholung.AutoSize = True
         Me.cbxFahrerAbholung.Checked = True
-        Me.cbxFahrerAbholung.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cbxFahrerAbholung.CheckState = System.Windows.Forms.CheckState.Checked
         Me.cbxFahrerAbholung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cbxFahrerAbholung.Location = New System.Drawing.Point(411, 52)
         Me.cbxFahrerAbholung.Name = "cbxFahrerAbholung"
@@ -494,6 +463,41 @@ Partial Class frmSDLAbholungEintrag
         Me.cbxFahrerAbholung.ThreeState = True
         Me.cbxFahrerAbholung.UseVisualStyleBackColor = True
         '
+        'cbxAbgeholt
+        '
+        Me.cbxAbgeholt._value = ""
+        Me.cbxAbgeholt.AutoSize = True
+        Me.cbxAbgeholt.Checked_value = False
+        Me.cbxAbgeholt.CheckedValue = False
+        Me.cbxAbgeholt.Location = New System.Drawing.Point(16, 579)
+        Me.cbxAbgeholt.Name = "cbxAbgeholt"
+        Me.cbxAbgeholt.Size = New System.Drawing.Size(71, 17)
+        Me.cbxAbgeholt.TabIndex = 11
+        Me.cbxAbgeholt.Text = "Abgeholt:"
+        Me.cbxAbgeholt.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(412, 418)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(194, 27)
+        Me.Button2.TabIndex = 17
+        Me.Button2.Text = "Auftrag als SMS senden"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'cboPrinter
+        '
+        Me.cboPrinter._allowedValuesFreiText = Nothing
+        Me.cboPrinter._allowFreiText = False
+        Me.cboPrinter._value = ""
+        Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboPrinter.FormattingEnabled = True
+        Me.cboPrinter.Location = New System.Drawing.Point(412, 575)
+        Me.cboPrinter.Name = "cboPrinter"
+        Me.cboPrinter.Size = New System.Drawing.Size(194, 21)
+        Me.cboPrinter.TabIndex = 26
+        '
         'Label19
         '
         Me.Label19.AutoSize = True
@@ -638,7 +642,7 @@ Partial Class frmSDLAbholungEintrag
         '
         'btnFaxDrucken
         '
-        Me.btnFaxDrucken.BackgroundImage = Global.SDL.My.Resources.printer21
+        Me.btnFaxDrucken.BackgroundImage = Global.SDL.My.Resources.Resources.printer21
         Me.btnFaxDrucken.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
         Me.btnFaxDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnFaxDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -652,7 +656,7 @@ Partial Class frmSDLAbholungEintrag
         'btnFax
         '
         Me.btnFax.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnFax.Image = Global.SDL.My.Resources.list1
+        Me.btnFax.Image = Global.SDL.My.Resources.Resources.list1
         Me.btnFax.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnFax.Location = New System.Drawing.Point(637, 454)
         Me.btnFax.Name = "btnFax"
@@ -743,7 +747,7 @@ Partial Class frmSDLAbholungEintrag
         '
         'Button3
         '
-        Me.Button3.BackgroundImage = Global.SDL.My.Resources.email_big1
+        Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
         Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -802,6 +806,7 @@ Partial Class frmSDLAbholungEintrag
         '
         'KdFirma
         '
+        Me.KdFirma._AlleFirmenCLUSTER = False
         Me.KdFirma._AllowSetValue = True
         Me.KdFirma._autoSizeGross = False
         Me.KdFirma._display_Name1 = False
@@ -810,6 +815,7 @@ Partial Class frmSDLAbholungEintrag
         Me.KdFirma._displayWoelflKd = False
         Me.KdFirma._hideIfListEmpty = True
         Me.KdFirma._loadKdData = True
+        Me.KdFirma._UseFIRMA = ""
         Me.KdFirma._ValueKdAndName = True
         Me.KdFirma.dgvpos = "LEFT"
         Me.KdFirma.KdName = ""
@@ -822,6 +828,7 @@ Partial Class frmSDLAbholungEintrag
         Me.KdFirma.searchActive = True
         Me.KdFirma.Size = New System.Drawing.Size(325, 20)
         Me.KdFirma.TabIndex = 7
+        Me.KdFirma.TIMER_SEARCH = True
         Me.KdFirma.usrcntl = Nothing
         '
         'txtVermerkErfassung

SDL/mdm/SDLLeistungenDetails/frmFindNewVeragCard.vb

@@ -28,7 +28,7 @@
 
     Private Sub frmFindNewVeragCard_Load(sender As Object, e As EventArgs) Handles Me.Load
         With DataGridView
-            .DataSource = SQL.loadDgvBySql("SELECT KundenNr,KfzKennzeichen,SDLNr,History,[KartenNr],[Bestelldatum],[Lieferdatum],[Vermerk],[Fahrer],[Ersatzkarte],[Gesperrt],[Defekt],[Verloren],[Gestohlen]  FROM [SDL]  where SDLNr=501 and KundenNr <=0 order by kartennr", "SDL")
+            .DataSource = SQL.loadDgvBySql("SELECT KundenNr,KfzKennzeichen,SDLNr,History,[KartenNr],[Bestelldatum],[Lieferdatum],[Vermerk],[Fahrer],[Ersatzkarte],[Gesperrt],[Defekt],[Verloren],[Gestohlen]  FROM [SDL]  where SDLNr=501 and KundenNr <=0 order by cast(kartennr as int)", "SDL")
             If .RowCount > 0 Then
                 .Columns("KundenNr").Visible = False
                 .Columns("KfzKennzeichen").Visible = False

SDL/mdm/frmMDMDatenverarbetiung.Designer.vb

@@ -35,6 +35,8 @@ Partial Class frmMDMDatenverarbetiung
         Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
         Me.lbl = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.pic = New System.Windows.Forms.PictureBox()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -57,15 +59,15 @@ Partial Class frmMDMDatenverarbetiung
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.pic = New System.Windows.Forms.PictureBox()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button6 = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
         Me.FlowLayoutPanel.SuspendLayout()
         Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel3.SuspendLayout()
         Me.Panel2.SuspendLayout()
         CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnl
@@ -196,9 +198,32 @@ Partial Class frmMDMDatenverarbetiung
         Me.Panel1.Size = New System.Drawing.Size(1163, 114)
         Me.Panel1.TabIndex = 2
         '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(574, 88)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(23, 23)
+        Me.PictureBox1.TabIndex = 50
+        Me.PictureBox1.TabStop = False
+        Me.PictureBox1.Visible = False
+        '
+        'pic
+        '
+        Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.ok
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pic.Location = New System.Drawing.Point(574, 62)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(23, 23)
+        Me.pic.TabIndex = 49
+        Me.pic.TabStop = False
+        Me.pic.Visible = False
+        '
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.Color.White
+        Me.Panel3.Controls.Add(Me.Button6)
         Me.Panel3.Location = New System.Drawing.Point(626, 0)
         Me.Panel3.Name = "Panel3"
         Me.Panel3.Size = New System.Drawing.Size(301, 114)
@@ -460,27 +485,15 @@ Partial Class frmMDMDatenverarbetiung
         Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
         Me.MyDatagridview1.TabIndex = 0
         '
-        'pic
+        'Button6
         '
-        Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.ok
-        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.pic.Location = New System.Drawing.Point(574, 62)
-        Me.pic.Name = "pic"
-        Me.pic.Size = New System.Drawing.Size(23, 23)
-        Me.pic.TabIndex = 49
-        Me.pic.TabStop = False
-        Me.pic.Visible = False
-        '
-        'PictureBox1
-        '
-        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox1.Location = New System.Drawing.Point(574, 88)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(23, 23)
-        Me.PictureBox1.TabIndex = 50
-        Me.PictureBox1.TabStop = False
-        Me.PictureBox1.Visible = False
+        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button6.Location = New System.Drawing.Point(97, 46)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(107, 23)
+        Me.Button6.TabIndex = 47
+        Me.Button6.Text = "MautD Check"
+        Me.Button6.UseVisualStyleBackColor = True
         '
         'frmMDMDatenverarbetiung
         '
@@ -500,11 +513,12 @@ Partial Class frmMDMDatenverarbetiung
         Me.FlowLayoutPanel.ResumeLayout(False)
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel3.ResumeLayout(False)
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -544,4 +558,5 @@ Partial Class frmMDMDatenverarbetiung
     Friend WithEvents Panel3 As Panel
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents pic As PictureBox
+    Friend WithEvents Button6 As Button
 End Class

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1099,5 +1099,54 @@ Public Class frmMDMDatenverarbetiung
         End If
     End Sub
 
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Try
 
+            Dim connectionString = ""
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb"
+            Else
+                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
+            End If
+
+            Dim con As New OleDbConnection(connectionString)
+            Dim cmd As New OleDbCommand
+            Dim var1 As String
+
+            Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
+            Dim reader As OleDbDataReader = Nothing
+
+
+            Dim ergebnis = ""
+
+            con.Open()
+            Try
+                'Zeitstempel 
+                Dim SQLQuery = "SELECT COUNT(*) FROM tblMautbericht "
+
+                Using Command As New OleDbCommand(SQLQuery, con)
+
+                    ergebnis = Command.ExecuteScalar
+                    Command.Dispose()
+                End Using
+
+
+
+            Catch ex2 As System.Exception
+                MsgBox("err: " & ex2.Message & ex2.StackTrace)
+
+            Finally
+                If reader IsNot Nothing Then reader.Close()
+            End Try
+
+
+            con.Close()
+
+
+            MsgBox("Ergebnis: " & ergebnis)
+        Catch ex As System.Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+    End Sub
 End Class

SDL/mdm/frmMDM_USTVAntrag.vb

@@ -1,51 +0,0 @@
-Public Class frmMDM_USTVAntrag
-
-    Dim UStVAn_ID As Integer
-
-    Sub New(UStVAn_ID)
-
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        Me.UStVAn_ID = UStVAn_ID
-
-    End Sub
-
-    Sub init()
-        pnlFilter.AutoScroll = False
-
-        With dgvUSTVPositionen
-            .ClearSelection()
-
-            If UStVAn_ID <= 0 Then Exit Sub
-
-            .SET_SQL("SELECT  [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_USteuerbetrag],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter] 
-                      FROM [tblUStVPositionen]
-                      where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL")
-            .LOAD()
-            .RowTemplate.Height = 20
-            .AllowUserToOrderColumns = False
-            .AllowUserToResizeRows = False
-
-            If .Columns.Count > 0 Then
-
-                .Columns("UStVAn_ID").Visible = False
-                .Columns("UStVPo_ID").HeaderText = "Pos"
-            End If
-
-
-        End With
-
-    End Sub
-
-    Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
-        init()
-
-    End Sub
-
-    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
-        init()
-    End Sub
-End Class

SDL/mdm/frmNewData.Designer.vb

@@ -273,6 +273,7 @@ Partial Class frmNewData
         Me.btnSDL_MautMSE.Text = "MSE-Card"
         Me.btnSDL_MautMSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnSDL_MautMSE.UseVisualStyleBackColor = True
+        Me.btnSDL_MautMSE.Visible = False
         '
         'btnSDL_UTA
         '

SDL/mdm/frmVERAGCardNew.vb

@@ -21,7 +21,7 @@ Public Class frmVERAGCardNew
          If kdnr > 0 Then
             Label2.Visible = True
         End If
-        newBinding("SELECT KartenNr, KundenNr, KfzKennzeichen, Fahrer, Datum, Kaution, BelegNr, Ersatzkarte, Gesperrt, Defekt, Verloren, Gestohlen, Vermerk, Erfassungsdatum, Änderungsdatum, Sachbearbeiter FROM Kartenpool WHERE KundenNr is null" & where)
+        newBinding("SELECT cast(KartenNr as int) KartenNr, KundenNr, KfzKennzeichen, Fahrer, Datum, Kaution, BelegNr, Ersatzkarte, Gesperrt, Defekt, Verloren, Gestohlen, Vermerk, Erfassungsdatum, Änderungsdatum, Sachbearbeiter FROM Kartenpool WHERE KundenNr is null" & where & " ORDER BY cast(KartenNr as int)")
 
     End Sub
 

SDL/mdm/usrCntlKartenDaten.Designer.vb

@@ -74,13 +74,13 @@ Partial Class usrCntlKartenDaten
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
         Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.pnlTest = New System.Windows.Forms.Panel()
         Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails()
         Me.FlowLayoutPanel.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -345,6 +345,7 @@ Partial Class usrCntlKartenDaten
         Me.btnSDL_MautMSE.Text = "MSE-Card"
         Me.btnSDL_MautMSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnSDL_MautMSE.UseVisualStyleBackColor = True
+        Me.btnSDL_MautMSE.Visible = False
         '
         'btnSDL_ECOTAX
         '
@@ -855,6 +856,15 @@ Partial Class usrCntlKartenDaten
         Me.dgvSDL.Size = New System.Drawing.Size(1354, 599)
         Me.dgvSDL.TabIndex = 29
         '
+        'UsrCntlDatenDetails1
+        '
+        Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1"
+        Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234)
+        Me.UsrCntlDatenDetails1.TabIndex = 0
+        Me.UsrCntlDatenDetails1.Visible = False
+        '
         'Panel4
         '
         Me.Panel4.BackColor = System.Drawing.Color.White
@@ -913,15 +923,6 @@ Partial Class usrCntlKartenDaten
         Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
         Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
         '
-        'UsrCntlDatenDetails1
-        '
-        Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1"
-        Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234)
-        Me.UsrCntlDatenDetails1.TabIndex = 0
-        Me.UsrCntlDatenDetails1.Visible = False
-        '
         'usrCntlKartenDaten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/mdm/usrCntlKartenDaten.vb

@@ -457,7 +457,7 @@ Public Class usrCntlKartenDaten
         End Select
         Dim SQL_STR = ""
         Select Case SDLNrTmp
-            Case 100 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, GültigBis, PIN,  Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=100"
+            Case 100 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden]  WHERE [KdNrVERAG]=KundenNr AND KdNrAlt =0  ORDER BY Zeitstempel DESC) as [IDS-KdNr], KartenNr, GültigBis, PIN,  Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=100"
             Case 101 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenSchlüsselNr, GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter  FROM SDL WHERE SDLNr=101"
             Case 212 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, UTAKundenNr, KartenNr,[CARD-Nr], GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr    WHERE SDLNr=212"
             Case 200 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, [BestellNr],[Umstellungsdatum],KartenNr,OBUID, Vertragsabschlussdatum,Kategorie,Status,Schadstoffklasse, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=200"

SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb

@@ -24,6 +24,7 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE
     Private Sub InitializeComponent()
         Me.Button6 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
+        Me.cbxNurEULander = New System.Windows.Forms.CheckBox()
         Me.SuspendLayout()
         '
         'Button6
@@ -45,7 +46,7 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.Image = Global.SDL.My.Resources.Resources.statistik_small
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(13, 53)
+        Me.Button1.Location = New System.Drawing.Point(13, 70)
         Me.Button1.Name = "Button1"
         Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
         Me.Button1.Size = New System.Drawing.Size(149, 41)
@@ -55,19 +56,32 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE
         Me.Button1.UseVisualStyleBackColor = True
         Me.Button1.Visible = False
         '
+        'cbxNurEULander
+        '
+        Me.cbxNurEULander.AutoSize = True
+        Me.cbxNurEULander.Location = New System.Drawing.Point(67, 47)
+        Me.cbxNurEULander.Name = "cbxNurEULander"
+        Me.cbxNurEULander.Size = New System.Drawing.Size(95, 17)
+        Me.cbxNurEULander.TabIndex = 50
+        Me.cbxNurEULander.Text = "nur EU Länder"
+        Me.cbxNurEULander.UseVisualStyleBackColor = True
+        '
         'usrCntlMDMDatenverarbeitungAuswertungen_PLOSE
         '
         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.cbxNurEULander)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Button6)
         Me.Name = "usrCntlMDMDatenverarbeitungAuswertungen_PLOSE"
         Me.Size = New System.Drawing.Size(301, 114)
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents Button6 As Button
     Friend WithEvents Button1 As Button
+    Friend WithEvents cbxNurEULander As CheckBox
 End Class

SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb

@@ -20,14 +20,14 @@
     End Sub
 
 
-    Function getSQLPLOSE(plp_ProductCode_IN As String, plp_ProductCode_NOTIN As String, plose_POLSEKundennummer As String, plp_Kategorie_IN As String) As String
+    Function getSQLPLOSE(plp_ProductCode_IN As String, plp_ProductCode_NOTIN As String, plose_POLSEKundennummer As String, plp_Kategorie_IN As String, onlyEUCountries As Boolean) As String
         Return "   SELECT Adressennr KundenNr, [Name 1] Firma,Adressen.LandKz,plz,Ort,CASE WHEN  MitgliedslandEU =1 THEN 'JA' ELSE 'NEIN' END as EU, plose_POLSEKundennummer PLOSEKundennummer,sum(plose_NettobetragWaehrungAbbuchung) as Netto, sum(plose_MWSTBetragWaehrungAbbuchung) as MWST , sum(plose_BruttobetragWaehrungAbbuchung) as Brutto
               FROM tblPLOSE_Details inner join Adressen on PLOSEKundenNr=plose_POLSEKundennummer
               inner join tblPLOSE_Produktbeschreibung on  plp_ProductCode=plose_ProduktCode
               inner join [Währungstabelle] on [Währungstabelle].LandKz=Adressen.LandKz
               WHERE plose_Fakturiert=1 and CAST(plose_FakturiertDatum AS DATE) between '" & MAIN.dat_Sum_Von.Value & "' and '" & MAIN.dat_Sum_Bis.Value & "'
               and plp_Land='IT' 
-              and MitgliedslandEU=1
+             " & If(onlyEUCountries, " and MitgliedslandEU=1 ", "") & " 
               " & If(plp_Kategorie_IN <> "", "   and plp_Kategorie IN (" & plp_Kategorie_IN & ")", "") & "
               " & If(plp_ProductCode_IN <> "", "   and plp_ProductCode IN (" & plp_ProductCode_IN & ")", "") & "
               " & If(plp_ProductCode_NOTIN <> "", "   and plp_ProductCode NOT IN (" & plp_ProductCode_NOTIN & ")", "") & "
@@ -38,7 +38,7 @@
 
     End Function
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
-        Dim sqlstr = getSQLPLOSE("", "", "", "") ' 262
+        Dim sqlstr = getSQLPLOSE("", "", "", "", cbxNurEULander.Checked) ' 262
 
 
         Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
@@ -81,7 +81,7 @@
                                           sumBruttoAlleLeistungen += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0)
 
 
-                                          Dim dt2 As DataTable = SQL.loadDgvBySql_Param(getSQLPLOSE("", "", rpt.Fields.Item("PLOSEKundennummer").Value, "'MAUT'"), "FMZOLL") ' NUR MAUT je Kunde
+                                          Dim dt2 As DataTable = SQL.loadDgvBySql_Param(getSQLPLOSE("", "", rpt.Fields.Item("PLOSEKundennummer").Value, "'MAUT'", cbxNurEULander.Checked), "FMZOLL") ' NUR MAUT je Kunde
 
                                           If dt2.Rows.Count > 0 Then
                                               rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(dt2(0)("Netto"), 2, "")

SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.Designer.vb

@@ -37,6 +37,9 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200
         Me.Button1 = New System.Windows.Forms.Button()
         Me.lblErr = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
+        Me.cboUID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblErrUID = New System.Windows.Forms.Label()
         Me.GroupBox2.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -53,6 +56,9 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200
         '
         'GroupBox2
         '
+        Me.GroupBox2.Controls.Add(Me.lblErrUID)
+        Me.GroupBox2.Controls.Add(Me.Label1)
+        Me.GroupBox2.Controls.Add(Me.cboUID)
         Me.GroupBox2.Controls.Add(Me.Button4)
         Me.GroupBox2.Controls.Add(Me.Button3)
         Me.GroupBox2.Controls.Add(Me.Button2)
@@ -202,6 +208,37 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200
         Me.Label14.TabIndex = 5
         Me.Label14.Text = "Liefert eine "
         '
+        'cboUID
+        '
+        Me.cboUID._allowedValuesFreiText = Nothing
+        Me.cboUID._allowFreiText = False
+        Me.cboUID._value = ""
+        Me.cboUID.FormattingEnabled = True
+        Me.cboUID.Location = New System.Drawing.Point(433, 61)
+        Me.cboUID.Name = "cboUID"
+        Me.cboUID.Size = New System.Drawing.Size(221, 21)
+        Me.cboUID.TabIndex = 35
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(399, 65)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(29, 13)
+        Me.Label1.TabIndex = 36
+        Me.Label1.Text = "UID:"
+        '
+        'lblErrUID
+        '
+        Me.lblErrUID.AutoSize = True
+        Me.lblErrUID.ForeColor = System.Drawing.Color.Red
+        Me.lblErrUID.Location = New System.Drawing.Point(510, 85)
+        Me.lblErrUID.Name = "lblErrUID"
+        Me.lblErrUID.Size = New System.Drawing.Size(144, 13)
+        Me.lblErrUID.TabIndex = 37
+        Me.lblErrUID.Text = "UID Fiskalvertretung wählen!"
+        Me.lblErrUID.Visible = False
+        '
         'usrCntlAuswertungenFiskalvertretung_4200
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -232,5 +269,7 @@ Partial Class usrCntlAuswertungenFiskalvertretung_4200
     Friend WithEvents Button3 As System.Windows.Forms.Button
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents Button4 As System.Windows.Forms.Button
-
+    Friend WithEvents lblErrUID As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents cboUID As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb

@@ -12,18 +12,38 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
     Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load
         datVon.Value = CDate("01." & Now.AddMonths(-3).Month & "." & Now.AddMonths(-1).Year)
         datBis.Value = datVon.Value.AddMonths(3).AddDays(-1)
+
+        cboUID.Items.Clear()
+        cboUID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE813667748 - VERAG Spedition GmbH", "DE813667748"))
+        cboUID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE295575575 - Global-Logistics GmbH", "DE295575575"))
     End Sub
 
-
+    Function getDir() As String
+        Select Case cboUID._value
+            Case "DE813667748"
+                Return "\\FMZoll.verag.ost.dmn\FMZoll\ZM\"
+            Case "DE295575575"
+                Return "\\192.168.1.20\Daten\ZM\"
+            Case Else
+                Return ""
+        End Select
+    End Function
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Try
+
+            lblErrUID.Visible = False
+            If cboUID._value = "" Then
+                lblErrUID.Visible = True
+                Exit Sub
+            End If
+
             Me.Cursor = Cursors.WaitCursor
             Dim dt = getZM_Datat()
 
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
 
-                If Not Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
-                Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml", FileMode.Create)
+                If Not Directory.Exists(getDir) Then Directory.CreateDirectory(getDir)
+                Dim fs As New FileStream(getDir() & "\ZM_Formular_online.xml", FileMode.Create)
                 Dim sw As New StreamWriter(fs)
 
                 ' File.AppendAllLines(Path.Combine(mydocpath,"WriteFile.txt"), lines);
@@ -82,7 +102,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
 
                 'Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online_TEST.xml")
 
-                Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
+                Process.Start(getDir())
             End If
 
         Catch ex As Exception
@@ -106,7 +126,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= " AND zbant_stat IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1)"
             sqlStr &= " AND [zbant_erwust] <>''"
-            sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
+            sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
 
             sqlStr &= " UNION"
 
@@ -116,7 +136,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= " AND zbant_stat IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1)"
             sqlStr &= " AND [zbant_erwust] <>''"
-            sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
+            sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
         End If
 
 
@@ -129,7 +149,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= " AND zbant_stat IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1)"
             sqlStr &= " AND [zbant_erwust] <>''"
-            sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
+            sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
 
             sqlStr &= " UNION"
 
@@ -139,7 +159,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= " AND zbant_stat IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1)"
             sqlStr &= " AND [zbant_erwust] <>''"
-            sqlStr &= " AND [zbant_anmust] = 'DE813667748' "
+            sqlStr &= " AND [zbant_anmust] = '" & cboUID._value & "' "
         End If
 
         If (CheckBox2.Checked Or CheckBox1.Checked) And (cbxDatenAusDakosyLaden.Checked) Then sqlStr &= " UNION"
@@ -151,7 +171,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id"
             '     sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND  [dySt_status] between 40 and 70  AND	CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN  '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "'  )>0 "
-            sqlStr &= "  and ezaAd_AdressTyp='UC' and   eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/  and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
+            sqlStr &= "  and ezaAd_AdressTyp='UC' and   eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/  and [eza_UstIdAnmelder]='" & cboUID._value & "' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
             sqlStr &= "  AND [eza_Status] IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1) "
         End If
 
@@ -202,7 +222,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= "               AND zbant_stat IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1)"
             sqlStr &= "               AND [zbant_erwust] <>''"
-            sqlStr &= "               AND [zbant_anmust] = 'DE813667748' "
+            sqlStr &= "               AND [zbant_anmust] = '" & cboUID._value & "' "
             sqlStr &= " 	GROUP BY zbant.basman_nl, zbant.zbant_beznr, zbant.zbant_regnr, zbant.zbant_erwust, zbant.zbant_nadat,  zbaaz.[zbaaz_name1], zbaaz.baslnd_alpha,  zbant.zbant_preisr, zbant.zbant_waehr, zbant.zbant_kurs"
             sqlStr &= " 	)	   "
 
@@ -229,7 +249,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= "               AND zbant_stat IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1)"
             sqlStr &= "               AND [zbant_erwust] <>''"
-            sqlStr &= "               AND [zbant_anmust] = 'DE813667748' "
+            sqlStr &= "               AND [zbant_anmust] = '" & cboUID._value & "' "
             sqlStr &= " 	GROUP BY zbhant.basman_nl, zbhant.zbant_beznr, zbhant.zbant_regnr, zbhant.zbant_erwust, zbhant.zbant_nadat,  zbhaaz.[zbaaz_name1], zbhaaz.baslnd_alpha,  zbhant.zbant_preisr, zbhant.zbant_waehr, zbhant.zbant_kurs"
             sqlStr &= " 	)	   "
 
@@ -261,7 +281,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= "               AND zbant_stat IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1)"
             sqlStr &= "               AND [zbant_erwust] <>''"
-            sqlStr &= "               AND [zbant_anmust] = 'DE813667748' "
+            sqlStr &= "               AND [zbant_anmust] = '" & cboUID._value & "' "
             sqlStr &= " 		GROUP BY zbant.basman_nl, zbant.zbant_beznr, zbant.zbant_regnr, zbant.zbant_erwust, zbant.zbant_nadat,zbaaz.[zbaaz_name1], zbaaz.baslnd_alpha,  zbant.zbant_preisr, zbant.zbant_waehr, zbant.zbant_kurs"
             sqlStr &= "   )"
 
@@ -287,7 +307,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " WHERE (zbant_nadat) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= "               AND zbant_stat IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1)"
             sqlStr &= "               AND [zbant_erwust] <>''"
-            sqlStr &= "               AND [zbant_anmust] = 'DE813667748' "
+            sqlStr &= "               AND [zbant_anmust] = '" & cboUID._value & "' "
             sqlStr &= " 	GROUP BY zbhant.basman_nl, zbhant.zbant_beznr, zbhant.zbant_regnr, zbhant.zbant_erwust, zbhant.zbant_nadat,  zbhaaz.[zbaaz_name1], zbhaaz.baslnd_alpha,  zbhant.zbant_preisr, zbhant.zbant_waehr, zbhant.zbant_kurs"
             sqlStr &= " 	)	   "
         End If
@@ -306,13 +326,13 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
             sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id"
             '  sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
             sqlStr &= " WHERE (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=eza_dyaAnmID AND  [dySt_status] between 40 and 70  AND	CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN  '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "'  )>0 "
-            sqlStr &= " and ezaAd_AdressTyp='UC' and  eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/  and [eza_UstIdAnmelder]='DE813667748' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
+            sqlStr &= " and ezaAd_AdressTyp='UC' and  eza_ANR LIKE 'ATC42%' /*eza_VerfahrenBeantragtCode LIKE '42%'*/  and [eza_UstIdAnmelder]='" & cboUID._value & "' and ezaAd_UStIDAnmelder is not null and [eza_FinanzamtAnmelder]='9153' "
             sqlStr &= " AND [eza_Status] IN(SELECT  [zbant_stat]  FROM [atlas_status]  where fiskal_freigabe=1) "
 
             ' sqlStr &= " select Left(ezaAd_UStIDAnmelder,2) AS knre1, substring(ezaAd_UStIDAnmelder,3,len(ezaAd_UStIDAnmelder)) AS knre2  ,eza_Rechnungspreis as betrag"
             ' sqlStr &= " from tblDakosy_EZA inner join tblDakosy_EZA_Adressen ON ezaAd_EZAId=eza_Id"
             ' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
-            'sqlStr &= " and ezaAd_AdressTyp='DT' and eza_VerfahrenBeantragtCode=42  and eza_FiskalvertretungKz=1 /*AND ezaAd_UStIDAnmelder='DE813667748'*/ and ezaAd_UStIDAnmelder is not null"
+            'sqlStr &= " and ezaAd_AdressTyp='DT' and eza_VerfahrenBeantragtCode=42  and eza_FiskalvertretungKz=1 /*AND ezaAd_UStIDAnmelder='" & cboUID._value & "'*/ and ezaAd_UStIDAnmelder is not null"
         End If
 
 
@@ -337,14 +357,22 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Try
+
+
+            lblErrUID.Visible = False
+            If cboUID._value = "" Then
+                lblErrUID.Visible = True
+                Exit Sub
+            End If
+
             Me.Cursor = Cursors.WaitCursor
 
             Dim dt = getZM_Datat()
 
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
 
-                If Not System.IO.Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then System.IO.Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
-                Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv", FileMode.Create)
+                If Not System.IO.Directory.Exists(getDir()) Then System.IO.Directory.CreateDirectory(getDir())
+                Dim fs As New FileStream(getDir() & "\ZM_Formular_online.csv", FileMode.Create)
                 Dim sw As New StreamWriter(fs)
 
 
@@ -361,7 +389,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
                 Next
                 sw.Close()
                 fs.Close()
-                Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv")
+                Process.Start(getDir() & "\ZM_Formular_online.csv")
             End If
 
         Catch ex As Exception
@@ -375,8 +403,11 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
 
         Dim displayFilter = False
 
-
-
+        lblErrUID.Visible = False
+        If cboUID._value = "" Then
+            lblErrUID.Visible = True
+            Exit Sub
+        End If
 
         Dim print As New frmPrintLayout
         print.Text = "Fiskalvertretung"
@@ -532,6 +563,17 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
 
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
+
+        lblErrUID.Visible = False
+
+        Dim dir = getDir()
+
+        If dir = "" Then
+            lblErrUID.Visible = True
+        Else
+            Process.Start(dir)
+        End If
+
+
     End Sub
 End Class

SDL/zoll/usrCntlBrgBuchungenFremd.vb

@@ -35,6 +35,21 @@ Public Class usrCntlBrgBuchungenFremd
     End Sub
 
     Private Sub btnNCTSDurmaz_Click(sender As Object, e As EventArgs) Handles btnNCTSDurmaz.Click
+
+        lblErr.Visible = False
+        Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(MyComboBox1._value, cboBRG.Text, cboBRG._value, datVon.Value, datBis.Value, cbxEZollDaten.Checked)
+        MsgBox(_erg)
+        Select Case _erg
+            Case "NO_RESULT"
+                MsgBox("Keine Daten!")
+                lblErr.Visible = False
+            Case ""
+            Case Else
+                Process.Start(_erg)
+        End Select
+
+        Exit Sub
+
         Try
 
             lblErr.Visible = False

SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb

@@ -199,6 +199,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
         Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
         Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
         Me.TabPage5 = New System.Windows.Forms.TabPage()
         Me.Label60 = New System.Windows.Forms.Label()
@@ -221,7 +222,6 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label67 = New System.Windows.Forms.Label()
         Me.Button14 = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1219,7 +1219,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(609, 1529)
+        Me.tbcntr.Size = New System.Drawing.Size(932, 1529)
         Me.tbcntr.TabIndex = 22
         '
         'TabPage1
@@ -1257,7 +1257,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(601, 1503)
+        Me.TabPage1.Size = New System.Drawing.Size(924, 1503)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Bürgschaften"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -2067,7 +2067,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(618, 1503)
+        Me.TabPage2.Size = New System.Drawing.Size(550, 1503)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Kunden"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -2098,7 +2098,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(618, 1503)
+        Me.TabPage3.Size = New System.Drawing.Size(550, 1503)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
         Me.TabPage3.UseVisualStyleBackColor = True
@@ -2133,11 +2133,19 @@ 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(601, 1503)
+        Me.TabPage4.Size = New System.Drawing.Size(550, 1503)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Aufschubdaten"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
+        'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
+        '
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
+        '
         'UsrCntlAuswertungenAufschub_Abgabenliste1
         '
         Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
@@ -2154,7 +2162,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(618, 1503)
+        Me.TabPage5.Size = New System.Drawing.Size(550, 1503)
         Me.TabPage5.TabIndex = 4
         Me.TabPage5.Text = "UNISPED"
         Me.TabPage5.UseVisualStyleBackColor = True
@@ -2362,17 +2370,9 @@ 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(609, 57)
+        Me.pnl.Size = New System.Drawing.Size(932, 57)
         Me.pnl.TabIndex = 23
         '
-        'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
-        '
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
-        '
         'usrCntlZOLLAuswertungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2382,7 +2382,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Controls.Add(Me.tbcntr)
         Me.Controls.Add(Me.pnl)
         Me.Name = "usrCntlZOLLAuswertungen"
-        Me.Size = New System.Drawing.Size(609, 926)
+        Me.Size = New System.Drawing.Size(932, 926)
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)

SDL/zoll/usrCntlZOLLAuswertungen.vb

@@ -174,6 +174,7 @@ Public Class usrCntlZOLLAuswertungen
         End Select
 
         cboBrgEZollTC.Items.Clear()
+        cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
         cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
         cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg VERAG", "05AT510000G000FP7"))
         cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678"))

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -950,6 +950,10 @@ Public Class cAviso
         Return AVISODAL.LesenAviso(hID, hSQL)
     End Function
 
+    Shared Function getFirmaByAvisoId(AvisoId) As String
+        Dim SQL As New SQL
+        Return SQL.getValueTxtBySql("SELECT TOP 1 Firma FROM AVISO WHERE AvisoId=" & AvisoId, "AVISO")
+    End Function
 
     Shared Function getAVISO_List(Optional Standort = "SUB") As DataTable 'Optional FIRMA = "VERAG") As DataTable
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1820,6 +1824,8 @@ Public Class cVermerk
     Property VermerkCodeId As Integer
     Property VorauskasseId As Object = Nothing
     Property Beschreibung As String = ""
+    Property SMSId As Integer
+    Property SMSStatus As Integer
 
 
 End Class
@@ -1851,6 +1857,8 @@ Public Class cVermerkeDAL
                     daten.SendungID = VarToInt(dr.Item("SendungID"))
                     daten.VermerkArt = VarToStr(dr.Item("VermerkArt"))
                     daten.VorauskasseId = VarToStr(dr.Item("VorauskasseId"))
+                    daten.SMSId = VarToInt(dr.Item("SMSId"))
+                    daten.SMSStatus = VarToInt(dr.Item("SMSstatus"))
                 End If
                 dr.Close()
             End Using
@@ -2000,11 +2008,11 @@ Public Class cVermerkeDAL
         If d.VermerkID = 0 Then
             'Neuanlage
             hAuswahl = "INSERT INTO Vermerke " &
-                       "(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId)"
+                       "(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung,VorauskasseId,SMSId,SMSStatus) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung,@VorauskasseId,@SMSId,@SMSStatus)"
         Else
             'Änderung
             hAuswahl = String.Format(
-                       "UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID")
+                       "UPDATE Vermerke SET AvisoID = @AvisoID, VermerkArt=@VermerkArt,SendungID=@SendungID,Datum = @Datum, Mitarbeiter = @Mitarbeiter, Hinweis_Vermerk = @Hinweis_Vermerk, VermerkeCode = @VermerkeCode, MitarbeiterId=@MitarbeiterId, Beschreibung=@Beschreibung,VorauskasseId=@VorauskasseId WHERE VermerkID = @VermerkID,SMSId=@SMSId,SMSStatus=@SMSStatus")
         End If
         Dim sql = hAuswahl
         Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2020,6 +2028,8 @@ Public Class cVermerkeDAL
             cmd.Parameters.AddWithValue("@VermerkArt", d.VermerkArt)
             cmd.Parameters.AddWithValue("@SendungID", If(d.SendungID > 0, d.SendungID, DBNull.Value))
             cmd.Parameters.AddWithValue("@VorauskasseId", If(d.VorauskasseId IsNot Nothing, d.VorauskasseId, DBNull.Value))
+            cmd.Parameters.AddWithValue("@SMSId", d.SMSId)
+            cmd.Parameters.AddWithValue("@SMSStatus", d.SMSStatus)
 
             Try
                 cmd.ExecuteNonQuery()

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb

@@ -70,7 +70,7 @@ Public Class KdSearchBox
             Me.SelectAll()
             Me.Select()
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 01: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_01")
         End Try
     End Sub
 
@@ -150,7 +150,7 @@ Public Class KdSearchBox
             doKeyDown(Now)
 
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 02: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_02")
         End Try
     End Sub
 
@@ -368,7 +368,7 @@ Public Class KdSearchBox
             End With
 
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 03: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_03")
         End Try
     End Sub
 
@@ -447,7 +447,7 @@ Public Class KdSearchBox
             End With
 
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 04: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_04")
         End Try
     End Sub
 
@@ -526,7 +526,7 @@ Public Class KdSearchBox
             End If
 
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03,1: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_03_1")
         End Try
     End Sub
     Public Sub prevLKW(dgv As DataGridView) '(sender As Object, e As EventArgs)
@@ -545,7 +545,7 @@ Public Class KdSearchBox
                 End If
             End If
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Such-Feld (" & Me.Name & ") aufgetreten 03,2: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_06")
         End Try
     End Sub
 
@@ -570,7 +570,7 @@ Public Class KdSearchBox
                 End With
             End If
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 07: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_07")
         End Try
     End Sub
 
@@ -589,7 +589,7 @@ Public Class KdSearchBox
                 End With
             End If
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 08: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_08")
         End Try
     End Sub
     Private Sub TextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
@@ -601,7 +601,7 @@ Public Class KdSearchBox
                 End If
             End If
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 09: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_09")
         End Try
     End Sub
     Private Sub dgvFindKD_Click(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, usrcntl.DGV_KeyDown
@@ -634,7 +634,7 @@ Public Class KdSearchBox
                 End With
             End If
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 10: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_10")
         End Try
     End Sub
 
@@ -661,7 +661,7 @@ Public Class KdSearchBox
                 End With
             End If
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 11: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_11")
         End Try
     End Sub
 
@@ -737,7 +737,7 @@ Public Class KdSearchBox
             If Me.Text.Length > Me.MaxLength Then Me.Text = Me.Text.Substring(0, Me.MaxLength)
             Eingabe_verarbeitet = True
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 12: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_12")
         End Try
 
     End Sub
@@ -754,7 +754,7 @@ Public Class KdSearchBox
                 KdNr_value = IIf(IsNumeric(v), v, -1)
                 OnPropertyChanged("KdNr")
             Catch ex As Exception
-                MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 14: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_14")
             End Try
         End Set
     End Property
@@ -805,7 +805,7 @@ Public Class KdSearchBox
             tmr_Search.Interval = 200
             tmr_Search.Enabled = True
         Catch ex As Exception
-            MsgBox("Es ist ein Fehler beim Kunden-Such-Feld aufgetreten 13: " & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_13")
         End Try
     End Sub
 
@@ -836,7 +836,7 @@ Public Class KdSearchBox
                 End If
             End If
         Catch ex As Exception
-            MsgBox("KdSearchBox_LostFocus: " & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Kunden-Such-Feld aufgetreten!",,,, "ERR_KDS_LF")
         End Try
     End Sub
 

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb

@@ -10,17 +10,17 @@ Public Class MyComboBox
     Public Sub New()
     End Sub
 
-    Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
+    Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True, Optional firstEmptyName As String = "")
         If clearList Then MyBase.Items.Clear()
         If firstEmpty Then
-            Me.Items.Insert(0, New MyListItem("", ""))
+            Me.Items.Insert(0, New MyListItem(firstEmptyName, ""))
         End If
         If l IsNot Nothing Then
             For Each i In l : MyBase.Items.Add(i) : Next
         End If
     End Sub
-    Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
-        fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList)
+    Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True, Optional firstEmptyName As String = "")
+        fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList, firstEmptyName)
         _TRANSLATE()
     End Sub
 

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -927,6 +927,15 @@ Public Class SQL
         End Try
         Return 0
     End Function
+
+    Public Shared Function checkNullDateReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object
+        If o IsNot Nothing And o IsNot DBNull.Value Then
+            If o.ToString <> "" AndAlso IsDate(o) Then
+                Return CDate(o)
+            End If
+        End If
+        Return returnValue
+    End Function
     Public Shared Function checkNullDate(ByVal o As Object) As Date
         If o IsNot Nothing And o IsNot DBNull.Value Then Return CDate(o)
         Return Now

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -236,6 +236,17 @@ Public Class cUSTVAntrag
     End Function
 
 
+    Public Function getMaxPosNr() As Integer
+        Try
+            Dim maxPosNr = -1
+
+            Return SQL.getValueTxtBySql("SELECT isnull(max([UStVPo_ID]),0)+1 FROM [tblUStVPositionen] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return -1
+    End Function
 
 
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cERS.vb

@@ -0,0 +1,168 @@
+
+
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cERS
+    Property ers_id As Integer
+    Property ers_progId As Integer
+    Property ers_progName As Object = Nothing
+    Property ers_progVersion As Object = Nothing
+    Property ers_datetime As DateTime = Now
+    Property ers_Testsystem As Boolean
+    Property ers_Type As Object = Nothing
+    Property ers_EMail As Object = Nothing
+    Property ers_maId As Integer = -1
+    Property ers_userName As Object = Nothing
+    Property ers_Firma As Object = Nothing
+    Property ers_errCode As Object = Nothing
+    Property ers_errStack As Object = Nothing
+    Property ers_errMessage As Object = Nothing
+    Property ers_errMethodName As Object = Nothing
+    Property ers_infotext As Object = Nothing
+
+    Public hasEntry = False
+
+    Dim SQL As New SQL
+
+    Sub New()
+
+    End Sub
+    Sub New(ers_id)
+        Me.ers_id = ers_id
+        LOAD()
+    End Sub
+
+    Shared Function saveErr(ers_Type, ers_errMessage, ers_errStack, ers_errCode, ers_errMethodName, Optional ers_EMail = Nothing, Optional ers_infotext = Nothing) As Boolean
+        Try
+            Dim ERS As New cERS
+            ERS.ers_progId = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID
+            ERS.ers_userName = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+            ERS.ers_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            ERS.ers_Testsystem = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
+            ERS.ers_progName = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME
+            ERS.ers_progVersion = VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION
+
+            ERS.ers_Type = ers_Type
+            ERS.ers_EMail = ers_EMail
+            ERS.ers_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            ERS.ers_errMessage = ers_errMessage
+            ERS.ers_errStack = ers_errStack
+            ERS.ers_errCode = ers_errCode
+            ERS.ers_errMethodName = ers_errMethodName
+            ERS.ers_infotext = ers_infotext
+
+            Return ERS.SAVE()
+
+        Catch ex As Exception
+            'was soll hier noch helfen??
+        End Try
+    End Function
+
+
+    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("ers_id", ers_id,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progId", ers_progId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progVersion", ers_progVersion))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_progName", ers_progName))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_datetime", ers_datetime))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Testsystem", ers_Testsystem))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Type", ers_Type))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_EMail", ers_EMail))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_maId", ers_maId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_userName", ers_userName))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_Firma", ers_Firma))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errCode", ers_errCode))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errStack", ers_errStack))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errMessage", ers_errMessage))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_errMethodName", ers_errMethodName))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ers_infotext", ers_infotext))
+        Return list
+    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 tblERS  WHERE ers_id=@ers_id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "ADMIN", False, list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
+                Using cmd As New SqlCommand("SELECT * FROM tblERS WHERE ers_id=@ers_id  ", conn)
+                    cmd.Parameters.AddWithValue("@ers_id", ers_id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each l In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
+
+                            If dr.Item(l.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(l.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        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 [tblERS] SET " & str & " WHERE ers_id=@ers_id ")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        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 tblERS  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb

@@ -179,6 +179,7 @@ Public Class cEmailBenachrichtigung
             Case "ATILLA" : Return "noreply@verag.ag"
             Case "UNISPED" : Return "No-Reply@unisped.at"
             Case "FRONTOFFICE" : Return "noreply@front-office.eu"
+            Case "AMBAR" : Return "import@ambarlog.com"
             Case Else : Return "noreply@verag.ag"
         End Select
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb

@@ -38,6 +38,9 @@ Public Class cGestellungsgarantien
     Public Shared Function ENTRY_Exists(KundenNr As Integer, Zollamt As String) As Boolean
         Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr & " AND gg_Zollamt='" & Zollamt & "'", "FMZOLL")) > 0)
     End Function
+    Public Shared Function ENTRY_Exists(KundenNr As Integer, Zollamt As String, gg_erhalten_Datum As Date) As Boolean
+        Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblGestellungsgarantien WHERE gg_KundenNr=" & KundenNr & " AND gg_Zollamt='" & Zollamt & "' AND gg_erhalten_Datum='" & gg_erhalten_Datum.ToShortDateString & "'", "FMZOLL")) > 0)
+    End Function
 
     Public Function SAVE() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -62,6 +62,9 @@ Public Class cKundenErweitert
     Property kde_KundeFremdspedition As Boolean = False
     Property kde_verzolltBei As Object = Nothing
     Property kde_API_Tradeshift As Boolean = False
+    Property kde_FakturierungSR_Details As Boolean = False
+    Property kde_Fakturierung_Sprache As Object = Nothing
+    Property kde_TOBB_KundenNr As Object = Nothing
 
     Dim SQL As New SQL
 
@@ -124,6 +127,9 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KundeFremdspedition", kde_KundeFremdspedition))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_verzolltBei", kde_verzolltBei))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_API_Tradeshift", kde_API_Tradeshift))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FakturierungSR_Details", kde_FakturierungSR_Details))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Fakturierung_Sprache", kde_Fakturierung_Sprache))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TOBB_KundenNr", kde_TOBB_KundenNr))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cKundenVermerk.vb

@@ -75,7 +75,7 @@ Public Class cKundenVermerke
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
@@ -90,7 +90,7 @@ Public Class cKundenVermerke
             KDV.kvm_sbId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
             Return KDV.SAVE()
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return False
     End Function
@@ -109,7 +109,7 @@ Public Class cKundenVermerke
                 Return True
             End If
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return False
     End Function
@@ -120,7 +120,7 @@ Public Class cKundenVermerke
             Dim KDV As New cKundenVermerkItem(id)
             Return KDV.DELETE()
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return False
     End Function
@@ -135,7 +135,7 @@ Public Class cKundenVermerke
                 End If
             Next
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return False
     End Function
@@ -231,7 +231,7 @@ Public Class cKundenVermerkItem
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
@@ -251,7 +251,7 @@ Public Class cKundenVermerkItem
             Return (" UPDATE [tblKundenVermerke] SET " & str & " WHERE kvm_id=@kvm_id ")
 
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return ""
     End Function
@@ -272,7 +272,7 @@ Public Class cKundenVermerkItem
             values = values.Substring(0, values.Length - 1) 'wg. ','
             Return (" INSERT INTO tblKundenVermerke  (" & str & ") VALUES(" & values & ")  ")
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return ""
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb

@@ -70,11 +70,11 @@ Public Class cMessenger
         End Sub
 
 
-        Sub New(chat_id As Integer, Optional topMax As String = "")
+        Sub New(chat_id As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
             Me.chat_id = chat_id
             Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
             Me.chat_erstelltAm = Now
-            LOAD(topMax)
+            LOAD(topMax, dateTmp)
         End Sub
 
         Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -108,7 +108,7 @@ Public Class cMessenger
             Return chat_id > 0
         End Function
 
-        Public Sub LOAD(Optional topMax As String = "")
+        Public Sub LOAD(Optional topMax As String = "", Optional dateTmp As Object = Nothing)
             Try
                 Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
                     Using cmd As New SqlCommand("Select * FROM tblMessenger_Chat WHERE chat_id=@chat_id  ", conn)
@@ -126,7 +126,12 @@ Public Class cMessenger
 
                             Next
                             Me.LOAD_MEMBERS()
+                            If dateTmp Is Nothing Then
                                 Me.LOAD_MESSAGES(topMax)
+                            Else
+                                Me.LOAD_MESSAGES_DATE(dateTmp)
+                            End If
+
                         End If
                         dr.Close()
                     End Using
@@ -198,6 +203,26 @@ Public Class cMessenger
             End Try
         End Sub
 
+        Public Sub LOAD_MESSAGES_DATE(dateTmp As Date)
+            Try
+                Me.CHAT_MESSAGES.Clear()
+                Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
+                    Using cmd As New SqlCommand("SELECT * FROM [tblMessenger_ChatMessages] WHERE chatMg_chatId=@chat_id AND CAST(chatMg_datetime as date)>=@dateTmp order by chatMg_datetime asc", conn)
+                        cmd.Parameters.AddWithValue("@chat_id", chat_id)
+                        cmd.Parameters.AddWithValue("@dateTmp", dateTmp)
+                        Dim dr = cmd.ExecuteReader()
+                        While dr.Read
+                            Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc
+                            Me.CHAT_MESSAGES.Add(MSG)
+                        End While
+                        dr.Close()
+                    End Using
+                End Using
+            Catch ex As Exception
+                MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            End Try
+        End Sub
+
         Public Function getUpdateCmd() As String
             Try
                 Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -362,6 +362,7 @@ Public Class cRechnungsausgang
 
     Public Function SAVE_POSITIONEN(RK_ID) As Boolean
         If DELETE_POSITIONEN() Then ' zuerst Einträge löschen...
+            ORDER_POSITIONEN() ' ... dann ordnen ...
             For Each p In POSITIONEN
                 If Not p.INSERT(RK_ID) Then Return False ' ... dann insert
             Next
@@ -509,6 +510,22 @@ Public Class cRechnungsausgang
         End Try
     End Sub
 
+    Public Sub ORDER_POSITIONEN()
+        Try
+            '  Dim POSITIONEN_Tmp As New List(Of cRechnungsausgangPositionen)
+            Try
+                POSITIONEN = POSITIONEN.OrderByDescending(Function(x) x.Preis).ToList()
+            Catch ex As Exception
+                'Preis null??
+            End Try
+            POSITIONEN = POSITIONEN.OrderBy(Function(x) x.LeistungsNr).ToList()
+
+        Catch ex As Exception
+            MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+
 End Class
 
 
@@ -614,4 +631,7 @@ Public Class cRechnungsausgangPositionen
         End Try
         Return ""
     End Function
+
+
+
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb

@@ -1,4 +1,6 @@
-Imports System.Data.SqlClient
+Imports com.esendex.sdk.messaging
+Imports com.esendex.sdk.sent
+Imports System.Data.SqlClient
 Imports System.Reflection
 
 Public Class cSMS
@@ -18,10 +20,20 @@ Public Class cSMS
     Property sms_Nachricht As Object = Nothing
     Property sms_BatchId As Object = Nothing
     Property sms_MessageIds As Object = Nothing
+    Property sms_Uris As Object = Nothing
     Property sms_Sachbearbeiter As String = Nothing
     Property sms_SachbearbeiterId As Integer
     Property sms_AvisoId As Object = Nothing
 
+    Property sms_Status As Integer = -1
+    Property sms_Queued As Object = Nothing
+    Property sms_Sent As Object = Nothing
+    Property sms_Delivered As Object = Nothing
+    Property sms_Failure As Object = Nothing
+
+
+    Dim ESENDEX_USER As String = "al@verag.ag"
+    Dim ESENDEX_PWD As String = "Developer#2"
 
     Dim SQL As New SQL
 
@@ -54,9 +66,15 @@ Public Class cSMS
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Nachricht", sms_Nachricht))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_BatchId", sms_BatchId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_MessageIds", sms_MessageIds))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Uris", sms_Uris))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Sachbearbeiter", sms_Sachbearbeiter))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_SachbearbeiterId", sms_SachbearbeiterId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_AvisoId", sms_AvisoId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Status", sms_Status))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Queued", sms_Queued))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Sent", sms_Sent))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Delivered", sms_Delivered))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sms_Failure", sms_Failure))
 
 
         Return list
@@ -154,6 +172,71 @@ Public Class cSMS
         Return SQL.doSQL(sqlstr, "FMZOLL")
     End Function
 
+    Function sendSMS() As Boolean
+        Try
+
+            Dim messagingService As New MessagingService(ESENDEX_USER, ESENDEX_PWD)
+            'SENDEN DER SMS
+            Dim result = messagingService.SendMessage(New SmsMessage(Me.sms_Handynummer, Me.sms_Nachricht, Me.sms_Account))
+
+            Dim Uris As String = ""
+            Dim msgIDs As String = ""
+            Try
+                Me.sms_BatchId = result.BatchId
+
+                If result.MessageIds IsNot Nothing Then
+                    For Each m In result.MessageIds
+                        Uris &= m.Uri & ";;"
+                        msgIDs &= m.Id.ToString & ";;"
+                    Next
+                End If
+            Catch ex As Exception
+            End Try
+            While Uris.EndsWith(";;")
+                Uris = Uris.Substring(0, Uris.Length - 2)
+            End While
+            While msgIDs.EndsWith(";;")
+                msgIDs = msgIDs.Substring(0, msgIDs.Length - 2)
+            End While
+
+            Me.sms_MessageIds = msgIDs
+            Me.sms_Uris = Uris
+
+            If Not Me.SAVE() Then
+                MsgBox("Fehler: SMS Daten wurden nicht gespeichert!")
+            End If
+
+            Return True
+        Catch ex As Exception
+            MsgBox("Fehler beim Senden der SMS!" & vbNewLine & ex.Message & ex.StackTrace)
+            Return False
+        End Try
+
+    End Function
+    Function checkSMSStatus() As String
+        Try
+            If Me.sms_Status >= 3 Then Return Me.sms_Status ' Bereits finaler Status, keine Abfrage nötig
+            If If(Me.sms_MessageIds, "") = "" Then MsgBox("Keine MessageId gefunden!") : Return False ' Keine MsgId
+
+            Dim sendService As New SentService(ESENDEX_USER, ESENDEX_PWD)
+
+            'Send a message and retrieve the message ID
+            Dim MSG = sendService.GetMessage(New Guid(Me.sms_MessageIds.ToString))
+            Dim messageStatus = MSG.Status
+            MsgBox(MSG.Status)
+            'Status in DB Ubdaten
+            Me.sms_Status = messageStatus
+            Me.sms_Sent = MSG.SentAt
+            Me.sms_Delivered = MSG.DeliveredAt
+            If MSG.FailureReason IsNot Nothing Then Me.sms_Failure = MSG.FailureReason.Description
+            Me.SAVE()
+
+            Return messageStatus
+        Catch ex As Exception
+            MsgBox("Fehler beim Prüfen des SMS Status!" & vbNewLine & ex.Message & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
 
 
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -240,8 +240,8 @@ Public Class cSendungen
 
     Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-
-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
+        'WITH(updlock,serializable) 
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
                        " BEGIN " & getUpdateCmd() & " END " &
                        " Else " &
                        " BEGIN " & getInsertCmd() & " END " &
@@ -254,12 +254,21 @@ Public Class cSendungen
         Return False
     End Function
 
+    'WITH(updlock,serializable) 
     Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
-        Dim sqlstr = " DELETE FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
+        Dim sqlstr = " DELETE FROM [tblSendungen] WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
         Return SQL.doSQL(sqlstr, "AVISO")
     End Function
 
-
+    Public Shared Function LOADByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer) As cSendungen
+        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim tblSnd_SendungID = sql.getValueTxtBySql("SELECT TOP 1 tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO")
+        If tblSnd_SendungID <> "" Then
+            Return New cSendungen(tblSnd_SendungID)
+        Else
+            Return Nothing
+        End If
+    End Function
 
     Public Sub LOAD(tblSnd_SendungID As Integer)
         Try