neu

initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb

@@ -146,12 +146,12 @@ Module AtlasAufschubDatenEinlesen
                 Try
                     cmd.ExecuteNonQuery()
 
-                    'Lösche File:
-                    Try
-                        If brgak_filename <> "DY" Then System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
-                    Catch ex As Exception
-                        writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
-                    End Try
+                    ''Lösche File: --> vom ALTEN ATLAS
+                    'Try
+                    '    If brgak_filename <> "DY" Then System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
+                    'Catch ex As Exception
+                    '    writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
+                    'End Try
                     Return True
                 Catch ex As SqlException
                     writeLog("ERROR", "Fehler beim Schreiben in die Datenbank: " & ex.Message)

initATLASAufschubkonten/My Project/AssemblyInfo.vb

@@ -8,10 +8,10 @@ Imports System.Runtime.InteropServices
 
 ' Die Werte der Assemblyattribute überprüfen
 
-<Assembly: AssemblyTitle("initATLASAufschubkonten")> 
+<Assembly: AssemblyTitle("RoutineManager")>
 <Assembly: AssemblyDescription("")> 
-<Assembly: AssemblyCompany("")> 
-<Assembly: AssemblyProduct("initATLASAufschubkonten")> 
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("RoutineManager")>
 <Assembly: AssemblyCopyright("Copyright ©  2015")> 
 <Assembly: AssemblyTrademark("")> 
 

initATLASAufschubkonten/RoutineManager.vbproj

@@ -51,6 +51,25 @@
   <PropertyGroup>
     <ApplicationIcon>admin_monitoring.ico</ApplicationIcon>
   </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
+    <DebugSymbols>true</DebugSymbols>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>RoutineManager.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <DebugType>full</DebugType>
+    <PlatformTarget>x64</PlatformTarget>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\x64\Release\</OutputPath>
+    <DocumentationFile>RoutineManager.xml</DocumentationFile>
+    <Optimize>true</Optimize>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <DebugType>pdbonly</DebugType>
+    <PlatformTarget>x64</PlatformTarget>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="Dynamsoft.Forms.Viewer, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
@@ -81,6 +100,16 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\dll\itextsharp.dll</HintPath>
     </Reference>
+    <Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+      <HintPath>C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll</HintPath>
+    </Reference>
+    <Reference Include="OFFICE, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+      <HintPath>C:\Windows\assembly\GAC_MSIL\office\15.0.0.0__71e9bce111e9429c\OFFICE.DLL</HintPath>
+    </Reference>
     <Reference Include="Renci.SshNet">
       <HintPath>..\..\..\dll\Renci.SshNet.dll</HintPath>
     </Reference>
@@ -116,11 +145,18 @@
     <Compile Include="cBuergschaften.vb" />
     <Compile Include="cEDI.vb" />
     <Compile Include="cGetMsgType.vb" />
+    <Compile Include="cOREGONWorker.vb" />
     <Compile Include="cMAVIWorker.vb" />
-    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung.Designer.vb">
-      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung.vb</DependentUpon>
+    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung_OREGON.Designer.vb">
+      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung.vb">
+    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung_MAVI.Designer.vb">
+      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="VERAG_Interface\cVERAG_Interface.vb" />
@@ -176,8 +212,11 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
-    <EmbeddedResource Include="frmTRNCTS_NachrichtenVerarbeitung.resx">
-      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung.vb</DependentUpon>
+    <EmbeddedResource Include="frmTRNCTS_NachrichtenVerarbeitung_OREGON.resx">
+      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmTRNCTS_NachrichtenVerarbeitung_MAVI.resx">
+      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmMDMNachrichtenVerarbeitung.resx">
       <DependentUpon>frmMDMNachrichtenVerarbeitung.vb</DependentUpon>

initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb

@@ -484,9 +484,9 @@
         Try
 
             Select Case GRN
-                Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157"
+                Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364"
                     If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB\", "TOBB"))
-                Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153"
+                Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716"
                     If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\OREGON\", "OREGON"))
                 Case "17DE0000000071678", "05AT510000G000FP7" '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"))

initATLASAufschubkonten/cBuergschaften.vb

@@ -153,7 +153,7 @@ Public Class cBuergschaften
         Dim cnt As Integer = 0
         Dim dr As SqlDataReader
         Dim sql As String = "SELECT  * FROM  ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme"
-        If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE())" 'letzten 10 Tage
+        If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE()) AND CRN is not null " 'letzten 10 Tage
 
         Dim sqlConn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionEZOLL
         '    setLabel(frmAtlasAufschub.lbBrgAtlasSuben, "einlesen ...")

initATLASAufschubkonten/cGetMsgType.vb

@@ -500,15 +500,19 @@ Public Class cGetMsgType
 
     Shared Function isPLOSE_Detail(doc As String) As Boolean
         Dim lines() As String = IO.File.ReadAllLines(doc)
-        If lines(0).ToString.StartsWith("TR5") Then
-            Return True
+        If lines.Count > 0 Then
+            If lines(0).ToString.StartsWith("TR5") Or (lines.Count > 1 AndAlso (lines(0).ToString.StartsWith("TR1") And lines(1).ToString.StartsWith("TR5"))) Then
+                Return True
+            End If
         End If
         Return False
     End Function
     Shared Function isPLOSE_Header(doc As String) As Boolean
         Dim lines() As String = IO.File.ReadAllLines(doc)
-        If lines(0).ToString.StartsWith("TR6") Then
-            Return True
+        If lines.Count > 0 Then
+            If lines(0).ToString.StartsWith("TR6") Then
+                Return True
+            End If
         End If
         Return False
     End Function

initATLASAufschubkonten/cMAVIWorker.vb

@@ -9,7 +9,7 @@ Public Class cMAVIWorker
 
     Shared Partnersystem = "" ' FUnzt noch nciht --> leer für zuordnung guid mrn, sonst problem
 
-    Public Shared Function readNCTS_VersandanmeldungXML_CC015B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_VersandanmeldungXML_CC015B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_VersandanmeldungXML_CC015B = ""
             Dim sw = New StringWriter()
@@ -39,7 +39,7 @@ Public Class cMAVIWorker
                 If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
                 NCTS.ncts_ObjectName = LRN
 
-                NCTS.ncts_Partnersystem = "MAVI"
+                NCTS.ncts_Partnersystem = ncts_Partnersystem
 
 
                 If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 Then ' AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
@@ -63,6 +63,14 @@ Public Class cMAVIWorker
 
                 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)
+                    Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                    NR.nctsNr_nctsId = NCTS.ncts_Id
+                    NR.nctsNr_typ = "CC015B"
+                    NR.nctsNr_path = ""
+                    NR.nctsNr_LRN = LRN
+                    NR.nctsNr_MRN = Nothing
+                    NR.nctsNr_GUID = Nothing
+                    If NR.SAVE() Then NS_id = NR.nctsNr_id
                 Else
                     readNCTS_VersandanmeldungXML_CC015B = ""
                 End If
@@ -90,7 +98,7 @@ Public Class cMAVIWorker
 
 
 
-    Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_VersandanmeldungXML_CC015B_RES = ""
             Dim sw = New StringWriter()
@@ -121,7 +129,7 @@ Public Class cMAVIWorker
                 NCTS.ncts_ObjectName = LRN
                 NCTS.ncts_GUID = GUID
 
-                NCTS.ncts_Partnersystem = "MAVI"
+                NCTS.ncts_Partnersystem = ncts_Partnersystem
 
 
 
@@ -132,6 +140,14 @@ Public Class cMAVIWorker
 
                 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)
+                    Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                    NR.nctsNr_nctsId = NCTS.ncts_Id
+                    NR.nctsNr_typ = "CC15B_RES"
+                    NR.nctsNr_path = ""
+                    NR.nctsNr_LRN = LRN
+                    NR.nctsNr_MRN = Nothing
+                    NR.nctsNr_GUID = GUID
+                    If NR.SAVE() Then NS_id = NR.nctsNr_id
                 Else
                     readNCTS_VersandanmeldungXML_CC015B_RES = ""
                 End If
@@ -157,7 +173,7 @@ Public Class cMAVIWorker
     End Function
 
 
-    Public Shared Function readNCTS_BestaetigungZollXML_CC029B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_BestaetigungZollXML_CC029B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_BestaetigungZollXML_CC029B = ""
             Dim sw = New StringWriter()
@@ -225,7 +241,7 @@ Public Class cMAVIWorker
                     If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
                     NCTS.ncts_ObjectName = LRN
 
-                    NCTS.ncts_Partnersystem = "MAVI"
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
                     NCTS.ncts_MRN = MRN
                     NCTS.ncts_Eroeffnung = If(Eroeffnung Is Nothing, Now.ToShortDateString, Eroeffnung)
                     NCTS.ncts_Wiedergestellungsdatum = Wiedergestellungsdatum
@@ -250,6 +266,14 @@ Public Class cMAVIWorker
 
                     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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC029B"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = LRN
+                        NR.nctsNr_MRN = MRN
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
                     Else
                         readNCTS_BestaetigungZollXML_CC029B = ""
                     End If
@@ -277,7 +301,7 @@ Public Class cMAVIWorker
 
 
 
-    Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_ErledigungsmitteilungXML_CC045A = ""
             Dim sw = New StringWriter()
@@ -313,7 +337,7 @@ Public Class cMAVIWorker
                     NCTS.ncts_Erledigung = TMSTMP.ToShortDateString
                     readNCTS_ErledigungsmitteilungXML_CC045A = MRN
 
-                    NCTS.ncts_Partnersystem = "MAVI"
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
 
 
                     If If(NCTS.ncts_Status, 0) <= 60 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_60
@@ -321,6 +345,14 @@ Public Class cMAVIWorker
 
                     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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC045A"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = MRN
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
                     Else
                         readNCTS_ErledigungsmitteilungXML_CC045A = ""
                     End If
@@ -346,7 +378,7 @@ Public Class cMAVIWorker
         End Try
     End Function
 
-    Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_BestaetigungZollXML_ARR_INF = ""
             Dim sw = New StringWriter()
@@ -377,7 +409,7 @@ Public Class cMAVIWorker
                     'NCTS.ncts_ObjectName = LRN 
                     NCTS.ncts_GUID = GUID
 
-                    NCTS.ncts_Partnersystem = "MAVI"
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
                     NCTS.ncts_Ankunft = TMSTMP.ToShortDateString
                     readNCTS_BestaetigungZollXML_ARR_INF = GUID
 
@@ -386,6 +418,14 @@ Public Class cMAVIWorker
 
                     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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "ARR_INF"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = Nothing
+                        NR.nctsNr_GUID = GUID
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
                     Else
                         readNCTS_BestaetigungZollXML_ARR_INF = ""
                     End If
@@ -412,7 +452,7 @@ Public Class cMAVIWorker
     End Function
 
 
-    Public Shared Function readNCTS_AbbruchXML_CC009A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_AbbruchXML_CC009A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_AbbruchXML_CC009A = ""
             Dim sw = New StringWriter()
@@ -446,7 +486,7 @@ Public Class cMAVIWorker
                     Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem)
                     If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
 
-                    NCTS.ncts_Partnersystem = "MAVI"
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
                     NCTS.ncts_MRN = MRN
 
 
@@ -457,6 +497,14 @@ Public Class cMAVIWorker
 
                     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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC009A"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = MRN
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
                     Else
                         readNCTS_AbbruchXML_CC009A = ""
                     End If
@@ -481,7 +529,7 @@ Public Class cMAVIWorker
 
 
 
-    Public Shared Function readNCTS_RueckweisungXML_CC016A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_RueckweisungXML_CC016A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_RueckweisungXML_CC016A = ""
             Dim sw = New StringWriter()
@@ -514,7 +562,7 @@ Public Class cMAVIWorker
                     Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, Partnersystem)
                     If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
 
-                    NCTS.ncts_Partnersystem = "MAVI"
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
                     NCTS.ncts_ObjectName = LRN
 
 
@@ -524,6 +572,14 @@ Public Class cMAVIWorker
                     readNCTS_RueckweisungXML_CC016A = LRN
                     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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC016A"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = LRN
+                        NR.nctsNr_MRN = Nothing
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
                     Else
                         readNCTS_RueckweisungXML_CC016A = ""
                     End If
@@ -547,7 +603,7 @@ Public Class cMAVIWorker
     End Function
 
 
-    Public Shared Function readNCTS_KeineFreigabeXML_CC051B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_KeineFreigabeXML_CC051B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_KeineFreigabeXML_CC051B = ""
             Dim sw = New StringWriter()
@@ -580,7 +636,7 @@ Public Class cMAVIWorker
                     Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem)
                     If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
 
-                    NCTS.ncts_Partnersystem = "MAVI"
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
                     NCTS.ncts_MRN = MRN
 
 
@@ -591,6 +647,14 @@ Public Class cMAVIWorker
 
                     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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC051B"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = MRN
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
                     Else
                         readNCTS_KeineFreigabeXML_CC051B = ""
                     End If
@@ -613,7 +677,7 @@ Public Class cMAVIWorker
         End Try
     End Function
 
-    Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+    Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
         Try
             readNCTS_BestaetigungZollXML_GUA_INF = ""
             Dim sw = New StringWriter()
@@ -644,7 +708,7 @@ Public Class cMAVIWorker
                     'NCTS.ncts_ObjectName = LRN 
                     NCTS.ncts_GUID = GUID
 
-                    NCTS.ncts_Partnersystem = "MAVI"
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
                     readNCTS_BestaetigungZollXML_GUA_INF = GUID
 
                     'If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
@@ -673,6 +737,14 @@ Public Class cMAVIWorker
 
                     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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "GUA_INF"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = Nothing
+                        NR.nctsNr_GUID = GUID
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
                     Else
                         readNCTS_BestaetigungZollXML_GUA_INF = ""
                     End If

initATLASAufschubkonten/cOREGONWorker.vb

@@ -0,0 +1,884 @@
+Imports System.Globalization
+Imports System.IO
+Imports System.Xml
+
+Public Class cOREGONWorker
+    Public Shared Dateiname = ""
+
+    Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Shared Partnersystem = "" ' FUnzt noch nciht --> leer für zuordnung guid mrn, sonst problem
+
+    Public Shared Function readNCTS_VersandanmeldungXML_CC015B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) 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 VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(LRN, True,, Partnersystem)
+                If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+                NCTS.ncts_ObjectName = LRN
+
+                NCTS.ncts_Partnersystem = ncts_Partnersystem
+
+
+                If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 Then ' AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
+                    Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
+                    BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText
+                    Dim Betrag = 0.0
+                    If doc.GetElementsByTagName("AmoConREF7").Count > 0 Then Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText
+
+                    If IsNumeric(Betrag) Then
+                        BRG.nctsSA_AbgabenBetrag = CDbl(Betrag)
+                    End If
+
+                    NCTS.ncts_SICHERHEITSANGABEN = New List(Of VERAG_PROG_ALLGEMEIN.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)
+                    Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                    NR.nctsNr_nctsId = NCTS.ncts_Id
+                    NR.nctsNr_typ = "CC015B"
+                    NR.nctsNr_path = ""
+                    NR.nctsNr_LRN = LRN
+                    NR.nctsNr_MRN = Nothing
+                    NR.nctsNr_GUID = Nothing
+                    If NR.SAVE() Then NS_id = NR.nctsNr_id
+                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_VersandanmeldungXML_CC015B_RES(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String
+        Try
+            readNCTS_VersandanmeldungXML_CC015B_RES = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC015B_RES") Then
+                '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
+                '  MsgBox(xmlCC015B)
+                '  Dim p = Path.GetTempFileName
+
+                Dim LRN = ""
+                Dim GUID = ""
+                If doc.GetElementsByTagName("LRN").Count > 0 Then
+                    LRN = doc.GetElementsByTagName("LRN")(0).InnerText
+                End If
+
+                readNCTS_VersandanmeldungXML_CC015B_RES = LRN
+
+                If doc.GetElementsByTagName("GUID").Count > 0 Then
+                    GUID = doc.GetElementsByTagName("GUID")(0).InnerText
+                End If
+
+
+                Dim AnsprechpTMP_Email = ""
+                Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, GUID, "", True,, Partnersystem)
+                If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+                NCTS.ncts_ObjectName = LRN
+                NCTS.ncts_GUID = GUID
+
+                NCTS.ncts_Partnersystem = ncts_Partnersystem
+
+
+
+
+                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)
+                    Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                    NR.nctsNr_nctsId = NCTS.ncts_Id
+                    NR.nctsNr_typ = "CC15B_RES"
+                    NR.nctsNr_path = ""
+                    NR.nctsNr_LRN = LRN
+                    NR.nctsNr_MRN = Nothing
+                    NR.nctsNr_GUID = GUID
+                    If NR.SAVE() Then NS_id = NR.nctsNr_id
+                Else
+                    readNCTS_VersandanmeldungXML_CC015B_RES = ""
+                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 - Ergänzung GUID", readNCTS_VersandanmeldungXML_CC015B_RES)
+
+                '    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_RES = ""
+        End Try
+    End Function
+
+
+    Public Shared Function readNCTS_BestaetigungZollXML_CC029B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) 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
+
+                Dim MRN = ""
+                If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
+                    MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
+                End If
+
+
+
+
+                Dim Eroeffnung = Nothing
+                If doc.GetElementsByTagName("AccDatHEA158").Count > 0 Then
+                    Try
+                        Eroeffnung = Date.ParseExact(doc.GetElementsByTagName("AccDatHEA158")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+                End If
+
+
+
+                Dim ncts_Befoerderungsmittel_KennzeichenAbgang = Nothing
+                If doc.GetElementsByTagName("IdeOfMeaOfTraAtDHEA78").Count > 0 Then
+                    ncts_Befoerderungsmittel_KennzeichenAbgang = doc.GetElementsByTagName("IdeOfMeaOfTraAtDHEA78")(0).InnerText
+                End If
+                Dim ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = Nothing
+                If doc.GetElementsByTagName("IdeOfMeaOfTraCroHEA85").Count > 0 Then
+                    ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = doc.GetElementsByTagName("IdeOfMeaOfTraCroHEA85")(0).InnerText
+                End If
+
+
+                Dim Wiedergestellungsdatum = Nothing
+                If doc.GetElementsByTagName("DatLimERS69").Count > 0 Then
+                    Try
+                        Wiedergestellungsdatum = Date.ParseExact(doc.GetElementsByTagName("DatLimERS69")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+                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 VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", MRN, True,, Partnersystem)
+                    If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+                    NCTS.ncts_ObjectName = LRN
+
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
+                    NCTS.ncts_MRN = MRN
+                    NCTS.ncts_Eroeffnung = If(Eroeffnung Is Nothing, Now.ToShortDateString, Eroeffnung)
+                    NCTS.ncts_Wiedergestellungsdatum = Wiedergestellungsdatum
+                    NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = ncts_Befoerderungsmittel_KennzeichenAbgang
+                    NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend
+                    'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
+                    '    Dim BRG As New VERAG_PROG_ALLGEMEIN.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 VERAG_PROG_ALLGEMEIN.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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC029B"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = LRN
+                        NR.nctsNr_MRN = MRN
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
+                    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
+
+
+
+
+    Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String
+        Try
+            readNCTS_ErledigungsmitteilungXML_CC045A = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC045A") Then
+                '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
+                '  MsgBox(xmlCC015B)
+                '  Dim p = Path.GetTempFileName
+
+
+                Dim MRN = ""
+                If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
+                    MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
+                End If
+
+                Dim TMSTMP As Date
+                If doc.GetElementsByTagName("WriOffDatHEA619").Count > 0 Then
+                    'If IsDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText) Then
+                    '    TMSTMP = CDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText)
+                    'End If
+                    Try
+                        TMSTMP = Date.ParseExact(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+
+                    Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True,, Partnersystem)
+                    If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+                    'NCTS.ncts_ObjectName = LRN 
+                    '  NCTS.ncts_GUID = Guid
+                    NCTS.ncts_MRN = MRN
+                    NCTS.ncts_Erledigung = TMSTMP.ToShortDateString
+                    readNCTS_ErledigungsmitteilungXML_CC045A = MRN
+
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
+
+
+                    If If(NCTS.ncts_Status, 0) <= 60 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_60
+                    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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC045A"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = MRN
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
+                    Else
+                        readNCTS_ErledigungsmitteilungXML_CC045A = ""
+                    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: Erledigungsmitteilung", readNCTS_ErledigungsmitteilungXML_CC045A)
+
+                    '    End Using
+
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            readNCTS_ErledigungsmitteilungXML_CC045A = ""
+        End Try
+    End Function
+
+    Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String
+        Try
+            readNCTS_BestaetigungZollXML_ARR_INF = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<ARR_INF") Or XmlString.Contains("<ARRINF") Then
+                '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
+                '  MsgBox(xmlCC015B)
+                '  Dim p = Path.GetTempFileName
+
+
+                Dim GUID = ""
+                If doc.GetElementsByTagName("GUID").Count > 0 Then
+                    GUID = doc.GetElementsByTagName("GUID")(0).InnerText
+                End If
+
+                Dim TMSTMP As Date
+                If doc.GetElementsByTagName("TMSTMP").Count > 0 Then
+                    If IsDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) Then
+                        TMSTMP = CDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText)
+                    End If
+
+                    Dim AnsprechpTMP_Email = ""
+
+                    Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByGUID(GUID, True,, Partnersystem)
+                    If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+                    'NCTS.ncts_ObjectName = LRN 
+                    NCTS.ncts_GUID = GUID
+
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
+                    NCTS.ncts_Ankunft = TMSTMP.ToShortDateString
+                    readNCTS_BestaetigungZollXML_ARR_INF = GUID
+
+                    If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
+                    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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "ARR_INF"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = Nothing
+                        NR.nctsNr_GUID = GUID
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
+                    Else
+                        readNCTS_BestaetigungZollXML_ARR_INF = ""
+                    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: Ankunftsanzeige", readNCTS_BestaetigungZollXML_ARR_INF)
+
+                    '    End Using
+
+                End If
+            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_ARR_INF = ""
+        End Try
+    End Function
+
+
+    Public Shared Function readNCTS_AbbruchXML_CC009A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String
+        Try
+            readNCTS_AbbruchXML_CC009A = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC009A>") Then
+                Dim xmlCC009A = XmlString.Substring(XmlString.IndexOf("<CC009A>"), XmlString.IndexOf("</CC009A>") + 9 - XmlString.IndexOf("<CC009A>"))
+                '  MsgBox(xmlCC029B)
+                Dim p = Path.GetTempFileName
+
+                Dim MRN = ""
+                If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
+                    MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
+                End If
+
+
+                Dim Abbruchdatum = Nothing
+                If doc.GetElementsByTagName("DatOfCanDecHEA146").Count > 0 Then
+                    Try
+                        Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DatOfCanDecHEA146")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+                End If
+
+
+                Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
+                    outputFile.Write(xmlCC009A)
+                    outputFile.Close()
+
+                    Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem)
+                    If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
+                    NCTS.ncts_MRN = MRN
+
+
+                    NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_80
+                    NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+                    readNCTS_AbbruchXML_CC009A = NCTS.ncts_ObjectName
+
+                    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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC009A"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = MRN
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
+                    Else
+                        readNCTS_AbbruchXML_CC009A = ""
+                    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: Abbruch", readNCTS_AbbruchXML_CC009A)
+
+                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_AbbruchXML_CC009A = ""
+        End Try
+    End Function
+
+
+
+    Public Shared Function readNCTS_RueckweisungXML_CC016A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String
+        Try
+            readNCTS_RueckweisungXML_CC016A = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC016A>") Then
+                Dim xmlCC016A = XmlString.Substring(XmlString.IndexOf("<CC016A>"), XmlString.IndexOf("</CC016A>") + 9 - XmlString.IndexOf("<CC016A>"))
+                '  MsgBox(xmlCC029B)
+                Dim p = Path.GetTempFileName
+
+                Dim LRN = ""
+                If doc.GetElementsByTagName("RefNumHEA4").Count > 0 Then
+                    LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText
+                End If
+
+                Dim Abbruchdatum = Nothing
+                If doc.GetElementsByTagName("DecRejDatHEA159").Count > 0 Then
+                    Try
+                        Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DecRejDatHEA159")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+                End If
+
+
+                Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
+                    outputFile.Write(xmlCC016A)
+                    outputFile.Close()
+
+                    Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, Partnersystem)
+                    If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
+                    NCTS.ncts_ObjectName = LRN
+
+
+                    NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_65
+                    NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+                    readNCTS_RueckweisungXML_CC016A = LRN
+                    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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC016A"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = LRN
+                        NR.nctsNr_MRN = Nothing
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
+                    Else
+                        readNCTS_RueckweisungXML_CC016A = ""
+                    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: Rückweisung", readNCTS_RueckweisungXML_CC016A)
+
+                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_RueckweisungXML_CC016A = ""
+        End Try
+    End Function
+
+
+    Public Shared Function readNCTS_KeineFreigabeXML_CC051B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String
+        Try
+            readNCTS_KeineFreigabeXML_CC051B = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC051B>") Then
+                Dim xmlCC051B = XmlString.Substring(XmlString.IndexOf("<CC051B>"), XmlString.IndexOf("</CC051B>") + 9 - XmlString.IndexOf("<CC051B>"))
+                '  MsgBox(xmlCC029B)
+                Dim p = Path.GetTempFileName
+
+                Dim MRN = ""
+                If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
+                    MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
+                End If
+
+                Dim Abbruchdatum = Nothing
+                If doc.GetElementsByTagName("DecRejDatHEA159").Count > 0 Then
+                    Try
+                        Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DecRejDatHEA159")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+                End If
+
+
+                Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
+                    outputFile.Write(xmlCC051B)
+                    outputFile.Close()
+
+                    Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem)
+                    If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
+
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
+                    NCTS.ncts_MRN = MRN
+
+
+                    NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_65
+                    NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+                    readNCTS_KeineFreigabeXML_CC051B = NCTS.ncts_ObjectName
+
+                    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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "CC051B"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = MRN
+                        NR.nctsNr_GUID = Nothing
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
+                    Else
+                        readNCTS_KeineFreigabeXML_CC051B = ""
+                    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: KeineFreigabe", readNCTS_KeineFreigabeXML_CC051B)
+
+                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_KeineFreigabeXML_CC051B = ""
+        End Try
+    End Function
+
+    Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String
+        Try
+            readNCTS_BestaetigungZollXML_GUA_INF = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<GUA_INF") Or XmlString.Contains("<GUAINF") Then
+                '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
+                '  MsgBox(xmlCC015B)
+                '  Dim p = Path.GetTempFileName
+
+                Dim GUID = ""
+                If doc.GetElementsByTagName("GUID").Count > 0 Then
+                    GUID = doc.GetElementsByTagName("GUID")(0).InnerText
+                End If
+
+                Dim TMSTMP As Date
+                If doc.GetElementsByTagName("TMSTMP").Count > 0 Then
+                    If IsDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) Then
+                        TMSTMP = CDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText)
+                    End If
+
+                    Dim AnsprechpTMP_Email = ""
+
+                    Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByGUID(GUID, True,, Partnersystem)
+                    If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR : NCTS.ncts_Status = 0 : NCTS.ncts_Status_KEWILL_Equivalent = 0
+                    'NCTS.ncts_ObjectName = LRN 
+                    NCTS.ncts_GUID = GUID
+
+                    NCTS.ncts_Partnersystem = ncts_Partnersystem
+                    readNCTS_BestaetigungZollXML_GUA_INF = GUID
+
+                    'If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
+                    'NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+
+                    Dim GRN = ""
+                    '  Dim CurREF8 = ""
+                    Dim AmoConREF7 = ""
+
+                    If doc.GetElementsByTagName("GRN").Count > 0 Then
+                        GRN = doc.GetElementsByTagName("GRN")(0).InnerText
+                    End If
+                    If doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
+                        AmoConREF7 = doc.GetElementsByTagName("AmoConREF7")(0).InnerText
+                    End If
+
+                    For Each GUA In NCTS.ncts_SICHERHEITSANGABEN
+                        If GUA.nctsSA_GRN = GRN Then
+                            GUA.nctsSA_AbgabenBetrag = AmoConREF7
+                        End If
+                    Next
+
+
+
+                    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)
+                        Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
+                        NR.nctsNr_nctsId = NCTS.ncts_Id
+                        NR.nctsNr_typ = "GUA_INF"
+                        NR.nctsNr_path = ""
+                        NR.nctsNr_LRN = Nothing
+                        NR.nctsNr_MRN = Nothing
+                        NR.nctsNr_GUID = GUID
+                        If NR.SAVE() Then NS_id = NR.nctsNr_id
+                    Else
+                        readNCTS_BestaetigungZollXML_GUA_INF = ""
+                    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: Garantie_Info", readNCTS_BestaetigungZollXML_GUA_INF)
+
+                    '    End Using
+
+                End If
+            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_GUA_INF = ""
+        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/frmDYNachrichtenVerarbeitung.vb

@@ -5612,10 +5612,10 @@ Public Class frmDYNachrichtenVerarbeitung
                             Case 1994 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 10, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'Global
                             Case 6136 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 11, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'VERAG EUST
                             Case 2719 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 12, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'IMEX EUST
-                            Case 6145 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 14, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL
-                            Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST
-                            Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) ZOLL
-                            Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST
+                            Case 6145 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 14, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) ZOLL
+                            Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST
+                            Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL
+                            Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST
                                 'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
 
                                 'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
@@ -5674,12 +5674,12 @@ Public Class frmDYNachrichtenVerarbeitung
                 Try
                     cmd.ExecuteNonQuery()
 
-                    'Lösche File:
-                    Try
-                        System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
-                    Catch ex As Exception
-                        writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
-                    End Try
+                    ''Lösche File: --> vom ALTEN ATLAS
+                    'Try
+                    '    System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
+                    'Catch ex As Exception
+                    '    writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
+                    'End Try
                     Return True
                 Catch ex As System.Data.SqlClient.SqlException
                     writeLog("ERROR", "Fehler beim Schreiben in die Datenbank: " & ex.Message)

initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb

@@ -475,6 +475,36 @@ Public Class frmMDMNachrichtenVerarbeitung
             readPLOSE_Detail = ""
             Dim KdnR = ""
 
+            Dim plose_RechnungsJahr = ""
+            Dim plose_RechnungsLieferantCode = ""
+            Dim plose_RechnungsNr = ""
+
+            Dim plose_RechnungsDat = Nothing
+            Dim plose_Lieferant = Nothing
+
+            Dim fi As FileInfo = New FileInfo(d)
+            If fi.Name.Length > 8 Then
+                'Dim plose_RechnungsNr = fi.Name.Substring(0, 8)
+
+                plose_RechnungsJahr = fi.Name.Substring(0, 2)
+                plose_RechnungsLieferantCode = fi.Name.Substring(2, 1)
+                plose_RechnungsNr = fi.Name.Substring(3, 5)
+
+                Select Case plose_RechnungsLieferantCode
+                    Case "0" : plose_Lieferant = "PLOSE Sistem Service"
+                    Case "7" : plose_Lieferant = "Consortio PLOSE"
+                End Select
+
+                'FALSCHE WERTE!!!
+                'If fi.FullName.Contains("_RGDAT_") Then
+                '    Try
+                '        plose_RechnungsDat = CDate(fi.FullName.Substring(fi.FullName.IndexOf("_RGDAT_") + 7, 10))
+                '    Catch ex As Exception
+                '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "PLOSE RG DATUM, FILE: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                '    End Try
+                'End If
+            End If
+
             Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8)
                 MyReader.TextFieldType = FileIO.FieldType.Delimited
                 MyReader.SetDelimiters(";")
@@ -483,85 +513,82 @@ Public Class frmMDMNachrichtenVerarbeitung
                 Dim cnt = 0
                 If True Then
 
+
+
                     While Not MyReader.EndOfData
                         Try
+
+
                             currentRow = MyReader.ReadFields()
 
-                            Dim fi As FileInfo = New FileInfo(d)
-                            If fi.Name.Length > 8 Then
-                                'Dim plose_RechnungsNr = fi.Name.Substring(0, 8)
 
-                                Dim plose_RechnungsJahr = fi.Name.Substring(0, 2)
-                                Dim plose_RechnungsLieferantCode = fi.Name.Substring(2, 1)
-                                Dim plose_RechnungsNr = fi.Name.Substring(3, 5)
+                            If True Then 'fi.Name.Length > 8 Then
 
-                                Dim plose_RechnungsDat = Nothing
 
-                                Dim plose_Lieferant = Nothing
-                                Select Case plose_RechnungsLieferantCode
-                                    Case "0" : plose_Lieferant = "PLOSE Sistem Service"
-                                    Case "7" : plose_Lieferant = "Consortio PLOSE"
+
+                                Select Case currentRow(0)
+                                    Case "TR1"
+                                        'RECHNUGNSDATUM
+                                        If currentRow.Length > 1 AndAlso currentRow(1).ToString.Length = 8 Then
+                                            Dim datumParse = DateTime.ParseExact(currentRow(1), "yyyyMMdd", Nothing)
+                                            plose_RechnungsDat = datumParse 'Rechnungsdatum aus TR1 Datensatz, überschreibt den Wert aus der Dateierstellung
+                                        End If
+
+                                    Case "TR5"
+                                        If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
+                                            Dim PLOSE As New MDM_Worker.cPLOSE
+
+                                            PLOSE.plose_Dateiname = fi.Name
+                                            PLOSE.plose_RechnungsNr = plose_RechnungsNr
+                                            PLOSE.plose_Lieferant = plose_Lieferant
+                                            PLOSE.plose_LieferantCode = plose_RechnungsLieferantCode
+                                            PLOSE.plose_RechnungsJahr = plose_RechnungsJahr
+                                            If plose_RechnungsDat IsNot Nothing Then PLOSE.plose_RechnungsDatum = plose_RechnungsDat
+                                            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
                                 End Select
 
-                                If fi.FullName.Contains("_RGDAT_") Then
-                                    Try
-                                        plose_RechnungsDat = CDate(fi.FullName.Substring(fi.FullName.IndexOf("_RGDAT_") + 7, 10))
-                                    Catch ex As Exception
-                                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "PLOSE RG DATUM, FILE: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-                                    End Try
-                                End If
-                                If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
-                                    Dim PLOSE As New MDM_Worker.cPLOSE
-
-                                    PLOSE.plose_Dateiname = fi.Name
-                                    PLOSE.plose_RechnungsNr = plose_RechnungsNr
-                                    PLOSE.plose_Lieferant = plose_Lieferant
-                                    PLOSE.plose_LieferantCode = plose_RechnungsLieferantCode
-                                    PLOSE.plose_RechnungsJahr = plose_RechnungsJahr
-                                    If plose_RechnungsDat IsNot Nothing Then PLOSE.plose_RechnungsDatum = plose_RechnungsDat
-                                    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
                             End If
 

initATLASAufschubkonten/frmRoutineManager.Designer.vb

@@ -57,6 +57,7 @@ Partial Class frmRoutineManager
         Me.lblASBG_Ds = New System.Windows.Forms.Label()
         Me.lblASUB_Ds = New System.Windows.Forms.Label()
         Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.mneNotifyIcon.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -68,6 +69,7 @@ Partial Class frmRoutineManager
         '
         'mneNotifyIcon
         '
+        Me.mneNotifyIcon.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.mneNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
         Me.mneNotifyIcon.Name = "mneNotifyIcon"
         Me.mneNotifyIcon.Size = New System.Drawing.Size(121, 26)
@@ -333,6 +335,7 @@ Partial Class frmRoutineManager
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.Button3)
         Me.Panel1.Controls.Add(Me.Button1)
         Me.Panel1.Controls.Add(Me.lblEZOLL_Ds)
         Me.Panel1.Controls.Add(Me.lblASBG_Ds)
@@ -403,6 +406,15 @@ Partial Class frmRoutineManager
         '
         Me.TimerClose.Interval = 60000
         '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(47, 194)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 23)
+        Me.Button3.TabIndex = 23
+        Me.Button3.Text = "Button3"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
         'frmRoutineManager
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -459,5 +471,5 @@ Partial Class frmRoutineManager
     Public WithEvents lblEZOLL_Ds As System.Windows.Forms.Label
     Public WithEvents lblASBG_Ds As System.Windows.Forms.Label
     Public WithEvents lblASUB_Ds As System.Windows.Forms.Label
-
+    Friend WithEvents Button3 As Button
 End Class

initATLASAufschubkonten/frmRoutineManager.vb

@@ -27,7 +27,7 @@ Public Class frmRoutineManager
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
-    Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung  '"G:\atlas\atlas\fssouzb"
+    Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung_OLD '"G:\atlas\atlas\fssouzb"
     ' Dim ico As New NotifyIcon
     '  Private Sub frmMain_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing
     '     icoAufschub.Visible = False
@@ -53,8 +53,10 @@ Public Class frmRoutineManager
 
     <PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _
     Private Shared Sub Run()
-        ' Create a new FileSystemWatcher and set its properties.
-        Dim watcher As New FileSystemWatcher()
+        If False Then ' altes ATLAS
+
+            ' Create a new FileSystemWatcher and set its properties.
+            Dim watcher As New FileSystemWatcher()
         watcher.Path = PathATLAS
         ' Watch for changes in LastAccess and LastWrite times, and
         ' the renaming of files or directories. 
@@ -72,7 +74,8 @@ Public Class frmRoutineManager
                                             frmRoutineManager.threads.Add(thread)
                                         End If
                                     End Sub
-        watcher.EnableRaisingEvents = True
+            watcher.EnableRaisingEvents = True
+        End If
 
     End Sub
     Public Sub doWork()
@@ -322,6 +325,7 @@ Public Class frmRoutineManager
 
     Sub startBRG_EZOLL()
         If alreadyRunning("thread_EZOLL") Then Exit Sub
+
         Dim thread_EZOLL As _
           New System.Threading.Thread(Sub()
                                           Run()
@@ -471,4 +475,9 @@ Public Class frmRoutineManager
             Me.Close()
         End If
     End Sub
+
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim cBuergschaften As New cBuergschaften
+        cBuergschaften.doStuff_EZOLL(HISTORY)
+    End Sub
 End Class

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -22,19 +22,34 @@ Partial Class frmStartOptions
     '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(frmStartOptions))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox()
+        Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.piceZollAnh = New System.Windows.Forms.PictureBox()
+        Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
+        Me.Label16 = New System.Windows.Forms.Label()
         Me.LinkLabel33 = New System.Windows.Forms.LinkLabel()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.LinkLabel32 = New System.Windows.Forms.LinkLabel()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.CheckBox5 = New System.Windows.Forms.CheckBox()
         Me.Button3 = New System.Windows.Forms.Button()
+        Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.CheckBox4 = New System.Windows.Forms.CheckBox()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.CheckBox3 = New System.Windows.Forms.CheckBox()
         Me.tbcntr = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.Button8 = New System.Windows.Forms.Button()
         Me.LinkLabel28 = New System.Windows.Forms.LinkLabel()
         Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
         Me.PictureBox13 = New System.Windows.Forms.PictureBox()
@@ -69,6 +84,8 @@ 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.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.Label15 = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
         Me.cbxOUT_NCTS_TESTORDNER = New System.Windows.Forms.CheckBox()
@@ -89,7 +106,17 @@ Partial Class frmStartOptions
         Me.Label7 = New System.Windows.Forms.Label()
         Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
         Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.LinkLabel34 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel35 = New System.Windows.Forms.LinkLabel()
+        Me.Label17 = New System.Windows.Forms.Label()
         Me.LinkLabel31 = New System.Windows.Forms.LinkLabel()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.LinkLabel29 = New System.Windows.Forms.LinkLabel()
@@ -102,6 +129,7 @@ Partial Class frmStartOptions
         Me.cbxKd = New System.Windows.Forms.CheckBox()
         Me.Button9 = New System.Windows.Forms.Button()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.PictureBox12 = New System.Windows.Forms.PictureBox()
         Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
         Me.PictureBox11 = New System.Windows.Forms.PictureBox()
@@ -117,22 +145,9 @@ 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.Button6 = New System.Windows.Forms.Button()
-        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
-        Me.Button7 = New System.Windows.Forms.Button()
-        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button11 = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
+        CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tbcntr.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -146,6 +161,7 @@ Partial Class frmStartOptions
         CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage2.SuspendLayout()
+        CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage3.SuspendLayout()
@@ -159,6 +175,12 @@ Partial Class frmStartOptions
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.cbxSyskaWdh)
+        Me.pnl.Controls.Add(Me.txtSyskaWdhDateiname)
+        Me.pnl.Controls.Add(Me.Button10)
+        Me.pnl.Controls.Add(Me.piceZollAnh)
+        Me.pnl.Controls.Add(Me.txtEZOLLAnhDat)
+        Me.pnl.Controls.Add(Me.lblEZOLLDat)
         Me.pnl.Controls.Add(Me.Button6)
         Me.pnl.Controls.Add(Me.CheckBox6)
         Me.pnl.Controls.Add(Me.Button7)
@@ -202,9 +224,168 @@ Partial Class frmStartOptions
         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(861, 720)
+        Me.pnl.Size = New System.Drawing.Size(861, 827)
         Me.pnl.TabIndex = 0
         '
+        'cbxSyskaWdh
+        '
+        Me.cbxSyskaWdh.AutoSize = True
+        Me.cbxSyskaWdh.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxSyskaWdh.Location = New System.Drawing.Point(559, 297)
+        Me.cbxSyskaWdh.Name = "cbxSyskaWdh"
+        Me.cbxSyskaWdh.Size = New System.Drawing.Size(124, 17)
+        Me.cbxSyskaWdh.TabIndex = 59
+        Me.cbxSyskaWdh.Text = "Buchungen wiederh."
+        Me.cbxSyskaWdh.UseVisualStyleBackColor = True
+        '
+        'txtSyskaWdhDateiname
+        '
+        Me.txtSyskaWdhDateiname._DateTimeOnly = False
+        Me.txtSyskaWdhDateiname._numbersOnly = False
+        Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = ""
+        Me.txtSyskaWdhDateiname._Prozent = False
+        Me.txtSyskaWdhDateiname._ShortDateNew = False
+        Me.txtSyskaWdhDateiname._ShortDateOnly = False
+        Me.txtSyskaWdhDateiname._TimeOnly = False
+        Me.txtSyskaWdhDateiname._value = ""
+        Me.txtSyskaWdhDateiname._Waehrung = False
+        Me.txtSyskaWdhDateiname._WaehrungZeichen = True
+        Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black
+        Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(687, 295)
+        Me.txtSyskaWdhDateiname.MaxLength = 50
+        Me.txtSyskaWdhDateiname.MaxLineLength = -1
+        Me.txtSyskaWdhDateiname.MaxLines_Warning = ""
+        Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing
+        Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname"
+        Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20)
+        Me.txtSyskaWdhDateiname.TabIndex = 58
+        '
+        'Button10
+        '
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button10.Location = New System.Drawing.Point(559, 320)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(197, 24)
+        Me.Button10.TabIndex = 57
+        Me.Button10.Text = "TESTBuchungen --> Syska"
+        Me.Button10.UseVisualStyleBackColor = True
+        Me.Button10.Visible = False
+        '
+        'piceZollAnh
+        '
+        Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image)
+        Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.piceZollAnh.Location = New System.Drawing.Point(500, 190)
+        Me.piceZollAnh.Name = "piceZollAnh"
+        Me.piceZollAnh.Size = New System.Drawing.Size(18, 18)
+        Me.piceZollAnh.TabIndex = 56
+        Me.piceZollAnh.TabStop = False
+        Me.piceZollAnh.Visible = False
+        '
+        'txtEZOLLAnhDat
+        '
+        Me.txtEZOLLAnhDat._DateTimeOnly = False
+        Me.txtEZOLLAnhDat._numbersOnly = False
+        Me.txtEZOLLAnhDat._numbersOnlyKommastellen = ""
+        Me.txtEZOLLAnhDat._Prozent = False
+        Me.txtEZOLLAnhDat._ShortDateNew = True
+        Me.txtEZOLLAnhDat._ShortDateOnly = False
+        Me.txtEZOLLAnhDat._TimeOnly = False
+        Me.txtEZOLLAnhDat._value = ""
+        Me.txtEZOLLAnhDat._Waehrung = False
+        Me.txtEZOLLAnhDat._WaehrungZeichen = True
+        Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black
+        Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190)
+        Me.txtEZOLLAnhDat.MaxLength = 10
+        Me.txtEZOLLAnhDat.MaxLineLength = -1
+        Me.txtEZOLLAnhDat.MaxLines_Warning = ""
+        Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing
+        Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat"
+        Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20)
+        Me.txtEZOLLAnhDat.TabIndex = 55
+        '
+        'lblEZOLLDat
+        '
+        Me.lblEZOLLDat.AutoSize = True
+        Me.lblEZOLLDat.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblEZOLLDat.Location = New System.Drawing.Point(300, 193)
+        Me.lblEZOLLDat.Name = "lblEZOLLDat"
+        Me.lblEZOLLDat.Size = New System.Drawing.Size(105, 13)
+        Me.lblEZOLLDat.TabIndex = 54
+        Me.lblEZOLLDat.TabStop = True
+        Me.lblEZOLLDat.Text = "EZOLL Anhänge ab:"
+        '
+        'Button6
+        '
+        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button6.Location = New System.Drawing.Point(687, 253)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(136, 24)
+        Me.Button6.TabIndex = 53
+        Me.Button6.Text = "Stammdaten --> Syska"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'CheckBox6
+        '
+        Me.CheckBox6.AutoSize = True
+        Me.CheckBox6.Checked = True
+        Me.CheckBox6.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CheckBox6.Location = New System.Drawing.Point(745, 280)
+        Me.CheckBox6.Name = "CheckBox6"
+        Me.CheckBox6.Size = New System.Drawing.Size(79, 17)
+        Me.CheckBox6.TabIndex = 52
+        Me.CheckBox6.Text = "Testsystem"
+        Me.CheckBox6.UseVisualStyleBackColor = True
+        '
+        'Button7
+        '
+        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button7.Location = New System.Drawing.Point(559, 253)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(129, 24)
+        Me.Button7.TabIndex = 49
+        Me.Button7.Text = "Buchungen --> Syska"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'cboSYSKAFirma
+        '
+        Me.cboSYSKAFirma._allowedValuesFreiText = Nothing
+        Me.cboSYSKAFirma._allowFreiText = False
+        Me.cboSYSKAFirma._value = ""
+        Me.cboSYSKAFirma.FormattingEnabled = True
+        Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 276)
+        Me.cboSYSKAFirma.Name = "cboSYSKAFirma"
+        Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21)
+        Me.cboSYSKAFirma.TabIndex = 51
+        '
+        'CheckBox7
+        '
+        Me.CheckBox7.AutoSize = True
+        Me.CheckBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CheckBox7.Location = New System.Drawing.Point(690, 280)
+        Me.CheckBox7.Name = "CheckBox7"
+        Me.CheckBox7.Size = New System.Drawing.Size(56, 17)
+        Me.CheckBox7.TabIndex = 50
+        Me.CheckBox7.Text = "öffnen"
+        Me.CheckBox7.UseVisualStyleBackColor = True
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label16.Location = New System.Drawing.Point(556, 237)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(150, 13)
+        Me.Label16.TabIndex = 48
+        Me.Label16.Text = "Routine Manager VERAG"
+        '
         'LinkLabel33
         '
         Me.LinkLabel33.AutoSize = True
@@ -221,7 +402,7 @@ Partial Class frmStartOptions
         Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button5.Location = New System.Drawing.Point(482, 141)
+        Me.Button5.Location = New System.Drawing.Point(15, 340)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(211, 24)
         Me.Button5.TabIndex = 46
@@ -244,7 +425,7 @@ Partial Class frmStartOptions
         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.Location = New System.Drawing.Point(391, 228)
+        Me.Button4.Location = New System.Drawing.Point(391, 253)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(136, 24)
         Me.Button4.TabIndex = 44
@@ -257,7 +438,7 @@ Partial Class frmStartOptions
         Me.CheckBox5.Checked = True
         Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
         Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CheckBox5.Location = New System.Drawing.Point(449, 255)
+        Me.CheckBox5.Location = New System.Drawing.Point(449, 280)
         Me.CheckBox5.Name = "CheckBox5"
         Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
         Me.CheckBox5.TabIndex = 43
@@ -269,18 +450,29 @@ Partial Class frmStartOptions
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button3.Location = New System.Drawing.Point(268, 228)
+        Me.Button3.Location = New System.Drawing.Point(268, 253)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(124, 24)
         Me.Button3.TabIndex = 40
         Me.Button3.Text = "Buchungen --> BMD"
         Me.Button3.UseVisualStyleBackColor = True
         '
+        'cboBMDUnispedFirma
+        '
+        Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
+        Me.cboBMDUnispedFirma._allowFreiText = False
+        Me.cboBMDUnispedFirma._value = ""
+        Me.cboBMDUnispedFirma.FormattingEnabled = True
+        Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276)
+        Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
+        Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21)
+        Me.cboBMDUnispedFirma.TabIndex = 42
+        '
         'CheckBox4
         '
         Me.CheckBox4.AutoSize = True
         Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CheckBox4.Location = New System.Drawing.Point(394, 255)
+        Me.CheckBox4.Location = New System.Drawing.Point(394, 280)
         Me.CheckBox4.Name = "CheckBox4"
         Me.CheckBox4.Size = New System.Drawing.Size(56, 17)
         Me.CheckBox4.TabIndex = 41
@@ -291,7 +483,7 @@ Partial Class frmStartOptions
         '
         Me.Label13.AutoSize = True
         Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(265, 212)
+        Me.Label13.Location = New System.Drawing.Point(265, 237)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(163, 13)
         Me.Label13.TabIndex = 39
@@ -313,7 +505,7 @@ Partial Class frmStartOptions
         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, 297)
+        Me.tbcntr.Location = New System.Drawing.Point(0, 404)
         Me.tbcntr.Name = "tbcntr"
         Me.tbcntr.SelectedIndex = 0
         Me.tbcntr.Size = New System.Drawing.Size(859, 421)
@@ -321,6 +513,7 @@ Partial Class frmStartOptions
         '
         'TabPage1
         '
+        Me.TabPage1.Controls.Add(Me.Button8)
         Me.TabPage1.Controls.Add(Me.LinkLabel28)
         Me.TabPage1.Controls.Add(Me.LinkLabel4)
         Me.TabPage1.Controls.Add(Me.PictureBox13)
@@ -362,6 +555,18 @@ Partial Class frmStartOptions
         Me.TabPage1.Text = "Zollverfahren"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
+        'Button8
+        '
+        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button8.Location = New System.Drawing.Point(581, 313)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(211, 24)
+        Me.Button8.TabIndex = 54
+        Me.Button8.Text = "test"
+        Me.Button8.UseVisualStyleBackColor = True
+        '
         'LinkLabel28
         '
         Me.LinkLabel28.AutoSize = True
@@ -723,6 +928,8 @@ Partial Class frmStartOptions
         '
         'TabPage2
         '
+        Me.TabPage2.Controls.Add(Me.Button11)
+        Me.TabPage2.Controls.Add(Me.dgvMRN)
         Me.TabPage2.Controls.Add(Me.Label15)
         Me.TabPage2.Controls.Add(Me.Label14)
         Me.TabPage2.Controls.Add(Me.cbxOUT_NCTS_TESTORDNER)
@@ -758,6 +965,23 @@ Partial Class frmStartOptions
         Me.TabPage2.Text = "VERAG Interface"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
+        'dgvMRN
+        '
+        Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN})
+        Me.dgvMRN.Location = New System.Drawing.Point(637, 63)
+        Me.dgvMRN.Name = "dgvMRN"
+        Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvMRN.Size = New System.Drawing.Size(207, 134)
+        Me.dgvMRN.TabIndex = 75
+        '
+        'clmnMRN
+        '
+        Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnMRN.HeaderText = "MRN"
+        Me.clmnMRN.Name = "clmnMRN"
+        '
         'Label15
         '
         Me.Label15.AutoSize = True
@@ -981,8 +1205,141 @@ Partial Class frmStartOptions
         Me.Label6.TabIndex = 0
         Me.Label6.Text = "VERAG IN"
         '
+        'txtVRGOut_MRN
+        '
+        Me.txtVRGOut_MRN._DateTimeOnly = False
+        Me.txtVRGOut_MRN._numbersOnly = False
+        Me.txtVRGOut_MRN._numbersOnlyKommastellen = ""
+        Me.txtVRGOut_MRN._Prozent = False
+        Me.txtVRGOut_MRN._ShortDateNew = False
+        Me.txtVRGOut_MRN._ShortDateOnly = False
+        Me.txtVRGOut_MRN._TimeOnly = False
+        Me.txtVRGOut_MRN._value = ""
+        Me.txtVRGOut_MRN._Waehrung = False
+        Me.txtVRGOut_MRN._WaehrungZeichen = False
+        Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red
+        Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84)
+        Me.txtVRGOut_MRN.MaxLineLength = -1
+        Me.txtVRGOut_MRN.MaxLines_Warning = ""
+        Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing
+        Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN"
+        Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20)
+        Me.txtVRGOut_MRN.TabIndex = 73
+        '
+        'txtVRGOut_FilialenNr
+        '
+        Me.txtVRGOut_FilialenNr._DateTimeOnly = False
+        Me.txtVRGOut_FilialenNr._numbersOnly = False
+        Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = ""
+        Me.txtVRGOut_FilialenNr._Prozent = False
+        Me.txtVRGOut_FilialenNr._ShortDateNew = False
+        Me.txtVRGOut_FilialenNr._ShortDateOnly = False
+        Me.txtVRGOut_FilialenNr._TimeOnly = False
+        Me.txtVRGOut_FilialenNr._value = ""
+        Me.txtVRGOut_FilialenNr._Waehrung = False
+        Me.txtVRGOut_FilialenNr._WaehrungZeichen = False
+        Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red
+        Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176)
+        Me.txtVRGOut_FilialenNr.MaxLineLength = -1
+        Me.txtVRGOut_FilialenNr.MaxLines_Warning = ""
+        Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing
+        Me.txtVRGOut_FilialenNr.Multiline = True
+        Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr"
+        Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21)
+        Me.txtVRGOut_FilialenNr.TabIndex = 71
+        '
+        'txtVRGOut_AbfertigungsNr
+        '
+        Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False
+        Me.txtVRGOut_AbfertigungsNr._numbersOnly = False
+        Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = ""
+        Me.txtVRGOut_AbfertigungsNr._Prozent = False
+        Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False
+        Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False
+        Me.txtVRGOut_AbfertigungsNr._TimeOnly = False
+        Me.txtVRGOut_AbfertigungsNr._value = ""
+        Me.txtVRGOut_AbfertigungsNr._Waehrung = False
+        Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False
+        Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red
+        Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176)
+        Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1
+        Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = ""
+        Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing
+        Me.txtVRGOut_AbfertigungsNr.Multiline = True
+        Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr"
+        Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21)
+        Me.txtVRGOut_AbfertigungsNr.TabIndex = 70
+        '
+        'MyComboBox2
+        '
+        Me.MyComboBox2._allowedValuesFreiText = Nothing
+        Me.MyComboBox2._allowFreiText = False
+        Me.MyComboBox2._value = ""
+        Me.MyComboBox2.FormattingEnabled = True
+        Me.MyComboBox2.Location = New System.Drawing.Point(298, 252)
+        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, 252)
+        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(153, 21)
+        Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(298, 62)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(62, 21)
+        Me.MyComboBox1.TabIndex = 4
+        '
+        'txtVRGOut_BezugsNr
+        '
+        Me.txtVRGOut_BezugsNr._DateTimeOnly = False
+        Me.txtVRGOut_BezugsNr._numbersOnly = False
+        Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = ""
+        Me.txtVRGOut_BezugsNr._Prozent = False
+        Me.txtVRGOut_BezugsNr._ShortDateNew = False
+        Me.txtVRGOut_BezugsNr._ShortDateOnly = False
+        Me.txtVRGOut_BezugsNr._TimeOnly = False
+        Me.txtVRGOut_BezugsNr._value = ""
+        Me.txtVRGOut_BezugsNr._Waehrung = False
+        Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
+        Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red
+        Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62)
+        Me.txtVRGOut_BezugsNr.MaxLineLength = -1
+        Me.txtVRGOut_BezugsNr.MaxLines_Warning = ""
+        Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing
+        Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr"
+        Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20)
+        Me.txtVRGOut_BezugsNr.TabIndex = 5
+        '
         'TabPage3
         '
+        Me.TabPage3.Controls.Add(Me.LinkLabel34)
+        Me.TabPage3.Controls.Add(Me.LinkLabel35)
+        Me.TabPage3.Controls.Add(Me.Label17)
         Me.TabPage3.Controls.Add(Me.LinkLabel31)
         Me.TabPage3.Controls.Add(Me.Label12)
         Me.TabPage3.Controls.Add(Me.LinkLabel29)
@@ -995,6 +1352,37 @@ Partial Class frmStartOptions
         Me.TabPage3.Text = "Partner-Systeme"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
+        'LinkLabel34
+        '
+        Me.LinkLabel34.AutoSize = True
+        Me.LinkLabel34.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel34.Location = New System.Drawing.Point(11, 177)
+        Me.LinkLabel34.Name = "LinkLabel34"
+        Me.LinkLabel34.Size = New System.Drawing.Size(180, 13)
+        Me.LinkLabel34.TabIndex = 29
+        Me.LinkLabel34.TabStop = True
+        Me.LinkLabel34.Text = "Eingangsnachrichten abrufen PROD"
+        '
+        'LinkLabel35
+        '
+        Me.LinkLabel35.AutoSize = True
+        Me.LinkLabel35.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel35.Location = New System.Drawing.Point(11, 152)
+        Me.LinkLabel35.Name = "LinkLabel35"
+        Me.LinkLabel35.Size = New System.Drawing.Size(177, 13)
+        Me.LinkLabel35.TabIndex = 28
+        Me.LinkLabel35.TabStop = True
+        Me.LinkLabel35.Text = "Eingangsnachrichten abrufen TEST"
+        '
+        'Label17
+        '
+        Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label17.Location = New System.Drawing.Point(11, 125)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(296, 16)
+        Me.Label17.TabIndex = 27
+        Me.Label17.Text = "OREGON Nachrichtenverarbeitung (NCTS TR):"
+        '
         'LinkLabel31
         '
         Me.LinkLabel31.AutoSize = True
@@ -1073,7 +1461,7 @@ Partial Class frmStartOptions
         '
         Me.CheckBox1.AutoSize = True
         Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CheckBox1.Location = New System.Drawing.Point(173, 255)
+        Me.CheckBox1.Location = New System.Drawing.Point(173, 280)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
         Me.CheckBox1.TabIndex = 18
@@ -1085,7 +1473,7 @@ Partial Class frmStartOptions
         Me.cbxBu.AutoSize = True
         Me.cbxBu.Checked = True
         Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxBu.Location = New System.Drawing.Point(87, 255)
+        Me.cbxBu.Location = New System.Drawing.Point(87, 280)
         Me.cbxBu.Name = "cbxBu"
         Me.cbxBu.Size = New System.Drawing.Size(81, 17)
         Me.cbxBu.TabIndex = 17
@@ -1097,7 +1485,7 @@ Partial Class frmStartOptions
         Me.cbxKd.AutoSize = True
         Me.cbxKd.Checked = True
         Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxKd.Location = New System.Drawing.Point(18, 255)
+        Me.cbxKd.Location = New System.Drawing.Point(18, 280)
         Me.cbxKd.Name = "cbxKd"
         Me.cbxKd.Size = New System.Drawing.Size(63, 17)
         Me.cbxKd.TabIndex = 16
@@ -1109,7 +1497,7 @@ Partial Class frmStartOptions
         Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button9.Location = New System.Drawing.Point(18, 228)
+        Me.Button9.Location = New System.Drawing.Point(18, 253)
         Me.Button9.Name = "Button9"
         Me.Button9.Size = New System.Drawing.Size(211, 24)
         Me.Button9.TabIndex = 15
@@ -1120,12 +1508,34 @@ Partial Class frmStartOptions
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(15, 212)
+        Me.Label3.Location = New System.Drawing.Point(15, 237)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(138, 13)
         Me.Label3.TabIndex = 14
         Me.Label3.Text = "Routine Manager IMEX"
         '
+        'MyTextBox1
+        '
+        Me.MyTextBox1._DateTimeOnly = False
+        Me.MyTextBox1._numbersOnly = True
+        Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._Prozent = False
+        Me.MyTextBox1._ShortDateNew = False
+        Me.MyTextBox1._ShortDateOnly = False
+        Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._value = "100000"
+        Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
+        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox1.Location = New System.Drawing.Point(151, 132)
+        Me.MyTextBox1.MaxLineLength = -1
+        Me.MyTextBox1.MaxLines_Warning = ""
+        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
+        Me.MyTextBox1.TabIndex = 11
+        Me.MyTextBox1.Text = "100000"
+        '
         'PictureBox12
         '
         Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
@@ -1294,244 +1704,24 @@ Partial Class frmStartOptions
         Me.lblRoutineManager.TabIndex = 1
         Me.lblRoutineManager.Text = "Routine Manager"
         '
-        'Button6
+        'Button11
         '
-        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button6.Location = New System.Drawing.Point(687, 228)
-        Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(136, 24)
-        Me.Button6.TabIndex = 53
-        Me.Button6.Text = "Stammdaten --> Syska"
-        Me.Button6.UseVisualStyleBackColor = True
-        '
-        'CheckBox6
-        '
-        Me.CheckBox6.AutoSize = True
-        Me.CheckBox6.Checked = True
-        Me.CheckBox6.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CheckBox6.Location = New System.Drawing.Point(745, 255)
-        Me.CheckBox6.Name = "CheckBox6"
-        Me.CheckBox6.Size = New System.Drawing.Size(79, 17)
-        Me.CheckBox6.TabIndex = 52
-        Me.CheckBox6.Text = "Testsystem"
-        Me.CheckBox6.UseVisualStyleBackColor = True
-        '
-        'Button7
-        '
-        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button7.Location = New System.Drawing.Point(559, 228)
-        Me.Button7.Name = "Button7"
-        Me.Button7.Size = New System.Drawing.Size(129, 24)
-        Me.Button7.TabIndex = 49
-        Me.Button7.Text = "Buchungen --> Syska"
-        Me.Button7.UseVisualStyleBackColor = True
-        '
-        'CheckBox7
-        '
-        Me.CheckBox7.AutoSize = True
-        Me.CheckBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CheckBox7.Location = New System.Drawing.Point(690, 255)
-        Me.CheckBox7.Name = "CheckBox7"
-        Me.CheckBox7.Size = New System.Drawing.Size(56, 17)
-        Me.CheckBox7.TabIndex = 50
-        Me.CheckBox7.Text = "öffnen"
-        Me.CheckBox7.UseVisualStyleBackColor = True
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label16.Location = New System.Drawing.Point(556, 212)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(150, 13)
-        Me.Label16.TabIndex = 48
-        Me.Label16.Text = "Routine Manager VERAG"
-        '
-        'cboSYSKAFirma
-        '
-        Me.cboSYSKAFirma._allowedValuesFreiText = Nothing
-        Me.cboSYSKAFirma._allowFreiText = False
-        Me.cboSYSKAFirma._value = ""
-        Me.cboSYSKAFirma.FormattingEnabled = True
-        Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 251)
-        Me.cboSYSKAFirma.Name = "cboSYSKAFirma"
-        Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21)
-        Me.cboSYSKAFirma.TabIndex = 51
-        '
-        'cboBMDUnispedFirma
-        '
-        Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
-        Me.cboBMDUnispedFirma._allowFreiText = False
-        Me.cboBMDUnispedFirma._value = ""
-        Me.cboBMDUnispedFirma.FormattingEnabled = True
-        Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 251)
-        Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
-        Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21)
-        Me.cboBMDUnispedFirma.TabIndex = 42
-        '
-        'txtVRGOut_MRN
-        '
-        Me.txtVRGOut_MRN._DateTimeOnly = False
-        Me.txtVRGOut_MRN._numbersOnly = False
-        Me.txtVRGOut_MRN._numbersOnlyKommastellen = ""
-        Me.txtVRGOut_MRN._Prozent = False
-        Me.txtVRGOut_MRN._ShortDateNew = False
-        Me.txtVRGOut_MRN._ShortDateOnly = False
-        Me.txtVRGOut_MRN._TimeOnly = False
-        Me.txtVRGOut_MRN._value = ""
-        Me.txtVRGOut_MRN._Waehrung = False
-        Me.txtVRGOut_MRN._WaehrungZeichen = False
-        Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red
-        Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84)
-        Me.txtVRGOut_MRN.MaxLineLength = -1
-        Me.txtVRGOut_MRN.MaxLines_Warning = ""
-        Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing
-        Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN"
-        Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20)
-        Me.txtVRGOut_MRN.TabIndex = 73
-        '
-        'txtVRGOut_FilialenNr
-        '
-        Me.txtVRGOut_FilialenNr._DateTimeOnly = False
-        Me.txtVRGOut_FilialenNr._numbersOnly = False
-        Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = ""
-        Me.txtVRGOut_FilialenNr._Prozent = False
-        Me.txtVRGOut_FilialenNr._ShortDateNew = False
-        Me.txtVRGOut_FilialenNr._ShortDateOnly = False
-        Me.txtVRGOut_FilialenNr._TimeOnly = False
-        Me.txtVRGOut_FilialenNr._value = ""
-        Me.txtVRGOut_FilialenNr._Waehrung = False
-        Me.txtVRGOut_FilialenNr._WaehrungZeichen = False
-        Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red
-        Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176)
-        Me.txtVRGOut_FilialenNr.MaxLineLength = -1
-        Me.txtVRGOut_FilialenNr.MaxLines_Warning = ""
-        Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing
-        Me.txtVRGOut_FilialenNr.Multiline = True
-        Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr"
-        Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21)
-        Me.txtVRGOut_FilialenNr.TabIndex = 71
-        '
-        'txtVRGOut_AbfertigungsNr
-        '
-        Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False
-        Me.txtVRGOut_AbfertigungsNr._numbersOnly = False
-        Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = ""
-        Me.txtVRGOut_AbfertigungsNr._Prozent = False
-        Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False
-        Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False
-        Me.txtVRGOut_AbfertigungsNr._TimeOnly = False
-        Me.txtVRGOut_AbfertigungsNr._value = ""
-        Me.txtVRGOut_AbfertigungsNr._Waehrung = False
-        Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False
-        Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red
-        Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176)
-        Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1
-        Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = ""
-        Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing
-        Me.txtVRGOut_AbfertigungsNr.Multiline = True
-        Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr"
-        Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21)
-        Me.txtVRGOut_AbfertigungsNr.TabIndex = 70
-        '
-        'MyComboBox2
-        '
-        Me.MyComboBox2._allowedValuesFreiText = Nothing
-        Me.MyComboBox2._allowFreiText = False
-        Me.MyComboBox2._value = ""
-        Me.MyComboBox2.FormattingEnabled = True
-        Me.MyComboBox2.Location = New System.Drawing.Point(298, 252)
-        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, 252)
-        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(153, 21)
-        Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
-        '
-        'MyComboBox1
-        '
-        Me.MyComboBox1._allowedValuesFreiText = Nothing
-        Me.MyComboBox1._allowFreiText = False
-        Me.MyComboBox1._value = ""
-        Me.MyComboBox1.FormattingEnabled = True
-        Me.MyComboBox1.Location = New System.Drawing.Point(298, 62)
-        Me.MyComboBox1.Name = "MyComboBox1"
-        Me.MyComboBox1.Size = New System.Drawing.Size(62, 21)
-        Me.MyComboBox1.TabIndex = 4
-        '
-        'txtVRGOut_BezugsNr
-        '
-        Me.txtVRGOut_BezugsNr._DateTimeOnly = False
-        Me.txtVRGOut_BezugsNr._numbersOnly = False
-        Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = ""
-        Me.txtVRGOut_BezugsNr._Prozent = False
-        Me.txtVRGOut_BezugsNr._ShortDateNew = False
-        Me.txtVRGOut_BezugsNr._ShortDateOnly = False
-        Me.txtVRGOut_BezugsNr._TimeOnly = False
-        Me.txtVRGOut_BezugsNr._value = ""
-        Me.txtVRGOut_BezugsNr._Waehrung = False
-        Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
-        Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red
-        Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62)
-        Me.txtVRGOut_BezugsNr.MaxLineLength = -1
-        Me.txtVRGOut_BezugsNr.MaxLines_Warning = ""
-        Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing
-        Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr"
-        Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20)
-        Me.txtVRGOut_BezugsNr.TabIndex = 5
-        '
-        'MyTextBox1
-        '
-        Me.MyTextBox1._DateTimeOnly = False
-        Me.MyTextBox1._numbersOnly = True
-        Me.MyTextBox1._numbersOnlyKommastellen = ""
-        Me.MyTextBox1._Prozent = False
-        Me.MyTextBox1._ShortDateNew = False
-        Me.MyTextBox1._ShortDateOnly = False
-        Me.MyTextBox1._TimeOnly = False
-        Me.MyTextBox1._value = "10000"
-        Me.MyTextBox1._Waehrung = False
-        Me.MyTextBox1._WaehrungZeichen = True
-        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox1.Location = New System.Drawing.Point(151, 132)
-        Me.MyTextBox1.MaxLineLength = -1
-        Me.MyTextBox1.MaxLines_Warning = ""
-        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox1.Name = "MyTextBox1"
-        Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
-        Me.MyTextBox1.TabIndex = 11
-        Me.MyTextBox1.Text = "10000"
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button11.Location = New System.Drawing.Point(637, 197)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(208, 26)
+        Me.Button11.TabIndex = 76
+        Me.Button11.Text = "Aus Zwischenablage"
+        Me.Button11.UseVisualStyleBackColor = True
         '
         'frmStartOptions
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(861, 720)
+        Me.ClientSize = New System.Drawing.Size(861, 827)
         Me.Controls.Add(Me.pnl)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -1541,6 +1731,7 @@ Partial Class frmStartOptions
         Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
+        CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).EndInit()
         Me.tbcntr.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
@@ -1556,6 +1747,7 @@ Partial Class frmStartOptions
         CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage2.ResumeLayout(False)
         Me.TabPage2.PerformLayout()
+        CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage3.ResumeLayout(False)
@@ -1676,4 +1868,17 @@ Partial Class frmStartOptions
     Friend WithEvents cboSYSKAFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents CheckBox7 As CheckBox
     Friend WithEvents Label16 As Label
+    Friend WithEvents Button8 As Button
+    Friend WithEvents piceZollAnh As PictureBox
+    Friend WithEvents txtEZOLLAnhDat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblEZOLLDat As LinkLabel
+    Friend WithEvents LinkLabel34 As LinkLabel
+    Friend WithEvents LinkLabel35 As LinkLabel
+    Friend WithEvents Label17 As Label
+    Friend WithEvents Button10 As Button
+    Friend WithEvents cbxSyskaWdh As CheckBox
+    Friend WithEvents txtSyskaWdhDateiname As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents dgvMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents clmnMRN As DataGridViewTextBoxColumn
+    Friend WithEvents Button11 As Button
 End Class

initATLASAufschubkonten/frmStartOptions.resx

@@ -118,6 +118,30 @@
     <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="piceZollAnh.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
@@ -358,6 +382,9 @@
         CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
 </value>
   </data>
+  <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj

initATLASAufschubkonten/frmStartOptions.vb

@@ -67,6 +67,8 @@ Public Class frmStartOptions
         cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360 GmbH", "19"))
         cboSYSKAFirma.changeItem("")
 
+        txtEZOLLAnhDat._value = Now.ToShortDateString
+
         Dim PARAM = ""
         Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
         If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de          r Pfad zum programm ist
@@ -76,6 +78,7 @@ Public Class frmStartOptions
             ' Next
         End If
 
+
         'Standart-Errorverhalten ist MAIL
         VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
         Select Case PARAM
@@ -118,6 +121,19 @@ Public Class frmStartOptions
                 f.Show()
                 AddHandler f.FormClosed, AddressOf closeMe
 
+            Case "NCTSTR_EINARBEITUNG_OREGON_TEST"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+                Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON(True)
+                Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
+            Case "NCTSTR_EINARBEITUNG_OREGON_PROD"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON(True)
+                Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
+
 
             Case "UPDATE_SMS"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
@@ -199,7 +215,7 @@ Public Class frmStartOptions
                     If (parameter.Count - 1) >= 5 Then von = parameter(5)
 
                     VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-                    If von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Then
+                    If von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then
                         importFileFromMICMailAnhang(pfad, betreff)
                     Else
                         importFileFromDyMailAnhang(pfad, betreff)
@@ -218,6 +234,25 @@ Public Class frmStartOptions
                 VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True)
                 closeMe()
 
+            Case "SYSKA_DATEN_BU"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(1, False)
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(1, False)
+
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(7, False)
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(7, False)
+
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(11, False)
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(11, False)
+
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(17, False)
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(17, False)
+
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(19, False)
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(19, False)
+
+                closeMe()
+
             Case "UNISPED_BMD"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(False, False) 'Kunden noch nicht
@@ -230,86 +265,108 @@ Public Class frmStartOptions
         End Select
     End Sub
 
-    Sub importFileFromEZOLL(datum As Date)
+    Function importFileFromEZOLL(datum As Date) As Boolean
+        Try
 
-        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-        Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN    FROM [zzAktivitaet]     INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID 
-                                                where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00'  and pfad is not null", "EZOLL", 20)
-        If dt IsNot Nothing Then
-            For Each row In dt.Rows
-                Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"))
+            Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN    FROM [zzAktivitaet]     INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID 
+                                                where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00'  and pfad is not null", "EZOLL", 200)
+            If dt IsNot Nothing Then
+                For Each row In dt.Rows
+                    Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"))
 
-                If Not cDHF_Anhaenge.hasEntry Then
+                    If Not cDHF_Anhaenge.hasEntry Then
 
-                    cDHF_Anhaenge.AnmID = row("AnmID")
-                    cDHF_Anhaenge.LizenzNr = row("LizenzNr")
-                    cDHF_Anhaenge.Operatorid = row("Operatorid")
-                    cDHF_Anhaenge.AnmID = row("AnmID")
-                    cDHF_Anhaenge.MsgTyp = row("MsgTyp")
-                    cDHF_Anhaenge.ErstelltAm = row("ErstelltAm")
-                    cDHF_Anhaenge.pfad = row("pfad")
-                    cDHF_Anhaenge.LRN = If(row("LRN") IsNot DBNull.Value, row("LRN"), "")
-                    cDHF_Anhaenge.CRN = If(row("CRN") IsNot DBNull.Value, row("CRN"), "")
+                        cDHF_Anhaenge.AnmID = row("AnmID")
+                        cDHF_Anhaenge.LizenzNr = row("LizenzNr")
+                        cDHF_Anhaenge.Operatorid = row("Operatorid")
+                        cDHF_Anhaenge.AnmID = row("AnmID")
+                        cDHF_Anhaenge.MsgTyp = row("MsgTyp")
+                        cDHF_Anhaenge.ErstelltAm = row("ErstelltAm")
+                        cDHF_Anhaenge.pfad = row("pfad")
+                        cDHF_Anhaenge.LRN = If(row("LRN") IsNot DBNull.Value, row("LRN"), "")
+                        cDHF_Anhaenge.CRN = If(row("CRN") IsNot DBNull.Value, row("CRN"), "")
 
-                    Try
-                        Dim Bezeichnung = ""
-                        Select Case row("MsgTyp")
-                            Case "EZ922" : Bezeichnung = "STEUERBESCHEID"
-                            Case "EZ923" : Bezeichnung = "STEUERBESCHEID_MITT"
-                            Case "TR109" : Bezeichnung = "VBD"
-                        End Select
+                        Try
+                            Dim Bezeichnung = ""
+                            Select Case row("MsgTyp")
+                                Case "EZ922" : Bezeichnung = "STEUERBESCHEID"
+                                Case "EZ923" : Bezeichnung = "STEUERBESCHEID_MITT"
+                                Case "TR109" : Bezeichnung = "VBD"
+                            End Select
 
-                        If cDHF_Anhaenge.pfad <> "" Then
-                            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
+                            If cDHF_Anhaenge.pfad <> "" Then
+                                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 = 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 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 = ""
-                            copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\Ezoll\c$\"), ZIEL_PFAD, destFull)
+                                Dim destFull = ""
+                                copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\Ezoll\c$\"), ZIEL_PFAD, destFull)
 
-                            If destFull <> "" Then
-                                If DS.insertDataToDATENSERVER(destFull) Then
-                                    cDHF_Anhaenge.docID = DS.da_id
+                                If destFull <> "" Then
+                                    If DS.insertDataToDATENSERVER(destFull) Then
+                                        cDHF_Anhaenge.docID = DS.da_id
+                                    End If
                                 End If
                             End If
-                        End If
-                    Catch ex As Exception
-                        MsgBox(ex.Message & ex.StackTrace)
-                    End Try
+                        Catch ex As Exception
+                            MsgBox(ex.Message & ex.StackTrace)
+                        End Try
 
-                    cDHF_Anhaenge.SAVE()
+                        cDHF_Anhaenge.SAVE()
 
-                    Select Case row("MsgTyp")
-                        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_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
+                        Select Case row("MsgTyp")
+                            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_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
 
 
 
-                End If
-            Next
-        End If
-    End Sub
+                    End If
+                Next
+            End If
+            Return True
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+
+            Return False
+
+        End Try
+    End Function
+
 
     Sub doMailZollbeleg(pfad, art, dy_id)
         Try
 
             Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(dy_id)
             If DY.dy_SendungsId IsNot Nothing AndAlso CInt(DY.dy_SendungsId) > 0 Then
-                Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.dy_SendungsId)
-                Dim list As New List(Of Integer)
+                doMailZollbeleg(pfad, art, DY.dy_SendungsId, DY.dy_BezugsNr)
 
-                sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, DY, SND)
-                sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, DY, SND)
-                sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, DY, SND)
-                sendMailZollbeleg(pfad, SND.tblSnd_AvisiererKdNr, art, list, DY, SND)
-                sendMailZollbeleg(pfad, SND.tblSnd_AuftraggeberKdNr, art, list, DY, SND)
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+        End Try
+    End Sub
+
+    Sub doMailZollbeleg(pfad, art, dy_SendungsId, BezugsNr)
+        Try
+
+            If dy_SendungsId IsNot Nothing AndAlso CInt(dy_SendungsId) > 0 Then
+                Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
+                Dim list As New List(Of Integer)
+                sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, BezugsNr, SND)
+                sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, BezugsNr, SND)
+                sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, BezugsNr, SND)
+                sendMailZollbeleg(pfad, SND.tblSnd_AvisiererKdNr, art, list, BezugsNr, SND)
+                sendMailZollbeleg(pfad, SND.tblSnd_AuftraggeberKdNr, art, list, BezugsNr, SND)
             End If
 
         Catch ex As Exception
@@ -317,25 +374,44 @@ Public Class frmStartOptions
 
         End Try
     End Sub
+    'Sub doMailZollbelegTC(pfad, art, tc_id)
+    '    Try
 
-    Sub sendMailZollbeleg(pfad As String, KundenNr As Integer, art As String, ByRef list As List(Of Integer), DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, SND As VERAG_PROG_ALLGEMEIN.cSendungen)
+    '        Dim DY As New TELOTEC_Worker.cTelotec_Anmeldung(tc_id)
+    '        If DY.telanm_SendungsId IsNot Nothing AndAlso CInt(DY.telanm_SendungsId) > 0 Then
+    '            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.telanm_SendungsId)
+    '            Dim list As New List(Of Integer)
+
+    '            sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, DY, SND)
+    '            sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, DY, SND)
+    '            sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, DY, SND)
+    '            sendMailZollbeleg(pfad, SND.tblSnd_AvisiererKdNr, art, list, DY, SND)
+    '            sendMailZollbeleg(pfad, SND.tblSnd_AuftraggeberKdNr, art, list, DY, SND)
+    '        End If
+
+    '    Catch ex As Exception
+    '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+
+    '    End Try
+    'End Sub
+
+    Sub sendMailZollbeleg(pfad As String, KundenNr As Integer, art As String, ByRef list As List(Of Integer), BezugsNr As String, SND As VERAG_PROG_ALLGEMEIN.cSendungen)
         Try
             If KundenNr > 0 Then
-                If Not list.Find(Function(x) x = KundenNr) Then 'nicht bereits verarbeitet
+                If Not list.Exists(Function(x) x = KundenNr) Then 'nicht bereits verarbeitet
                     list.Add(KundenNr)
                     Dim pfadList As New List(Of String)
                     pfadList.Add(pfad)
                     Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
                     Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
                     If KD_ERW IsNot Nothing AndAlso KD IsNot Nothing AndAlso KD.EmailFreigabe Then
-                        If KD_ERW.EmailFreigabe_Art = "BLG" Then
-
+                        If KD_ERW.EmailFreigabe_Art = "BLG" Or art = "AVM" Or art = "ZNV" Then ' Bei AVM ist es immer nach Freigabe, auch ZNV 
                             Dim Standort = "SUB"
                             Select Case SND.FilialenNr
                                 Case "5501" : Standort = "IMX"
                                 Case "5601" : Standort = "UNI"
-                                Case "5701" : Standort = "FO"
-                                Case "5801" : Standort = "AMB"
+                                Case "5701" : Standort = "AMB"
+                                Case "5801" : Standort = "FO"
                                 Case "4801" : Standort = "ATL"
                                 Case "5003" : Standort = "SBG"
                                 Case "5103" : Standort = "WAI"
@@ -355,6 +431,11 @@ Public Class frmStartOptions
                             Dim cStandort = cStandorteDAL.LesenStandort(-1, "", "SELECT * FROM Standorte WHERE Standort = '" & Standort & "'")
                             Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SND.FilialenNr)
 
+                            '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+                            'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & Standort & vbNewLine & cStandort.eMail_Zollbeleg_Betreff & vbNewLine & cStandort.eMail_Zollbeleg_Text, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+                            '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
                             Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg"
                             betreff = betreff.Replace("%LKW%", "")
                             betreff = betreff.Replace("%Standort%", "")
@@ -372,29 +453,49 @@ Public Class frmStartOptions
                             '  body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
                             body = body.Replace("%Platzhalter%", "")
 
-                            EMails = "al@verag.ag"
-                            EMails_CC = ""
-                            EMails_BCC = ""
+
+
+                            ''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+                            'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & vbNewLine & EMails & vbNewLine & EMails_CC, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+                            ''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+                            '!!!!!!!!!!!!!!!!!!!!!!!!!!
+                            'EMails = "luxbauer@gmail.com"
+                            'EMails_CC = ""
+                            'EMails_BCC = ""
+                            '!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+                            If EMails_BCC = "" Then
+                                EMails_BCC = "al@verag.ag"
+                            Else
+                                EMails_BCC &= ";al@verag.ag"
+                            End If
+
 
                             Select Case art
                                 Case "STB"
                                     If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
-                                        betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & DY.dy_BezugsNr)
+                                        betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
                                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
                                     End If
                                 Case "VBD"
                                     If KD_ERW.EmailFreigabe_VBDPDF Then
-                                        betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & DY.dy_BezugsNr)
+                                        betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
                                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
                                     End If
                                 Case "ABD"
                                     If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
-                                        betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & DY.dy_BezugsNr)
+                                        betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
                                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
                                     End If
                                 Case "AVM"
                                     If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
-                                        betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & DY.dy_BezugsNr)
+                                        betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
+                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
+                                    End If
+                                Case "ZNV"
+                                    If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
+                                        betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr)
                                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
                                     End If
                             End Select
@@ -420,7 +521,6 @@ Public Class frmStartOptions
     End Function
     Sub importFileFromMICMailAnhang(pfad, betreff)
 
-
         Try
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
@@ -573,6 +673,17 @@ Public Class frmStartOptions
                     End If
 
                 End If
+            ElseIf betreff = "Report nctsTransDeclGuarantees generated successfully" Then
+
+                Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\NCTS_XLS\" & Now.Year & "\"
+                If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+
+                Dim destFull = ""
+                moveFile(pfad, ZIEL_PFAD, destFull)
+
+                doExcelImportNCTS_FREMD(destFull)
+
+
             End If
 
             ' GENERELLES NOT IDENTIFIED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -590,8 +701,124 @@ Public Class frmStartOptions
         End Try
 
     End Sub
+    Public Function FileInUse(ByVal sFile As String) As Boolean
+        If System.IO.File.Exists(sFile) Then
+            Try
+                Dim F As Short = FreeFile()
+                FileOpen(F, sFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
+                FileClose(F)
+            Catch
+                Return True
+            End Try
+        End If
+    End Function
+
+    Function doExcelImportNCTS_FREMD(destFull As String) As Boolean
+        'Excel2.Workbooks.Open(destFull,, True)
+        Dim Excel1 As Object 'New Microsoft.Office.Interop.Excel.Application
+        Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
+        Excel1 = CreateObject("Excel.Application")
+        Dim txt As String
+        Dim Datei As Object 'as WorkBook
+        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(destFull, "00", System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+
+        Try
+            With Excel1
+
+                Datei = .Workbooks.Open(destFull,, True) 'Anpassen
+                'Try
+                '    Datei = .Workbooks.Open(destFull,, True) 'Anpassen
+                'Catch ex As Exception
+                '    System.Threading.Thread.Sleep(5000) ' 5 Sek. warten --> noch Zugriff vom Erstellen?
+                '    Datei = .Workbooks.Open(destFull,, True)
+                'End Try
+
+                Blatt = Datei.Worksheets(1) 'Anpassen
+
+                'Excel1.Workbooks.Open(destFull)
+                'Excel1.Visible = True ....wers braucht ?
+
+                Dim zeile = 2
+                'txt =""
+                While zeile <= 10000 AndAlso Blatt.Range("A" & zeile) IsNot Nothing AndAlso Blatt.Range("F" & zeile) IsNot Nothing AndAlso Blatt.Range("A" & zeile).Value = "GB"
+                    ' If zeile < 5 Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MIC", "AA", System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+                    'asd
+                    Dim MRN = Blatt.Range("F" & zeile).Value
+                    If MRN <> "" Then
+                        'If zeile < 5 Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MIC", "OO", System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+
+                        Dim NCTS_FREMD = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True)
+                        If NCTS_FREMD Is Nothing Then NCTS_FREMD = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
+
+                        Dim StatusTxt = Blatt.Range("G" & zeile).Value
+
+                        NCTS_FREMD.ncts_ObjectName = Blatt.Range("H" & zeile).Value
+                        NCTS_FREMD.ncts_MRN = MRN
+                        NCTS_FREMD.ncts_Partnersystem = "MIC"
+                        NCTS_FREMD.ncts_ArtAnmeldung = Blatt.Range("D" & zeile).Value
+
+                        NCTS_FREMD.ncts_Trans_DatumZeit = Blatt.Range("E" & zeile).Value
+                        NCTS_FREMD.ncts_Erstellung = Blatt.Range("E" & zeile).Value
+                        NCTS_FREMD.ncts_Eroeffnung = Blatt.Range("E" & zeile).Value
+                        NCTS_FREMD.ncts_Ankunft = Blatt.Range("U" & zeile).Value
+                        NCTS_FREMD.ncts_Erledigung = Blatt.Range("U" & zeile).Value 'WriteOff ->nicht sicher
+
+                        NCTS_FREMD.ncts_AbgangsDienststellennummer = Blatt.Range("M" & zeile).Value
+                        NCTS_FREMD.ncts_BestimmungsstelleDienststellennummer = Blatt.Range("N" & zeile).Value
+                        NCTS_FREMD.ncts_VersendungsLandCode = Blatt.Range("K" & zeile).Value
+                        NCTS_FREMD.ncts_BestimmungslandCode = Blatt.Range("L" & zeile).Value
+                        NCTS_FREMD.ncts_Wiedergestellungsdatum = Blatt.Range("T" & zeile).Value 'Frist
 
 
+                        If StatusTxt.ToString.Contains("Write-off notification") Then
+                            NCTS_FREMD.ncts_Status = 60
+                        ElseIf StatusTxt.ToString.Contains("Release for transit") Then
+                            NCTS_FREMD.ncts_Status = 50
+                        Else
+                            NCTS_FREMD.ncts_Status = 5
+                        End If
+                        NCTS_FREMD.ncts_Status_KEWILL_Equivalent = NCTS_FREMD.ncts_Status
+
+                        NCTS_FREMD.ncts_SICHERHEITSANGABEN.Clear()
+                        Dim GRN As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
+                        GRN.nctsSA_GRN = Blatt.Range("P" & zeile).Value
+                        GRN.nctsSA_AbgabenBetrag = Blatt.Range("R" & zeile).Value 'GBP?????
+                        NCTS_FREMD.ncts_SICHERHEITSANGABEN.Add(GRN)
+                        NCTS_FREMD.SAVE_ALL()
+
+                    End If
+                    zeile += 1
+
+                End While
+
+            End With
+
+            Excel1.Workbooks.Close
+            System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel1)
+            System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Blatt)
+            Excel1 = Nothing
+            Blatt = Nothing
+            GC.Collect()
+
+            Return True
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+
+            Try
+                Excel1.Workbooks.Close
+                System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel1)
+                System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Blatt)
+                Excel1 = Nothing
+                Blatt = Nothing
+                GC.Collect()
+
+            Catch ex2 As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            End Try
+        End Try
+        Return False
+    End Function
     Function insertIntoSpedBuch_MIC(FilialenNr As Integer, AbfertigungsNr As Integer, AtlasBezNrNCTS As String, AtlasBezNrEZA As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, MRN As String) As Boolean
         'Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
 
@@ -699,9 +926,35 @@ Public Class frmStartOptions
                 betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "")
                 If betreff.ToString.Contains(",") Then
                     Dim sp = betreff.ToString.Split(",")
-                    betreff = sp(0).Trim
 
-                    Dim dy_id As String = ""
+
+                    If betreff.contains("Registriernr.: ATD") Then ' ZNV!!!!
+                        betreff = sp(0).Trim
+                        Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID]  FROM [tblSendungen]  where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO")
+                        If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then
+                            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ZNV", "SND_ID_" & SND_ID, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+                            DS.da_vorlage = False
+                            Dim destFull = ""
+                            Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+                            If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                            moveFile(pfad, ZIEL_PFAD, destFull)
+
+                            If DS.insertDataToDATENSERVER(destFull) 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!
+                                doMailZollbeleg(DS.GET_TOP1_PATH, "ZNV", SND_ID, betreff)
+                            End If
+
+                        End If
+
+
+                    Else ' STB !!!!
+
+
+                        betreff = sp(0).Trim
+
+
+                        Dim dy_id As String = ""
                     If betreff.ToString.Length > 15 Then
                         dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1)  FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%'  and LEN(eza_ObjectName)>=13", "FMZOLL")
                     Else
@@ -727,6 +980,7 @@ Public Class frmStartOptions
                         End If
                     End If
 
+                    End If
                 End If
 
                 'ABD
@@ -1016,12 +1270,14 @@ Public Class frmStartOptions
         If Not IO.File.Exists(file) Then Return False
         If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
         dest = toDirectory & ".tmp_" & cut_file(file)
+        Dim tmpExt = ""
         While IO.File.Exists(dest) Or IO.File.Exists(dest).ToString.Replace(".tmp_", "") 'wenn mit oder ohen .tmp_ existiert...
-            dest = toDirectory & ".tmp_" & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file)
+            tmpExt = Now.ToString("yyMMdd_HHmmss.fff_")
+            dest = toDirectory & ".tmp_" & tmpExt & cut_file(file)
         End While
         IO.File.Copy(file, dest) ' Verschiebt die Datei
-        IO.File.Move(dest, dest.ToString.Replace(".tmp_", "")) ' Umbenennen der Datei --> der "." am Anfang dient dazu, dass die Datei nicht abgegriffen wird, während sie kopiert wird!
-        dest = dest.ToString.Replace(".tmp_", "")
+        IO.File.Move(dest, dest.ToString.Replace(".tmp_" & tmpExt, "")) ' Umbenennen der Datei --> der "." am Anfang dient dazu, dass die Datei nicht abgegriffen wird, während sie kopiert wird!
+        dest = dest.ToString.Replace( ".tmp_" & tmpExt, "")
         Return True
 
     End Function
@@ -1124,9 +1380,9 @@ Public Class frmStartOptions
 
 
     Function getUID_Pruefung(maxAnz As Integer) As Boolean
-        getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
-        getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;la@verag.ag", "al@verag.ag")
-        getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "la@verag.ag", "al@verag.ag")
+        getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag", "al@verag.ag")
+        getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag", "al@verag.ag")
+        getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag")
         getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag")
         'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
 
@@ -1175,7 +1431,7 @@ 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("mm@verag.ag;la@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list)
+                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list)
                     '  VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
                 End If
             End If
@@ -1203,7 +1459,7 @@ 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("Viktoria.Leirich@imex-group.at;la@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list)
+                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("Viktoria.Leirich@imex-group.at;kb@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list)
                     '  VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
                 End If
             End If
@@ -1231,7 +1487,7 @@ 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("la@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list)
+                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list)
                     '  VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
                 End If
             End If
@@ -1569,7 +1825,6 @@ Public Class frmStartOptions
 
                         Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default)
 
-
                         If XML_Code.Contains("<FCFCDC>") And XML_Code.Contains("<TaxOffice>9153</TaxOffice>") Then
                             If Not IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then
                                 IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
@@ -1611,11 +1866,71 @@ Public Class frmStartOptions
     Private Sub TabPage2_Click(sender As Object, e As EventArgs)
 
     End Sub
+    Private Sub form1_KeyUp(ByVal sender As Object, ByVal e As EventArgs) Handles Button11.Click
 
+
+
+        Dim rowSplitter As Char() = {vbCr, vbLf}
+            Dim columnSplitter As Char() = {vbTab}
+            Dim dataInClipboard As IDataObject = Clipboard.GetDataObject()
+            Dim stringInClipboard As String = CStr(dataInClipboard.GetData(DataFormats.Text))
+            Dim rowsInClipboard As String() = stringInClipboard.Split(rowSplitter, StringSplitOptions.RemoveEmptyEntries)
+        Dim r As Integer = 0 'dgvMRN.SelectedRows(0).Index
+        Dim c As Integer = 0 'dgvMRN.SelectedRows(0).Cells(0).ColumnIndex
+
+        MsgBox(rowsInClipboard.Length)
+            If dgvMRN.Rows.Count < (r + rowsInClipboard.Length) Then
+                dgvMRN.Rows.Add(r + rowsInClipboard.Length - dgvMRN.Rows.Count)
+            End If
+
+        For iRow As Integer = 0 To rowsInClipboard.Length - 1
+            Dim valuesInRow As String() = rowsInClipboard(iRow).Split(columnSplitter)
+
+            For iCol As Integer = 0 To valuesInRow.Length - 1
+
+                If dgvMRN.ColumnCount - 1 >= c + iCol Then
+                    dgvMRN.Rows(r + iRow).Cells(c + iCol).Value = valuesInRow(iCol)
+                End If
+            Next
+        Next
+    End Sub
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
         Dim ftmp As Object = If(IsNumeric(txtVRGOut_FilialenNr.Text.Trim), txtVRGOut_FilialenNr.Text, Nothing)
         Dim atmp As Object = If(IsNumeric(txtVRGOut_AbfertigungsNr.Text.Trim), txtVRGOut_AbfertigungsNr.Text, Nothing)
 
+
+        'DGV------------------------------------
+        If dgvMRN.Rows.Count - 1 > 0 Then
+            For Each r As DataGridViewRow In dgvMRN.Rows
+                If r.Cells(0) IsNot Nothing Then
+                    Dim BezugsNrDgv = ""
+                    Dim okDGV = False
+                    Dim mrn = r.Cells(0).Value
+                    If If(mrn, "") <> String.Empty Then
+                        Select Case MyComboBox1._value
+                            Case "DY"
+                                BezugsNrDgv = cVERAG_out_ncts.getBezugnNr_ByMRN(mrn)
+                                okDGV = cVERAG_out_ncts.copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNrDgv, getISett, ftmp, atmp)
+                            Case "TC"
+                                BezugsNrDgv = TELOTEC_Worker.cTelotec_Anmeldung.getBezugnNr_ByMRN(mrn)
+                                okDGV = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNrDgv, getISett, ftmp, atmp)
+                            Case "DHF"
+                                BezugsNrDgv = cVERAG_out_ncts.getLRN_ByCRN(mrn)
+                                okDGV = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(BezugsNrDgv, getISett, ftmp, atmp)
+                        End Select
+                    End If
+                    If okDGV Then
+                        r.DefaultCellStyle.BackColor = Color.LightGreen
+                    Else
+                        r.DefaultCellStyle.BackColor = Color.IndianRed
+                    End If
+                End If
+                Me.Refresh()
+            Next
+            Exit Sub
+        End If
+        '------------------------------------
+
         Dim BezugsNr = txtVRGOut_BezugsNr.Text
         If txtVRGOut_BezugsNr.Text.Trim = "" And txtVRGOut_MRN.Text <> "" Then
 
@@ -1888,11 +2203,15 @@ Public Class frmStartOptions
     End Function
 
     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        If cbxSyskaWdh.Checked And txtSyskaWdhDateiname.Text = "" Then
+            MsgBox("Dateiname angeben!") : Exit Sub
+        End If
+
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False
         If cboSYSKAFirma._value = "" Then
-            VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False)
+            VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, ""))
         Else
-            VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked)
+            VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, ""))
         End If
     End Sub
 
@@ -1904,4 +2223,44 @@ Public Class frmStartOptions
             VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(cboSYSKAFirma._value, CheckBox7.Checked)
         End If
     End Sub
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+        doExcelImportNCTS_FREMD(InputBox("Eing:",, "F:\mic2.xlsx"))
+        'Dim list As New List(Of Integer)
+        'Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(572237)
+        'Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.dy_SendungsId)
+
+        'sendMailZollbeleg("C:\VeragTMP\USER_4\VERG-SYS_IMP_ZOLL_TAX-IPDC-4803_21061055-ATC400039161120217701-$V8.pdf", 750735, "STB", list, DY.dy_BezugsNr, SND)
+    End Sub
+
+    Private Sub lblEZOLLDat_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblEZOLLDat.LinkClicked
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim bool = importFileFromEZOLL(txtEZOLLAnhDat._value)
+        showPic(bool, piceZollAnh)
+    End Sub
+
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
+
+    End Sub
+
+    Private Sub LinkLabel35_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel35.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+        Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
+
+    Private Sub LinkLabel34_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel34.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
+
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+        'VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_StammdatenTEST(1, True)
+    End Sub
+
 End Class

initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb

@@ -291,6 +291,97 @@ Public Class frmTCNachrichtenVerarbeitung
                                 ' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
                             End If
 
+
+                        ElseIf fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then
+                            Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_")
+                            Dim CRN = ""
+                            Dim tc_id = ""
+                            Dim Anm_id = ""
+                            Dim typeMsg = ""
+                            Dim BezugsNr = ""
+
+                            If split.Length > 0 Then CRN = split(0)
+                            If split.Length > 1 Then Anm_id = split(1)
+                            If split.Length > 2 Then typeMsg = split(2)
+
+                            Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
+
+                            tc_id = SQL.DLookup("[telanm_id]", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL")
+                            BezugsNr = SQL.DLookup("Refs_LRN", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL")
+
+                            If BezugsNr <> String.Empty Then
+
+
+                                Select Case typeMsg
+                                    Case "EZ923" 'STB
+
+                                        DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+                                        DS.da_vorlage = False
+
+                                        Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
+                                        If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+                                        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+
+                                        Dim destFull = ""
+                                        frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
+
+                                        If DS.insertDataToDATENSERVER(destFull) Then
+                                            If IsNumeric(tc_id) AndAlso tc_id > 0 Then
+                                                SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
+                                                SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+                                                frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
+                                            End If
+                                        End If
+                                        found = True
+                                        addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr)
+
+
+                                    Case "EZ922" 'STB Mitteilung
+
+                                        DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+                                        DS.da_vorlage = False
+
+                                        Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
+                                        If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+                                        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+
+                                        Dim destFull = ""
+                                        frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
+
+                                        If DS.insertDataToDATENSERVER(destFull) Then
+                                            If IsNumeric(tc_id) AndAlso tc_id > 0 Then
+                                                SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
+                                                SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+                                                frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
+                                            End If
+                                        End If
+                                        found = True
+                                        addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr)
+
+                                    Case "TR109" 'VBD
+
+                                        DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+                                        DS.da_vorlage = False
+
+                                        Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
+                                        If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
+                                        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+
+                                        Dim destFull = ""
+                                        frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
+
+                                        If DS.insertDataToDATENSERVER(destFull) Then
+                                            If IsNumeric(tc_id) AndAlso tc_id > 0 Then
+                                                SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
+                                                SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+                                                frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id)
+                                            End If
+                                        End If
+                                        found = True
+                                        addDGVEinarbeitung("PDF: VBD ", BezugsNr)
+
+                                End Select
+                            End If
                         End If
 
                         If True Then
@@ -589,6 +680,9 @@ Public Class frmTCNachrichtenVerarbeitung
                 If TC.telanm_BezugsNr.ToString.StartsWith("5501") Then
                     TC.telanm_firma = "IMEX" 'VERAG WO
                 End If
+                If TC.telanm_BezugsNr.ToString.StartsWith("4801") Then
+                    TC.telanm_firma = "IMEX" 'VERAG WO
+                End If
                 TC.telanm_niederlassung = "SUB"
 
                 TC.telanm_Erstellung = Now
@@ -946,12 +1040,12 @@ Public Class frmTCNachrichtenVerarbeitung
                 Try
                     cmd.ExecuteNonQuery()
 
-                    'Lösche File:
-                    Try
-                        System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
-                    Catch ex As Exception
-                        writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
-                    End Try
+                    ''Lösche File: --> vom ALTEN ATLAS
+                    'Try
+                    '    System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
+                    'Catch ex As Exception
+                    '    writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
+                    'End Try
                     Return True
                 Catch ex As System.Data.SqlClient.SqlException
                     writeLog("ERROR", "Fehler beim Schreiben in die Datenbank: " & ex.Message)

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb

@@ -0,0 +1,569 @@
+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 PARTNERSYSTEM = "MAVI"
+    Dim SERVER_Path = ""
+    Dim SERVER_Path_TEST = ""
+    ' 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.SERVER_Path = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("SERVER_Path", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        Me.SERVER_Path_TEST = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("SERVER_Path_TEST", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        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 SERVER_Path = ""
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+
+                SERVER_Path = Me.SERVER_Path '"\\ftps.verag.ag\FTP\MAVI\IN\"
+            Else
+
+                SERVER_Path = Me.SERVER_Path_TEST '"\\ftps.verag.ag\FTP\MAVI\IN\"
+            End If
+
+
+            For Each f In IO.Directory.GetFiles(SERVER_Path)
+                Dim fi As New IO.FileInfo(f)
+                If Not fi.Name.StartsWith(".") Then
+                    Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
+                    While IO.File.Exists(zielPfad)
+                        zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
+                    End While
+                    IO.File.Copy(f, zielPfad)
+                    If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+                        If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
+                    End If
+
+                    ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen
+
+                    cnt += 1
+                End If
+            Next
+
+
+            Return cnt
+
+        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 NACHRICHTENTYP = 1 To 10 'Nach Nachrichtentyp abarbeteiten
+
+            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 nr_id As Integer = -1
+                        Dim fi As FileInfo = New FileInfo(d)
+                        If Not fi.Name.StartsWith(".") Then
+
+                            '   EDIFACT
+                            ' If fi.Extension = ".edi" Then
+                            Dim alreadyMoved = False
+
+                            Dim NACHRICHTENTYP_notfound = 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
+
+                                Select Case NACHRICHTENTYP
+                                    Case 1
+                                        'NCTS: Versandanmeldung
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then
+                                            If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+
+                                    Case 2
+                                        'NCTS: Versandanmeldung - Ergänzung GUID
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
+                                            If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+                                    Case 3
+                                        'NCTS: BestätigungZoll
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
+                                            If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+                                    Case 4
+                                        'NCTS: Guarantee
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
+                                            If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+                                    Case 5
+                                        'NCTS: Ankunftsanzeige
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
+                                            If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+
+                                    Case 6
+                                        'NCTS: Erledigungsmitteilung
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
+                                            If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+
+                                    Case 7
+                                        'NCTS: Cancellation decision  CC009A
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then
+                                            If cMAVIWorker.readNCTS_AbbruchXML_CC009A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+                                    Case 8
+                                        'NCTS: Declaration rejected CC016A
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then
+                                            If cMAVIWorker.readNCTS_RueckweisungXML_CC016A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+                                    Case 9
+                                        'NCTS: No release for transit – type B CC051B
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then
+                                            If cMAVIWorker.readNCTS_KeineFreigabeXML_CC051B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+
+
+                                    Case 10
+                                        NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden
+                                End Select
+                            End If
+
+
+                            Dim destPath = ""
+                            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") & "\", destPath)
+                                cntDatenEingelesen += 1
+                            Else
+                                If NACHRICHTENTYP_notfound Then
+                                    frmStartOptions.moveFile(d, ERROR_PFAD, destPath) ' nciht gefunden, oder durch ERROR nicht eingearbt,.
+                                    dsNichtErkannt += 1
+                                End If
+                            End If
+
+                            If destPath <> "" And nr_id > 0 Then
+                                VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten.updatePath(nr_id, destPath)
+                            End If
+
+                            Me.Refresh()
+                        End If
+                    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
+
+
+        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()
+        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
+
+    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
+
+    End Sub
+End Class
+

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.Designer.vb

@@ -0,0 +1,260 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
+    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_OREGON))
+        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_OREGON.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_OREGON.vb

@@ -5,7 +5,7 @@ Imports Renci.SshNet
 Imports System.Net
 Imports System.Text
 
-Public Class frmTRNCTS_NachrichtenVerarbeitung
+Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
     Dim cntDatenEingelesen As Integer = 0
     Dim dsNichtErkannt As Integer = 0
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -16,6 +16,9 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
     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 PARTNERSYSTEM = "OREGON"
+    Dim SERVER_Path = ""
+    Dim SERVER_Path_TEST = ""
     ' Dim BOX_VERSION = "8.8"
 
     Dim Dateiname = ""
@@ -38,12 +41,14 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
     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)
+        Me.SERVER_Path = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("SERVER_Path", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        Me.SERVER_Path_TEST = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("SERVER_Path_TEST", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        Me.TELOTEC_PFAD = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("BEREITSTELLUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        Me.VERARBEITUNGS_PFAD = cNCTSPartnerWorker.cOregon_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)
+        Me.ZIEL_PFAD = cNCTSPartnerWorker.cOregon_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)
+        Me.ERROR_PFAD = cNCTSPartnerWorker.cOregon_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)
@@ -103,10 +108,10 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
 
-                SERVER_Path = "\\ftps.verag.ag\FTP\MAVI\IN\"
+                SERVER_Path = Me.SERVER_Path '"\\ftps.verag.ag\FTP\MAVI\IN\"
             Else
 
-                SERVER_Path = "\\ftps.verag.ag\FTP\MAVI\IN\"
+                SERVER_Path = Me.SERVER_Path_TEST '"\\ftps.verag.ag\FTP\MAVI\IN\"
             End If
 
 
@@ -132,34 +137,6 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
             Return cnt
 
 
-            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
-
-                    MsgBox(fName)
-                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
@@ -303,11 +280,14 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
                     cWorker_NCTS.Dateiname = d
                     If IO.File.Exists(d) Then
                         Dim found = False
+                        Dim nr_id As Integer = -1
                         Dim fi As FileInfo = New FileInfo(d)
+                        If Not fi.Name.StartsWith(".") Then
 
-                        '   EDIFACT
-                        ' If fi.Extension = ".edi" Then
-                        Dim alreadyMoved = False
+
+                            '   EDIFACT
+                            ' If fi.Extension = ".edi" Then
+                            Dim alreadyMoved = False
 
                         Dim NACHRICHTENTYP_notfound = False
 
@@ -334,73 +314,78 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
                                 Case 1
                                     'NCTS: Versandanmeldung
                                     If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then
-                                        If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True
-                                    End If
+                                            If cOREGONWorker.readNCTS_VersandanmeldungXML_CC015B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
 
                                 Case 2
-                                    'NCTS: Versandanmeldung - Ergänzung GUID
-                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
-                                        If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True
-                                    End If
-                                Case 3
+                                        'NCTS: Versandanmeldung - Ergänzung GUID
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
+                                            If cOREGONWorker.readNCTS_VersandanmeldungXML_CC015B_RES(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+                                    Case 3
                                     'NCTS: BestätigungZoll
                                     If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
-                                        If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True
-                                    End If
+                                            If cOREGONWorker.readNCTS_BestaetigungZollXML_CC029B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
                                 Case 4
                                     'NCTS: Guarantee
                                     If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
-                                        If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True
-                                    End If
+                                            If cOREGONWorker.readNCTS_BestaetigungZollXML_GUA_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
                                 Case 5
                                     'NCTS: Ankunftsanzeige
                                     If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
-                                        If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True
-                                    End If
+                                            If cOREGONWorker.readNCTS_BestaetigungZollXML_ARR_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
 
                                 Case 6
                                     'NCTS: Erledigungsmitteilung
                                     If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
-                                        If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
-                                    End If
+                                            If cOREGONWorker.readNCTS_ErledigungsmitteilungXML_CC045A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
 
                                 Case 7
-                                    'NCTS: Cancellation decision  CC009A
-                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then
-                                        If cMAVIWorker.readNCTS_AbbruchXML_CC009A(Me, doc) <> "" Then found = True
-                                    End If
-                                Case 8
-                                    'NCTS: Declaration rejected CC016A
-                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then
-                                        If cMAVIWorker.readNCTS_RueckweisungXML_CC016A(Me, doc) <> "" Then found = True
-                                    End If
+                                        'NCTS: Cancellation decision  CC009A
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then
+                                            If cOREGONWorker.readNCTS_AbbruchXML_CC009A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
+                                    Case 8
+                                        'NCTS: Declaration rejected CC016A
+                                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then
+                                            If cOREGONWorker.readNCTS_RueckweisungXML_CC016A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
                                 Case 9
                                     'NCTS: No release for transit – type B CC051B
                                     If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then
-                                        If cMAVIWorker.readNCTS_KeineFreigabeXML_CC051B(Me, doc) <> "" Then found = True
-                                    End If
+                                            If cOREGONWorker.readNCTS_KeineFreigabeXML_CC051B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
+                                        End If
 
-
-                                Case 10
+                                    Case 10
                                     NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden
                             End Select
                         End If
 
 
-                        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") & "\")
-                            cntDatenEingelesen += 1
-                        Else
-                            If NACHRICHTENTYP_notfound Then
-                                frmStartOptions.moveFile(d, ERROR_PFAD) ' nciht gefunden, oder durch ERROR nicht eingearbt,.
-                                dsNichtErkannt += 1
+                            Dim destPath = ""
+                            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") & "\", destPath)
+                                cntDatenEingelesen += 1
+                            Else
+                                If NACHRICHTENTYP_notfound Then
+                                    frmStartOptions.moveFile(d, ERROR_PFAD, destPath) ' nciht gefunden, oder durch ERROR nicht eingearbt,.
+                                    dsNichtErkannt += 1
+                                End If
                             End If
 
-                        End If
-                     '   If found Then Else dsNichtErkannt += 1
+                            If destPath <> "" And nr_id > 0 Then
+                                VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten.updatePath(nr_id, destPath)
+                            End If
 
-                        Me.Refresh()
+                            '   If found Then Else dsNichtErkannt += 1
+
+                            Me.Refresh()
+                    End If
                     End If
                 Catch ex As Exception
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)