neu

ADMIN.sln

@@ -29,6 +29,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "TELOT
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -87,6 +89,10 @@ Global
 		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.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
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb

@@ -436,7 +436,9 @@ Public Class cDakosyEZA
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                '  Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT *  FROM tblDakosy_EZA WHERE eza_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " ) AS T order by eza_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE eza_dyaAnmID=dySt_dyId order by dySt_ts desc)  desc,eza_LetzteBearbeitung desc  ", conn)
                 Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " order by eza_LetzteBearbeitung desc ", conn)
+                    '    MsgBox("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName Like " & bezugsNr & " " & If(checkValidStatus, " And eza_status BETWEEN 40 And 90 ", "") & " order by eza_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE eza_dyaAnmID=dy_id order by dySt_ts desc)  desc,eza_LetzteBearbeitung desc  ")
                     cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
@@ -1060,18 +1062,18 @@ Public Class cDakosyEZA
 
 
             For Each ADR In DY.eza_ADRESSEN
-                    'Verkäufer
+                'Verkäufer
-                    If ADR.ezaAd_AdressTyp = "CZ" Then
+                If ADR.ezaAd_AdressTyp = "CZ" Then
-                        Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL)
+                    Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL)
-                        If AD IsNot Nothing Then
+                    If AD IsNot Nothing Then
-                            SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
+                        SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
-                            SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
+                        SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
-                        End If
+                    End If
-                        If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then
+                    If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then
-                            SPEDITIONSBUCH.Absender = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim
+                        SPEDITIONSBUCH.Absender = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim
-                            SPEDITIONSBUCH.Absender &= ", " & If(ADR.ezaAd_LandCode, "")
+                        SPEDITIONSBUCH.Absender &= ", " & If(ADR.ezaAd_LandCode, "")
-                            SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_PLZ, "")
+                        SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_PLZ, "")
-                            SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_Ort, "")
+                        SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_Ort, "")
                         SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Trim
                         If SPEDITIONSBUCH.Absender.Length > 50 Then
                             SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50)
@@ -1107,7 +1109,7 @@ Public Class cDakosyEZA
             Next
 
 
-                If If(SPEDITIONSBUCH.Abfertigungsart, 0) < 1 Then
+            If If(SPEDITIONSBUCH.Abfertigungsart, 0) < 1 Then
                 If DY.eza_FiskalvertretungKz Then
                     SPEDITIONSBUCH.Abfertigungsart = 28
                 Else
@@ -1117,48 +1119,48 @@ Public Class cDakosyEZA
 
 
             SPEDITIONSBUCH.Rechnungsbetrag = DY.eza_Rechnungspreis
-                ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
+            ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
-                SPEDITIONSBUCH.Rohmasse = DY.eza_GesamtRohmasse
+            SPEDITIONSBUCH.Rohmasse = DY.eza_GesamtRohmasse
 
 
-                'Personal Abfertigung:
+            'Personal Abfertigung:
-                Try
+            Try
-                    If DY.eza_Bearbeiter IsNot Nothing Then
+                If DY.eza_Bearbeiter IsNot Nothing Then
-                        Dim p = SQL.getValueTxtBySql("SELECT  ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID]  FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.eza_Bearbeiter & "'", "ADMIN")
+                    Dim p = SQL.getValueTxtBySql("SELECT  ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID]  FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.eza_Bearbeiter & "'", "ADMIN")
-                        SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
+                    SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
-                    End If
+                End If
-                Catch ex As Exception
+            Catch ex As Exception
-                    MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
+                MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
-                End Try
+            End Try
 
 
-                Dim PackstAnz As Integer = 0
+            Dim PackstAnz As Integer = 0
-                Dim cnt = 0
+            Dim cnt = 0
-                Dim rohmasseTmp As Double = 0
+            Dim rohmasseTmp As Double = 0
-                Dim rechnungspreisTmp As Double = 0
+            Dim rechnungspreisTmp As Double = 0
-                Dim packst As String = ""
+            Dim packst As String = ""
-                For Each p In DY.eza_WARENPOS
+            For Each p In DY.eza_WARENPOS
-                    If p.ezaWP_PackstueckAnzahl IsNot Nothing AndAlso IsNumeric(p.ezaWP_PackstueckAnzahl) Then
+                If p.ezaWP_PackstueckAnzahl IsNot Nothing AndAlso IsNumeric(p.ezaWP_PackstueckAnzahl) Then
-                        PackstAnz += p.ezaWP_PackstueckAnzahl
+                    PackstAnz += p.ezaWP_PackstueckAnzahl
-                        packst &= p.ezaWP_PackstueckAnzahl & " "
+                    packst &= p.ezaWP_PackstueckAnzahl & " "
-                    End If
+                End If
-                    If p.ezaWP_PackstueckArt IsNot Nothing Then
+                If p.ezaWP_PackstueckArt IsNot Nothing Then
-                        packst &= p.ezaWP_PackstueckArt & " "
+                    packst &= p.ezaWP_PackstueckArt & " "
-                    End If
+                End If
-                    packst &= If(p.ezaWP_Warenbezeichnung, "") & vbNewLine
+                packst &= If(p.ezaWP_Warenbezeichnung, "") & vbNewLine
-                    rohmasseTmp += If(p.ezaWP_Rohmasse, 0)
+                rohmasseTmp += If(p.ezaWP_Rohmasse, 0)
-                    rechnungspreisTmp += If(p.ezaWP_Artikelpreis, 0)
+                rechnungspreisTmp += If(p.ezaWP_Artikelpreis, 0)
-                    If cnt = 0 Then
+                If cnt = 0 Then
 
-                    End If
+                End If
-                    cnt += 1
+                cnt += 1
-                Next
+            Next
-                packst = packst.Trim
+            packst = packst.Trim
-                PosAnzahl = DY.eza_WARENPOS.Count
+            PosAnzahl = DY.eza_WARENPOS.Count
-                SPEDITIONSBUCH.Packstücke = packst
+            SPEDITIONSBUCH.Packstücke = packst & ", " & rohmasseTmp.ToString("N1") & " kg"
 
-                If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp)
+            If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp)
-                If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp)
+            If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp)
 
 
         Catch ex As Exception
@@ -1302,6 +1304,13 @@ Public Class cDakosy_EZA_Aufschub
     Property ezaAfb_HZA As Object = Nothing
     Property ezaAfb_AufschuBIN As Object = Nothing
 
+    Property ezaAfb_Faelligkeit As Object = Nothing
+    Property ezaAfb_Zahlungsart As Object = Nothing
+    Property ezaAfb_Abgabenbetrag As Object = Nothing
+    Property ezaAfb_AbgabeArt As Object = Nothing
+    Property AufschubnehmerName As Object = Nothing
+
+
     'Public selButton As Object = Nothing ' Für die GUI
     'Public SA_OBJECT As Object = Nothing ' Für die GUI
 
@@ -1327,6 +1336,13 @@ Public Class cDakosy_EZA_Aufschub
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AufschuBIN", ezaAfb_AufschuBIN))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_HZA", ezaAfb_HZA))
 
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Faelligkeit", ezaAfb_Faelligkeit))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Zahlungsart", ezaAfb_Zahlungsart))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Abgabenbetrag", ezaAfb_Abgabenbetrag))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AbgabeArt", ezaAfb_AbgabeArt))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubnehmerName", AufschubnehmerName))
+
+
         Return list
     End Function
 

DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb

@@ -505,31 +505,34 @@ Public Class cDakosyNCTSOut
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                '    Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc)  desc,ncts_LetzteBearbeitung desc ", conn)
+                'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc)  desc,ncts_LetzteBearbeitung desc ", conn)
                 Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
-                    cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
+                        'MsgBox("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc)  desc,ncts_LetzteBearbeitung desc ")
-                    Dim dr = cmd.ExecuteReader()
+                        cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
-                    If dr.Read Then
+                        Dim dr = cmd.ExecuteReader()
-                        For Each l In NCTS.getParameterList()
+                        If dr.Read Then
-                            Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
+                            For Each l In NCTS.getParameterList()
+                                Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
 
-                            If dr.Item(l.Text) Is DBNull.Value Then
+                                If dr.Item(l.Text) Is DBNull.Value Then
-                                propInfo.SetValue(NCTS, Nothing)
+                                    propInfo.SetValue(NCTS, Nothing)
-                            Else
+                                Else
-                                propInfo.SetValue(NCTS, dr.Item(l.Text))
+                                    propInfo.SetValue(NCTS, dr.Item(l.Text))
+                                End If
+
+                            Next
+                            If loadALL Then
+                                NCTS.LOAD_Sicherheitsangaben()
+                                NCTS.LOAD_Warenposition()
                             End If
 
-                        Next
+                            dr.Close()
-                        If loadALL Then
+                            Return NCTS
-                            NCTS.LOAD_Sicherheitsangaben()
-                            NCTS.LOAD_Warenposition()
                         End If
-
                         dr.Close()
-                        Return NCTS
+                    End Using
-                    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
@@ -652,8 +655,42 @@ Public Class cDakosyNCTSOut
         End Try
     End Sub
 
+
+    Public Shared Function get_Warenposition(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cDakosy_NCTSOut_Warenposition)
+        Try
+            Dim ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition)
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut_Warenposition WHERE nctsWP_NctsId=@ncts_Id  ", conn)
+                    cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim l As New cDakosy_NCTSOut_Warenposition()
+                        For Each i In l.getParameterList()
+                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
+                            If dr.Item(i.Text) Is DBNull.Value Then
+                                propInfo.SetValue(l, Nothing)
+                            Else
+                                propInfo.SetValue(l, dr.Item(i.Text))
+                            End If
+                        Next
+                        l.LOAD_WarenpositionPackstuecke()
+                        l.LOAD_WarenpositionUnterlagen()
+                        ncts_WARENPOS.Add(l)
+                    End While
+                    dr.Close()
+                End Using
+            End Using
+            Return ncts_WARENPOS
+        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 DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_Warenposition] WHERE nctsWP_NctsId=" & Me.ncts_Id & " "
+        '  MsgBox(sqlstr)
         Return SQL.doSQL(sqlstr, "FMZOLL")
     End Function
 
@@ -1024,7 +1061,7 @@ Public Class cDakosyNCTSOut
             If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg
         End If
 
-        If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim
+        If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GesamtRohmasse).ToString("N1") & " kg"
 
         If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2")
         'Personal Abfertigung:
@@ -1212,6 +1249,7 @@ Public Class cDakosy_NCTSOut_Warenposition
     Property nctsWP_SumAEmpfaenger_Land As Object = Nothing
 
 
+    Property nctsWP_KdRefNr As Object = Nothing
 
 
     Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke)
@@ -1309,6 +1347,7 @@ Public Class cDakosy_NCTSOut_Warenposition
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Ort", nctsWP_SumAEmpfaenger_Ort))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_PLZ", nctsWP_SumAEmpfaenger_PLZ))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Land", nctsWP_SumAEmpfaenger_Land))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_KdRefNr", nctsWP_KdRefNr))
 
 
         Return list

DAKOSY_Worker/cDakosyFunftions.vb

@@ -4,7 +4,7 @@ Imports System.IO
 Public Class cDakosyFunftions
 
 
-    Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id)
+    Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id, FRIMA_DY)
         Try
             If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then
                 MsgBox("Sie haben keine Sendeberechtigung.")
@@ -21,7 +21,7 @@ Public Class cDakosyFunftions
             Dim DY_PFAD_IN = ""
             Dim DY_PFAD_IN_KD = ""
 
-            getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD)
+            getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
 
             Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
             Using client = New SftpClient(ConnectionInfo)
@@ -63,7 +63,7 @@ Public Class cDakosyFunftions
         End Try
     End Function
 
-    Shared Function send_Data_To_Dakosy_FTP(file, Optional misc = False)
+    Shared Function send_Data_To_Dakosy_FTP_file(file, FRIMA_DY, Optional misc = False)
         Try
             If Not IO.File.Exists(file) Then Return False
             Dim F As New System.IO.FileInfo(file)
@@ -76,7 +76,9 @@ Public Class cDakosyFunftions
             Dim DY_PFAD_IN_KD = ""
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
-            getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD)
+            If FRIMA_DY = "" Then FRIMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+            getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
 
             Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
             Using client = New SftpClient(ConnectionInfo)
@@ -110,31 +112,31 @@ Public Class cDakosyFunftions
     End Function
 
 
-    Shared Sub getSFTPLoginData(ByRef DY_server, ByRef DY_name, ByRef DY_pwd, ByRef DY_port, ByRef DY_PFAD_IN, ByRef DY_PFAD_OUT, ByRef DY_PFAD_IN_KD)
+    Shared Sub getSFTPLoginData(ByRef DY_server, ByRef DY_name, ByRef DY_pwd, ByRef DY_port, ByRef DY_PFAD_IN, ByRef DY_PFAD_OUT, ByRef DY_PFAD_IN_KD, FIRMA_DY)
         If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-            DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
-            DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
-            DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
-            DY_port = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_port = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
 
-            DY_PFAD_IN = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_PFAD_IN = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
-            DY_PFAD_OUT = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_OUT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_PFAD_OUT = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_OUT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
             If DY_PFAD_IN = "" Then DY_PFAD_IN = "in/test/gebox/"
             If DY_PFAD_OUT = "" Then DY_PFAD_OUT = "out/test/"
 
-            DY_PFAD_IN_KD = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN_KD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_PFAD_IN_KD = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN_KD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
         Else
-            DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
-            DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
-            DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
-            DY_port = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_port = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
 
-            DY_PFAD_IN = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_PFAD_IN = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
-            DY_PFAD_OUT = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_OUT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_PFAD_OUT = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_OUT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
             If DY_PFAD_IN = "" Then DY_PFAD_IN = "in/prod/gebox/"
             If DY_PFAD_OUT = "" Then DY_PFAD_OUT = "out/prod/"
 
-            DY_PFAD_IN_KD = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN_KD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            DY_PFAD_IN_KD = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN_KD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
         End If
 
     End Sub
@@ -188,7 +190,7 @@ Public Class cDakosyFunftions
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
             Dim saveFile = ""
             If DAKOSY_Worker.cDakosyFunftions.generateVERAGKdData(dt, getDefaultFolder_SEND, saveFile, Dakosy_Mandant) Then
-                If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, True) Then
+                If cDakosyFunftions.send_Data_To_Dakosy_FTP_file(saveFile, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, True) Then
                     For Each ROW As DataRow In dt.Rows
                         updateKdDakosyExportDate(ROW("KundenNr"))
                     Next
@@ -207,16 +209,16 @@ Public Class cDakosyFunftions
                 '    Dakosy_Mandant = "VERG"
         End Select
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
-            MsgBox("Übertrag derzeit nicht möglich!")
+        '    MsgBox("Übertrag derzeit nicht möglich!")
-            Return False
+        '    Return False
-        End If
+        'End If
         Dim dt = DAKOSY_Worker.cDakosyFunftions.getKDDataByKdNr(KdNr)
 
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
             Dim saveFile = ""
             If DAKOSY_Worker.cDakosyFunftions.generateVERAGKdData(dt, getDefaultFolder_SEND, saveFile, Dakosy_Mandant) Then
-                If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, True) Then
+                If cDakosyFunftions.send_Data_To_Dakosy_FTP_file(saveFile, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, True) Then
                     updateKdDakosyExportDate(KdNr)
                     Return True
                 End If
@@ -227,7 +229,7 @@ Public Class cDakosyFunftions
 
     Shared Function getDefaultFolder_SEND() As String
         Try
-            getDefaultFolder_SEND = "\\192.168.0.91\Datenarchiv\DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
+            getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & "DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
             If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
                 IO.Directory.CreateDirectory(getDefaultFolder_SEND)
             End If
@@ -246,6 +248,11 @@ Public Class cDakosyFunftions
     End Function
 
     Shared Function generateVERAGKdData(dt As DataTable, path As String, ByRef saveFile As String, Optional Dakosy_Mandant As String = "VERG") As Boolean
+        Return generateVERAGKdData_V2(dt, path, saveFile, Dakosy_Mandant)
+        'Alle mit V2
+        '---------------------
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then Return generateVERAGKdData_V2(dt, path, saveFile, Dakosy_Mandant)
         Select Case Dakosy_Mandant
             Case "UNAT" : Return generateVERAGKdData_V2(dt, path, saveFile, Dakosy_Mandant)
             Case Else : Return generateVERAGKdData_V1(dt, path, saveFile, Dakosy_Mandant)

DAKOSY_Worker/cIMPORT_Codelisten.vb

@@ -987,8 +987,9 @@ End Class
 Public Class cDY_Paramter
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
-    Shared Function GET_PARAM_ByName(dyParam_name, TESTSYSTEM) As String
+    Shared Function GET_PARAM_ByName(dyParam_name, TESTSYSTEM, Optional FIRMA_DY = "") As String
-        Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value]  FROM [tbl_DY_Paramter] WHERE  [dyParam_name]='" & dyParam_name & "' AND  dyParam_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
+        If FIRMA_DY = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value]  FROM [tbl_DY_Paramter] WHERE  [dyParam_name]='" & dyParam_name & "' AND  dyParam_firma='" & FIRMA_DY & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
     End Function
 End Class
 

DAKOSY_Worker/cZOLL_IMPORT.vb

@@ -122,7 +122,7 @@ Public Class cZOLL_IMPORT
 
             If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then
                 If filiale <> "" And abfertigungsnummer <> "" Then
-                    If countSpedbuchEntrys(filiale, LRN) = 0 Then
+                    If countSpedbuchEntrys(filiale, LRN, art) = 0 Then
 
                         SPEDBUCH.FilialenNr = filiale
                         SPEDBUCH.AbfertigungsNr = abfertigungsnummer
@@ -130,7 +130,7 @@ Public Class cZOLL_IMPORT
 
                         SPEDBUCH.Abfertigungsanzahl = 1
                         SPEDBUCH.Fakturiert = 0
-                        SPEDBUCH.AtlasBezNrEZA = LRN
+                        ' SPEDBUCH.AtlasBezNrEZA = LRN
                         SPEDBUCH.Zollsystem = "E"
                         SPEDBUCH.Sachbearbeiter = "AUTO"
 
@@ -207,11 +207,23 @@ Public Class cZOLL_IMPORT
 
 
 
-    Shared Function countSpedbuchEntrys(filiale, ncts) As Integer
+    Shared Function countSpedbuchEntrys(filiale, bezugsnr, art) As Integer
+        If art = "NCTS" Then
+            Return countSpedbuchEntrysNCTS(filiale, bezugsnr)
+        Else
+            Return countSpedbuchEntrysEZA(filiale, bezugsnr)
+        End If
+    End Function
+    Shared Function countSpedbuchEntrysNCTS(filiale, ncts) As Integer
         If If(ncts, "") = "" Then Return 0
         Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL")
     End Function
 
+    Shared Function countSpedbuchEntrysEZA(filiale, eza) As Integer
+        If If(eza, "") = "" Then Return 0
+        Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrEZA='" & eza & "'", "FMZOLL")
+    End Function
+
     Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String
         If If(bezugsNr, "").ToString.Length > 4 Then
             Select Case bezugsNr.ToString.Substring(0, 4)
@@ -379,7 +391,7 @@ Public Class cZOLL_IMPORT
                 Dim BelegNrTmp = ""
                 Dim BetragTmp As Double = 0
 
-                If dt.Rows.Count > 0 Then
+                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
 
                     For Each r In dt.Rows
                         If BenutzerTmp = "" Then BenutzerTmp = r("Benutzer")
@@ -396,7 +408,7 @@ Public Class cZOLL_IMPORT
 
                 End If
             Catch ex As Exception
-                MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "BAR-Err: Beträge konnten nicht geladen werden!", "al@verag.ag", "al@verag.ag")
             End Try
 
             'If If(SENDUNG.tblSnd_bar, False) Then
@@ -444,6 +456,12 @@ Public Class cZOLL_IMPORT
                 If Aviso.Freigabe > CDate("01.01.2000") Then 'SPEDITIONSBUCH.Abfertigungsdatum Then
                     SPEDITIONSBUCH.Abfertigungsdatum = CDate(Aviso.Freigabe).ToShortDateString
                 End If
+                If Aviso.FreigabeFiliale IsNot Nothing AndAlso IsNumeric(Aviso.FreigabeFiliale) AndAlso Aviso.FreigabeFiliale > 0 Then
+                    SPEDITIONSBUCH.FilialenNrHandling = Aviso.FreigabeFiliale
+                    'Else
+                    '    SPEDITIONSBUCH.FilialenNrHandling = SPEDITIONSBUCH.FilialenNr
+                End If
+
                 '  pnl3.Visible = True
                 '  txtAuftraggeber.Text = Aviso.Auftraggeber
                 '  txtAuftraggeberKdNr.Text = Aviso.Auftraggeber_KdNr
@@ -481,28 +499,29 @@ Public Class cZOLL_IMPORT
             SPEDITIONSBUCH.Frachtführer = SENDUNG.tblSnd_Frachtfuehrer
             If getint(SENDUNG.tblSnd_FrachtfuehrerKdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = SENDUNG.tblSnd_FrachtfuehrerKdNr
 
-
+            If SENDUNG.tblSnd_BARzuKassieren IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_BARzuKassieren) AndAlso SPEDITIONSBUCH.HandlingZuKassieren <= 0 Then
-
+                SPEDITIONSBUCH.HandlingZuKassieren = SENDUNG.tblSnd_BARzuKassieren
+            End If
 
             If SPEDITIONSBUCH.AbsenderKundenNr Is Nothing OrElse SPEDITIONSBUCH.AbsenderKundenNr <= 0 Then
-                If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+                    If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
-                    SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr
+                        SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr
+                    End If
+                    If SPEDITIONSBUCH.Absender Is Nothing OrElse SPEDITIONSBUCH.Absender = "" Then SPEDITIONSBUCH.Absender = SENDUNG.tblSnd_Absender
+                End If
+                If SPEDITIONSBUCH.EmpfängerKundenNr Is Nothing OrElse SPEDITIONSBUCH.EmpfängerKundenNr <= 0 Then
+                    If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then SPEDITIONSBUCH.EmpfängerKundenNr = SENDUNG.tblSnd_EmpfaengerKdNr
+                    If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger
+                End If
+
+                If SPEDITIONSBUCH.VermittlerKundenNr Is Nothing OrElse SPEDITIONSBUCH.VermittlerKundenNr <= 0 Then
+
+                    If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then SPEDITIONSBUCH.VermittlerKundenNr = SENDUNG.tblSnd_AuftraggeberKdNr ': MsgBox(SENDUNG.tblSnd_AuftraggeberKdNr)
+                    If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber
                 End If
-                If SPEDITIONSBUCH.Absender Is Nothing OrElse SPEDITIONSBUCH.Absender = "" Then SPEDITIONSBUCH.Absender = SENDUNG.tblSnd_Absender
-            End If
-            If SPEDITIONSBUCH.EmpfängerKundenNr Is Nothing OrElse SPEDITIONSBUCH.EmpfängerKundenNr <= 0 Then
-                If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then SPEDITIONSBUCH.EmpfängerKundenNr = SENDUNG.tblSnd_EmpfaengerKdNr
-                If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger
             End If
 
-            If SPEDITIONSBUCH.VermittlerKundenNr Is Nothing OrElse SPEDITIONSBUCH.VermittlerKundenNr <= 0 Then
+            SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
-
-                If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then SPEDITIONSBUCH.VermittlerKundenNr = SENDUNG.tblSnd_AuftraggeberKdNr ': MsgBox(SENDUNG.tblSnd_AuftraggeberKdNr)
-                If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber
-            End If
-        End If
-
-        SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
         SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
 
         If PosAnzahl > 0 Then
@@ -1030,13 +1049,13 @@ Public Class cZOLL_IMPORT
                         ' In Euro umrechnen.
                         'HIER
                         If SPEDITIONSBUCH.Abfertigungsdatum IsNot Nothing Then
-                            Dim dATLAS2 As DataTable = KDSQL.loadDgvBySql("SELECT baskur_kurs" & _
+                            Dim dATLAS2 As DataTable = KDSQL.loadDgvBySql("SELECT baskur_kurs" &
-                                  " FROM baskur" & _
+                                  " FROM baskur" &
-                                  " WHERE (baskur_code = '" & r.Item("veoerz_baswrg") & "')" & _
+                                  " WHERE (baskur_code = '" & r.Item("veoerz_baswrg") & "')" &
-                                  " AND (baskur_typ = 1 OR baskur_typ = 2)" & _
+                                  " AND (baskur_typ = 1 OR baskur_typ = 2)" &
-                                  " AND (baskur_gvdat <= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _
+                                  " AND (baskur_gvdat <= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" &
-                                  " AND (baskur_gbdat >= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "'as DATETIME))" & _
+                                  " AND (baskur_gbdat >= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "'as DATETIME))" &
-                                  " AND (baskur_wkz = 'EUR')" & _
+                                  " AND (baskur_wkz = 'EUR')" &
                                   " ORDER BY baskur_gvdat DESC, baskur_gbdat DESC", ATLAS_SERVER_VERBINDUNG)
 
                             ' rst2 = GetRecordsetADO(strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText)

DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb

@@ -6,6 +6,11 @@
 
     Property Colli As String
     Property Gewicht As String
+
+
+    Property num_Colli As Integer = 0
+    Property num_Gewicht As Double = 0
+
     Property Rechnungspreis As String
     Property Warenbezeichung As String
 
@@ -19,19 +24,26 @@
     Property Sachbearbeiter As String
 
     Property VerBestLandZst As String
+    Property Vorpapier As String
 
     Property ATCMRN As String
 
+    Property isUeT1 As Boolean = False
+
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     'Sub New(BezugsNr, Abfertigungsart)
     '    getDataByBezugsnummer(BezugsNr, Abfertigungsart)
     'End Sub
 
-    Function getATAMRNBezugsnummer(BezugsNr As String, Abfertigungsart As String) As String
+    Function getATAMRNBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String) As String
-        If BezugsNr.Length <= 12 Then Return ""
+        If If(DY_Ref, "") <> "" Then
+            BezugsNr = DY_Ref
+        Else
+            If BezugsNr.Length <= 12 Then Return ""
+            BezugsNr = BezugsNr & "%"
+        End If
 
-        BezugsNr = BezugsNr & "%"
         getATAMRNBezugsnummer = ""
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             ' Case "IMEX"
@@ -42,6 +54,7 @@
                     Case 38, 26 'AT
                         '    getADFrom_EZOLL 
                         getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) 'Ü-T1
+                        isUeT1 = (getATAMRNBezugsnummer <> "")
                         Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
                     Case 1, 2, 3, 28, 39
                         getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr, True)
@@ -57,9 +70,15 @@
 
     End Function
 
-    Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String) As Boolean
+    Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String) As Boolean
-        If BezugsNr.Length <= 12 Then Return ""
+        If If(DY_Ref, "") <> "" Then
-        BezugsNr = BezugsNr & "%"
+            BezugsNr = DY_Ref
+        Else
+            If BezugsNr.Length <= 12 Then Return False
+            BezugsNr = BezugsNr & "%"
+        End If
+
+
         getDataByBezugsnummer = False
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             '  Case "UNISPED"
@@ -69,6 +88,7 @@
                     Case 38, 26 'AT
                         '    getADFrom_EZOLL 
                         getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True) 'Ü-T1
+                        isUeT1 = (getDataByBezugsnummer)
                         Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
                     Case 1, 2, 3, 28, 39
                         getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
@@ -130,7 +150,7 @@
             EZA.LOAD_Warenposition()
 
             ' 
-            If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg"
+            If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1")
             If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2")
             Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
             ATCMRN = If(EZA.eza_ANR, "")
@@ -162,6 +182,7 @@
                     cnt += 1
                 Next
             End If
+            num_Colli = Colli
             Me.Colli = Colli & " Pk."
 
             For Each AD In EZA.eza_ADRESSEN
@@ -196,6 +217,12 @@
                 addIfNotExists(AUFSCHUB_List, kto & load_KdFromAKto(kto))
             Next
 
+            If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then
+                Vorpapier = EZA.eza_VorpapierArtCode
+                If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr
+            End If
+
+
             AbgabenKonto = listToString(AUFSCHUB_List)
 
 
@@ -223,7 +250,7 @@
             NCTS.LOAD_Warenposition()
 
             ' 
-            If IsNumeric(If(NCTS.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1") & " kg"
+            If IsNumeric(If(NCTS.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1")
 
             '        Me.Rechnungspreis &= " " & If(NCTS.NCTS_Rechnungswaehrung, "") 
             'Property Absender As String
@@ -259,6 +286,7 @@
                     cnt += 1
                 Next
             End If
+            num_Colli = Colli
             Me.Colli = Colli & " Pk."
             Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
 
@@ -329,9 +357,9 @@
             If DY_TMP Is Nothing Then Return Nothing
             If NCTS_TMP Is Nothing Then Return Nothing
             NCTS_TMP.LOAD_Warenposition()
-
+            num_Colli = If(NCTS_TMP.ncts_GesamtAnzahlPackstuecke, 0)
             Me.Colli = If(NCTS_TMP.ncts_GesamtAnzahlPackstuecke, "") & " Pk."
-            If IsNumeric(If(NCTS_TMP.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1") & " kg"
+            If IsNumeric(If(NCTS_TMP.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1")
 
 
             Dim RG_List As New List(Of String)

MDM_Worker/cMDMFunctions.vb

@@ -121,7 +121,7 @@ Public Class cMDMFunctions
 
     Shared Function getDefaultFolder_SEND() As String
         Try
-            getDefaultFolder_SEND = "\\192.168.0.91\Datenarchiv\DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
+            getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
             If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
                 IO.Directory.CreateDirectory(getDefaultFolder_SEND)
             End If

UID/ADMIN.vbproj

@@ -313,6 +313,11 @@
     <Compile Include="frmPrintLayout.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="Programme\frmBenutzerBerGruppen.Designer.vb">
       <DependentUpon>frmBenutzerBerGruppen.vb</DependentUpon>
     </Compile>
@@ -411,11 +416,6 @@
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
     </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
     <Compile Include="My Project\Settings.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Settings.settings</DependentUpon>

UID/Mitarbeiter/frmMitarbDetails.Designer.vb

@@ -34,6 +34,7 @@ Partial Class frmMitarbDetails
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.tbcntr = New System.Windows.Forms.TabControl()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label50 = New System.Windows.Forms.Label()
         Me.Label38 = New System.Windows.Forms.Label()
@@ -163,7 +164,9 @@ Partial Class frmMitarbDetails
         Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.cboAdminBer = New System.Windows.Forms.ComboBox()
         Me.Label7 = New System.Windows.Forms.Label()
-        Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboFirmaHaupt = New System.Windows.Forms.ComboBox()
+        Me.Label54 = New System.Windows.Forms.Label()
+        Me.cbxChatBenutzer = New System.Windows.Forms.CheckBox()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.TabControl2.SuspendLayout()
@@ -320,6 +323,18 @@ Partial Class frmMitarbDetails
         Me.TabPage2.Text = "Zuordnung Intern"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
+        'cboDPFirma2
+        '
+        Me.cboDPFirma2._allowedValuesFreiText = Nothing
+        Me.cboDPFirma2._allowFreiText = False
+        Me.cboDPFirma2._value = ""
+        Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboDPFirma2.FormattingEnabled = True
+        Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151)
+        Me.cboDPFirma2.Name = "cboDPFirma2"
+        Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21)
+        Me.cboDPFirma2.TabIndex = 108
+        '
         'cboDPFirma
         '
         Me.cboDPFirma._allowedValuesFreiText = Nothing
@@ -609,6 +624,8 @@ Partial Class frmMitarbDetails
         '
         'GroupBox2
         '
+        Me.GroupBox2.Controls.Add(Me.Label54)
+        Me.GroupBox2.Controls.Add(Me.cboFirmaHaupt)
         Me.GroupBox2.Controls.Add(Me.cboTeam)
         Me.GroupBox2.Controls.Add(Me.Label53)
         Me.GroupBox2.Controls.Add(Me.cboALIASDomain)
@@ -767,7 +784,7 @@ Partial Class frmMitarbDetails
         Me.cboFirma.FormattingEnabled = True
         Me.cboFirma.Location = New System.Drawing.Point(18, 76)
         Me.cboFirma.Name = "cboFirma"
-        Me.cboFirma.Size = New System.Drawing.Size(177, 21)
+        Me.cboFirma.Size = New System.Drawing.Size(114, 21)
         Me.cboFirma.TabIndex = 91
         '
         'Label36
@@ -982,6 +999,7 @@ Partial Class frmMitarbDetails
         '
         'GroupBox1
         '
+        Me.GroupBox1.Controls.Add(Me.cbxChatBenutzer)
         Me.GroupBox1.Controls.Add(Me.cbxTestaccount)
         Me.GroupBox1.Controls.Add(Me.cbxGebDat)
         Me.GroupBox1.Controls.Add(Me.txtGebDat)
@@ -1020,7 +1038,7 @@ Partial Class frmMitarbDetails
         '
         Me.cbxTestaccount.AutoSize = True
         Me.cbxTestaccount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxTestaccount.Location = New System.Drawing.Point(301, 174)
+        Me.cbxTestaccount.Location = New System.Drawing.Point(304, 174)
         Me.cbxTestaccount.Name = "cbxTestaccount"
         Me.cbxTestaccount.Size = New System.Drawing.Size(86, 17)
         Me.cbxTestaccount.TabIndex = 92
@@ -1754,17 +1772,39 @@ Partial Class frmMitarbDetails
         Me.Label7.TabIndex = 78
         Me.Label7.Text = "Berechtigung:"
         '
-        'cboDPFirma2
+        'cboFirmaHaupt
         '
-        Me.cboDPFirma2._allowedValuesFreiText = Nothing
+        Me.cboFirmaHaupt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboDPFirma2._allowFreiText = False
+        Me.cboFirmaHaupt.Enabled = False
-        Me.cboDPFirma2._value = ""
+        Me.cboFirmaHaupt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFirmaHaupt.FormattingEnabled = True
-        Me.cboDPFirma2.FormattingEnabled = True
+        Me.cboFirmaHaupt.Location = New System.Drawing.Point(138, 76)
-        Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151)
+        Me.cboFirmaHaupt.Name = "cboFirmaHaupt"
-        Me.cboDPFirma2.Name = "cboDPFirma2"
+        Me.cboFirmaHaupt.Size = New System.Drawing.Size(57, 21)
-        Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21)
+        Me.cboFirmaHaupt.TabIndex = 103
-        Me.cboDPFirma2.TabIndex = 108
+        '
+        'Label54
+        '
+        Me.Label54.AutoSize = True
+        Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label54.Location = New System.Drawing.Point(135, 60)
+        Me.Label54.Name = "Label54"
+        Me.Label54.Size = New System.Drawing.Size(42, 13)
+        Me.Label54.TabIndex = 104
+        Me.Label54.Text = "Haupt.:"
+        '
+        'cbxChatBenutzer
+        '
+        Me.cbxChatBenutzer.AutoSize = True
+        Me.cbxChatBenutzer.Checked = True
+        Me.cbxChatBenutzer.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxChatBenutzer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxChatBenutzer.Location = New System.Drawing.Point(304, 194)
+        Me.cbxChatBenutzer.Name = "cbxChatBenutzer"
+        Me.cbxChatBenutzer.Size = New System.Drawing.Size(93, 17)
+        Me.cbxChatBenutzer.TabIndex = 93
+        Me.cbxChatBenutzer.Text = "Chat-Benutzer"
+        Me.cbxChatBenutzer.UseVisualStyleBackColor = True
         '
         'frmMitarbDetails
         '
@@ -1949,4 +1989,7 @@ Partial Class frmMitarbDetails
     Friend WithEvents cboTeam As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label53 As Label
     Friend WithEvents cboDPFirma2 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label54 As Label
+    Friend WithEvents cboFirmaHaupt As ComboBox
+    Friend WithEvents cbxChatBenutzer As CheckBox
 End Class

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -88,6 +88,14 @@
         cboFirma.Items.Add("ALLE")
 
 
+        cboFirmaHaupt.Items.Clear()
+        cboFirmaHaupt.Items.Add("VERAG")
+        cboFirmaHaupt.Items.Add("ATILLA")
+        cboFirmaHaupt.Items.Add("IMEX")
+        cboFirmaHaupt.Items.Add("UNISPED")
+        cboFirmaHaupt.Items.Add("AMBAR")
+        cboFirmaHaupt.Items.Add("FRONTOFFICE")
+
 
         ZOLLDATENBEARB = False
 
@@ -224,15 +232,18 @@
 
         If mitarbeiter.mit_firma = "ALL" Then
             cboFirma.Text = "ALLE"
+            cboFirmaHaupt.Text = mitarbeiter.mit_FirmaHaupt
         Else
             cboFirma.Text = mitarbeiter.mit_firma
         End If
 
+        cbxChatBenutzer.Checked = mitarbeiter.mit_ChatBenutzer
         cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
 
         cboTeam.changeItem(If(mitarbeiter.mit_teamId, ""))
 
 
+
         cboKasse.changeItem("")
         If mitarbeiter.mit_FMZollPersID IsNot Nothing Then
             cboKasse.changeItem(SQL.getValueTxtBySql("SELECT [Standard_RKSV_KasseId]  FROM [Personal] WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
@@ -461,6 +472,7 @@
         mitarbeiter.mit_teamId = If(cboTeam._value = "", Nothing, cboTeam._value)
 
 
+
         If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then
             mitarbeiter.mit_FMZollPersID = cboPersonal._value
         Else
@@ -524,9 +536,11 @@
 
         If cboFirma.Text = "ALLE" Then
             mitarbeiter.mit_firma = "ALL"
+            mitarbeiter.mit_FirmaHaupt = cboFirmaHaupt.Text
         Else
             mitarbeiter.mit_firma = cboFirma.Text
         End If
+        mitarbeiter.mit_ChatBenutzer = cbxChatBenutzer.Checked
 
         If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""
         mitarbeiter.mit_gekuendigt = cbxGekuendigt.Checked
@@ -719,6 +733,6 @@
         If cboFirma.Text <> "" Then
             cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
         End If
-
+        cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE")
     End Sub
 End Class

UID/My Project/Resources.Designer.vb

@@ -60,24 +60,6 @@ Namespace My.Resources
             End Set
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
-        '''</summary>
-        Friend ReadOnly Property adasasd23asdasdasd() As String
-            Get
-                Return ResourceManager.GetString("adasasd23asdasdasd", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
-        '''</summary>
-        Friend ReadOnly Property adasdasd() As String
-            Get
-                Return ResourceManager.GetString("adasdasd", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -219,7 +201,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
         '''</summary>
         Friend ReadOnly Property connStringAdmin() As String
             Get
@@ -246,7 +228,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
         '''</summary>
         Friend ReadOnly Property connStringFMZOLL() As String
             Get
@@ -653,7 +635,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.9.1 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.9.2 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

UID/My Project/Resources.resx

@@ -185,10 +185,10 @@
     <value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="connStringAdmin" xml:space="preserve">
-    <value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+    <value>Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>1.9.1</value>
+    <value>1.9.2</value>
   </data>
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -212,7 +212,7 @@
     <value>..\Resources\admin_monitoring1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="connStringFMZOLL" xml:space="preserve">
-    <value>Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+    <value>Data Source=192.168.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
   </data>
   <data name="urlaub" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\urlaub.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -298,10 +298,4 @@
   <data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="adasasd23asdasdasd" xml:space="preserve">
-    <value />
-  </data>
-  <data name="adasdasd" xml:space="preserve">
-    <value />
-  </data>
 </root>

UID/cSqlDb.vb

@@ -1512,8 +1512,8 @@ Public Class cMitarbeiter
 
         'Änderung
         Dim sql = "INSERT INTO tblMitarbeiter " &
-                       "(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_teamId) VALUES " &
+                       "(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt) VALUES " &
-                       "(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_teamId)"
+                       "(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt )"
 
         Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
             Using cmd As New SqlCommand(sql, conn)
@@ -1562,6 +1562,9 @@ Public Class cMitarbeiter
                 cmd.Parameters.AddWithValue("@mit_AliasAD_Domain", If(m.mit_AliasAD_Domain, DBNull.Value))
                 cmd.Parameters.AddWithValue("@mit_AliasAD_Username", If(m.mit_AliasAD_Username, DBNull.Value))
                 cmd.Parameters.AddWithValue("@mit_teamId", If(m.mit_teamId, DBNull.Value))
+                cmd.Parameters.AddWithValue("@mit_ChatBenutzer", m.mit_ChatBenutzer)
+                cmd.Parameters.AddWithValue("@mit_FirmaHaupt", If(m.mit_FirmaHaupt, DBNull.Value))
+
 
                 Try
                     cmd.ExecuteNonQuery()
@@ -1579,7 +1582,7 @@ Public Class cMitarbeiter
         Dim hAuswahl As String = ""
 
         Dim sql = "UPDATE tblMitarbeiter " &
-                     "SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_teamId=@mit_teamId " &
+                     "SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_teamId=@mit_teamId,mit_ChatBenutzer=@mit_ChatBenutzer,mit_FirmaHaupt=@mit_FirmaHaupt  " &
                      " WHERE mit_id=@mit_id "
 
 
@@ -1634,6 +1637,10 @@ Public Class cMitarbeiter
                 cmd.Parameters.AddWithValue("@mit_AliasAD_Domain", If(m.mit_AliasAD_Domain, DBNull.Value))
                 cmd.Parameters.AddWithValue("@mit_AliasAD_Username", If(m.mit_AliasAD_Username, DBNull.Value))
                 cmd.Parameters.AddWithValue("@mit_teamId", If(m.mit_teamId, DBNull.Value))
+                cmd.Parameters.AddWithValue("@mit_ChatBenutzer", m.mit_ChatBenutzer)
+                cmd.Parameters.AddWithValue("@mit_FirmaHaupt", If(m.mit_FirmaHaupt, DBNull.Value))
+
+
 
                 Try
                     cmd.ExecuteNonQuery()

VERAGMonitoring/cSqlDb.vb

@@ -6,7 +6,7 @@ Imports System.Data.SqlClient
 Public Class cSqlDb
     Public Shared Function GetNewOpenConnection() As SqlConnection
         Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
+        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
         cn.Open()
         Return cn
     End Function
@@ -19,7 +19,7 @@ Public Class cSqlDb
     End Function
     Public Shared Function GetNewOpenConnectionZOLARIS() As SqlConnection
         Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
+        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
         cn.Open()
         Return cn
     End Function
@@ -911,7 +911,7 @@ Public Class cBrgDb
                            " commit tran "
 
         Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
         cn.Open()
         Using cn
             Using cmd As New SqlCommand(sql, cn)

cNCTSPartnerWorker/Class1.vb

@@ -0,0 +1,3 @@
+Public Class Class1
+
+End Class

cNCTSPartnerWorker/MAVI/cMAVIFunctions.vb

@@ -0,0 +1,144 @@
+Imports Renci.SshNet
+Imports System.IO
+
+Public Class cMAVIFunctions
+
+
+    'Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id)
+    '    Try
+    '        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then
+    '            MsgBox("Sie haben keine Sendeberechtigung.")
+    '            Return False
+    '        End If
+
+    '        If Not IO.File.Exists(file) Then Return False
+    '        Dim F As New System.IO.FileInfo(file)
+
+    '        Dim DY_server = ""
+    '        Dim DY_name = ""
+    '        Dim DY_pwd = ""
+    '        Dim DY_port = ""
+    '        Dim DY_PFAD_IN = ""
+
+    '        getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "")
+
+    '        Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
+    '        Using client = New SftpClient(ConnectionInfo)
+    '            client.Connect()
+    '            'client.Create(file, file)
+    '            client.ChangeDirectory(DY_PFAD_IN)
+    '            If IO.File.Exists(file) Then
+    '                'MsgBox(file)
+    '                Using uplfileStream = System.IO.File.OpenRead(file)
+    '                    client.UploadFile(uplfileStream, "." & F.Name, True)
+    '                    client.RenameFile("." & F.Name, F.Name)
+    '                End Using
+    '                client.Disconnect()
+    '            Else
+    '                MsgBox("Sendedatei nicht gefunden!")
+    '            End If
+
+
+    '        End Using
+
+    '        Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen
+    '        STATUS.dySt_BezugsNr = dySt_BezugsNr
+    '        STATUS.dySt_artMitteilung = "VERAG_SND"
+    '        STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
+
+    '        STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_03
+    '        'STATUS.dySt_ergCode = "ANR"
+    '        STATUS.dySt_ergCode = "SND"
+    '        STATUS.dySt_ergMitteilung = "An Dakosy gesendet"
+    '        STATUS.dySt_ergZeitpunkt = Now
+
+    '        STATUS.dySt_dyId = dy_Id
+    '        STATUS.SAVE()
+
+    '        Return True
+    '    Catch ex As Exception
+    '        MsgBox(ex.Message & ex.StackTrace)
+    '        Return False
+    '    End Try
+    'End Function
+
+    'Shared Function send_Data_To_Dakosy_FTP(file, Optional misc = False)
+    '    Try
+    '        If Not IO.File.Exists(file) Then Return False
+    '        Dim F As New System.IO.FileInfo(file)
+
+    '        Dim DY_server = ""
+    '        Dim DY_name = ""
+    '        Dim DY_pwd = ""
+    '        Dim DY_port = ""
+    '        Dim DY_PFAD_IN = ""
+
+    '        getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "")
+
+    '        Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
+    '        Using client = New SftpClient(ConnectionInfo)
+    '            client.Connect()
+    '            'client.Create(file, file)
+    '            If misc Then
+    '                client.ChangeDirectory(DY_PFAD_IN.Replace("gebox", "misc"))
+    '            Else
+    '                client.ChangeDirectory(DY_PFAD_IN)
+    '            End If
+
+    '            If IO.File.Exists(file) Then
+    '                'MsgBox(file)
+    '                Using uplfileStream = System.IO.File.OpenRead(file)
+    '                    client.UploadFile(uplfileStream, "." & F.Name, True)
+    '                    client.RenameFile("." & F.Name, F.Name)
+    '                End Using
+    '                client.Disconnect()
+    '            Else
+    '                MsgBox("Sendedatei nicht gefunden!")
+    '            End If
+
+
+    '        End Using
+
+    '        Return True
+    '    Catch ex As Exception
+    '        MsgBox(ex.Message & ex.StackTrace)
+    '        Return False
+    '    End Try
+    'End Function
+
+
+    Shared Sub getSFTPLoginData(ByRef NCTSTR_server, ByRef NCTSTR_name, ByRef NCTSTR_pwd, ByRef NCTSTR_port, ByRef NCTSTR_PFAD_IN, ByRef NCTSTR_PFAD_OUT)
+        NCTSTR_server = cMavi_Paramter.GET_PARAM_ByName("PLOSE_FTP_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        NCTSTR_name = cMavi_Paramter.GET_PARAM_ByName("PLOSE_FTP_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        NCTSTR_pwd = cMavi_Paramter.GET_PARAM_ByName("PLOSE_FTP_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        NCTSTR_port = cMavi_Paramter.GET_PARAM_ByName("PLOSE_FTP_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        NCTSTR_PFAD_IN = "in/"
+        NCTSTR_PFAD_OUT = "out/"
+    End Sub
+
+
+
+
+    Shared Function getDefaultFolder_SEND() As String
+        Try
+            getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
+            If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
+                IO.Directory.CreateDirectory(getDefaultFolder_SEND)
+            End If
+        Catch ex As Exception
+            Try
+                getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath
+                If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
+                    IO.Directory.CreateDirectory(getDefaultFolder_SEND)
+                End If
+            Catch ex2 As Exception
+                MsgBox(ex2.Message & ex2.StackTrace)
+                getDefaultFolder_SEND = ""
+            End Try
+        End Try
+
+    End Function
+
+End Class
+
+

cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb

@@ -0,0 +1,28 @@
+
+Imports System.Xml
+Imports System.IO
+
+Public Class cMAVIGetMsgType
+
+
+
+    Shared Function isTRNCTS_VersandanmeldungXML_CC015B(doc As XmlDocument) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("CC015B").Count > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
+
+
+    Shared Function isTRNCTS_BestaetigungZollXML_CC029B(doc As XmlDocument) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("CC029B").Count > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
+
+End Class

cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb

@@ -0,0 +1,8 @@
+
+Public Class cMavi_Paramter
+    Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
+        Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value]  FROM [tblMAVI_Paramter] WHERE  [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
+    End Function
+End Class

cNCTSPartnerWorker/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

cNCTSPartnerWorker/My Project/Application.myapp

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

cNCTSPartnerWorker/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("cNCTSPartnerWorker")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("cNCTSPartnerWorker")>
+<Assembly: AssemblyCopyright("Copyright ©  2020")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("1e6cbf33-7b53-4ae4-a876-85f0d0bbcc2a")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

cNCTSPartnerWorker/My Project/Resources.Designer.vb

@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+    
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    Friend Module Resources
+
+        Private resourceMan As Global.System.Resources.ResourceManager
+
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("cNCTSPartnerWorker.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set(ByVal value As Global.System.Globalization.CultureInfo)
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

cNCTSPartnerWorker/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?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.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: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" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </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" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

cNCTSPartnerWorker/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+
+#If _MyType = "WindowsForms" Then
+                   If Not addedHandler Then
+                        SyncLock addedHandlerLockObject
+                            If Not addedHandler Then
+                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                                addedHandler = True
+                            End If
+                        End SyncLock
+                    End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.cNCTSPartnerWorker.My.MySettings
+            Get
+                Return Global.cNCTSPartnerWorker.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

cNCTSPartnerWorker/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

cNCTSPartnerWorker/NCTSPartnerWorker.vbproj

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}</ProjectGuid>
+    <OutputType>Library</OutputType>
+    <RootNamespace>cNCTSPartnerWorker</RootNamespace>
+    <AssemblyName>cNCTSPartnerWorker</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Windows</MyType>
+    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>cNCTSPartnerWorker.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>cNCTSPartnerWorker.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Class1.vb" />
+    <Compile Include="cNCTS_TR.vb" />
+    <Compile Include="MAVI\cMavi_Paramter.vb" />
+    <Compile Include="MAVI\cMAVIGetMsgType.vb" />
+    <Compile Include="MAVI\cMAVIFunctions.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="MAVI\CC015B_VersandanmeldungFinal\CC015B.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
+      <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
+      <Name>VERAG_PROG_ALLGEMEIN</Name>
+    </ProjectReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

initATLASAufschubkonten/RoutineManager.vbproj

@@ -116,7 +116,16 @@
     <Compile Include="cBuergschaften.vb" />
     <Compile Include="cEDI.vb" />
     <Compile Include="cGetMsgType.vb" />
-    <Compile Include="cVERAG_Interface.vb" />
+    <Compile Include="cMAVIWorker.vb" />
+    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung.Designer.vb">
+      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="VERAG_Interface\cVERAG_Interface.vb" />
+    <Compile Include="VERAG_Interface\cVERAG_out_eza.vb" />
+    <Compile Include="VERAG_Interface\cVERAG_out_ncts.vb" />
     <Compile Include="cWorker_NCTS.vb" />
     <Compile Include="EZollAufschubEinlesen.vb" />
     <Compile Include="frmMDMNachrichtenVerarbeitung.Designer.vb">
@@ -167,6 +176,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="frmTRNCTS_NachrichtenVerarbeitung.resx">
+      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmMDMNachrichtenVerarbeitung.resx">
       <DependentUpon>frmMDMNachrichtenVerarbeitung.vb</DependentUpon>
     </EmbeddedResource>
@@ -212,6 +224,10 @@
       <Project>{A3B497BD-842C-4A2B-B398-ED1976849DF1}</Project>
       <Name>VERAG_PROG_ALLGEMEIN</Name>
     </ProjectReference>
+    <ProjectReference Include="..\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj">
+      <Project>{2bbd7643-82a1-481f-a014-eb7fcdeed3b5}</Project>
+      <Name>NCTSPartnerWorker</Name>
+    </ProjectReference>
     <ProjectReference Include="..\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
       <Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
       <Name>DAKOSY_Worker_lib</Name>

initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb

@@ -0,0 +1,24 @@
+
+Public Class cVERAG_InterfaceSharedObjects
+
+    Property FTP_Path As String = ""
+    Property CooName As String = ""
+
+    Sub New(FTP_Path, CooName)
+        Me.FTP_Path = FTP_Path
+        Me.CooName = CooName
+    End Sub
+
+End Class
+
+
+Public Class cVERAG_Interface_Settings
+
+    Property acticeInterface_OREGON As Boolean = True
+    Property acticeInterface_TOBB As Boolean = True
+    Property acticeInterface_EKOL As Boolean = True
+    Property acticeInterface_TEST As Boolean = True
+    Property acticeInterface_VERAG As Boolean = True
+    Property acticeInterface_IMEX As Boolean = True
+
+End Class

initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb

@@ -0,0 +1,870 @@
+Public Class cVERAG_out_eza
+    Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+    Shared GLO_EZA_DY As DAKOSY_Worker.cDakosyEZA = Nothing
+    Shared GLO_DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
+    Shared GLO_EZA_TC As TELOTEC_Worker.cTelotec_Anmeldung = Nothing
+
+    Shared GLO_AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+    Shared GLO_SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+    Shared cVERAG_Interface_Settings As New cVERAG_Interface_Settings 'defalut: Alles true
+
+    'Shared Function copyFileFTP_OLD(EZA_TMP As DAKOSY_Worker.cDakosyEZa, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', filePath As String)
+    '    Try
+    '        If EZA_TMP Is Nothing Then Return False
+    '        If EZA_TMP.EZA_ObjectName Is Nothing Then Return False
+    '        If EZA_TMP.EZA_ObjectName.ToString.StartsWith("DU") Then Return False
+    '        If EZA_TMP.EZA_firma.ToString = "DURMAZ" Then Return False
+
+    '        Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & EZA_TMP.EZA_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
+    '        If filePath = "" Then Return False
+
+    '        EZA_TMP.LOAD_Sicherheitsangaben()
+    '        If EZA_TMP.EZA_SICHERHEITSANGABEN IsNot Nothing AndAlso EZA_TMP.EZA_SICHERHEITSANGABEN.Count > 0 Then
+    '            Dim GRN = EZA_TMP.EZA_SICHERHEITSANGABEN(0).EZASA_GRN
+    '            Dim destFile = ""
+    '            Select Case GRN
+    '                                ' --> FTP Bereitstellung
+    '            '\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB
+    '                Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
+    '                    frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile)
+    '                    If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & EZA_TMP.EZA_ObjectName, "", "copyFileFTP")
+    '                Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
+    '                    frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
+    '                    If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & EZA_TMP.EZA_ObjectName, "", "copyFileFTP")
+    '                Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
+    '                    frmStartOptions.copyFile(filePath, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
+    '                    If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & EZA_TMP.EZA_ObjectName, "", "copyFileFTP")
+    '            End Select
+    '        End If
+    '        Return True
+    '    Catch ex As Exception
+    '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.EZA_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+    '        Return False
+    '    End Try
+    'End Function
+
+
+
+    Shared Function copyFileFTP_VERAGEZA_DY_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean
+        cVERAG_Interface_Settings = ISett
+        Dim DY_TMP = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(BezugsNr)
+        Dim EZA_TMP = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
+        If DY_TMP Is Nothing Then Return False
+        If EZA_TMP Is Nothing Then Return False
+        Return copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP, False)
+    End Function
+
+
+    Shared Function copyFileFTP_VERAGEZA_DY(EZA_TMP As DAKOSY_Worker.cDakosyEZA, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional checkAlreadyProvided As Boolean = True) As Boolean
+        Try
+            If EZA_TMP Is Nothing Then Return False
+            If EZA_TMP.eza_ObjectName Is Nothing Then Return False
+            If EZA_TMP.eza_ObjectName.ToString.StartsWith("DU") Then Return False
+            If If(EZA_TMP.eza_firma, "").ToString = "DURMAZ" Then Return False
+
+            GLO_EZA_DY = EZA_TMP
+            GLO_DY = DY_TMP
+
+            GLO_SND = Nothing
+            GLO_AVISO = Nothing
+
+            If DY_TMP.dy_SendungsId IsNot Nothing AndAlso DY_TMP.dy_SendungsId > 0 Then
+                GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_TMP.dy_SendungsId)
+            End If
+
+            If DY_TMP.dy_AvisoId IsNot Nothing AndAlso DY_TMP.dy_AvisoId > 0 Then
+                GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(DY_TMP.dy_AvisoId)
+            End If
+
+
+            ' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & EZA_TMP.EZA_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
+
+
+
+            Dim destFile = ""
+            Dim filePath = ""
+            Dim UniqueId = ""
+            ' --> FTP Bereitstellung
+            '  Dim VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza = Nothing
+
+            Dim found As Boolean = False
+            Dim vorsystem = "DY"
+            Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
+
+            If getFTP_Paths(IF_Obj) Then
+
+                For Each o In IF_Obj
+                    Select Case o.CooName
+                        '  Case "EKOL"
+                        Case Else
+                            Dim VERAG_OUT_EZA = genVERAG_OUT_EZA_FromDAKOSY(EZA_TMP, DY_TMP, UniqueId)
+                            copyEZAToFTP(VERAG_OUT_EZA, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                    End Select
+                Next
+            End If
+
+
+            Return found
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.eza_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        End Try
+    End Function
+
+    Shared Function copyFileFTP_VERAGEZA_TC_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean
+        cVERAG_Interface_Settings = ISett
+        Dim EZA_TMP = TELOTEC_Worker.cTelotec_Anmeldung.LOAD_ByBezugsNr(BezugsNr)
+        If EZA_TMP Is Nothing Then Return False
+        Return copyFileFTP_VERAGEZA_TC(EZA_TMP, False)
+    End Function
+
+    Shared Function copyFileFTP_VERAGEZA_TC(EZA_TMP As TELOTEC_Worker.cTelotec_Anmeldung, Optional checkAlreadyProvided As Boolean = True) As Boolean
+        Return False
+        'Try
+        '    If EZA_TMP Is Nothing Then Return False
+        '    If EZA_TMP.telanm_BezugsNr Is Nothing Then Return False
+        '    'If EZA_TMP.telanm_firma.ToString = "DURMAZ" Then Return False
+        '    'Select Case EZA_TMP.telanm_ART
+        '    '    Case "T1", "T2", "T2L", "T-"
+        '    '    Case Else
+        '    '        Return False
+        '    'End Select
+
+        '    GLO_SND = Nothing
+        '    GLO_AVISO = Nothing
+        '    GLO_EZA_TC = EZA_TMP
+
+        '    If EZA_TMP.telanm_SendungsId IsNot Nothing AndAlso EZA_TMP.telanm_SendungsId > 0 Then
+        '        GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(EZA_TMP.telanm_SendungsId)
+        '    End If
+
+        '    If EZA_TMP.telanm_AvisoId IsNot Nothing AndAlso EZA_TMP.telanm_AvisoId > 0 Then
+        '        GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(EZA_TMP.telanm_AvisoId)
+        '    End If
+
+        '    ' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & EZA_TMP.EZA_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
+
+        '    '  EZA_TMP.LOAD_Sicherheitsangaben()
+
+        '    Dim destFile = ""
+        '    Dim filePath = ""
+        '    Dim UniqueId = ""
+
+        '    ' --> FTP Bereitstellung
+        '    'Dim VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza = Nothing
+        '    Dim found As Boolean = False
+        '    Dim vorsystem = "TC"
+
+        '    Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
+        '    If getFTP_Paths(IF_Obj) Then
+        '        For Each o In IF_Obj
+        '            Select Case o.CooName
+        '                '  Case ""
+        '                Case Else
+        '                    Dim VERAG_OUT_EZA = genVERAG_OUT_EZA_FromTELOTEC(EZA_TMP, UniqueId)
+        '                    copyEZAToFTP(VERAG_OUT_EZA, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+        '            End Select
+        '        Next
+        '    End If
+
+
+
+        '    Return found
+        'Catch ex As Exception
+        '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        '    Return False
+        'End Try
+    End Function
+
+    Shared Sub copyEZAToFTP(ByRef VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False)
+        If VERAG_OUT_EZA IsNot Nothing AndAlso Not alreadyProvidedInInterface(VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
+            If genXMLFile(VERAG_OUT_EZA, filePath, vorsystem, UniqueId) <> "" Then
+                frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
+                If IO.File.Exists(destFile) Then
+                    insertFTPLOG(destFile, IF_Obj.CooName, VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem)
+                    found = True
+                Else
+                    Try
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyEZAToFTP",,,,, VERAG_OUT_EZA.ProcessData.ReferenzNumber)
+                    Catch
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyEZAToFTP")
+                    End Try
+                End If
+            End If
+        End If
+
+    End Sub
+
+    Shared Function copyFileFTP_VERAGEZA_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean
+        cVERAG_Interface_Settings = ISett
+        Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId  FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
+        If AnmId = "" Then Return False
+        Return copyFileFTP_VERAGEZA_EZOLL(AnmId, False)
+    End Function
+
+    Shared Function copyFileFTP_VERAGEZA_EZOLL(AnmId As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
+        Return False
+        'Dim LRN = ""
+        'Try
+
+        '    Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
+        '            " FROM zsAnmRefs" &
+        '            " WHERE (VorgangID = 'AV') AND (AnmId = '" & AnmId & "')" &
+        '            " ORDER BY GeaendertAm DESC", "EZOLL")
+
+
+        '    If dEZOLL Is Nothing Then Return False
+        '    If dEZOLL.Rows.Count <= 0 Then Return False
+        '    'If EZA_TMP.telanm_firma.ToString = "DURMAZ" Then Return False
+
+
+
+        '    GLO_SND = Nothing
+        '    GLO_AVISO = Nothing
+
+
+        '    LRN = dEZOLL.Rows(0)("LRN")
+        '    Select Case SQL.getValueTxtBySql("SELECT TOP 1 DecTy  FROM zsAnmHea WHERE (VorgangID = 'AV') AND (AnmId = '" & AnmId & "')", "EZOLL")
+        '        Case "T1", "T2", "T2L", "T-"
+        '        Case Else
+        '            Return False
+        '    End Select
+
+        '    ' Tabelle zsAnmGrteeGrteeRef lesen.
+        '    Dim destFile = ""
+        '    Dim filePath = ""
+        '    Dim UniqueId = ""
+
+        '    ' --> FTP Bereitstellung
+        '    Dim found As Boolean = False
+        '    Dim vorsystem = "DHF"
+        '    Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
+        '    If getFTP_Paths(IF_Obj) Then
+        '        For Each o In IF_Obj
+        '            Select Case o.CooName
+        '                ' Case "EKOL"
+        '                Case Else
+        '                    Dim VERAG_OUT_EZA = genVERAG_OUT_EZA_FromEZOLLByAnmId(AnmId, UniqueId)
+        '                    copyEZAToFTP(VERAG_OUT_EZA, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+        '            End Select
+        '        Next
+        '    End If
+
+
+
+        '    Return found
+        'Catch ex As Exception
+        '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        '    Return False
+        'End Try
+    End Function
+
+
+    Shared Function getFTP_Paths(ByRef IF_Obj As List(Of cVERAG_InterfaceSharedObjects)) As Boolean
+        IF_Obj = New List(Of cVERAG_InterfaceSharedObjects)
+        Try
+
+            If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG"))
+
+            Return True
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        End Try
+    End Function
+
+
+    Shared Function isFTP_TEST_EZA() As Boolean
+        Try
+            If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER
+                If GLO_AVISO.Frächter.ToUpper.StartsWith("IBRAH") Then Return True
+                If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("IBRAH") Then Return True
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+
+    Shared Function alreadyProvidedInInterface(ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String, ftp_CooName As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
+        If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben
+        Try
+            'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & VERAG_OUT_EZA.ProcessData.ReferenzNumber & "','" & VERAG_OUT_EZA.ProcessData.ProcedureCode & "','" & VERAG_OUT_EZA.ProcessData.Status & "','')", "FMZOLL")
+            If SQL.getValueTxtBySql("SELECT count(*)  FROM  [tblFTP_Log]  where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "'   ", "FMZOLL",,, 0) = 0 Then
+                Return False
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return True
+    End Function
+
+    Shared Function genXMLFile(VERAG_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String
+        Try
+            If XMLFilePath = "" Then
+                Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
+                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
+            End If
+            If VERAG_EZA IsNot Nothing Then
+                VERAG_EZA.SaveToFile(XMLFilePath)
+                removeTypeFromXML(XMLFilePath) ' Type-Attribute entfernen
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return XMLFilePath
+    End Function
+
+    Shared Function removeTypeFromXML(XMLFilePath) As String
+        Try
+            Dim fileContents = IO.File.ReadAllText(XMLFilePath)
+            fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
+            fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
+            fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
+            fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
+            IO.File.WriteAllText(XMLFilePath, fileContents)
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return XMLFilePath
+    End Function
+
+
+    Shared Function genVERAG_OUT_EZA_FromDAKOSY(EZA_TMP As DAKOSY_Worker.cDakosyEZA, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
+        Dim VERAG_EZA As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
+        Try
+            If DY_TMP Is Nothing Then Return Nothing
+            If EZA_TMP Is Nothing Then Return Nothing
+            If EZA_TMP.eza_ObjectName Is Nothing Then Return Nothing
+            EZA_TMP.LOAD_Warenposition()
+
+            VERAG_EZA.Version = "1.0.0" ' Automaitsch, weil default ' doch nicht?
+
+            If EZA_TMP.eza_firma <> "" Then
+                VERAG_EZA.Company = EZA_TMP.eza_firma
+            Else
+                VERAG_EZA.Company = "VERAG"
+            End If
+            VERAG_EZA.Department = EZA_TMP.eza_niederlassung
+
+            'VERAG_EZA.InternalReference.OfficeCode = If(
+            'VERAG_EZA.InternalReference.PositionNumber = EZA_TMP.EZA_niederlassung
+
+            Select Case DY_TMP.dy_Status
+                Case < 50
+                    VERAG_EZA.ProcessData.Status = 0
+                Case 50, 53
+                    VERAG_EZA.ProcessData.Status = 50
+                Case 60
+                    VERAG_EZA.ProcessData.Status = 60
+            End Select
+            If GLO_SND IsNot Nothing Then
+                VERAG_EZA.InternalReference.OfficeCode = GLO_SND.FilialenNr
+                VERAG_EZA.InternalReference.PositionNumber = GLO_SND.AbfertigungsNr
+
+                VERAG_EZA.EZA_Data.Sender.Name = GLO_SND.tblSnd_Absender
+                VERAG_EZA.EZA_Data.Consignee.Name = GLO_SND.tblSnd_Empfaenger
+
+            End If
+
+            If GLO_AVISO IsNot Nothing Then
+                VERAG_EZA.EZA_Data.LicensePlateContainerNo = GLO_AVISO.LKW_Nr
+
+
+            End If
+
+            VERAG_EZA.ProcessData.TransactionDate = EZA_TMP.eza_Trans_DatumZeit
+            VERAG_EZA.ProcessData.ReferenzNumber = EZA_TMP.eza_ObjectName
+            VERAG_EZA.ProcessData.CustomsReferenzNumber = EZA_TMP.eza_ANR
+            VERAG_EZA.EZA_Data.SumGrossWeight = If(EZA_TMP.eza_GesamtRohmasse, "0")
+
+            VERAG_EZA.ProcessData.ReferenzNumber = If(EZA_TMP.eza_ObjectName, "")
+            '   VERAG_EZA.ProcessData.ProcedureCode = If(EZA_TMP.eza_AnmeldungArt, "") ______-----> ART
+
+            'VERAGCustomerCode
+
+
+            If VERAG_EZA.EZA_Data.LicensePlateContainerNo Is Nothing Then VERAG_EZA.EZA_Data.LicensePlateContainerNo = If(EZA_TMP.eza_BeförderungsmittelGrenze, "")
+
+            If EZA_TMP.eza_AdressierteZollstelle IsNot Nothing Then VERAG_EZA.EZA_Data.DestinationCustomsOffice = "DE00" & EZA_TMP.eza_AdressierteZollstelle
+            VERAG_EZA.EZA_Data.DepartureCountry = If(EZA_TMP.eza_VersendungsLandCode, "")
+            VERAG_EZA.EZA_Data.DestinationCountry = If(EZA_TMP.eza_Bestimmungsland, "")
+
+
+
+            ''Versender
+            'VERAG_EZA.EZA_Data.Sender.Name = If(EZA_TMP.EZA_Versender_Name, "")
+            'VERAG_EZA.EZA_Data.Sender.EORI = If(EZA_TMP.EZA_Versender_EORI, "")
+            'VERAG_EZA.EZA_Data.Sender.EORI_NL = If(EZA_TMP.EZA_Versender_NLNR, "")
+            ''VERAG_EZA.EZA_Data.Sender.UID_Nr = If(EZA_TMP.vers, "")
+            'VERAG_EZA.EZA_Data.Sender.Adress.Country = If(EZA_TMP.EZA_Versender_Land, "")
+            'VERAG_EZA.EZA_Data.Sender.Adress.Postcode = If(EZA_TMP.EZA_Versender_PLZ, "")
+            'VERAG_EZA.EZA_Data.Sender.Adress.Street = If(EZA_TMP.EZA_Versender_StrasseHausnummer, "")
+            'VERAG_EZA.EZA_Data.Sender.Adress.City = If(EZA_TMP.EZA_Versender_Ort, "")
+
+            ''Empfänger
+            'VERAG_EZA.EZA_Data.Consignee.Name = If(EZA_TMP.EZA_Empfaenger_Name, "")
+            'VERAG_EZA.EZA_Data.Consignee.EORI = If(EZA_TMP.EZA_Empfaenger_EORI, "")
+            'VERAG_EZA.EZA_Data.Consignee.EORI_NL = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
+            ''VERAG_EZA.EZA_Data.Consignee.UID_Nr = If(EZA_TMP.vers, "")
+            'VERAG_EZA.EZA_Data.Consignee.Adress.Country = If(EZA_TMP.EZA_Empfaenger_Land, "")
+            'VERAG_EZA.EZA_Data.Consignee.Adress.Postcode = If(EZA_TMP.EZA_Empfaenger_PLZ, "")
+            'VERAG_EZA.EZA_Data.Consignee.Adress.Street = If(EZA_TMP.EZA_Empfaenger_StrasseHausnummer, "")
+            'VERAG_EZA.EZA_Data.Consignee.Adress.City = If(EZA_TMP.EZA_Empfaenger_Ort, "")
+
+            For Each ABG In EZA_TMP.eza_AUFSCHUB
+                If ABG.ezaAfb_Abgabenbetrag IsNot Nothing AndAlso ABG.ezaAfb_Abgabenbetrag > 0 Then
+                    Dim V_ABG As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_DataDuty
+                    '   V_ABG.Kind = ABG.ezaAfb_ArtAufschubantrag
+                    V_ABG.EORI = ABG.ezaAfb_AufschubnehmerEORI
+                    V_ABG.AccountNumber = ABG.ezaAfb_KontoNr
+
+                    Select Case ABG.ezaAfb_ArtAufschubantrag
+                        Case "A0000"
+                            V_ABG.Kind = "01" ' ZOLL
+                        Case "B0000"
+                            V_ABG.Kind = "02"  'EUST
+                    End Select
+                End If
+            Next
+
+            Dim cntPos = 1
+            If EZA_TMP.eza_WARENPOS IsNot Nothing Then
+                For Each POS In EZA_TMP.eza_WARENPOS
+                    Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_DataPosition
+                    V_POS.PosNr = cntPos
+
+                    V_POS.Quantity = POS.ezaWP_PackstueckAnzahl
+                    V_POS.Packaging = POS.ezaWP_PackstueckArt
+                    V_POS.GrossWeight = POS.ezaWP_Rohmasse
+                    V_POS.GoodsDescription = POS.ezaWP_Warenbezeichnung
+                    'V_POS.DepartureCountry=POS.ezaWP_Aussenhandelsstatistik_Versendungsland
+
+                    V_POS.TariffNumber = POS.ezaWP_WarennummerEZT
+
+                    V_POS.GoodsValue.Value = POS.ezaWP_Artikelpreis
+
+                    For Each UL In POS.ezaWP_UNTERLAGEN
+                        If If(UL.ezaWpUl_Art, "") = "N380" Then 'Handelsrechnung
+                            Dim V_DOC As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_DataPositionDocuments
+                            V_DOC.Invoice.InvoiceNumber = UL.ezaWpUl_Nummer
+                            V_DOC.Invoice.InvoiceDate = UL.ezaWpUl_DatumAusstellung
+                        End If
+                    Next
+                    VERAG_EZA.EZA_Data.Position.Add(V_POS)
+                    cntPos += 1
+                Next
+            End If
+
+            If False Then
+                Try
+                    If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
+                        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
+                        Dim Path = DS.GET_TOP1_PATH()
+                        If Path <> "" And IO.File.Exists(Path) Then
+                            Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaAttachment
+                            '  ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaAttachmentDocumentType.EZA
+                            ATT.FileType = "PDF"
+                            ATT.Name = "EZA_VBD_" & If(VERAG_EZA.ProcessData.ProcedureCode, "") & ".pdf"
+                            Convert.ToBase64String(System.IO.File.ReadAllBytes(Path))
+                            'ATT.base64BinaryStream = Convert.ToBase64CharArray(System.IO.File.ReadAllBytes(Path))
+                            ATT.base64BinaryStream = System.Text.Encoding.UTF8.GetBytes(System.Convert.ToBase64String(System.IO.File.ReadAllBytes(Path)))
+                            VERAG_EZA.Attachments.Add(ATT)
+                        End If
+                    End If
+                Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.eza_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End Try
+
+            End If
+            'If XMLFilePath = "" Then
+            '    Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
+            '    If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+            '    XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
+            'End If
+
+            UniqueId = DY_TMP.dy_Id
+            'VERAG_EZA.SaveToFile(XMLFilePath)
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.eza_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return Nothing
+        End Try
+        Return VERAG_EZA
+
+    End Function
+
+
+
+
+
+    Shared Function genVERAG_OUT_EZA_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
+
+        Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
+                    " FROM zsAnmRefs" &
+                    " WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')" &
+                    " ORDER BY GeaendertAm DESC", "EZOLL")
+        If dEZOLL Is Nothing Then Return Nothing
+        If dEZOLL.Rows.Count = 0 Then Return Nothing
+
+        Dim r As DataRow = dEZOLL.Rows(0)
+
+        Return genVERAG_OUT_EZA_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId)
+    End Function
+
+    Shared Function genVERAG_OUT_EZA_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
+        Return Nothing
+        'Dim VERAG_EZA As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
+        'Dim LRN = ""
+        'Try
+
+        '    VERAG_EZA.Version = "1.0.0" ' Automaitsch, weil default ' doch nicht?
+
+        '    Dim Bestimmungszollstelle = ""
+        '    Dim Bürgschaft = ""
+
+        '    Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
+        '            " FROM zsAnmRefs" &
+        '            " WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
+        '            " ORDER BY GeaendertAm DESC", "EZOLL")
+
+        '    If dEZOLL Is Nothing Then Return Nothing
+        '    If dEZOLL.Rows.Count = 0 Then Return Nothing
+
+        '    'TextBox2.ForeColor = Color.Green
+        '    Dim r As DataRow = dEZOLL.Rows(0)
+
+        '    LRN = r.Item("LRN")
+
+        '    If Not SQL.IsNull(r.Item("OperatorID")) Then
+        '        Select Case r.Item("OperatorID")
+        '            Case "1"
+        '                VERAG_EZA.Company = "VERAG"
+        '                VERAG_EZA.Department = "SUB"
+        '            Case "2"
+        '                VERAG_EZA.Company = "VERAG"
+        '                VERAG_EZA.Department = "SBG"
+
+        '            Case "3"
+        '                VERAG_EZA.Company = "VERAG"
+        '                VERAG_EZA.Department = "NKD"
+        '            Case "4", "5"
+        '                VERAG_EZA.Company = "ATILLA"
+        '                VERAG_EZA.Department = "SUB"
+        '            Case "6"
+        '                If LRN.StartsWith("4801") Then
+        '                    VERAG_EZA.Company = "ATILLA"
+        '                Else
+        '                    VERAG_EZA.Company = "VERAG"
+        '                End If
+        '                VERAG_EZA.Department = "SUB"
+        '            Case "8"
+        '                VERAG_EZA.Company = "DURMAZ"
+        '                VERAG_EZA.Department = "SBG"
+        '                Return Nothing
+        '            Case Else
+        '                VERAG_EZA.Company = "ATILLA"
+        '                VERAG_EZA.Department = "SUB"
+
+        '        End Select
+        '    End If
+
+
+        '    If r.Item("GeaendertAm") IsNot DBNull.Value AndAlso IsDate(r.Item("GeaendertAm")) Then
+        '        VERAG_EZA.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
+        '    Else
+        '        VERAG_EZA.ProcessData.TransactionDate = Now.ToShortDateString
+        '    End If
+
+        '    VERAG_EZA.ProcessData.MRN = r.Item("CRN")
+        '    VERAG_EZA.ProcessData.ReferenzNumber = LRN
+
+        '    Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
+        '        Case "F"
+        '            VERAG_EZA.ProcessData.Status = 50
+        '        Case "FB"
+        '            VERAG_EZA.ProcessData.Status = 60
+        '        Case Else
+        '            VERAG_EZA.ProcessData.Status = 0
+        '    End Select
+
+        '    Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE  (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+        '    If DTzsAnmHea.Rows().Count > 0 Then
+        '        Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
+        '        VERAG_EZA.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
+        '        VERAG_EZA.EZA_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(EZA_TMP.EZA_GesamtRohmasse, "0")
+        '        VERAG_EZA.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
+        '    End If
+
+
+
+        '    VERAG_EZA.EZA_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
+        '    VERAG_EZA.EZA_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
+
+        '    'BestimmungsstelleDienststelle
+        '    Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref  FROM zsAnmDestCo  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+        '    If DTzsAnmDestCo.Rows().Count > 0 Then
+        '        If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_EZA.EZA_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
+        '    End If
+
+        '    ' Kennzeichen
+        '    Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt  FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+        '    If DTzsAnmTransp.Rows().Count > 0 Then
+        '        If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
+        '            VERAG_EZA.EZA_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
+        '        End If
+        '    End If
+
+        '    'Versender
+        '    Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra]  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+        '    If DTzsAnmSender.Rows().Count > 0 Then
+        '        'VERAG_EZA.EZA_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
+        '        If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Na")) Then VERAG_EZA.EZA_Data.Consignee.Name = DTzsAnmSender.Rows(0).Item("Na")
+        '        If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_EZA.EZA_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
+        '        If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_EZA.EZA_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
+        '        If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_EZA.EZA_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
+        '        If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
+        '            VERAG_EZA.EZA_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
+        '            VERAG_EZA.EZA_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
+        '        End If
+        '        If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_EZA.EZA_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
+        '        'VERAG_EZA.EZA_Data.Sender.EORI_NL = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
+        '        'VERAG_EZA.EZA_Data.Sender.UID_Nr = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
+        '    End If
+
+
+        '    'Empfänger
+        '    Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+        '    If DTzsAnmConeeTra.Rows().Count > 0 Then
+        '        If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then VERAG_EZA.EZA_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
+        '        If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_EZA.EZA_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
+        '        If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_EZA.EZA_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
+        '        If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_EZA.EZA_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
+        '        If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
+        '            VERAG_EZA.EZA_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
+        '            VERAG_EZA.EZA_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
+        '        End If
+        '        If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_EZA.EZA_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
+        '        'VERAG_EZA.EZA_Data.Consignee.EORI_NL = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
+        '        'VERAG_EZA.EZA_Data.Consignee.UID_Nr = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
+        '    End If
+
+
+        '    'Frächter
+        '    Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra]  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+        '    If DTzsAnmCarrier.Rows().Count > 0 Then
+        '        If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_EZA.EZA_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
+        '        If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_EZA.EZA_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
+        '        If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_EZA.EZA_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
+        '        If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_EZA.EZA_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
+        '        If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_EZA.EZA_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
+        '        If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_EZA.EZA_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
+        '        'VERAG_EZA.EZA_Data.Carrier.EORI_NL = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
+        '        'VERAG_EZA.EZA_Data.Carrier.UID_Nr = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
+        '    End If
+
+
+        '    ' Tabelle zsAnmGrteeGrteeRef lesen.
+        '    Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
+        '            " FROM zsAnmGrteeGrteeRef" &
+        '            " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
+        '            " ORDER BY GrteeID, GrteeRefID", "EZOLL")
+
+        '    If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
+        '        VERAG_EZA.EZA_Data.Guarantee.Amount = 0
+        '        For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
+        '            If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_EZA.EZA_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
+        '            If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_EZA.EZA_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
+        '        Next
+        '    End If
+
+        '    'POSITIONEN
+        '    Dim cntPos = 1
+        '    Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")  ORDER BY GdsItemID", "EZOLL")
+        '    If DTzsAnmGdsitem.Rows().Count > 0 Then
+        '        For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
+        '            Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_DataPosition
+        '            V_POS.PosNr = cntPos
+        '            Dim pkGes = 0
+        '            Dim pkArt = ""
+
+        '            Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")  AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
+        '            If DTzsAnmGdsitemPk.Rows().Count > 0 Then
+        '                For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
+        '                    If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
+        '                    If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
+        '                Next
+        '            End If
+
+        '            V_POS.Quantity = pkGes
+        '            V_POS.Packaging = pkArt
+        '            If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
+
+        '            V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
+
+        '            VERAG_EZA.EZA_Data.Position.Add(V_POS)
+        '            cntPos += 1
+        '        Next
+        '    End If
+
+
+        '    UniqueId = AnmID
+        'Catch ex As Exception
+        '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        '    Return Nothing
+        'End Try
+        'Return VERAG_EZA
+
+    End Function
+
+    Shared Function getGRTY_fromEZOLL(LRN As String) As String
+        Try
+            Return SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmRefs inner join zsAnmGrteeGrteeRef on zsAnmGrteeGrteeRef.AnmID=zsAnmRefs.AnmID WHERE (zsAnmRefs.VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+
+    Shared Function genVERAG_OUT_EZA_FromTELOTEC(EZA_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
+        Return Nothing
+        'Dim VERAG_EZA As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
+        'Try
+        '    If EZA_TMP Is Nothing Then Return Nothing
+        '    If EZA_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
+        '    If EZA_TMP.Hea_DecTy Is Nothing Then Return Nothing
+        '    If EZA_TMP.Hea_DecTy <> "T1" And EZA_TMP.Hea_DecTy <> "T2" And EZA_TMP.Hea_DecTy <> "T2L" And EZA_TMP.Hea_DecTy <> "T-" Then Return Nothing
+
+        '    VERAG_EZA.Version = "1.0.0" ' Automaitsch, weil default ' doch nicht?
+
+        '    If EZA_TMP.telanm_firma <> "" Then
+        '        VERAG_EZA.Company = EZA_TMP.telanm_firma
+        '    Else
+        '        VERAG_EZA.Company = "IMEX"
+        '    End If
+        '    VERAG_EZA.Department = EZA_TMP.telanm_niederlassung
+
+
+        '    'VERAG_EZA.InternalReference.OfficeCode = If(
+        '    'VERAG_EZA.InternalReference.PositionNumber = EZA_TMP.EZA_niederlassung
+        '    Select Case EZA_TMP.telanm_Status
+        '        Case < 50
+        '            VERAG_EZA.ProcessData.Status = 0
+        '        Case 50, 53
+        '            VERAG_EZA.ProcessData.Status = 50
+        '        Case 60
+        '            VERAG_EZA.ProcessData.Status = 60
+        '    End Select
+
+        '    VERAG_EZA.ProcessData.TransactionDate = EZA_TMP.dec_CreateDate
+
+        '    VERAG_EZA.ProcessData.MRN = If(EZA_TMP.telanm_CRN, "")
+        '    VERAG_EZA.ProcessData.ReferenzNumber = If(EZA_TMP.telanm_BezugsNr, "")
+        '    VERAG_EZA.ProcessData.ProcedureCode = If(EZA_TMP.telanm_ART, "")
+
+        '    If EZA_TMP.CtrlRslt_DLimit IsNot Nothing AndAlso EZA_TMP.CtrlRslt_DLimit.ToString <> "" Then
+        '        VERAG_EZA.EZA_Data.DatDeterminationLimit = CDate(EZA_TMP.CtrlRslt_DLimit)
+        '    End If
+        '    VERAG_EZA.EZA_Data.LicensePlate = If(EZA_TMP.Transp_DepIdnt, "")
+        '    VERAG_EZA.EZA_Data.DepartureCustomsOffice = If(EZA_TMP.DepCO_Ref, "")
+        '    VERAG_EZA.EZA_Data.DestinationCustomsOffice = If(EZA_TMP.DestCO_Ref, "")
+        '    VERAG_EZA.EZA_Data.DepartureCountry = EZA_TMP.Locs_Disp
+        '    VERAG_EZA.EZA_Data.DestinationCountry = If(EZA_TMP.Locs_Dest, "")
+
+        '    'Versender
+        '    VERAG_EZA.EZA_Data.Sender.Name = If(EZA_TMP.ConorTra_Na, "")
+        '    VERAG_EZA.EZA_Data.Sender.EORI = If(EZA_TMP.ConorTra_TIN, "")
+        '    'VERAG_EZA.EZA_Data.Sender.EORI_NL = If(EZA_TMP.EZA_Versender_NLNR, "")
+        '    VERAG_EZA.EZA_Data.Sender.UID_Nr = If(EZA_TMP.ConorTra_UIDCtry, "") & If(EZA_TMP.ConorTra_UID, "")
+        '    VERAG_EZA.EZA_Data.Sender.Adress.Country = If(EZA_TMP.ConorTra_Ctry, "")
+        '    VERAG_EZA.EZA_Data.Sender.Adress.Postcode = If(EZA_TMP.ConorTra_Pst, "")
+        '    VERAG_EZA.EZA_Data.Sender.Adress.Street = If(EZA_TMP.ConorTra_Strt, "")
+        '    VERAG_EZA.EZA_Data.Sender.Adress.City = If(EZA_TMP.ConorTra_Cty, "")
+
+        '    'Empfänger
+        '    VERAG_EZA.EZA_Data.Consignee.Name = If(EZA_TMP.ConeeTra_Na, "")
+        '    VERAG_EZA.EZA_Data.Consignee.EORI = If(EZA_TMP.ConeeTra_TIN, "")
+        '    'VERAG_EZA.EZA_Data.Consignee.EORI_NL = If(EZA_TMP.EZA_Versender_NLNR, "")
+        '    VERAG_EZA.EZA_Data.Consignee.UID_Nr = If(EZA_TMP.ConeeTra_UIDCtry, "") & If(EZA_TMP.ConeeTra_UID, "")
+        '    VERAG_EZA.EZA_Data.Consignee.Adress.Country = If(EZA_TMP.ConeeTra_Ctry, "")
+        '    VERAG_EZA.EZA_Data.Consignee.Adress.Postcode = If(EZA_TMP.ConeeTra_Pst, "")
+        '    VERAG_EZA.EZA_Data.Consignee.Adress.Street = If(EZA_TMP.ConeeTra_Strt, "")
+        '    VERAG_EZA.EZA_Data.Consignee.Adress.City = If(EZA_TMP.ConeeTra_Cty, "")
+
+        '    ''Frächter
+        '    'VERAG_EZA.EZA_Data.Carrier.Name = If(EZA_TMP.ConorTra_Na, "")
+        '    'VERAG_EZA.EZA_Data.Carrier.EORI = If(EZA_TMP.ConorTra_TIN, "")
+        '    ''VERAG_EZA.EZA_Data.Carrier.EORI_NL = If(EZA_TMP.EZA_Versender_NLNR, "")
+        '    'VERAG_EZA.EZA_Data.Carrier.UID_Nr = If(EZA_TMP.ConorTra_UIDCtry, "") & If(EZA_TMP.ConorTra_UID, "")
+        '    'VERAG_EZA.EZA_Data.Carrier.Adress.Country = If(EZA_TMP.ConorTra_Ctry, "")
+        '    'VERAG_EZA.EZA_Data.Carrier.Adress.Postcode = If(EZA_TMP.ConorTra_Pst, "")
+        '    'VERAG_EZA.EZA_Data.Carrier.Adress.Street = If(EZA_TMP.ConorTra_Strt, "")
+        '    'VERAG_EZA.EZA_Data.Carrier.Adress.City = If(EZA_TMP.ConorTra_Cty, "")
+
+        '    If EZA_TMP.SICHERHEIT IsNot Nothing AndAlso EZA_TMP.SICHERHEIT.Count > 0 Then
+        '        VERAG_EZA.EZA_Data.Guarantee.GRN = If(EZA_TMP.SICHERHEIT(0).GRN, "")
+        '        VERAG_EZA.EZA_Data.Guarantee.Amount = If(EZA_TMP.SICHERHEIT(0).GVal, "0")
+        '    End If
+
+        '    VERAG_EZA.EZA_Data.SumGrossWeight = If(EZA_TMP.Hea_TotGross, "0")
+        '    Dim cntPos = 1
+        '    If EZA_TMP.POSITIONSDATEN IsNot Nothing Then
+        '        For Each POS In EZA_TMP.POSITIONSDATEN
+        '            Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_DataPosition
+        '            V_POS.PosNr = cntPos
+        '            Dim pkGes = 0
+        '            Dim pkArt = ""
+        '            If POS.PACKSTUECKE IsNot Nothing Then
+        '                For Each PK In POS.PACKSTUECKE
+        '                    If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt
+        '                    If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt
+        '                    If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind
+        '                Next
+        '            End If
+        '            V_POS.Quantity = pkGes
+        '            V_POS.Packaging = pkArt
+        '            V_POS.GrossWeight = POS.Item_Gross
+        '            V_POS.GoodsDescription = POS.Item_GdsDes
+
+        '            VERAG_EZA.EZA_Data.Position.Add(V_POS)
+        '            cntPos += 1
+        '        Next
+        '    End If
+        '    UniqueId = EZA_TMP.telanm_id
+
+        '    'If XMLFilePath = "" Then
+        '    '    Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
+        '    '    If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+        '    '    XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & EZA_TMP.telanm_id & ".xml"
+        '    'End If
+
+
+        '    'VERAG_EZA.SaveToFile(XMLFilePath)
+
+        'Catch ex As Exception
+        '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        '    Return Nothing
+        'End Try
+        'Return VERAG_EZA
+
+    End Function
+
+
+    Shared Function insertFTPLOG(filePath As String, user As String, ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String)
+        Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ReferenzNumber & "','" & ProcedureCode & "','" & Status & "','" & vorsystem & "')", "FMZOLL")
+    End Function
+
+
+    Shared Function insertFTPLOG(filePath, user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem)
+        Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ftp_BezugsNr & "','" & ftp_art & "','" & ftp_status & "','" & ftp_vorsystem & "')", "FMZOLL")
+    End Function
+
+
+End Class
+

initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb

@@ -1,4 +1,4 @@
-Public Class cVERAG_Interface
+Public Class cVERAG_out_ncts
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
 
@@ -34,7 +34,7 @@
     '                    frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
     '                    If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
     '                Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
-    '                    frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
+    '                    frmStartOptions.copyFile(filePath, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
     '                    If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
     '            End Select
     '        End If
@@ -101,12 +101,16 @@
 
                 For Each o In IF_Obj
                     Select Case o.CooName
-                        Case "EKOL"
+                        'Case "EKOL", "TOBB"
-                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_1(NCTS_TMP, DY_TMP, UniqueId)
+                        '    'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_1(NCTS_TMP, DY_TMP, UniqueId)
-                            copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                        '    'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                        '    Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
+                        '    copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
                         Case Else
-                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
+                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
-                            copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                            copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                            'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
+                            'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
                     End Select
                 Next
             End If
@@ -150,7 +154,7 @@
             '    Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
             '        NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath)
             '        If filePath = "" Then Return False
-            '        frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
+            '        frmStartOptions.copyFile(filePath, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
             '        If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
             'End Select
 
@@ -210,12 +214,16 @@
             If getFTP_Paths(GRN, IF_Obj) Then
                 For Each o In IF_Obj
                     Select Case o.CooName
-                        Case "EKOL"
+                        'Case "EKOL", "TOBB"
-                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_1(NCTS_TMP, UniqueId)
+                        '    'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_1(NCTS_TMP, UniqueId)
-                            copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                        '    'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                        '    Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP, UniqueId)
+                        '    copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
                         Case Else
-                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, UniqueId)
+                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP, UniqueId)
-                            copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                            copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                            'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, UniqueId)
+                            'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
                     End Select
                 Next
             End If
@@ -240,7 +248,7 @@
             '    Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
             '        NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath)
             '        If filePath = "" Then Return False
-            '        frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
+            '        frmStartOptions.copyFile(filePath, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
             '        If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP")
             'End Select
 
@@ -290,6 +298,24 @@
     End Sub
 
 
+    Shared Sub copyNCTSToFTP_V2_0_2(ByRef NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False)
+        If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
+            If genXMLFile_V2_0_2(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
+                frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
+                If IO.File.Exists(destFile) Then
+                    insertFTPLOG(destFile, IF_Obj.CooName, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem)
+                    found = True
+                Else
+                    Try
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, NCTS_VERAG_OUT.ProcessData.ReferenzNumber)
+                    Catch
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP")
+                    End Try
+                End If
+            End If
+        End If
+
+    End Sub
 
     Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean
         cVERAG_Interface_Settings = ISett
@@ -338,12 +364,16 @@
             If getFTP_Paths(GRN, IF_Obj) Then
                 For Each o In IF_Obj
                     Select Case o.CooName
-                        Case "EKOL"
+                        'Case "EKOL", "TOBB"
-                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_1(AnmId, UniqueId)
+                        '    'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_1(AnmId, UniqueId)
-                            copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                        '    'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                        '    Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmId, UniqueId)
+                        '    copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
                         Case Else
-                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId)
+                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmId, UniqueId)
-                            copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                            copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                            'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId)
+                            'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
                     End Select
                 Next
             End If
@@ -377,9 +407,9 @@
                 Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
                     If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON"))
                 Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
-                    If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG"))
+                    If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG"))
                 Case "16AT520000G000VA6" 'IMEX
-                    If cVERAG_Interface_Settings.acticeInterface_IMEX Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\IMEX\", "IMEX"))
+                    If cVERAG_Interface_Settings.acticeInterface_IMEX Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\IMEX\", "IMEX"))
                 Case Else
             End Select
 
@@ -435,7 +465,7 @@
     Shared Function alreadyProvidedInInterface(ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String, ftp_CooName As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
         If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben
         Try
-            'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','')", "FMZOLL")
+            'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath, ftp_user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','')", "FMZOLL")
             If SQL.getValueTxtBySql("SELECT count(*)  FROM  [tblFTP_Log]  where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "'   ", "FMZOLL",,, 0) = 0 Then
                 Return False
             End If
@@ -448,7 +478,7 @@
     Shared Function genXMLFile(VERAG_NCTS As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String
         Try
             If XMLFilePath = "" Then
-                Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
+                Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
                 If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
                 XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
             End If
@@ -465,7 +495,7 @@
     Shared Function genXMLFile_V2_0_1(VERAG_NCTS As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String
         Try
             If XMLFilePath = "" Then
-                Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
+                Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
                 If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
                 XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
             End If
@@ -479,6 +509,23 @@
         Return XMLFilePath
     End Function
 
+    Shared Function genXMLFile_V2_0_2(VERAG_NCTS As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String
+        Try
+            If XMLFilePath = "" Then
+                Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
+                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
+            End If
+            If VERAG_NCTS IsNot Nothing Then
+                VERAG_NCTS.SaveToFile(XMLFilePath)
+                removeTypeFromXML(XMLFilePath) ' Type-Attribute entfernen
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return XMLFilePath
+
+    End Function
     Shared Function removeTypeFromXML(XMLFilePath) As String
         Try
             Dim fileContents = IO.File.ReadAllText(XMLFilePath)
@@ -617,7 +664,7 @@
 
             End If
             'If XMLFilePath = "" Then
-            '    Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
+            '    Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
             '    If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
             '    XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
             'End If
@@ -772,7 +819,167 @@
 
             End If
             'If XMLFilePath = "" Then
-            '    Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
+            '    Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
+            '    If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+            '    XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
+            'End If
+
+            UniqueId = DY_TMP.dy_Id
+            'VERAG_NCTS.SaveToFile(XMLFilePath)
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return Nothing
+        End Try
+        Return VERAG_NCTS
+
+    End Function
+
+
+    Shared Function genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
+        Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
+        Try
+            If DY_TMP Is Nothing Then Return Nothing
+            If NCTS_TMP Is Nothing Then Return Nothing
+            If NCTS_TMP.ncts_ObjectName Is Nothing Then Return Nothing
+            NCTS_TMP.LOAD_Warenposition()
+
+            VERAG_NCTS.Version = "2.0.2" ' Automaitsch, weil default ' doch nicht?
+
+            If NCTS_TMP.ncts_firma <> "" Then
+                VERAG_NCTS.Company = NCTS_TMP.ncts_firma
+            Else
+                VERAG_NCTS.Company = "VERAG"
+            End If
+            VERAG_NCTS.Department = NCTS_TMP.ncts_niederlassung
+
+            'VERAG_NCTS.InternalReference.OfficeCode = If(
+            'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
+
+            Select Case DY_TMP.dy_Status
+                Case < 50
+                    VERAG_NCTS.ProcessData.Status = 0
+                Case 50, 53
+                    VERAG_NCTS.ProcessData.Status = 50
+                Case 60
+                    VERAG_NCTS.ProcessData.Status = 60
+            End Select
+
+            VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.ncts_Trans_DatumZeit
+
+            VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.ncts_MRN, "")
+            VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.ncts_ObjectName, "")
+            VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.ncts_ArtAnmeldung, "")
+
+            If IsDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, "")) Then VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, ""))
+            VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
+            VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_AbgangsDienststellennummer, "")
+            VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_BestimmungsstelleDienststellennummer, "")
+            VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "")
+            VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "")
+
+            'Versender
+            VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Versender_Name, "")
+            VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Versender_EORI, "")
+            VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
+            'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "")
+            VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "")
+            VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Versender_PLZ, "")
+            VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Versender_StrasseHausnummer, "")
+            VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Versender_Ort, "")
+
+            'Empfänger
+            VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ncts_Empfaenger_Name, "")
+            VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Empfaenger_EORI, "")
+            VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+            'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.vers, "")
+            VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "")
+            VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Empfaenger_PLZ, "")
+            VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Empfaenger_StrasseHausnummer, "")
+            VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "")
+
+            'Frächter
+            If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
+                Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
+                Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
+                VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
+                VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
+                VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
+                VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
+                VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
+
+            Else
+                VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_SumA_Befoerderer_Name, "")
+                VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "")
+                VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_SumA_Befoerderer_NLNR, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "")
+            End If
+
+            If GLO_AVISO IsNot Nothing Then
+                If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
+            End If
+
+
+            If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
+                VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN, "")
+                VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_AbgabenBetrag, "0")
+            End If
+
+            VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.ncts_GesamtRohmasse, "0")
+            Dim cntPos = 1
+            If NCTS_TMP.ncts_WARENPOS IsNot Nothing Then
+                For Each POS In NCTS_TMP.ncts_WARENPOS
+                    Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsNCTS_DataPosition
+                    V_POS.PosNr = cntPos
+                    Dim pkGes = 0
+                    Dim pkArt = ""
+                    If POS.nctsWP_PACKSTUECKE IsNot Nothing Then
+                        For Each PK In POS.nctsWP_PACKSTUECKE
+                            If PK.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then pkGes += PK.nctsWpPk_PackstueckeAnzahl
+                            If PK.nctsWpPk_Verpackungsart IsNot Nothing Then pkArt = PK.nctsWpPk_Verpackungsart
+                        Next
+                    End If
+                    V_POS.Quantity = pkGes
+                    V_POS.Packaging = pkArt
+                    V_POS.GrossWeight = POS.nctsWP_Rohmasse
+                    V_POS.GoodsDescription = POS.nctsWP_Warenbezeichnung
+
+                    VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
+                    cntPos += 1
+                Next
+            End If
+
+            If False Then
+                Try
+                    If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
+                        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
+                        Dim Path = DS.GET_TOP1_PATH()
+                        If Path <> "" And IO.File.Exists(Path) Then
+                            Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsAttachment
+                            ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsAttachmentDocumentType.NCTS
+                            ATT.FileType = "PDF"
+                            ATT.Name = "NCTS_VBD_" & If(VERAG_NCTS.ProcessData.ProcedureCode, "") & ".pdf"
+                            Convert.ToBase64String(System.IO.File.ReadAllBytes(Path))
+                            'ATT.base64BinaryStream = Convert.ToBase64CharArray(System.IO.File.ReadAllBytes(Path))
+                            ATT.base64BinaryStream = System.Text.Encoding.UTF8.GetBytes(System.Convert.ToBase64String(System.IO.File.ReadAllBytes(Path)))
+                            VERAG_NCTS.Attachments.Add(ATT)
+                        End If
+                    End If
+                Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End Try
+
+            End If
+            'If XMLFilePath = "" Then
+            '    Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
             '    If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
             '    XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
             'End If
@@ -889,21 +1096,21 @@
 
 
             VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
-                VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
+            VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
 
-                'BestimmungsstelleDienststelle
+            'BestimmungsstelleDienststelle
-                Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref  FROM zsAnmDestCo  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+            Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref  FROM zsAnmDestCo  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
-                If DTzsAnmDestCo.Rows().Count > 0 Then
+            If DTzsAnmDestCo.Rows().Count > 0 Then
-                    If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
+                If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
-                End If
+            End If
 
-                ' Kennzeichen
+            ' Kennzeichen
-                Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt  FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+            Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt  FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
-                If DTzsAnmTransp.Rows().Count > 0 Then
+            If DTzsAnmTransp.Rows().Count > 0 Then
-                    If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
+                If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
-                        VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
+                    VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
-                    End If
                 End If
+            End If
 
             'Versender
             Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra]  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
@@ -925,15 +1132,15 @@
 
             'Empfänger
             Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
-                If DTzsAnmConeeTra.Rows().Count > 0 Then
+            If DTzsAnmConeeTra.Rows().Count > 0 Then
                 If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
                 If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
-                    If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
-                    If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
-                    If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
-                        VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
+                    VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
-                        VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
+                    VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
-                    End If
+                End If
                 If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
                 'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
                 'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
@@ -942,20 +1149,20 @@
 
             'Frächter
             Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra]  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
-                If DTzsAnmCarrier.Rows().Count > 0 Then
+            If DTzsAnmCarrier.Rows().Count > 0 Then
-                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
+                If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
-                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
+                If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
-                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
+                If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
-                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
+                If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
-                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
+                If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
-                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
+                If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
-                    'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
-                    'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
-                End If
+            End If
 
 
-                ' Tabelle zsAnmGrteeGrteeRef lesen.
+            ' Tabelle zsAnmGrteeGrteeRef lesen.
-                Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
+            Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
                     " FROM zsAnmGrteeGrteeRef" &
                     " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
                     " ORDER BY GrteeID, GrteeRefID", "EZOLL")
@@ -1224,6 +1431,228 @@
 
     End Function
 
+
+    Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
+        Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
+        Dim LRN = ""
+        Try
+
+            VERAG_NCTS.Version = "2.0.2" ' Automaitsch, weil default ' doch nicht?
+
+            Dim Bestimmungszollstelle = ""
+            Dim Bürgschaft = ""
+
+            Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
+                    " FROM zsAnmRefs" &
+                    " WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
+                    " ORDER BY GeaendertAm DESC", "EZOLL")
+
+            If dEZOLL Is Nothing Then Return Nothing
+            If dEZOLL.Rows.Count = 0 Then Return Nothing
+
+            'TextBox2.ForeColor = Color.Green
+            Dim r As DataRow = dEZOLL.Rows(0)
+
+            LRN = r.Item("LRN")
+
+            If Not SQL.IsNull(r.Item("OperatorID")) Then
+                Select Case r.Item("OperatorID")
+                    Case "1"
+                        VERAG_NCTS.Company = "VERAG"
+                        VERAG_NCTS.Department = "SUB"
+                    Case "2"
+                        VERAG_NCTS.Company = "VERAG"
+                        VERAG_NCTS.Department = "SBG"
+
+                    Case "3"
+                        VERAG_NCTS.Company = "VERAG"
+                        VERAG_NCTS.Department = "NKD"
+                    Case "4", "5"
+                        VERAG_NCTS.Company = "ATILLA"
+                        VERAG_NCTS.Department = "SUB"
+                    Case "6"
+                        If LRN.StartsWith("4801") Then
+                            VERAG_NCTS.Company = "ATILLA"
+                        Else
+                            VERAG_NCTS.Company = "VERAG"
+                        End If
+                        VERAG_NCTS.Department = "SUB"
+                    Case "8"
+                        VERAG_NCTS.Company = "DURMAZ"
+                        VERAG_NCTS.Department = "SBG"
+                        Return Nothing
+                    Case Else
+                        VERAG_NCTS.Company = "ATILLA"
+                        VERAG_NCTS.Department = "SUB"
+
+                End Select
+            End If
+
+
+            If r.Item("GeaendertAm") IsNot DBNull.Value AndAlso IsDate(r.Item("GeaendertAm")) Then
+                VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
+            Else
+                VERAG_NCTS.ProcessData.TransactionDate = Now.ToShortDateString
+            End If
+
+            VERAG_NCTS.ProcessData.MRN = If(r.Item("CRN") IsNot DBNull.Value, r.Item("CRN"), "")
+            VERAG_NCTS.ProcessData.ReferenzNumber = LRN
+
+            Select Case (SQL.getValueTxtBySql("SELECT isnull(ErledigungsTypID,'') FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
+                Case "F"
+                    VERAG_NCTS.ProcessData.Status = 50
+                Case "FB"
+                    VERAG_NCTS.ProcessData.Status = 60
+                Case Else
+                    VERAG_NCTS.ProcessData.Status = 0
+            End Select
+
+            Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE  (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+            If DTzsAnmHea.Rows().Count > 0 Then
+                Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
+                VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
+                VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
+                VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
+            End If
+
+
+
+            VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
+            VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
+
+            'BestimmungsstelleDienststelle
+            Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref  FROM zsAnmDestCo  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+            If DTzsAnmDestCo.Rows().Count > 0 Then
+                If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
+            End If
+
+            ' Kennzeichen
+            Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt  FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+            If DTzsAnmTransp.Rows().Count > 0 Then
+                If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
+                    VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
+                End If
+            End If
+
+            'Versender
+            Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra]  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+            If DTzsAnmSender.Rows().Count > 0 Then
+                'VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
+                If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmSender.Rows(0).Item("Na")
+                If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
+                If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
+                If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
+                If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
+                    VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
+                    VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
+                End If
+                If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
+                'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+                'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+            End If
+
+
+            'Empfänger
+            Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+            If DTzsAnmConeeTra.Rows().Count > 0 Then
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
+                    VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
+                    VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
+                End If
+                If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
+                'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+                'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+            End If
+
+
+            'Frächter
+            If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
+                Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
+                Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
+                VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
+                VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
+                VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
+                VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
+                VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
+            Else
+                Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra]  WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
+                If DTzsAnmCarrier.Rows().Count > 0 Then
+                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
+                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
+                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
+                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
+                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
+                    If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
+                    'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+                    'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
+                End If
+            End If
+
+            If GLO_AVISO IsNot Nothing Then
+                If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
+            End If
+
+            ' Tabelle zsAnmGrteeGrteeRef lesen.
+            Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
+                    " FROM zsAnmGrteeGrteeRef" &
+                    " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
+                    " ORDER BY GrteeID, GrteeRefID", "EZOLL")
+
+            If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
+                VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
+                For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
+                    If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
+                    If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
+                Next
+            End If
+
+            'POSITIONEN
+            Dim cntPos = 1
+            Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")  ORDER BY GdsItemID", "EZOLL")
+            If DTzsAnmGdsitem.Rows().Count > 0 Then
+                For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
+                    Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsNCTS_DataPosition
+                    V_POS.PosNr = cntPos
+                    Dim pkGes = 0
+                    Dim pkArt = ""
+
+                    Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")  AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
+                    If DTzsAnmGdsitemPk.Rows().Count > 0 Then
+                        For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
+                            If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
+                            If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
+                        Next
+                    End If
+
+                    V_POS.Quantity = pkGes
+                    V_POS.Packaging = pkArt
+                    If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
+
+                    V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
+
+                    VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
+                    cntPos += 1
+                Next
+            End If
+
+
+            UniqueId = AnmID
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return Nothing
+        End Try
+        Return VERAG_NCTS
+
+    End Function
+
     Shared Function getGRTY_fromEZOLL(LRN As String) As String
         Try
             Return SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmRefs inner join zsAnmGrteeGrteeRef on zsAnmGrteeGrteeRef.AnmID=zsAnmRefs.AnmID WHERE (zsAnmRefs.VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
@@ -1356,7 +1785,7 @@
             UniqueId = NCTS_TMP.telanm_id
 
             'If XMLFilePath = "" Then
-            '    Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
+            '    Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
             '    If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
             '    XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
             'End If
@@ -1372,6 +1801,148 @@
 
     End Function
 
+
+    Shared Function genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
+        Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
+        Try
+            If NCTS_TMP Is Nothing Then Return Nothing
+            If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
+            If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing
+            If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing
+
+            VERAG_NCTS.Version = "2.0.2" ' Automaitsch, weil default ' doch nicht?
+
+            If NCTS_TMP.telanm_firma <> "" Then
+                VERAG_NCTS.Company = NCTS_TMP.telanm_firma
+            Else
+                VERAG_NCTS.Company = "IMEX"
+            End If
+            VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung
+
+
+            'VERAG_NCTS.InternalReference.OfficeCode = If(
+            'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
+            Select Case NCTS_TMP.telanm_Status
+                Case < 50
+                    VERAG_NCTS.ProcessData.Status = 0
+                Case 50, 53
+                    VERAG_NCTS.ProcessData.Status = 50
+                Case 60
+                    VERAG_NCTS.ProcessData.Status = 60
+            End Select
+
+            VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate
+
+            VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "")
+            VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "")
+            VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "")
+
+            If NCTS_TMP.CtrlRslt_DLimit IsNot Nothing AndAlso NCTS_TMP.CtrlRslt_DLimit.ToString <> "" Then
+                VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(NCTS_TMP.CtrlRslt_DLimit)
+            End If
+            VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "")
+            VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "")
+            VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "")
+            VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp
+            VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "")
+
+            'Versender
+            VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "")
+            VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "")
+            'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
+            VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
+            VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
+            VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
+            VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
+            VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
+
+            'Empfänger
+            VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "")
+            VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "")
+            'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
+            VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "")
+            VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "")
+            VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "")
+            VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
+            VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
+
+            ''Frächter
+            If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
+                Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
+                Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
+                VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
+                VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
+                VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
+                VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
+                VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
+                VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
+            Else
+
+                'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "")
+                ''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
+                'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
+            End If
+
+            If GLO_AVISO IsNot Nothing Then
+                If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
+            End If
+
+            If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
+                VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
+                VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")
+            End If
+
+            VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0")
+            Dim cntPos = 1
+            If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then
+                For Each POS In NCTS_TMP.POSITIONSDATEN
+                    Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsNCTS_DataPosition
+                    V_POS.PosNr = cntPos
+                    Dim pkGes = 0
+                    Dim pkArt = ""
+                    If POS.PACKSTUECKE IsNot Nothing Then
+                        For Each PK In POS.PACKSTUECKE
+                            If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt
+                            If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt
+                            If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind
+                        Next
+                    End If
+                    V_POS.Quantity = pkGes
+                    V_POS.Packaging = pkArt
+                    V_POS.GrossWeight = POS.Item_Gross
+                    V_POS.GoodsDescription = POS.Item_GdsDes
+
+                    VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
+                    cntPos += 1
+                Next
+            End If
+            UniqueId = NCTS_TMP.telanm_id
+
+            'If XMLFilePath = "" Then
+            '    Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
+            '    If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+            '    XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
+            'End If
+
+
+            'VERAG_NCTS.SaveToFile(XMLFilePath)
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return Nothing
+        End Try
+        Return VERAG_NCTS
+
+
+    End Function
     Shared Function genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
         Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
         Try
@@ -1478,7 +2049,7 @@
             UniqueId = NCTS_TMP.telanm_id
 
             'If XMLFilePath = "" Then
-            '    Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
+            '    Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
             '    If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
             '    XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
             'End If
@@ -1507,27 +2078,3 @@
 
 End Class
 
-
-Public Class cVERAG_InterfaceSharedObjects
-
-    Property FTP_Path As String = ""
-    Property CooName As String = ""
-
-    Sub New(FTP_Path, CooName)
-        Me.FTP_Path = FTP_Path
-        Me.CooName = CooName
-    End Sub
-
-End Class
-
-
-Public Class cVERAG_Interface_Settings
-
-    Property acticeInterface_OREGON As Boolean = True
-    Property acticeInterface_TOBB As Boolean = True
-    Property acticeInterface_EKOL As Boolean = True
-    Property acticeInterface_TEST As Boolean = True
-    Property acticeInterface_VERAG As Boolean = True
-    Property acticeInterface_IMEX As Boolean = True
-
-End Class

initATLASAufschubkonten/cMAVIWorker.vb

@@ -0,0 +1,277 @@
+Imports System.Globalization
+Imports System.IO
+Imports System.Xml
+
+Public Class cMAVIWorker
+    Public Shared Dateiname = ""
+
+    Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+
+    Public Shared Function readNCTS_VersandanmeldungXML_CC015B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+        Try
+            readNCTS_VersandanmeldungXML_CC015B = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC015B") Then
+                '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
+                '  MsgBox(xmlCC015B)
+                '  Dim p = Path.GetTempFileName
+
+                Dim LRN = ""
+                If doc.GetElementsByTagName("RefNumHEA4").Count > 0 Then
+                    LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText
+                End If
+
+                readNCTS_VersandanmeldungXML_CC015B = LRN
+
+
+                'Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
+                '    outputFile.Write(xmlCC015B)
+                '    outputFile.Close()
+
+
+                Dim AnsprechpTMP_Email = ""
+                    Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True)
+                    If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
+                    NCTS.ncts_ObjectName = LRN
+
+                    NCTS.ncts_Partnersystem = "MAVI"
+
+
+                    If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
+                        Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben
+                        BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText
+                        Dim Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText
+                        If IsNumeric(Betrag) Then
+                            BRG.nctsSA_AbgabenBetrag = CDbl(Betrag)
+                        End If
+
+                        NCTS.ncts_SICHERHEITSANGABEN = New List(Of cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben)
+                        NCTS.ncts_SICHERHEITSANGABEN.Add(BRG)
+                    End If
+
+
+                    If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
+                    ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
+                    NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+                    If NCTS.SAVE_ALL() Then
+                        '    If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
+                    Else
+                        readNCTS_VersandanmeldungXML_CC015B = ""
+                    End If
+
+
+
+                'Try
+                '    System.IO.File.Delete(p)
+                'Catch ex As Exception
+                '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                'End Try
+
+                FORM.addDGVEinarbeitung("NCTS: Versandanmeldung", readNCTS_VersandanmeldungXML_CC015B)
+
+                '    End Using
+
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            readNCTS_VersandanmeldungXML_CC015B = ""
+        End Try
+    End Function
+
+
+
+
+    Public Shared Function readNCTS_BestaetigungZollXML_CC029B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+        Try
+            readNCTS_BestaetigungZollXML_CC029B = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC029B>") Then
+                Dim xmlCC029B = XmlString.Substring(XmlString.IndexOf("<CC029B>"), XmlString.IndexOf("</CC029B>") + 9 - XmlString.IndexOf("<CC029B>"))
+                '  MsgBox(xmlCC029B)
+                Dim p = Path.GetTempFileName
+
+                Dim LRN = ""
+                If doc.GetElementsByTagName("RefNumHEA4").Count > 0 Then
+                    LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText
+                End If
+
+                readNCTS_BestaetigungZollXML_CC029B = LRN
+
+
+                Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
+                    outputFile.Write(xmlCC029B)
+                    outputFile.Close()
+
+
+                    Dim AnsprechpTMP_Email = ""
+                    Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True)
+                    If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
+                    NCTS.ncts_ObjectName = LRN
+
+                    NCTS.ncts_Partnersystem = "MAVI"
+
+
+                    'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
+                    '    Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben
+                    '    BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText
+                    '    Dim Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText
+                    '    If IsNumeric(Betrag) Then
+                    '        BRG.nctsSA_AbgabenBetrag = CDbl(Betrag)
+                    '    End If
+
+                    '    NCTS.ncts_SICHERHEITSANGABEN = New List(Of cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben)
+                    '    NCTS.ncts_SICHERHEITSANGABEN.Add(BRG)
+                    'End If
+
+
+                    If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_50
+                    ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
+                    NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+                    If NCTS.SAVE_ALL() Then
+                        '    If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
+                    Else
+                        readNCTS_BestaetigungZollXML_CC029B = ""
+                    End If
+
+
+
+                    Try
+                        System.IO.File.Delete(p)
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+
+                    FORM.addDGVEinarbeitung("NCTS: BestätigungZoll", readNCTS_BestaetigungZollXML_CC029B)
+
+                End Using
+
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            readNCTS_BestaetigungZollXML_CC029B = ""
+        End Try
+    End Function
+
+
+    Shared Function getDatumXMLNothing(dateTmp) As Object
+        If dateTmp IsNot Nothing AndAlso dateTmp.ToString.Trim <> "" AndAlso IsDate(dateTmp) Then
+            Dim datum As Date = CDate(dateTmp).ToShortDateString()
+            If datum > CDate("01.01.2000") Then
+                Return datum
+            End If
+        End If
+        Return Nothing
+    End Function
+
+
+    Shared Function cutLength(s, length)
+        If s.length > 35 Then s = s.Substring(0, length)
+        Return s
+    End Function
+
+
+
+    'Shared Function saveDY_NCTS(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyNCTSOut
+    '    'EINTRAG IN tblDakosyNCTSOut
+    '    Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    '    NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(STATUS.dySt_BezugsNr.ToString, False)
+    '    If NCTS_TMP Is Nothing Then
+    '        NCTS_TMP = New DAKOSY_Worker.cDakosyNCTSOut
+    '        NCTS_TMP.ncts_ObjectName = STATUS.dySt_BezugsNr
+    '        If NCTS_TMP IsNot Nothing Then NCTS_TMP.ncts_dyaAnmID = DY_TMP.dy_Id
+
+    '        If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, transDate) Then
+    '            NCTS_TMP.ncts_Status = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
+    '            NCTS_TMP.ncts_Status_KEWILL_Equivalent = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
+    '        End If
+    '        'NCTS_TMP.ncts_Status_KEWILL_Equivalent = STATUS.dySt_status
+    '        If ANR <> "" Or MRN <> "" Then
+    '            If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR
+    '            If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN
+    '        End If
+    '        NCTS_TMP.SAVE()
+    '        'Eintragen
+    '    Else
+    '        'Update     
+    '        NCTS_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
+    '        If ANR <> "" Or MRN <> "" Then
+    '            If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR : NCTS_TMP.SAVE()
+    '            If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN : NCTS_TMP.SAVE()
+    '        End If
+    '    End If
+    '    saveDY_NCTS = NCTS_TMP
+    'End Function
+
+    'Shared Sub SaveNCTS_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String)
+
+    '    If division <> "" Then
+    '        If (NCTS_TMP.ncts_firma Is Nothing OrElse NCTS_TMP.ncts_firma = "") Or (NCTS_TMP.ncts_niederlassung Is Nothing OrElse NCTS_TMP.ncts_niederlassung = "") Then
+    '            Select Case division
+    '                Case "SUW"
+    '                    NCTS_TMP.ncts_firma = "ATILLA"
+    '                    NCTS_TMP.ncts_niederlassung = "SUB"
+    '                Case "SUB"
+    '                    NCTS_TMP.ncts_firma = "VERAG"
+    '                    NCTS_TMP.ncts_niederlassung = "SUB"
+    '                Case "DUR"
+    '                    NCTS_TMP.ncts_firma = "ATILLA"
+    '                    NCTS_TMP.ncts_niederlassung = "SBG"
+    '                Case "NKD"
+    '                    NCTS_TMP.ncts_firma = "VERAG"
+    '                    NCTS_TMP.ncts_niederlassung = "NKD"
+    '                Case "WAI"
+    '                    NCTS_TMP.ncts_firma = "VERAG"
+    '                    NCTS_TMP.ncts_niederlassung = "WAI"
+    '                Case "SBG"
+    '                    NCTS_TMP.ncts_firma = "VERAG"
+    '                    NCTS_TMP.ncts_niederlassung = "SBG"
+    '                Case "IME"
+    '                    NCTS_TMP.ncts_firma = "IMEX"
+    '                    NCTS_TMP.ncts_niederlassung = "SUB"
+    '                Case "GLO"
+    '                    NCTS_TMP.ncts_firma = "IMEX"
+    '                    NCTS_TMP.ncts_niederlassung = "GLO"
+    '                Case "AMB"
+    '                    NCTS_TMP.ncts_firma = "AMBAR"
+    '                    NCTS_TMP.ncts_niederlassung = "AMBAR"
+    '                Case "NEU"
+    '                    NCTS_TMP.ncts_firma = "VERAG"
+    '                    NCTS_TMP.ncts_niederlassung = "NEU"
+    '                Case "ATSP", "ATSPED"
+    '                    NCTS_TMP.ncts_firma = "UNISPED"
+    '                    NCTS_TMP.ncts_niederlassung = "ATSP"
+    '            End Select
+    '            NCTS_TMP.SAVE()
+    '        End If
+
+    '    End If
+    '    If DY_TMP.dy_AvisoId Is Nothing Then
+    '        DY_TMP.tryFindAviso()
+    '        DY_TMP.SAVE()
+    '    End If
+    'End Sub
+
+
+    Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object)
+
+        If WGDAT IsNot Nothing AndAlso IsDate(WGDAT) Then
+            NCTS_TMP.ncts_Wiedergestellungsdatum = CDate(WGDAT)
+            NCTS_TMP.SAVE()
+        End If
+    End Sub
+
+
+
+End Class

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -41,6 +41,7 @@ Public Class cWorker_NCTS
                     Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = frmDYNachrichtenVerarbeitung.saveDY_ZA(readNCTS_VersandanmeldungXML, "NCTS")
 
                     Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(readNCTS_VersandanmeldungXML, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
+
                     If NCTS Is Nothing Then NCTS = New DAKOSY_Worker.cDakosyNCTSOut
                     If DY_TMP IsNot Nothing Then NCTS.ncts_dyaAnmID = DY_TMP.dy_Id
 
@@ -296,6 +297,8 @@ Public Class cWorker_NCTS
 
                         'POSITIONEN
                         If DETUDC.Body IsNot Nothing AndAlso DETUDC.Body.GoodsItem IsNot Nothing AndAlso DETUDC.Body.GoodsItem.Count > 0 Then
+                            NCTS.ncts_WARENPOS.Clear()
+
                             For Each GOODSITEM In DETUDC.Body.GoodsItem
                                 Dim WP As New DAKOSY_Worker.cDakosy_NCTSOut_Warenposition
 
@@ -338,6 +341,7 @@ Public Class cWorker_NCTS
                                     Next
                                 End If
 
+
                                 NCTS.ncts_WARENPOS.Add(WP)
                             Next
                         End If
@@ -377,8 +381,12 @@ Public Class cWorker_NCTS
                         End If
                     End If
 
+
+                    frmDYNachrichtenVerarbeitung.tryGetNCTSBasicData(NCTS) 'Versuchen Daten aus der Vorerfassung zu laden - ansonsten werden diese überschrieben!
+
                     frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS.ncts_firma, NCTS.ncts_niederlassung, If(AnsprechpTMP_Email, "").ToString, readNCTS_VersandanmeldungXML)
 
+
                     If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
                     ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
                     NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
@@ -1500,7 +1508,7 @@ Public Class cWorker_NCTS
 
 
                 ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
-                cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
+                cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
 
 
                 NCTS_TMP.insertIntoSpedBuch(DY_TMP)
@@ -1711,7 +1719,7 @@ Public Class cWorker_NCTS
                 STATUS.SAVE()
 
                 ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
-                cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
+                cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
 
                 FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung", STATUS.dySt_BezugsNr)
             End If
@@ -1781,7 +1789,7 @@ Public Class cWorker_NCTS
                 If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                 STATUS.SAVE()
                 statusTMP = STATUS
-                cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
+                cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
                 ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
 
                 NCTS_TMP.insertIntoSpedBuch(DY_TMP)
@@ -1856,7 +1864,7 @@ Public Class cWorker_NCTS
                 If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                 STATUS.SAVE()
                 statusTMP = STATUS
-                cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
+                cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
                 ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
 
                 NCTS_TMP.insertIntoSpedBuch(DY_TMP)

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -38,11 +38,11 @@ Public Class frmDYNachrichtenVerarbeitung
     Sub initPfade()
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
         Me.VERARBEITUNGS_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
         Me.ZIEL_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
         Me.ERROR_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
         If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
         If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
         If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
@@ -100,7 +100,7 @@ Public Class frmDYNachrichtenVerarbeitung
             Dim DY_port = ""
             Dim DY_PFAD_out = ""
 
-            DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out, "")
+            DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out, "", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
 
 
             Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
@@ -208,8 +208,8 @@ Public Class frmDYNachrichtenVerarbeitung
                     ' If fi.Extension = ".edi" Then
                     Dim alreadyMoved = False
                     If fi.Extension = ".nlc" Then ' Or fi.Name.StartsWith("ZA") Then
-                        If Not IO.Directory.Exists("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\") Then IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\")
+                        If Not IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") Then IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
-                        frmStartOptions.moveFile(d, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\")
+                        frmStartOptions.moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
                         alreadyMoved = True
                         addDGVEinarbeitung("** NLC-Datei **", fi.Name)
                     ElseIf fi.Extension = ".edi" Then ' Or fi.Name.StartsWith("ZA") Then
@@ -3655,6 +3655,23 @@ Public Class frmDYNachrichtenVerarbeitung
         Return ""
     End Function
 
+    Public Shared Sub tryGetNCTSBasicData(ByRef NCTS_new As DAKOSY_Worker.cDakosyNCTSOut)
+        Try
+            Dim WP_LIST_old As List(Of DAKOSY_Worker.cDakosy_NCTSOut_Warenposition) = DAKOSY_Worker.cDakosyNCTSOut.get_Warenposition(NCTS_new.ncts_Id)
+            If WP_LIST_old IsNot Nothing And NCTS_new IsNot Nothing Then
+                If WP_LIST_old IsNot Nothing And NCTS_new.ncts_WARENPOS IsNot Nothing Then
+                    For Each POS In NCTS_new.ncts_WARENPOS
+                        If WP_LIST_old.Count > NCTS_new.ncts_WARENPOS.IndexOf(POS) Then
+                            ' MsgBox(POS.nctsWP_KdRefNr & " --- " & WP_LIST_old(NCTS_new.ncts_WARENPOS.IndexOf(POS)).nctsWP_KdRefNr)
+                            POS.nctsWP_KdRefNr = WP_LIST_old(NCTS_new.ncts_WARENPOS.IndexOf(POS)).nctsWP_KdRefNr
+                        End If
+                    Next
+                End If
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
 
 
 
@@ -4339,7 +4356,7 @@ Public Class frmDYNachrichtenVerarbeitung
             Dim erledigung = ""
             Dim zp As Object = Nothing
             Dim EDIFACTNachrichtenNr = ""
-
+            Dim AUFSCHUB As List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) = Nothing
             Dim division = ""
 
             readEZA_Abgabenbescheid008 = ""
@@ -4377,6 +4394,28 @@ Public Class frmDYNachrichtenVerarbeitung
                         ' If EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum IsNot Nothing Then
                         regDat = EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum
                         'End If
+                        If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then
+                            Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub
+                            AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub)
+                            For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt
+                                a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag
+                                a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN
+                                a.ezaAfb_HZA = ABG.KennBuchstabenAufschub
+                                a.ezaAfb_KontoNr = ABG.AufschubkontoNr
+                                If ABG.Faelligkeit > CDate("01.01.2000") Then a.ezaAfb_Faelligkeit = ABG.Faelligkeit
+                                a.ezaAfb_Zahlungsart = ABG.Zahlungsart
+                                a.ezaAfb_Abgabenbetrag = ABG.Abgabenbetrag
+                                a.ezaAfb_AbgabeArt = ABG.AbgabeArt
+                                a.AufschubnehmerName = ABG.AufschubnehmerName
+
+                                'Select Case AbgabeArt
+                                '    Case "B0000" 'EUST
+                                '    Case "B0000" 'EUST
+                                'End Select
+                            Next
+                            AUFSCHUB.Add(a)
+                        End If
+
 
 
 
@@ -4408,6 +4447,9 @@ Public Class frmDYNachrichtenVerarbeitung
 
                         Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
 
+
+
+
                         Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
 
                         If regNr <> "" Then
@@ -4421,6 +4463,19 @@ Public Class frmDYNachrichtenVerarbeitung
                         Dim nl = ""
                         SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl)
 
+
+                        If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then
+                            EZA_TMP.eza_AUFSCHUB.Clear()
+                            For Each a In AUFSCHUB
+                                a.ezaAfb_EZAId = EZA_TMP.eza_Id
+                            Next
+                            EZA_TMP.eza_AUFSCHUB = AUFSCHUB
+                            EZA_TMP.SAVE_Aufschub()
+
+                            cVERAG_out_eza.copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP) ' SCHNITTSTELLE FTP BEREITSTELLEN
+                            'RAISE-API-EVENT/TRIGGER ?? 
+                        End If
+
                         ' ------------------------------------------------------------------------------
                         ' wenn nicht abschliebender Abgabenbescheid --> Infomail an die Zollbüros!
                         Select Case erledigung

initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb

@@ -40,11 +40,11 @@ Public Class frmMDMNachrichtenVerarbeitung
     Sub initPfade()
         Me.TELOTEC_PFAD = MDM_Worker.cMDM_Paramter.GET_PARAM_ByName("PLOSE_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         Me.VERARBEITUNGS_PFAD = MDM_Worker.cMDM_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
         Me.ZIEL_PFAD = MDM_Worker.cMDM_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
         Me.ERROR_PFAD = MDM_Worker.cMDM_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
         If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
         If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
         If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -60,6 +60,13 @@ Partial Class frmStartOptions
         Me.LinkLabel16 = New System.Windows.Forms.LinkLabel()
         Me.PictureBox8 = New System.Windows.Forms.PictureBox()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.cbxISettEZA_VERAG = New System.Windows.Forms.CheckBox()
+        Me.PictureBox15 = New System.Windows.Forms.PictureBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxISett_IMEX = New System.Windows.Forms.CheckBox()
         Me.cbxISett_VERAG = New System.Windows.Forms.CheckBox()
         Me.cbxISett_TEST = New System.Windows.Forms.CheckBox()
@@ -97,6 +104,10 @@ Partial Class frmStartOptions
         Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
         Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
         Me.lblRoutineManager = New System.Windows.Forms.Label()
+        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.LinkLabel29 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
+        Me.Label11 = New System.Windows.Forms.Label()
         Me.pnl.SuspendLayout()
         Me.tbcntr.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -111,11 +122,13 @@ Partial Class frmStartOptions
         CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage2.SuspendLayout()
+        CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage3.SuspendLayout()
         Me.SuspendLayout()
         '
         'pnl
@@ -156,6 +169,7 @@ Partial Class frmStartOptions
         '
         Me.tbcntr.Controls.Add(Me.TabPage1)
         Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Controls.Add(Me.TabPage3)
         Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.tbcntr.Location = New System.Drawing.Point(0, 254)
         Me.tbcntr.Name = "tbcntr"
@@ -567,6 +581,13 @@ Partial Class frmStartOptions
         '
         'TabPage2
         '
+        Me.TabPage2.Controls.Add(Me.cbxISettEZA_VERAG)
+        Me.TabPage2.Controls.Add(Me.PictureBox15)
+        Me.TabPage2.Controls.Add(Me.Label9)
+        Me.TabPage2.Controls.Add(Me.Button2)
+        Me.TabPage2.Controls.Add(Me.Label10)
+        Me.TabPage2.Controls.Add(Me.MyComboBox2)
+        Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr)
         Me.TabPage2.Controls.Add(Me.cbxISett_IMEX)
         Me.TabPage2.Controls.Add(Me.cbxISett_VERAG)
         Me.TabPage2.Controls.Add(Me.cbxISett_TEST)
@@ -589,6 +610,94 @@ Partial Class frmStartOptions
         Me.TabPage2.Text = "VERAG Interface"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
+        'cbxISettEZA_VERAG
+        '
+        Me.cbxISettEZA_VERAG.AutoSize = True
+        Me.cbxISettEZA_VERAG.Checked = True
+        Me.cbxISettEZA_VERAG.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxISettEZA_VERAG.Location = New System.Drawing.Point(297, 257)
+        Me.cbxISettEZA_VERAG.Name = "cbxISettEZA_VERAG"
+        Me.cbxISettEZA_VERAG.Size = New System.Drawing.Size(63, 17)
+        Me.cbxISettEZA_VERAG.TabIndex = 68
+        Me.cbxISettEZA_VERAG.Text = "VERAG"
+        Me.cbxISettEZA_VERAG.UseVisualStyleBackColor = True
+        '
+        'PictureBox15
+        '
+        Me.PictureBox15.BackgroundImage = CType(resources.GetObject("PictureBox15.BackgroundImage"), System.Drawing.Image)
+        Me.PictureBox15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox15.Location = New System.Drawing.Point(562, 233)
+        Me.PictureBox15.Name = "PictureBox15"
+        Me.PictureBox15.Size = New System.Drawing.Size(18, 18)
+        Me.PictureBox15.TabIndex = 67
+        Me.PictureBox15.TabStop = False
+        Me.PictureBox15.Visible = False
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(295, 214)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(176, 13)
+        Me.Label9.TabIndex = 63
+        Me.Label9.Text = "Bereitstellen - Zollysytem/BezugsNr:"
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(484, 213)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(72, 38)
+        Me.Button2.TabIndex = 66
+        Me.Button2.Text = "Daten --> FTP"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(295, 188)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(115, 13)
+        Me.Label10.TabIndex = 62
+        Me.Label10.Text = "VERAG OUT - EZA"
+        '
+        'MyComboBox2
+        '
+        Me.MyComboBox2._allowedValuesFreiText = Nothing
+        Me.MyComboBox2._allowFreiText = False
+        Me.MyComboBox2._value = ""
+        Me.MyComboBox2.FormattingEnabled = True
+        Me.MyComboBox2.Location = New System.Drawing.Point(298, 230)
+        Me.MyComboBox2.Name = "MyComboBox2"
+        Me.MyComboBox2.Size = New System.Drawing.Size(62, 21)
+        Me.MyComboBox2.TabIndex = 64
+        '
+        'txtVRGOutEZA_BezugsNr
+        '
+        Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False
+        Me.txtVRGOutEZA_BezugsNr._numbersOnly = False
+        Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = ""
+        Me.txtVRGOutEZA_BezugsNr._Prozent = False
+        Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False
+        Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False
+        Me.txtVRGOutEZA_BezugsNr._TimeOnly = False
+        Me.txtVRGOutEZA_BezugsNr._value = ""
+        Me.txtVRGOutEZA_BezugsNr._Waehrung = False
+        Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False
+        Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red
+        Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 230)
+        Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1
+        Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = ""
+        Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing
+        Me.txtVRGOutEZA_BezugsNr.Multiline = True
+        Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr"
+        Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(119, 21)
+        Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
+        '
         'cbxISett_IMEX
         '
         Me.cbxISett_IMEX.AutoSize = True
@@ -700,9 +809,9 @@ Partial Class frmStartOptions
         Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label7.Location = New System.Drawing.Point(295, 20)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(79, 13)
+        Me.Label7.Size = New System.Drawing.Size(124, 13)
         Me.Label7.TabIndex = 1
-        Me.Label7.Text = "VERAG OUT"
+        Me.Label7.Text = "VERAG OUT - NCTS"
         '
         'LinkLabel27
         '
@@ -1026,6 +1135,50 @@ Partial Class frmStartOptions
         Me.lblRoutineManager.TabIndex = 1
         Me.lblRoutineManager.Text = "Routine Manager"
         '
+        'TabPage3
+        '
+        Me.TabPage3.Controls.Add(Me.LinkLabel29)
+        Me.TabPage3.Controls.Add(Me.LinkLabel30)
+        Me.TabPage3.Controls.Add(Me.Label11)
+        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage3.Name = "TabPage3"
+        Me.TabPage3.Size = New System.Drawing.Size(780, 395)
+        Me.TabPage3.TabIndex = 2
+        Me.TabPage3.Text = "Partner-Systeme"
+        Me.TabPage3.UseVisualStyleBackColor = True
+        '
+        'LinkLabel29
+        '
+        Me.LinkLabel29.AutoSize = True
+        Me.LinkLabel29.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel29.Location = New System.Drawing.Point(11, 80)
+        Me.LinkLabel29.Name = "LinkLabel29"
+        Me.LinkLabel29.Size = New System.Drawing.Size(180, 13)
+        Me.LinkLabel29.TabIndex = 24
+        Me.LinkLabel29.TabStop = True
+        Me.LinkLabel29.Text = "Eingangsnachrichten abrufen PROD"
+        '
+        'LinkLabel30
+        '
+        Me.LinkLabel30.AutoSize = True
+        Me.LinkLabel30.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel30.Location = New System.Drawing.Point(11, 55)
+        Me.LinkLabel30.Name = "LinkLabel30"
+        Me.LinkLabel30.Size = New System.Drawing.Size(177, 13)
+        Me.LinkLabel30.TabIndex = 23
+        Me.LinkLabel30.TabStop = True
+        Me.LinkLabel30.Text = "Eingangsnachrichten abrufen TEST"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label11.Location = New System.Drawing.Point(11, 28)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(251, 13)
+        Me.Label11.TabIndex = 22
+        Me.Label11.Text = "MAVI Nachrichtenverarbeitung (NCTS TR):"
+        '
         'frmStartOptions
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1056,11 +1209,14 @@ Partial Class frmStartOptions
         CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage2.ResumeLayout(False)
         Me.TabPage2.PerformLayout()
+        CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage3.ResumeLayout(False)
+        Me.TabPage3.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -1138,4 +1294,15 @@ Partial Class frmStartOptions
     Friend WithEvents cbxISett_OREGON As CheckBox
     Friend WithEvents cbxISett_VERAG As CheckBox
     Friend WithEvents cbxISett_IMEX As CheckBox
+    Friend WithEvents cbxISettEZA_VERAG As CheckBox
+    Friend WithEvents PictureBox15 As PictureBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label10 As Label
+    Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtVRGOutEZA_BezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents TabPage3 As TabPage
+    Friend WithEvents LinkLabel29 As LinkLabel
+    Friend WithEvents LinkLabel30 As LinkLabel
+    Friend WithEvents Label11 As Label
 End Class

initATLASAufschubkonten/frmStartOptions.resx

@@ -118,126 +118,6 @@
     <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="PictureBox14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
-</value>
-  </data>
   <data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
@@ -476,6 +356,150 @@
         WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
         nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
         CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="PictureBox14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

initATLASAufschubkonten/frmStartOptions.vb

@@ -45,6 +45,11 @@ Public Class frmStartOptions
         MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
         MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
 
+        MyComboBox2.Items.Clear()
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "DY"))
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
+
         Dim PARAM = ""
         Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
         If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
@@ -209,7 +214,7 @@ Public Class frmStartOptions
                             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", Bezeichnung, cDHF_Anhaenge.AnmID, "", "", "DHF_" & cDHF_Anhaenge.LRN.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
                             DS.da_vorlage = False
 
-                            Dim ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+                            Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
                             If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                             Dim destFull = ""
@@ -231,7 +236,7 @@ Public Class frmStartOptions
                         Case "EZ922" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA")
                         Case "TR109" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS")
                             ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
-                            cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
+                            cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
                         Case "EZ923" 'Ergänzung STB - Mitteilung 
                             sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
                     End Select
@@ -249,9 +254,9 @@ Public Class frmStartOptions
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
 
-            'moveFile(d, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\")
+            'moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
 
-            'IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", ""))
+            'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", ""))
 
             If betreff.ToString.Contains("VBD - Versandbegleitdokument (DE), ") Then
                 betreff = betreff.replace("WG: ", "")
@@ -267,20 +272,23 @@ Public Class frmStartOptions
                 End If
 
 
-                '  IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
+                '  IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
 
                 DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
                 DS.da_vorlage = False
 
-                Dim ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
+                Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
-                If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+                If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
                 If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                 Dim destFull = ""
                 moveFile(pfad, ZIEL_PFAD, destFull)
 
                 If DS.insertDataToDATENSERVER(destFull) Then
-                    If IsNumeric(dy_id) AndAlso dy_id > 0 Then sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+                    If IsNumeric(dy_id) AndAlso dy_id > 0 Then
+                        sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+                        sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+                    End If
                 End If
 
             ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
@@ -297,20 +305,23 @@ Public Class frmStartOptions
                     Else
                         dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1)  FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
                     End If
-                    '  IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
+                    '  IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
 
                     DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
                     DS.da_vorlage = False
 
-                    Dim ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
+                    Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
-                    If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+                    If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
                     If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                     Dim destFull = ""
                     moveFile(pfad, ZIEL_PFAD, destFull)
 
                     If DS.insertDataToDATENSERVER(destFull) Then
-                        If IsNumeric(dy_id) AndAlso dy_id > 0 Then sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+                        If IsNumeric(dy_id) AndAlso dy_id > 0 Then
+                            sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+                            sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+                        End If
                     End If
 
                 End If
@@ -621,8 +632,8 @@ Public Class frmStartOptions
                     Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
                     Body &= "<br><br>Automatisch generiertes E-Mail."
 
-                    '  VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("cw@verag.ag;mm@verag.ag", "UID Prüfung", Body,,, False, "al@verag.ag",, list)
+                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("cw@verag.ag;mm@verag.ag", "UID Prüfung", Body,,, False, "al@verag.ag",, list)
-                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
+                    '  VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
                 End If
             End If
             Return True
@@ -720,7 +731,7 @@ Public Class frmStartOptions
             Dim DY_pwd = "SAPi64c"
             Dim DY_port = "21"
             Dim DY_PFAD_out = "/ASCII(bis4.6B)/Importcodenummern/Deutschland/Initialload.zip"
-            Dim VERARBEITUNGS_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\"
+            Dim VERARBEITUNGS_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\"
             If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
 
             '  DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out)
@@ -806,7 +817,7 @@ Public Class frmStartOptions
     Function loadEZTZipToDB(pfadZIP As String) As Boolean
         Try
             loadEZTZipToDB = False
-            Dim VERARBEITUNGS_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\Extrakt\"
+            Dim VERARBEITUNGS_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\Extrakt\"
             If System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.Delete(VERARBEITUNGS_PFAD, True) 'Zuerst löschen, damit leer ist
             System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
 
@@ -928,7 +939,7 @@ Public Class frmStartOptions
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs)
-        For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
+        For Each d In System.IO.Directory.GetDirectories(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
             Dim fid As New FileInfo(d)
             If fid.Name >= 20190820 Then
 
@@ -941,10 +952,10 @@ Public Class frmStartOptions
 
 
                         If XML_Code.Contains("<FCFCDC>") And XML_Code.Contains("<TaxOffice>9153</TaxOffice>") Then
-                            If Not IO.File.Exists("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then
+                            If Not IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then
 
 
-                                IO.File.Copy(f, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
+                                IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
                             End If
                         End If
 
@@ -999,15 +1010,28 @@ Public Class frmStartOptions
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
         Dim ok As Boolean = False
         Select Case MyComboBox1._value
-            Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
+            Case "DY" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
-            Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
+            Case "TC" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
-            Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
+            Case "DHF" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
         End Select
 
         showPic(ok, PictureBox14)
 
     End Sub
 
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim ok As Boolean = False
+        Select Case MyComboBox2._value
+            Case "DY" : ok = cVERAG_out_eza.copyFileFTP_VERAGEZA_DY_ByBezugsNr(txtVRGOutEZA_BezugsNr.Text, getISettEZA)
+                'Case "TC" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
+                'Case "DHF" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
+        End Select
+
+        showPic(ok, PictureBox15)
+
+
+    End Sub
     Function getISett ()As cVERAG_Interface_Settings
         getISett = New cVERAG_Interface_Settings
         getISett.acticeInterface_OREGON = cbxISett_OREGON.Checked
@@ -1018,6 +1042,13 @@ Public Class frmStartOptions
         getISett.acticeInterface_IMEX = cbxISett_IMEX.Checked
     End Function
 
+    Function getISettEZA() As cVERAG_Interface_Settings
+        getISettEZA = New cVERAG_Interface_Settings
+        getISettEZA.acticeInterface_VERAG = cbxISettEZA_VERAG.Checked
+    End Function
+
+
+
 
     Private Sub LinkLabel28_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel28.LinkClicked
         Me.Visible = False
@@ -1027,4 +1058,12 @@ Public Class frmStartOptions
         f.ShowDialog()
         Me.Visible = True
     End Sub
+
+    Private Sub LinkLabel30_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel30.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+        Dim f As New frmTRNCTS_NachrichtenVerarbeitung
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
 End Class

initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb

@@ -39,11 +39,11 @@ Public Class frmTCNachrichtenVerarbeitung
     Sub initPfade()
         Me.TELOTEC_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         Me.VERARBEITUNGS_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
         Me.ZIEL_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
         Me.ERROR_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
         If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
         If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
         If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
@@ -781,7 +781,7 @@ Public Class frmTCNachrichtenVerarbeitung
                     If TC.telanm_ART = "T1" Or TC.telanm_ART.ToString.Contains("T2") Or TC.telanm_ART.ToString.StartsWith("T-") Then
                         Select Case TC.telanm_Status
                             Case TELOTEC_Worker.cTC_Statusliste.S_50, TELOTEC_Worker.cTC_Statusliste.S_60
-                                cVERAG_Interface.copyFileFTP_VERAGncts_TC(TC)
+                                cVERAG_out_ncts.copyFileFTP_VERAGncts_TC(TC)
                         End Select
                     End If
                 End If

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.Designer.vb

@@ -0,0 +1,260 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmTRNCTS_NachrichtenVerarbeitung
+    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(frmTRNCTS_NachrichtenVerarbeitung))
+        Me.btn = New System.Windows.Forms.Button()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.lblDatenCnt = New System.Windows.Forms.Label()
+        Me.dgvEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.ListBox3 = New System.Windows.Forms.ListBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.pnl.SuspendLayout()
+        CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn.BackColor = System.Drawing.Color.Red
+        Me.btn.FlatAppearance.BorderColor = System.Drawing.Color.Gray
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(379, -1)
+        Me.btn.Margin = New System.Windows.Forms.Padding(0)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(75, 22)
+        Me.btn.TabIndex = 6
+        Me.btn.Text = "X"
+        Me.btn.UseVisualStyleBackColor = False
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.lblDatenCnt)
+        Me.pnl.Controls.Add(Me.dgvEinarbeitung)
+        Me.pnl.Controls.Add(Me.Label9)
+        Me.pnl.Controls.Add(Me.Button2)
+        Me.pnl.Controls.Add(Me.Label7)
+        Me.pnl.Controls.Add(Me.ListBox3)
+        Me.pnl.Controls.Add(Me.Label6)
+        Me.pnl.Controls.Add(Me.Label5)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.btnOK)
+        Me.pnl.Controls.Add(Me.Label2)
+        Me.pnl.Controls.Add(Me.Label1)
+        Me.pnl.Controls.Add(Me.btn)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(456, 319)
+        Me.pnl.TabIndex = 1
+        '
+        'lblDatenCnt
+        '
+        Me.lblDatenCnt.AutoSize = True
+        Me.lblDatenCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblDatenCnt.Location = New System.Drawing.Point(309, 132)
+        Me.lblDatenCnt.Name = "lblDatenCnt"
+        Me.lblDatenCnt.Size = New System.Drawing.Size(13, 13)
+        Me.lblDatenCnt.TabIndex = 19
+        Me.lblDatenCnt.Text = "0"
+        Me.lblDatenCnt.Visible = False
+        '
+        'dgvEinarbeitung
+        '
+        Me.dgvEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvEinarbeitung.AllowUserToAddRows = False
+        Me.dgvEinarbeitung.AllowUserToDeleteRows = False
+        Me.dgvEinarbeitung.AllowUserToOrderColumns = True
+        Me.dgvEinarbeitung.AllowUserToResizeColumns = False
+        Me.dgvEinarbeitung.AllowUserToResizeRows = False
+        Me.dgvEinarbeitung.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEinarbeitung.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.Column1})
+        Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164)
+        Me.dgvEinarbeitung.Name = "dgvEinarbeitung"
+        Me.dgvEinarbeitung.RowHeadersVisible = False
+        Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145)
+        Me.dgvEinarbeitung.TabIndex = 18
+        '
+        'clmnArt
+        '
+        Me.clmnArt.HeaderText = "Art"
+        Me.clmnArt.Name = "clmnArt"
+        Me.clmnArt.Width = 150
+        '
+        'Column1
+        '
+        Me.Column1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.Column1.HeaderText = "BezugsNr"
+        Me.Column1.Name = "Column1"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(306, 103)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(44, 13)
+        Me.Label9.TabIndex = 17
+        Me.Label9.Text = "läuft..."
+        Me.Label9.Visible = False
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(309, 50)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(141, 50)
+        Me.Button2.TabIndex = 16
+        Me.Button2.Text = "Einlesen"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(8, 34)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(90, 13)
+        Me.Label7.TabIndex = 13
+        Me.Label7.Text = "Daten sichern:"
+        '
+        'ListBox3
+        '
+        Me.ListBox3.FormattingEnabled = True
+        Me.ListBox3.Location = New System.Drawing.Point(11, 50)
+        Me.ListBox3.Name = "ListBox3"
+        Me.ListBox3.Size = New System.Drawing.Size(292, 95)
+        Me.ListBox3.TabIndex = 12
+        '
+        'Label6
+        '
+        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(306, 240)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(144, 37)
+        Me.Label6.TabIndex = 11
+        Me.Label6.Text = "0 Datensätze nicht " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "erkannt."
+        Me.Label6.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(306, 217)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(44, 13)
+        Me.Label5.TabIndex = 10
+        Me.Label5.Text = "läuft..."
+        Me.Label5.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(309, 164)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(141, 50)
+        Me.Button1.TabIndex = 9
+        Me.Button1.Text = "Einarbeiten"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'btnOK
+        '
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.Location = New System.Drawing.Point(309, 280)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(141, 29)
+        Me.btnOK.TabIndex = 9
+        Me.btnOK.Text = "Schließen"
+        Me.btnOK.UseVisualStyleBackColor = True
+        Me.btnOK.Visible = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(8, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(222, 13)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "Einarbeitung der Nachrichtendaten von MAVI"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(8, 148)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 8
+        Me.Label1.Text = "Einarbeitung:"
+        '
+        'frmTRNCTS_NachrichtenVerarbeitung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(456, 319)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmTRNCTS_NachrichtenVerarbeitung"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "DY NachrichtenVerarbeitung"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btn As System.Windows.Forms.Button
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents dgvEinarbeitung As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents clmnArt As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents lblDatenCnt As Label
+End Class

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.resx

@@ -0,0 +1,986 @@
+<?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="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        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/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////p6ferq+Kr
+        q+Krq+Krq+Krq+Krq+LFxer/////////////////////////////////////////////////////////
+        //////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP/////////////////////////////////////////
+        //////////////////////////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP/////////////////////
+        //////////////////////+rq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr
+        q+Krq+K4uOb////////////////////////////////Fxeqrq+Krq+Krq+Krq+Krq+Krq+Lp6ff/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////d3fMDA70DA70DA70DA70DA70DA71ZWcv/////////////////////////
+        ///////////////////////////////R0e9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA72dnd30
+        9Pv////////////////////////////////////////////////R0e9sbNADA70DA70DA70DA70DA70D
+        A70DA70DA70DA72dnd309Pv///////////////////////////////8pKcIDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////////+4uOZsbNADA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA72dnd3p6ff/////////////////////////////////////////
+        //////////////////////////////////////////////////////////8pKcIDA70DA70DA70DA70D
+        A70DA73///////////////////////////////////////////////////+dnd0DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////+d
+        nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/////////////////////
+        //////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv/
+        ///////p6fdZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////9sbNADA70DA70DA70DA70DA70DA73d3fP/////////////////////////////////////
+        //////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////
+        //////////////////////////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA72rq+L///////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA73d3fP////p6fcpKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA72dnd3/////////////////////////////////////////////////
+        //////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70DA73Fxer/////
+        //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+rq+IDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////+rq+IDA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///9ZWcsDA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer/////////////
+        //////////////////////////////////////////////////////////////////////////+rq+ID
+        A70DA70DA70DA70DA70DA72dnd3////////////////////////////////////p6fcDA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP/////////////
+        ///p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A73d3fP////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA72rq+K4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA71ZWcv/////////////////////////////////////////////////////////////
+        ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT/////////////////////
+        //////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R0e9+ftQDA70DA70DA70D
+        A70DA70DA70DA71sbND///////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R
+        0e9+ftQDA70DA70DA70DA70DA70DA70DA71sbND////////////////09PsDA70DA70DA70DA70DA70D
+        A71ZWcv///////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA72d
+        nd3d3fP////////d3fN+ftQDA70DA70DA70DA70DA70DA70DA73d3fP/////////////////////////
+        ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D
+        A70DA71ERMf///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA72rq+L/
+        //////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///////////9ZWcsDA70DA70D
+        A70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer/////
+        //////////8pKcIDA70DA70DA70DA70DA70DA73////////////////////////////////////09PsD
+        A70DA70DA70DA70DA70DA70DA73d3fP///////////////////////9sbNADA70DA70DA70DA70DA70D
+        A73Fxer/////////////////////////////////////////////////////////////////////////
+        //////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////09PsD
+        A70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsDA70DA70DA70DA70DA70D
+        A71sbND////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsD
+        A70DA70DA70DA70DA70DA71sbND///////////////9+ftQDA70DA70DA70DA70DA70DA73d3fP/////
+        ///////////////////////////09Purq+Krq+Krq+JsbNADA70DA72Ojtn/////////////////////
+        //////9ZWcsDA70DA70DA70DA70DA70DA724uOb/////////////////////////////////////////
+        //////////////////////////////////////////////9+ftQDA70DA70DA70DA70DA70DA73R0e//
+        ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT/////////////////////
+        //////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv////d3fMDA70DA70DA70DA70DA70DA71+ftT/
+        //////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv///////////+dnd0D
+        A70DA70DA70DA70DA70DA73Fxer/////////////////////////////////////////////////////
+        ///////////////////////////d3fOrq+IpKcIDA70DA70DA70DA70DA70DA70DA73Fxer/////////
+        //////////////////////////////////////////////////////////////////////////////+r
+        q+IDA70DA70DA70DA70DA70DA72rq+L////////////////////////////R0e8DA70DA70DA70DA70D
+        A70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA73Fxer////R
+        0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70D
+        A70DA70DA73Fxer///////////+4uOYDA70DA70DA70DA70DA70DA72rq+L/////////////////////
+        //////////////////////////////////////////////+4uOarq+IDA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA7309Pv/////////////////////////////////////////////////////////
+        ///////////////////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3/////////////////
+        ///////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////9+ftQD
+        A70DA70DA70DA70DA70DA72rq+L////R0e8DA70DA70DA70DA70DA70DA72Ojtn/////////////////
+        //////////////9+ftQDA70DA70DA70DA70DA70DA72rq+L////////////d3fMDA70DA70DA70DA70D
+        A70DA71+ftT////////////////////////////////////////////////////////p6fednd0DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/////////////////////////////
+        ///////////////////////////////////////////////////////////////p6fcDA70DA70DA70D
+        A70DA70DA71ZWcv////////////////////////////p6fcDA70DA70DA70DA70DA70DA71ZWcv/////
+        //////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn////p6fcDA70DA70DA70D
+        A70DA70DA71ZWcv///////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn/
+        ///////////09PsDA70DA70DA70DA70DA70DA71ERMf/////////////////////////////////////
+        ///////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp
+        6ff/////////////////////////////////////////////////////////////////////////////
+        //////////////////8pKcIDA70DA70DA70DA70DA70pKcL////////////////////////////09PsD
+        A70DA70DA70DA70DA70DA70pKcL////////////////////////////////d3fMDA70DA70DA70DA70D
+        A70DA71sbND////09PsDA70DA70DA70DA70DA70DA70pKcL////////////////////////////////d
+        3fMDA70DA70DA70DA70DA70DA71sbND///////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv/
+        ///////////////////////////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA71ERMfd3fP/////////////////////////////////////////////////
+        //////////////////////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA73d
+        3fP///////////////////////////8pKcIDA70DA70DA70DA70DA70DA73R0e//////////////////
+        ///////////p6fcDA70DA70DA70DA70DA70DA71sbND///////8pKcIDA70DA70DA70DA70DA70DA73R
+        0e/////////////////////////////p6fcDA70DA70DA70DA70DA70DA71sbND///////////////9+
+        ftQDA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////////09PspKcID
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcurq+L/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70D
+        A70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70DA70DA70DA71+ftT/////
+        //9+ftQDA70DA70DA70DA70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70D
+        A70DA70DA71+ftT///////////////+rq+IDA70DA70DA70DA70DA70DA724uOb/////////////////
+        ///////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbNCrq+Lp6ff/
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L/////////////
+        ///////////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff////////////////////////FxeoD
+        A70DA70DA70DA70DA70DA72Ojtn////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff/////////
+        ///////////////FxeoDA70DA70DA70DA70DA70DA72Ojtn////////////////FxeoDA70DA70DA70D
+        A70DA70DA72dnd3///////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D
+        A70DA72Ojtm4uOb/////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////d3fMDA70DA70D
+        A70DA70DA70DA71+ftT///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA71+
+        ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///////////8pKcIDA70D
+        A70DA70DA70DA70DA71+ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L/
+        ///////////////d3fMDA70DA70DA70DA70DA70DA71sbND/////////////////////////////////
+        //////+rq+IDA70DA70DA70DA70DA70DA73d3fP////////////////////p6ferq+Krq+L09Pv/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////09PsDA70DA70DA70DA70DA70DA71ERMf/////////////////////////////
+        //+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYDA70DA70DA70DA70DA70D
+        A70DA73d3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYD
+        A70DA70DA70DA70DA70DA70DA73d3fP///////////////////8pKcIDA70DA70DA70DA70DA70pKcL/
+        //////////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA724uOb/////////
+        ///////09PtZWcsDA70DA70DA70DA71sbNCrq+L09Pv/////////////////////////////////////
+        ///////////////////////////09Purq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70D
+        A72rq+Krq+Krq+Krq+Krq+Krq+LR0e////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA72rq+Kr
+        q+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////9ERMcDA70DA70DA70DA70D
+        A70DA70DA70DA72rq+Krq+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv/////////////////////
+        //9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////////////R0e8DA70D
+        A70DA70DA70DA70DA70DA71ZWcurq+Krq+J+ftQDA70DA70DA70DA70DA70DA70DA70pKcL09Pv/////
+        ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn////////d3fMDA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73R0e//////////
+        ///////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA73R0e////////////////////////+OjtkDA70DA70DA70DA70DA70DA73R0e//////////////
+        //////////////////////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA72rq+L/////////////////////////////////////////////////////////
+        //////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA71ZWcv///////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA72dnd3///////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////+rq+IDA70DA70D
+        A70DA70DA70DA72rq+L////////////////////////////////////////d3fMDA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv/////////////////////////////
+        //////////////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////+4uOYDA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT/////////////////////////////////
+        //+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT/////////////
+        ///////////////////R0e8DA70DA70DA70DA70DA70DA72Ojtn/////////////////////////////
+        //////////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcvp
+        6ff///////////////////////////////////////////////////////////////////////////+d
+        nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p
+        6ff////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/////
+        ///////////////////////////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA724uOb////////////////////////////////////09PsDA70DA70DA70DA70DA70DA71Z
+        Wcv////////////////////////////////////////////////R0e9ERMcDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA72Ojtn/////////////////////////////////////////////////////
+        //////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA73R0e/////////////////////////R0e+rq+IpKcIDA70DA70D
+        A70DA70DA72Ojtmrq+L////////////////////////////////////////////////////////////R
+        0e+rq+IpKcIDA70DA70DA70DA70DA72Ojtmrq+L/////////////////////////////////////////
+        //////8pKcIDA70DA70DA70DA70DA70DA73/////////////////////////////////////////////
+        //////////+4uOarq+IDA70DA70DA70DA70DA70DA71+ftSrq+L09Pv/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////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>

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb

@@ -0,0 +1,500 @@
+Imports System.IO
+Imports System.Globalization
+Imports System.Xml
+Imports Renci.SshNet
+Imports System.Net
+Imports System.Text
+
+Public Class frmTRNCTS_NachrichtenVerarbeitung
+    Dim cntDatenEingelesen As Integer = 0
+    Dim dsNichtErkannt As Integer = 0
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim allowClose = False
+    '  Dim DY_PFAD = "C:\Users\DEVELOPER1\Desktop\test\TEST\"
+
+    Dim TELOTEC_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
+    Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
+    Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\"
+    Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\"
+    ' Dim BOX_VERSION = "8.8"
+
+    Dim Dateiname = ""
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Sub New(allowClose) 'autostart
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.allowClose = allowClose
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub initPfade()
+        Me.TELOTEC_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("BEREITSTELLUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        Me.VERARBEITUNGS_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
+        Me.ZIEL_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
+        Me.ERROR_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
+        If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
+        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+        If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
+
+        'Me.BOX_VERSION = NCTSTR_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+
+    End Sub
+
+
+    Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initPfade()
+        For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
+            ListBox3.Items.Add(frmStartOptions.cut_file(d))
+            Me.Refresh()
+        Next
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Enabled = False
+        Try
+            Label9.Visible = True
+            Dim cnt = getNachrichtenDatenFromMAVIServices()
+            Label9.Text = cnt & " Datensätze empfangen."
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Enabled = True
+
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Enabled = False
+        Try
+            Label5.Visible = True
+            DatenEinlesen()
+            If dsNichtErkannt > 0 Then
+
+                Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
+                Label6.Visible = True
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Enabled = True
+        Label5.Text = cntDatenEingelesen & " Datensätze verarbeitet."
+
+    End Sub
+
+
+    Function getNachrichtenDatenFromMAVIServices() As Integer
+        Dim cnt = 0
+        Try
+            Dim NCTSTR_server = ""
+            Dim NCTSTR_name = ""
+            Dim NCTSTR_pwd = ""
+            Dim NCTSTR_port = ""
+            Dim NCTSTR_PFAD_out = ""
+
+            cNCTSPartnerWorker.cMAVIFunctions.getSFTPLoginData(NCTSTR_server, NCTSTR_name, NCTSTR_pwd, NCTSTR_port, "", NCTSTR_PFAD_out)
+
+            Dim Dirlist As New List(Of String) 'I prefer List() instead of an array
+            Dim request As FtpWebRequest = DirectCast(WebRequest.Create(NCTSTR_server & NCTSTR_PFAD_out), FtpWebRequest)
+
+            request.Method = WebRequestMethods.Ftp.ListDirectory
+            request.Credentials = New NetworkCredential(NCTSTR_name, NCTSTR_pwd)
+
+            Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
+            Dim responseStream As Stream = response.GetResponseStream
+
+            Using reader As New StreamReader(responseStream)
+                Do While reader.Peek <> -1
+                    Dim fName = reader.ReadLine
+
+
+                Loop
+            End Using
+
+            response.Close()
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return cnt
+    End Function
+
+
+    Function getNachrichtenDatenFromMAVIServices_ALTERNATIV() As Integer
+        Dim cnt = 0
+        Try
+            For Each f In IO.Directory.GetFiles(TELOTEC_PFAD)
+                Dim FI As New FileInfo(f)
+                If Not FI.Name.StartsWith(".") Then
+                    'Temp. DownloadPfad
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
+
+                    'Datei herunterladen
+                    IO.File.Copy(f, destFilenameTMP)
+                    If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+
+                    'Gültiger Filename
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
+                    IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+
+                    Dim fi_dest As FileInfo = New FileInfo(destFilename)
+                    ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen
+                    cnt += 1
+                    lblDatenCnt.Text = cnt
+                    Me.Refresh()
+                End If
+            Next
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return cnt
+
+        'Dim cnt = 0
+        'Try
+        '    Dim DY_server = ""
+        '    Dim DY_name = ""
+        '    Dim DY_pwd = ""
+        '    Dim DY_port = ""
+        '    Dim DY_PFAD_out = ""
+
+        '    DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out)
+
+
+        '    Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
+        '    Using client = New SftpClient(ConnectionInfo)
+        '        client.Connect()
+
+        '        For Each f In client.ListDirectory(DY_PFAD_out)
+        '            '   MsgBox(f.Name)
+        '            If Not f.Name.StartsWith(".") Then
+        '                'Temp. DownloadPfad
+        '                Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
+
+        '                'Datei herunterladen
+        '                Dim downloadFileStream As Stream = File.OpenWrite(destFilenameTMP)
+        '                client.DownloadFile(f.FullName, downloadFileStream)
+        '                If IO.File.Exists(destFilenameTMP) Then client.DeleteFile(f.FullName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+        '                downloadFileStream.Dispose()
+
+        '                'Gültiger Filename
+        '                Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
+        '                IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+
+        '                Dim fi As FileInfo = New FileInfo(destFilename)
+        '                ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen
+        '                cnt += 1
+        '            End If
+        '        Next
+        '        client.Disconnect()
+        '    End Using
+        'Catch ex As Exception
+        '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        'End Try
+
+        'Return cnt
+    End Function
+
+
+
+
+
+    ' Dim toEncodeAsBytes() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(toEncode)
+    '  string returnValue            = System.Convert.ToBase64String(toEncodeAsBytes)
+    Public Function stripNonValidXMLCharacters(ByVal textIn As String) As String
+        Dim textOut As System.Text.StringBuilder = New System.Text.StringBuilder()
+        Dim current As Char
+        If textIn Is Nothing OrElse textIn = String.Empty Then Return String.Empty
+        For i As Integer = 0 To textIn.Length - 1
+            current = textIn(i)
+            If (current = "9" OrElse current = "10" OrElse current = "13") OrElse ((current >= "32") AndAlso (current <= "55295")) OrElse ((current >= "57344") AndAlso (current <= "65533")) OrElse ((current >= "65536") AndAlso (current <= "1114111")) Then
+                textOut.Append(current)
+            End If
+        Next
+
+        Return textOut.ToString()
+    End Function
+
+    Public Function SanitizeXmlString(ByVal xml As String) As String
+        If xml Is Nothing Then
+            Throw New ArgumentNullException("xml")
+        End If
+
+        Dim buffer As System.Text.StringBuilder = New System.Text.StringBuilder(xml.Length)
+        For Each c As Char In xml
+            If IsLegalXmlChar(Asc(c)) Then
+                buffer.Append(c)
+            End If
+        Next
+
+        Return buffer.ToString()
+    End Function
+
+    Public Function IsLegalXmlChar(ByVal character As Integer) As Boolean
+        Return (character = 9 OrElse character = 10 OrElse character = 13 OrElse (character >= 32 AndAlso character <= 55295) OrElse (character >= 57344 AndAlso character <= 65533) OrElse (character >= 65536 AndAlso character <= 1114111))
+    End Function
+
+
+
+    Sub DatenEinlesen()
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
+
+        If ListBox3.Items.Count = 0 Then
+            Label6.Text = "Keine Daten zum Einlesen vorhanden."
+            Label6.Visible = True
+            Exit Sub
+        End If
+
+        For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
+            Try
+                Dateiname = d
+                cWorker_NCTS.Dateiname = d
+                If IO.File.Exists(d) Then
+                    Dim found = False
+                    Dim fi As FileInfo = New FileInfo(d)
+
+                    '   EDIFACT
+                    ' If fi.Extension = ".edi" Then
+                    Dim alreadyMoved = False
+                    If fi.Extension.ToLower = ".xml" Then
+                        Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
+
+                        Dim doc As New XmlDocument()
+                        Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
+
+                        doc.LoadXml(SanitizeXmlString(XML_Code))
+                        Dim VERSION As String = ""
+
+                        '------------------------------------------------------------------------------------------------------------------------------
+                        '                                                                  eZOLL
+                        '------------------------------------------------------------------------------------------------------------------------------
+
+
+                        '------------------------------------------
+                        '------------------ Anmeldung ------------------
+                        '------------------------------------------
+                        'MAVI: CC015B - Versandanmeldung Final
+
+                        'NCTS: Versandanmeldung
+                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then
+                            MsgBox("CC015B")
+                            If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True
+                        End If
+                        'NCTS: BestätigungZoll
+                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
+                            MsgBox("CC029B")
+                            If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True
+                        End If
+
+                    End If
+
+
+                    If True Then
+                        If Not alreadyMoved Then
+                            If found Then
+                                If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                            Else
+                                frmStartOptions.moveFile(d, ERROR_PFAD)
+                            End If
+                        End If
+
+                    End If
+
+                    Me.Refresh()
+                    If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
+                End If
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        Next
+    End Sub
+
+
+
+    Function getString(doc As XmlDocument) As Boolean
+        If doc.HasChildNodes Then
+            '  If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            MsgBox(XmlString)
+        End If
+        Return False
+    End Function
+
+
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Me.Close()
+    End Sub
+
+
+
+    Sub addDGVEinarbeitung(art, BezugsNr)
+        dgvEinarbeitung.Rows.Add(art, BezugsNr)
+        Try
+            dgvEinarbeitung.FirstDisplayedScrollingRowIndex = dgvEinarbeitung.RowCount - 1
+        Catch ex As Exception
+        End Try
+    End Sub
+
+
+
+
+
+
+    Function readPLOSE_Detail(d As String) As String
+        '    Try
+        '        readPLOSE_Detail = ""
+        '        Dim KdnR = ""
+
+        '        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8)
+        '            MyReader.TextFieldType = FileIO.FieldType.Delimited
+        '            MyReader.SetDelimiters(";")
+        '            Dim currentRow As String()
+
+        '            Dim cnt = 0
+        '            If True Then
+
+        '                While Not MyReader.EndOfData
+        '                    Try
+        '                        currentRow = MyReader.ReadFields()
+
+
+        '                        If currentRow.Length > 24 Then
+        '                            Dim PLOSE As New cNCTSPartnerWorker.cPLOSE
+
+
+        '                            PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0))
+        '                            PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1))
+        '                            PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2))
+        '                            PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3))
+        '                            PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4))
+        '                            PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5))
+        '                            PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6))
+        '                            PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7))
+        '                            PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8))
+        '                            PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9))
+        '                            PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10))
+        '                            PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11))
+        '                            PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12))
+        '                            PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13))
+        '                            PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14))
+        '                            PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15))
+        '                            PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16))
+        '                            PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17))
+        '                            PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18))
+        '                            PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19))
+        '                            PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20))
+        '                            PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21))
+        '                            PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22))
+        '                            PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23))
+        '                            PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24))
+        '                            PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25))
+        '                            PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26))
+        '                            PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27))
+        '                            PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28))
+        '                            PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29))
+        '                            PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30))
+        '                            PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31))
+        '                            PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32))
+        '                            PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33))
+        '                            PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34))
+        '                            PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35))
+
+        '                            ''''''''''''
+        '                            If PLOSE.SAVE() Then
+
+        '                            End If
+
+        '                        End If
+
+        '                        cnt += 1
+
+        '                        'For Each currentField In currentRow
+        '                        'Next
+        '                    Catch ex As Exception
+        '                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        '                    End Try
+        '                End While
+
+
+        '                'Label30.Text = (cnt + 1) & " / " & LineCount
+        '                'Label31.Visible = True
+        '                readPLOSE_Detail = "Zeilen: " & cnt
+        '            Else
+        '                MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.")
+        '            End If
+        '        End Using
+
+
+
+
+        '        Try
+        '            '  System.IO.File.Delete(p)
+        '        Catch ex As Exception
+        '            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        '        End Try
+
+        '        addDGVEinarbeitung("PLOSE: Detail" & KdnR, readPLOSE_Detail)
+
+        '        '    End Using
+
+        '        'End If
+
+        '    Catch ex As Exception
+        '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        '        MsgBox(ex.StackTrace & ex.Message)
+        '        readPLOSE_Detail = ""
+        '    End Try
+    End Function
+
+
+    Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged
+        dgvEinarbeitung.ClearSelection()
+
+    End Sub
+
+
+
+
+
+
+    Private Sub frmTCNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        If allowClose Then
+            Me.Refresh()
+
+            Button2.PerformClick()
+            Button1.PerformClick()
+
+            System.Threading.Thread.Sleep(2000)
+
+            Me.Close()
+        End If
+    End Sub
+
+
+
+
+End Class
+