Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN

DAKOSY_Worker/cDakosyFunftions.vb

@@ -11,7 +11,7 @@ Public Class cDakosyFunftions
                 Return False
             End If
 
-            If Not IO.File.Exists(file) Then Return False
+            If Not System.IO.File.Exists(file) Then Return False
             Dim F As New System.IO.FileInfo(file)
 
             Dim DY_server = ""
@@ -28,7 +28,7 @@ Public Class cDakosyFunftions
                 client.Connect()
                 'client.Create(file, file)
                 client.ChangeDirectory(DY_PFAD_IN)
-                If IO.File.Exists(file) Then
+                If System.IO.File.Exists(file) Then
                     'MsgBox(file)
                     Using uplfileStream = System.IO.File.OpenRead(file)
                         client.UploadFile(uplfileStream, "." & F.Name, True)
@@ -65,7 +65,7 @@ Public Class cDakosyFunftions
 
     Shared Function send_Data_To_Dakosy_FTP_file(file, FRIMA_DY, Optional misc = False)
         Try
-            If Not IO.File.Exists(file) Then Return False
+            If Not System.IO.File.Exists(file) Then Return False
             Dim F As New System.IO.FileInfo(file)
 
             Dim DY_server = ""
@@ -90,7 +90,7 @@ Public Class cDakosyFunftions
                     client.ChangeDirectory(DY_PFAD_IN)
                 End If
 
-                If IO.File.Exists(file) Then
+                If System.IO.File.Exists(file) Then
                     'MsgBox(file)
                     Using uplfileStream = System.IO.File.OpenRead(file)
                         client.UploadFile(uplfileStream, "." & F.Name, True)
@@ -230,14 +230,14 @@ Public Class cDakosyFunftions
     Shared Function getDefaultFolder_SEND() As String
         Try
             getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & "DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
-            If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
+            If Not System.IO.Directory.Exists(getDefaultFolder_SEND) Then
-                IO.Directory.CreateDirectory(getDefaultFolder_SEND)
+                System.IO.Directory.CreateDirectory(getDefaultFolder_SEND)
             End If
         Catch ex As Exception
             Try
                 getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath
-                If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
+                If Not System.IO.Directory.Exists(getDefaultFolder_SEND) Then
-                    IO.Directory.CreateDirectory(getDefaultFolder_SEND)
+                    System.IO.Directory.CreateDirectory(getDefaultFolder_SEND)
                 End If
             Catch ex2 As Exception
                 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -336,11 +336,11 @@ Public Class cDakosyFunftions
             Next
 
             Dim saveDir = path
-            If Not IO.Directory.Exists(saveDir) Then
+            If Not System.IO.Directory.Exists(saveDir) Then
-                IO.Directory.CreateDirectory(saveDir)
+                System.IO.Directory.CreateDirectory(saveDir)
             End If
             Dim counter = 1
-            While IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
+            While System.IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
                 counter += 1
             End While
             saveFile = saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml"
@@ -446,11 +446,11 @@ Public Class cDakosyFunftions
             Next
 
             Dim saveDir = path
-            If Not IO.Directory.Exists(saveDir) Then
+            If Not System.IO.Directory.Exists(saveDir) Then
-                IO.Directory.CreateDirectory(saveDir)
+                System.IO.Directory.CreateDirectory(saveDir)
             End If
             Dim counter = 1
-            While IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
+            While System.IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
                 counter += 1
             End While
             saveFile = saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml"

MailSender/MAILSender.vb

@@ -179,7 +179,7 @@ Module Mail
                         System.Console.WriteLine("Starte Wölfl-Mail...")
                         If SendEmail_WOELFL() Then
                             Try
-                                Dim outFile As IO.StreamWriter = Nothing
+                                Dim outFile As System.IO.StreamWriter = Nothing
                                 outFile = My.Computer.FileSystem.OpenTextFileWriter(last_sent, False)
                                 outFile.Write(Now.AddDays(-1).ToShortDateString)
                                 outFile.Close()
@@ -1347,7 +1347,7 @@ Module Mail
 
 
             Dim fn As String = sPath & "WOELFL.csv" '" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
-            Dim outFile As IO.StreamWriter = Nothing
+            Dim outFile As System.IO.StreamWriter = Nothing
             Try
                 outFile = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
             Catch ex As Exception
@@ -1438,7 +1438,7 @@ Module Mail
             With exclApp
                 .Visible = False
                 Dim filepath = sPath & "QS_Auswertung.xlsx"
-                While IO.File.Exists(filepath)
+                While System.IO.File.Exists(filepath)
                     filepath = sPath & "QS_Auswertung_" & Now.ToString("ddMMyyy_HHmmss_fff") & ".xlsx"
                 End While
                 Try

initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb

@@ -4,11 +4,11 @@ Imports System.IO
 Module AtlasAufschubDatenEinlesen
 
     Public Sub initAllFiles(path As String, HISTORY As Boolean) 'Alle Files im Ordner durchlaufen 
-        For Each file As String In IO.Directory.GetFiles(path)
+        For Each file As String In System.IO.Directory.GetFiles(path)
             If HISTORY Then
                 initFile(file)
             Else
-                Dim FI As New IO.FileInfo(file)
+                Dim FI As New System.IO.FileInfo(file)
                 Dim LastWriteDate As Date = FI.LastWriteTime
                 If LastWriteDate > Now.AddDays(-6) Then
                     initFile(file)
@@ -102,7 +102,7 @@ Module AtlasAufschubDatenEinlesen
         If System.IO.File.Exists(sFile) Then
             Try
                 Dim F As Short = FreeFile()
-                FileOpen(F, sFile, IO.FileMode.Open, OpenAccess.Read, OpenShare.LockRead)
+                FileOpen(F, sFile, System.IO.FileMode.Open, OpenAccess.Read, OpenShare.LockRead)
                 FileClose(F)
             Catch
                 Return True

initATLASAufschubkonten/RoutineManager.vbproj

@@ -109,6 +109,9 @@
     <Reference Include="System.Core" />
     <Reference Include="System.Xml.Linq" />
     <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="ZUGFeRD.NET">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ZUGFeRD.NET.dll</HintPath>
+    </Reference>
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />

initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb

@@ -182,8 +182,8 @@
         If VERAG_OUT_EZA IsNot Nothing AndAlso Not alreadyProvidedInInterface(VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
             If genXMLFile(VERAG_OUT_EZA, filePath, vorsystem, UniqueId) <> "" Then
 
-                If Not IO.File.Exists(destFile) Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
+                If Not System.IO.File.Exists(destFile) Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
-                If IO.File.Exists(destFile) Then
+                If System.IO.File.Exists(destFile) Then
                     insertFTPLOG(destFile, IF_Obj.CooName, VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem)
                     found = True
                 Else
@@ -308,9 +308,9 @@
         Try
             If XMLFilePath = "" Then
                 Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
-                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
                 XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
-                While IO.File.Exists(XMLFilePath)
+                While System.IO.File.Exists(XMLFilePath)
                     XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml"
                 End While
             End If
@@ -326,12 +326,12 @@
 
     Shared Function removeTypeFromXML(XMLFilePath) As String
         Try
-            Dim fileContents = IO.File.ReadAllText(XMLFilePath)
+            Dim fileContents = System.IO.File.ReadAllText(XMLFilePath)
             fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
-            IO.File.WriteAllText(XMLFilePath, fileContents)
+            System.IO.File.WriteAllText(XMLFilePath, fileContents)
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
@@ -470,7 +470,7 @@
                     If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
                         Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
                         Dim Path = DS.GET_TOP1_PATH()
-                        If Path <> "" And IO.File.Exists(Path) Then
+                        If Path <> "" And System.IO.File.Exists(Path) Then
                             Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaAttachment
                             '  ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaAttachmentDocumentType.EZA
                             ATT.FileType = "PDF"

initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb

@@ -443,7 +443,7 @@
         If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then
             If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
                 frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
-                If IO.File.Exists(destFile) Then
+                If System.IO.File.Exists(destFile) Then
                     insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN)
                     found = True
                 Else
@@ -462,7 +462,7 @@
         If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then
             If genXMLFile_V2_0_1(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
                 frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
-                If IO.File.Exists(destFile) Then
+                If System.IO.File.Exists(destFile) Then
                     insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN)
                     found = True
                 Else
@@ -482,7 +482,7 @@
         If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then
             If genXMLFile_V2_0_2(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
                 frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
-                If IO.File.Exists(destFile) Then
+                If System.IO.File.Exists(destFile) Then
                     insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN)
                     found = True
                 Else
@@ -767,9 +767,9 @@
         Try
             If XMLFilePath = "" Then
                 Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
-                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
                 XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
-                While IO.File.Exists(XMLFilePath)
+                While System.IO.File.Exists(XMLFilePath)
                     XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml"
                 End While
             End If
@@ -787,7 +787,7 @@
         Try
             If XMLFilePath = "" Then
                 Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
-                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
                 XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
             End If
             If VERAG_NCTS IsNot Nothing Then
@@ -804,7 +804,7 @@
         Try
             If XMLFilePath = "" Then
                 Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
-                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
                 XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
             End If
             If VERAG_NCTS IsNot Nothing Then
@@ -819,12 +819,12 @@
     End Function
     Shared Function removeTypeFromXML(XMLFilePath) As String
         Try
-            Dim fileContents = IO.File.ReadAllText(XMLFilePath)
+            Dim fileContents = System.IO.File.ReadAllText(XMLFilePath)
             fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
-            IO.File.WriteAllText(XMLFilePath, fileContents)
+            System.IO.File.WriteAllText(XMLFilePath, fileContents)
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
@@ -938,7 +938,7 @@
                     If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
                         Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
                         Dim Path = DS.GET_TOP1_PATH()
-                        If Path <> "" And IO.File.Exists(Path) Then
+                        If Path <> "" And System.IO.File.Exists(Path) Then
                             Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsAttachment
                             ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsAttachmentDocumentType.NCTS
                             ATT.FileType = "PDF"
@@ -1096,7 +1096,7 @@
                     If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
                         Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
                         Dim Path = DS.GET_TOP1_PATH()
-                        If Path <> "" And IO.File.Exists(Path) Then
+                        If Path <> "" And System.IO.File.Exists(Path) Then
                             Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsAttachment
                             ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsAttachmentDocumentType.NCTS
                             ATT.FileType = "PDF"
@@ -1370,7 +1370,7 @@
                     If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
                         Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
                         Dim Path = DS.GET_TOP1_PATH()
-                        If Path <> "" And IO.File.Exists(Path) Then
+                        If Path <> "" And System.IO.File.Exists(Path) Then
                             Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsAttachment
                             ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsAttachmentDocumentType.NCTS
                             ATT.FileType = "PDF"
@@ -2704,7 +2704,7 @@ Class cGASTON_SCHUL_Interface
         If GS_OUT IsNot Nothing AndAlso Not cVERAG_out_ncts.alreadyProvidedInInterface(GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then
             If genXMLFile_V1_0_0(GS_OUT, filePath, vorsystem, UniqueId) <> "" Then
                 frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
-                If IO.File.Exists(destFile) Then
+                If System.IO.File.Exists(destFile) Then
                     cVERAG_out_ncts.insertFTPLOG(destFile, "VERAG", GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.toSystem, GS_OUT.movementReferenceNumber)
                     found = True
                 Else
@@ -2723,7 +2723,7 @@ Class cGASTON_SCHUL_Interface
         Try
             If XMLFilePath = "" Then
                 Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\GASTON_SCHUL\OUT\" & Now.Year & "\" & Now.ToShortDateString & "\"
-                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
                 XMLFilePath = dir & "GASTON_SCHUL_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
             End If
             If GS_OUT IsNot Nothing Then
@@ -2738,12 +2738,12 @@ Class cGASTON_SCHUL_Interface
     End Function
     Shared Function removeTypeFromXML(XMLFilePath) As String
         Try
-            Dim fileContents = IO.File.ReadAllText(XMLFilePath)
+            Dim fileContents = System.IO.File.ReadAllText(XMLFilePath)
             fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
             fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
-            IO.File.WriteAllText(XMLFilePath, fileContents)
+            System.IO.File.WriteAllText(XMLFilePath, fileContents)
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try

initATLASAufschubkonten/cAsfinag.vb

@@ -1055,7 +1055,7 @@ Public Class cAsfinag
             FTP_PFAD_TEST = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_Out_Test", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
             FTP_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_Out", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
-            If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
+            If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
             'If Not IO.Directory.Exists(FTP_PFAD_TEST) Then IO.Directory.CreateDirectory(FTP_PFAD_TEST)
 
         End Function
@@ -1397,19 +1397,19 @@ Public Class cAsfinag
                     SERVER_Path = FTP_PFAD
                 End If
 
-                For Each f In IO.Directory.GetFiles(BEREITSTELLUNG_PFAD)
+                For Each f In System.IO.Directory.GetFiles(BEREITSTELLUNG_PFAD)
-                    Dim fi As New IO.FileInfo(f)
+                    Dim fi As New System.IO.FileInfo(f)
 
                     If Not fi.Name.StartsWith(".") AndAlso fi.Name.Contains(filename) Then
                         Dim zielPfad = SERVER_Path
                         'While IO.File.Exists(zielPfad)
                         '    zielPfad = SERVER_Path & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
                         'End While
-                        IO.File.Copy(f, zielPfad & "\" & fi.Name, True)
+                        System.IO.File.Copy(f, zielPfad & "\" & fi.Name, True)
-                        If IO.File.Exists(zielPfad & "\" & fi.Name) Then
+                        If System.IO.File.Exists(zielPfad & "\" & fi.Name) Then
 
-                            If Not IO.Directory.Exists(ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\") Then IO.Directory.CreateDirectory(ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\")
+                            If Not System.IO.Directory.Exists(ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\") Then System.IO.Directory.CreateDirectory(ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\")
-                            IO.File.Move(BEREITSTELLUNG_PFAD & "\" & fi.Name, ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\" & fi.Name)
+                            System.IO.File.Move(BEREITSTELLUNG_PFAD & "\" & fi.Name, ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\" & fi.Name)
                             If filename = "TWL" Then whiteListExported = True
                             If filename = "TBL" Then blacklisteExported = True
                         End If
@@ -1418,10 +1418,10 @@ Public Class cAsfinag
 
                 Next
 
-                For Each f In IO.Directory.GetFiles(SERVER_Path)
+                For Each f In System.IO.Directory.GetFiles(SERVER_Path)
-                    Dim fi As New IO.FileInfo(f)
+                    Dim fi As New System.IO.FileInfo(f)
                     If fi.Name.ToUpper.Contains("DO_NOT_DELETE") AndAlso whiteListExported AndAlso blacklisteExported Then
-                        IO.File.SetLastWriteTime(fi.FullName, Now())
+                        System.IO.File.SetLastWriteTime(fi.FullName, Now())
                     End If
                 Next
 
@@ -1458,7 +1458,7 @@ Public Class cAsfinag
         FTP_PFAD_TEST = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_In_Test", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         FTP_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_In", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
-        If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
+        If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
 
     End Function
 
@@ -1476,18 +1476,18 @@ Public Class cAsfinag
             End If
 
             Dim catchedFiles As Boolean = False
-            For Each f In IO.Directory.GetFiles(SERVERPath)
+            For Each f In System.IO.Directory.GetFiles(SERVERPath)
-                Dim fi As New IO.FileInfo(f)
+                Dim fi As New System.IO.FileInfo(f)
                 If fi.Name.ToUpper.Contains(fileType) Then
                     If Not fi.Name.StartsWith(".") Then
                         Dim zielPfad = VERARBEITUNG_PFAD & "\" & fi.Name
-                        While IO.File.Exists(zielPfad)
+                        While System.IO.File.Exists(zielPfad)
                             zielPfad = VERARBEITUNG_PFAD & "\" & "DOPPELT" & "\" & fi.Name.Replace(fi.Extension, "") & fi.Extension & Now.ToString("_yyyyMMdd_HHmmss")
                         End While
-                        IO.File.Copy(f, zielPfad)
+                        System.IO.File.Copy(f, zielPfad)
 
-                        If IO.File.Exists(zielPfad) Then
+                        If System.IO.File.Exists(zielPfad) Then
-                            IO.File.Delete(f)
+                            System.IO.File.Delete(f)
                             catchedFiles = True
                         End If
 
@@ -1503,10 +1503,10 @@ Public Class cAsfinag
             Next
 
             ' zur prüfung ob Daten von uns abgeholt wurden bzw. ob Daten von Asfingag bereitgestellt wurden
-            For Each f In IO.Directory.GetFiles(SERVERPath)
+            For Each f In System.IO.Directory.GetFiles(SERVERPath)
-                Dim fi As New IO.FileInfo(f)
+                Dim fi As New System.IO.FileInfo(f)
                 If fi.Name.ToUpper.Contains("DO_NOT_DELETE") AndAlso catchedFiles Then
-                    IO.File.SetLastWriteTime(fi.FullName, Now())
+                    System.IO.File.SetLastWriteTime(fi.FullName, Now())
                 End If
             Next
 

initATLASAufschubkonten/cGetMsgType.vb

@@ -667,7 +667,7 @@ Public Class cGetMsgType
     End Function
 
     Shared Function isPLOSE_Detail(doc As String) As Boolean
-        Dim lines() As String = IO.File.ReadAllLines(doc)
+        Dim lines() As String = System.IO.File.ReadAllLines(doc)
         If lines.Count > 0 Then
             If lines(0).ToString.Replace("""", "").StartsWith("TR5") Or (lines.Count > 1 AndAlso (lines(0).ToString.Replace("""", "").StartsWith("TR1") And lines(1).ToString.Replace("""", "").StartsWith("TR5"))) Then
                 Return True
@@ -676,7 +676,7 @@ Public Class cGetMsgType
         Return False
     End Function
     Shared Function isPLOSE_Header(doc As String) As Boolean
-        Dim lines() As String = IO.File.ReadAllLines(doc)
+        Dim lines() As String = System.IO.File.ReadAllLines(doc)
         If lines.Count > 0 Then
             If lines(0).ToString.Replace("""", "").StartsWith("TR6") Then
                 Return True
@@ -685,7 +685,7 @@ Public Class cGetMsgType
         Return False
     End Function
     Shared Function isPLOSE_INVData(doc As String) As Boolean
-        Dim lines() As String = IO.File.ReadAllLines(doc)
+        Dim lines() As String = System.IO.File.ReadAllLines(doc)
 
         If lines.Count > 0 Then
             If lines(0).ToString.Replace("""", "").StartsWith("PloseCode") Then

initATLASAufschubkonten/cUTA.vb

@@ -846,17 +846,17 @@ Public Class cUTA
             SERVERPath = Me.FTP_PFAD
 
             Dim catchedFiles As Boolean = False
-            For Each f In IO.Directory.GetFiles(SERVERPath)
+            For Each f In System.IO.Directory.GetFiles(SERVERPath)
-                Dim fi As New IO.FileInfo(f)
+                Dim fi As New System.IO.FileInfo(f)
                 If fi.Name.ToUpper.Contains(fileType) Then
                     If Not fi.Name.StartsWith(".") Then
                         Dim zielPfad = VERARBEITUNG_PFAD & "\" & fi.Name
-                        While IO.File.Exists(zielPfad)
+                        While System.IO.File.Exists(zielPfad)
                             zielPfad = VERARBEITUNG_PFAD & "\" & "DOPPELT" & "\" & fi.Name.Replace(fi.Extension, "") & fi.Extension & Now.ToString("_yyyyMMdd_HHmmss")
                         End While
-                        IO.File.Copy(f, zielPfad)
+                        System.IO.File.Copy(f, zielPfad)
-                        If IO.File.Exists(zielPfad) Then
+                        If System.IO.File.Exists(zielPfad) Then
-                            IO.File.Delete(f)
+                            System.IO.File.Delete(f)
                             catchedFiles = True
                         End If
 
@@ -1244,7 +1244,9 @@ Public Class cUTA
         ARCHIV_PFAD = cUTA.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         VERARBEITUNG_PFAD = cUTA.Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         ZIEL_PFAD = cUTA.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
-        If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
+        If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) Then
+            System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
+        End If
 
         Return Paramter.getFTPConenction(API_STRING, API, programName)
 

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -3938,7 +3938,7 @@ Public Class cWorker_NCTS
         If (DY_TMP.dy_BezugsNr.Contains("ATEZ") Or DY_TMP.dy_BezugsNr.Contains("PLH")) OrElse (ATEZ IsNot Nothing AndAlso ATEZ.hasEntry) Then
             '   If ATEZ.status IsNot Nothing Then
             'If ATEZ.status < 40 Then
-            Dim fio As New IO.FileInfo(filePath)
+            Dim fio As New System.IO.FileInfo(filePath)
             FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
             'End If
             '  End If
@@ -3951,7 +3951,7 @@ Public Class cWorker_NCTS
         If (dy_BezugsNr.Contains("ATEZ") Or dy_BezugsNr.Contains("PLH")) OrElse (ATEZ IsNot Nothing AndAlso ATEZ.hasEntry) Then
             '   If ATEZ.status IsNot Nothing Then
             'If ATEZ.status < 40 Then
-            Dim fio As New IO.FileInfo(filePath)
+            Dim fio As New System.IO.FileInfo(filePath)
             FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
             'End If
             '  End If
@@ -3966,7 +3966,7 @@ Public Class cWorker_NCTS
 
             Try
 
-                If Not IO.File.Exists(filePath) Then
+                If Not System.IO.File.Exists(filePath) Then
 
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). File existert nicht.", "" & vbNewLine & "Datei: " & filePath, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     Exit Sub
@@ -4016,7 +4016,7 @@ Public Class cWorker_NCTS
             Dim NCTS = cDakosyNCTSOut004.LOADByBezugsNr(dy_BezugsNr, False)
             If NCTS IsNot Nothing Then
 
-                Dim fio As New IO.FileInfo(filePath)
+                Dim fio As New System.IO.FileInfo(filePath)
                 FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\PDF\" & If(NCTS.ncts_MRN, fio.Name.Replace("lock_", "")))
             End If
             'End If

initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb

@@ -128,7 +128,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
 
                 Dim found = False
                 Dateiname = d
-                If IO.File.Exists(d) And correctFile Then
+                If System.IO.File.Exists(d) And correctFile Then
 
 
                     Dim nr_id As Integer = -1
@@ -171,12 +171,12 @@ Public Class frmAsfinag_NachrichtenVerabeitung
                     End If
 
                     If found Then
-                        If Not IO.Directory.Exists(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType) Then IO.Directory.CreateDirectory(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType & "\")
+                        If Not System.IO.Directory.Exists(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType) Then System.IO.Directory.CreateDirectory(asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType & "\")
                         frmStartOptions.moveFile(d, asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType & "\", asfinag.VERARBEITUNG_PFAD)
                         cntDatenEingelesen += 1
                     Else
                         If Not found Then
-                            If Not IO.Directory.Exists(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\") Then IO.Directory.CreateDirectory(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\")
+                            If Not System.IO.Directory.Exists(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\") Then System.IO.Directory.CreateDirectory(asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\")
                             frmStartOptions.moveFile(d, asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\", asfinag.VERARBEITUNG_PFAD)
                             ' nciht gefunden, oder durch ERROR nicht eingearbt,.
                             dsNichtErkannt += 1

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -51,9 +51,9 @@ Public Class frmDYNachrichtenVerarbeitung
         Me.ERROR_PFAD = DAKOSY_Worker.cDY_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 System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
-        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+        If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
-        If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
+        If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
 
         Me.BOX_VERSION = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
@@ -144,17 +144,17 @@ Public Class frmDYNachrichtenVerarbeitung
                 For Each f In client.ListDirectory(DY_PFAD_out)
                     If Not f.Name.StartsWith(".") And Not f.IsDirectory Then
                         'Temp. DownloadPfad
-                        Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
+                        Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.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
+                        If System.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
+                        Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
-                        IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+                        System.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
@@ -217,7 +217,7 @@ Public Class frmDYNachrichtenVerarbeitung
     End Function
 
     Private Function getFilesInOrder() As String()
-        Dim myDirectory As New IO.DirectoryInfo(VERARBEITUNGS_PFAD)
+        Dim myDirectory As New System.IO.DirectoryInfo(VERARBEITUNGS_PFAD)
         'Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.LastWriteTime).Select(Function(x) x.FullName).Take(40).ToArray
         Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.CreationTime).Select(Function(x) x.FullName).ToArray
         ' Dim myfiles As FileInfo() = myDirectory.GetFiles().OrderBy(Function(p) p.CreationTime).Select(Function(x) x.FullName).ToArray
@@ -231,11 +231,11 @@ Public Class frmDYNachrichtenVerarbeitung
 
 
 
-        For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD,,)
+        For Each d In getFilesInOrder() 'System.System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD,,)
             Try
                 Dateiname = d
                 cWorker_NCTS.Dateiname = d
-                If IO.File.Exists(d) Then
+                If System.IO.File.Exists(d) Then
                     Dim found = False
                     Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing
 
@@ -247,7 +247,7 @@ Public Class frmDYNachrichtenVerarbeitung
                         ' If fi.Extension = ".edi" Then
                         Dim alreadyMoved = False
                         If fi.Extension = ".nlc" Then ' Or fi.Name.StartsWith("ZA") Then
-                            If Not IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") Then IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
+                            If Not System.IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") Then System.IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
                             frmStartOptions.moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
                             alreadyMoved = True
                             addDGVEinarbeitung("** NLC-Datei **", fi.Name)
@@ -674,7 +674,7 @@ Public Class frmDYNachrichtenVerarbeitung
                             If Not alreadyMoved Then
                                 If found Then
                                     Dim dest = ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                                    If Not IO.Directory.Exists(dest) Then IO.Directory.CreateDirectory(dest)
+                                    If Not System.IO.Directory.Exists(dest) Then System.IO.Directory.CreateDirectory(dest)
                                     Dim destFile = ""
                                     If frmStartOptions.moveFile(d, dest, destFile) Then ' dest: Filename wird angefügt 
                                         If statusTMP IsNot Nothing Then
@@ -683,7 +683,7 @@ Public Class frmDYNachrichtenVerarbeitung
                                     End If
                                 Else
                                     Dim destErr = ERROR_PFAD & Now.ToString("yyyy_MM") & "\"
-                                    If Not IO.Directory.Exists(destErr) Then IO.Directory.CreateDirectory(destErr)
+                                    If Not System.IO.Directory.Exists(destErr) Then System.IO.Directory.CreateDirectory(destErr)
 
                                     frmStartOptions.moveFile(d, destErr)
                                 End If
@@ -945,6 +945,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If NCTS.Transaktion IsNot Nothing Then
                     If NCTS.Transaktion.IODivision3 IsNot Nothing Then
                         division = NCTS.Transaktion.IODivision3
+                    ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then
+                        division = NCTS.Transaktion.IODivision1
                     End If
 
                 End If
@@ -1063,6 +1065,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If NCTS.Transaktion IsNot Nothing Then
                     If NCTS.Transaktion.IODivision3 IsNot Nothing Then
                         division = NCTS.Transaktion.IODivision3
+                    ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then
+                        division = NCTS.Transaktion.IODivision1
                     End If
 
                 End If
@@ -1196,6 +1200,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If NCTS.Transaktion IsNot Nothing Then
                     If NCTS.Transaktion.IODivision3 IsNot Nothing Then
                         division = NCTS.Transaktion.IODivision3
+                    ElseIf NCTS.Transaktion.IODivision1 IsNot Nothing Then
+                        division = NCTS.Transaktion.IODivision1
                     End If
 
                 End If
@@ -2956,6 +2962,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If AES.Transaktion IsNot Nothing Then
                     If AES.Transaktion.IODivision3 IsNot Nothing Then
                         division = AES.Transaktion.IODivision3
+                    ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then
+                        division = AES.Transaktion.IODivision1
                     End If
                 End If
 
@@ -3029,6 +3037,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If AES.Transaktion IsNot Nothing Then
                     If AES.Transaktion.IODivision3 IsNot Nothing Then
                         division = AES.Transaktion.IODivision3
+                    ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then
+                        division = AES.Transaktion.IODivision1
                     End If
                 End If
 
@@ -3101,6 +3111,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If AES.Transaktion IsNot Nothing Then
                     If AES.Transaktion.IODivision3 IsNot Nothing Then
                         division = AES.Transaktion.IODivision3
+                    ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then
+                        division = AES.Transaktion.IODivision1
                     End If
                 End If
 
@@ -3172,6 +3184,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If AES.Transaktion IsNot Nothing Then
                     If AES.Transaktion.IODivision3 IsNot Nothing Then
                         division = AES.Transaktion.IODivision3
+                    ElseIf AES.Transaktion.IODivision1 IsNot Nothing Then
+                        division = AES.Transaktion.IODivision1
                     End If
                 End If
 
@@ -6934,6 +6948,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7037,7 +7053,10 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
+
                 End If
 
                 If EZA.EinzelEntscheidungAnmeldung IsNot Nothing Then
@@ -7347,6 +7366,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7425,6 +7446,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7504,6 +7527,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7580,6 +7605,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7657,6 +7684,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7736,6 +7765,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7822,6 +7853,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7907,6 +7940,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -7991,6 +8026,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -8075,6 +8112,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -8163,6 +8202,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -8325,6 +8366,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -8531,6 +8574,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -8740,6 +8785,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 
@@ -8947,6 +8994,8 @@ Public Class frmDYNachrichtenVerarbeitung
                 If EZA.Transaktion IsNot Nothing Then
                     If EZA.Transaktion.IODivision3 IsNot Nothing Then
                         division = EZA.Transaktion.IODivision3
+                    ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
+                        division = EZA.Transaktion.IODivision1
                     End If
                 End If
 

initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb

@@ -45,9 +45,9 @@ Public Class frmMDMNachrichtenVerarbeitung
         'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
         Me.ERROR_PFAD = MDM_Worker.cMDM_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         '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 System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
-        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+        If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
-        If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
+        If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
 
         'Me.BOX_VERSION = MDM_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
@@ -163,7 +163,7 @@ Public Class frmMDMNachrichtenVerarbeitung
                     ' Dim FimeNameTmp = If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & " RGDAT_" & fileDateTmp.ToShortDateString & "_" & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
                     name = name.Replace(".csv", "_RGDAT_" & fileDateTmp.ToShortDateString & ".csv")
 
-                    Dim destFilenameTMP = VERARBEITUNGS_PFAD & "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD & "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
 
                     Using downloadResponse As FtpWebResponse = downloadRequest.GetResponse(),
                       sourceStream As Stream = downloadResponse.GetResponseStream(),
@@ -181,9 +181,9 @@ Public Class frmMDMNachrichtenVerarbeitung
                         targetStream.Dispose()
                         downloadResponse.Dispose()
 
-                        Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
+                        Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
 
-                        IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+                        System.IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
 
 
                         Dim fi As FileInfo = New FileInfo(destFilename)
@@ -232,19 +232,19 @@ Public Class frmMDMNachrichtenVerarbeitung
     Function getNachrichtenDatenFromMDMServices_ALTERNATIV() As Integer
         Dim cnt = 0
         Try
-            For Each f In IO.Directory.GetFiles(TELOTEC_PFAD)
+            For Each f In System.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
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
 
                     'Datei herunterladen
-                    IO.File.Copy(f, destFilenameTMP)
+                    System.IO.File.Copy(f, destFilenameTMP)
-                    If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+                    If System.IO.File.Exists(destFilenameTMP) Then System.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
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
-                    IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+                    System.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
@@ -361,7 +361,7 @@ Public Class frmMDMNachrichtenVerarbeitung
                 Try
                     Dateiname = d
                     cWorker_NCTS.Dateiname = d
-                    If IO.File.Exists(d) Then
+                    If System.IO.File.Exists(d) Then
                         Dim found = False
                         Dim fi As FileInfo = New FileInfo(d)
 
@@ -421,7 +421,7 @@ Public Class frmMDMNachrichtenVerarbeitung
                                 If fi.Extension.ToLower = ".pdf" Then
                                     found = False
 
-                                    If Not IO.Directory.Exists(ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                    If Not System.IO.Directory.Exists(ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
 
                                     'File in Datenarchiv sichern:
                                     Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "PLOSE", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
@@ -438,17 +438,17 @@ Public Class frmMDMNachrichtenVerarbeitung
                                 End If
                             Case 5
                                 frmStartOptions.moveFile_DateBack(d, ERROR_PFAD)
-                                    dsNichtErkannt += 1
+                                dsNichtErkannt += 1
-                            End Select
+                        End Select
 
 
 
 
 
-                            If True Then
+                        If True Then
                             If Not alreadyMoved Then
                                 If found Then
-                                    If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                    If Not System.IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                     frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                 End If
                             End If

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -3,10 +3,16 @@ Imports System.Net
 Imports System.Text
 Imports System.Text.RegularExpressions
 Imports System.Web
+Imports io.konik
+Imports io.konik.carriage.pdfbox.xmp
+Imports io.konik.validation
+Imports io.konik.zugferd
+Imports java.nio.channels
 Imports Renci.SshNet
 Imports Renci.SshNet.Sftp
 Imports VERAG_PROG_ALLGEMEIN
 
+
 Public Class frmNachrichtenVerarbeitung_MDM_divers
     Dim cntDatenEingelesen As Integer = 0
     Dim dsNichtErkannt As Integer = 0
@@ -71,7 +77,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             Dim cnt = getNachrichtenDaten()
             Label9.Text = cnt & " Datensätze empfangen."
 
-        Catch ex As Exception
+        Catch ex As System.Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Me.Enabled = True
@@ -87,7 +93,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                 Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
                 Label6.Visible = True
             End If
-        Catch ex As Exception
+        Catch ex As System.Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Me.Enabled = True
@@ -108,7 +114,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             End If
 
 
-        Catch ex As Exception
+        Catch ex As System.Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
 
@@ -160,7 +166,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                 'name = name.Replace(".csv", "_RGDAT_" & Now.ToShortDateString & ".csv")
 
                 Dim destFilenameTMP = verarbeitungspfad
-                If IO.File.Exists(verarbeitungspfad & name) Then
+                If System.IO.File.Exists(verarbeitungspfad & name) Then
                     Dim fi As FileInfo = New FileInfo(verarbeitungspfad & name)
                     destFilenameTMP &= name.Replace(fi.Extension, "_") & Now.ToString("yyMMdd_HHmmss.fff") & fi.Extension
                 Else
@@ -207,7 +213,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                         End If
 
                     End Using
-                Catch ex As Exception
+                Catch ex As System.Exception
 
                 End Try
             End If
@@ -232,15 +238,15 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                 If file.IsRegularFile AndAlso file.Name.ToLower.EndsWith(".uta") AndAlso file.Length > 0 AndAlso IIf(renameAfterDownload, Not file.Name.ToLower.StartsWith("_"), Not file.Name.ToLower.StartsWith("_")) Then
 
                     Dim remoteFileName = "/" & file.Name
-                    Dim filePath = uta.VERARBEITUNG_PFAD & If(IO.File.Exists(uta.VERARBEITUNG_PFAD & file.Name), Name.Replace(".UTA", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".UTA", file.Name)
+                    Dim filePath = uta.VERARBEITUNG_PFAD & If(System.IO.File.Exists(uta.VERARBEITUNG_PFAD & file.Name), Name.Replace(".UTA", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".UTA", file.Name)
 
-                    Dim downloadedFile As Stream = IO.File.Create(filePath)
+                    Dim downloadedFile As Stream = System.IO.File.Create(filePath)
 
                     client.DownloadFile(Path + remoteFileName, downloadedFile)
 
-                    If IO.File.Exists(filePath) AndAlso deleteAfterDownload Then client.DeleteFile(Path + remoteFileName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+                    If System.IO.File.Exists(filePath) AndAlso deleteAfterDownload Then client.DeleteFile(Path + remoteFileName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
 
-                    If IO.File.Exists(filePath) AndAlso Not deleteAfterDownload And renameAfterDownload Then
+                    If System.IO.File.Exists(filePath) AndAlso Not deleteAfterDownload And renameAfterDownload Then
 
                         Dim remoteFileNameRenamed = "/_" & file.Name
                         client.RenameFile(Path + remoteFileName, Path + remoteFileNameRenamed) 'verarbeitete Datei kennzeichnen mit beginnenden "_"
@@ -307,7 +313,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             For Each d In System.IO.Directory.GetFiles(verarbeitungspfad)
                 Try
                     Dateiname = d
-                    If IO.File.Exists(d) Then
+                    If System.IO.File.Exists(d) Then
                         Dim found = False
                         Dim fi As FileInfo = New FileInfo(d)
 
@@ -337,7 +343,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
                                         found = False
 
-                                        If Not IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                        If Not System.IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
 
                                         'File in Datenarchiv sichern:
 
@@ -403,10 +409,10 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                     '------------------------------------------
                                     '------------------ .PDF ------------------
                                     '------------------------------------------
-                                    'PDFs über EEA
+                                    'PDFs über EEA und Zugpfrd
                                     If fi.Extension.ToLower = ".pdf" Then
 
-                                        If Not IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                        If Not System.IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
 
                                         If fi.Name.ToString.StartsWith("invoice_") Then
 
@@ -414,6 +420,13 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
                                             DS.uploadDataToDATENSERVER(d,,,,,, True)
 
+
+                                            'zugferd-Daten aus pdf auslesen!
+                                            Dim invoice As New Invoice(zugferd.profile.ConformanceLevel.BASIC)
+                                            Dim validator As InvoiceValidator = New InvoiceValidator()
+                                            Dim test = validator.validate(invoice)
+
+
                                             'TO DO -> ÄNDERN----------------------
                                             ' SQL.doSQL("Update [tblUTAImport] SET [daId]='" & DS.da_id & "' where [rmc_pdfFileName] = '" & DS.da_name & "' and [rmc_importDatum] > DATEADD(DAY,-4,getdate())  ", "FMZOLL")
                                             'TO DO -> ÄNDERN----------------------
@@ -429,13 +442,11 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                     dgvEinarbeitung.Refresh()
 
                             End Select
-
                         End If
-
                         If True Then
                             If Not alreadyMoved Then
                                 If found Then
-                                    If Not IO.Directory.Exists(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                    If Not System.IO.Directory.Exists(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                     frmStartOptions.moveFile_DateBack(d, zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                 End If
                             End If
@@ -445,7 +456,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
 
 
-                Catch ex As Exception
+                Catch ex As System.Exception
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                 End Try
             Next
@@ -472,7 +483,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
         dgvEinarbeitung.Rows.Add(art, BezugsNr)
         Try
             dgvEinarbeitung.FirstDisplayedScrollingRowIndex = dgvEinarbeitung.RowCount - 1
-        Catch ex As Exception
+        Catch ex As System.Exception
         End Try
     End Sub
 
@@ -520,7 +531,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
                         End If
 
-                    Catch ex As Exception
+                    Catch ex As System.Exception
                         VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                     End Try
                 End While
@@ -539,7 +550,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
             End If
 
-        Catch ex As Exception
+        Catch ex As System.Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             MsgBox(ex.StackTrace & ex.Message)
             readRMC = ""
@@ -563,7 +574,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
             readUTA = "Zeilen: " & cnt
 
-        Catch ex As Exception
+        Catch ex As System.Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             MsgBox(ex.StackTrace & ex.Message)
         End Try

initATLASAufschubkonten/frmStartOptions.vb

@@ -91,6 +91,9 @@ Public Class frmStartOptions
         txtEZOLLAnhDat._value = Now.ToShortDateString
 
         Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
+
+        'PARAM = "mdm_mail_attach"
+
         Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
         If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
             PARAM = parameter(1)
@@ -103,8 +106,6 @@ Public Class frmStartOptions
         'Exit Sub
 
 
-
-        'PARAM = "AMBAR_VERAG_BUCHUNGEN_CS"
         'Standart-Errorverhalten ist MAIL
         VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
         If PARAM <> "" Then
@@ -331,6 +332,31 @@ Public Class frmStartOptions
                 End If
                 closeMe()
 
+
+            Case "mdm_mail_attach"
+                Dim f As New frmInfo(PARAM)
+                f.Show()
+                Dim pfad = ""
+                Dim betreff = ""
+                Dim von = ""
+
+                If (parameter.Count - 1) >= 3 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
+
+                    'mdm_mail_attach %file% %subject% %datetimereceived% %from% -  testsubject test@uta.com"
+
+                    pfad = parameter(2)
+                    betreff = parameter(3)
+                    If (parameter.Count - 1) >= 5 Then von = parameter(5)
+
+                    VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+
+                    If von.Contains("@uta.com") Or betreff.ToLower.Contains("UTA") Then
+                        '---------------------UTA----------------------
+                        importFileFromUTAMailAnhang(pfad, betreff)
+                    End If
+                End If
+                closeMe()
+
             Case "MAIL_ATTACH_WORK_FILES"
 
                 Dim f As New frmInfo(PARAM)
@@ -632,7 +658,7 @@ Public Class frmStartOptions
                                 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)
+                                If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                                 destFull = ""
                                 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -1246,7 +1272,7 @@ Public Class frmStartOptions
 
                 Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "MIC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
                 If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.hasEntry Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "MIC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                 Dim destFull = ""
                 moveFile(pfad, ZIEL_PFAD, destFull)
@@ -1299,7 +1325,7 @@ Public Class frmStartOptions
 
                 Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "MIC\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
                 If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.hasEntry Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "MIC\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                 Dim destFull = ""
                 moveFile(pfad, ZIEL_PFAD, destFull)
@@ -1334,7 +1360,7 @@ Public Class frmStartOptions
 
                     Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\"
                     If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                    If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                    If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                     Dim destFull = ""
                     moveFile(pfad, ZIEL_PFAD, destFull)
@@ -1352,7 +1378,7 @@ Public Class frmStartOptions
 
                 ' Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\NCTS_XLS\" & Now.Year & "\"
                 Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\NCTS_XLS\NEW\"
-                If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                 Dim destFull = ""
                 moveFile(pfad, ZIEL_PFAD, destFull)
@@ -1386,7 +1412,7 @@ Public Class frmStartOptions
             If betreff.contains("IDSPRD: Platts Price Report") Then
 
                 Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "IDS\IDS_XLS\Platts_Price_Report\NEW\"
-                If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                 Dim destFull = ""
                 moveFile(pfad, ZIEL_PFAD, destFull)
@@ -1560,11 +1586,11 @@ Public Class frmStartOptions
             Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "IDS\IDS_XLS\Platts_Price_Report\NEW\"
 
 
-            If IO.Directory.Exists(ZIEL_PFAD) Then
+            If System.IO.Directory.Exists(ZIEL_PFAD) Then
 
 
 
-                For Each IDS_FILE In IO.Directory.GetFiles(ZIEL_PFAD)
+                For Each IDS_FILE In System.IO.Directory.GetFiles(ZIEL_PFAD)
                     Dim DT_PLATTS As New DataTable()
                     DT_PLATTS.Columns.Add("IsoCode")
                     DT_PLATTS.Columns.Add("Outlet")
@@ -1586,22 +1612,22 @@ Public Class frmStartOptions
 
 
 
-                    If Not IO.Directory.Exists(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\")) Then IO.Directory.CreateDirectory(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\"))
+                    If Not System.IO.Directory.Exists(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\")) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\"))
 
                     Dim FILE_NEW = IDS_FILE.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", "_ORIG.xls")
 
 
-                    While IO.File.Exists(FILE_NEW)
+                    While System.IO.File.Exists(FILE_NEW)
                         FILE_NEW = IDS_FILE.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", Now.ToString("_ddMMyy.HHmmss") & "_ORIG.xls")
                     End While
 
 
 
-                    IO.File.Move(IDS_FILE, FILE_NEW)
+                    System.IO.File.Move(IDS_FILE, FILE_NEW)
 
 
                     Dim FILE_NEW_Lukenda = FILE_NEW.Replace("_ORIG.xls", "_special_Lukenda_ORIG.xls")
-                    IO.File.Copy(FILE_NEW, FILE_NEW_Lukenda)
+                    System.IO.File.Copy(FILE_NEW, FILE_NEW_Lukenda)
 
                     'IDS_FILE = ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", "_ORIG.xls")
 
@@ -1768,7 +1794,7 @@ Public Class frmStartOptions
                 End With
 
                 Dim FIN_FILE = FILE_NEW.Replace("_ORIG.xls", ".xls")
-                While IO.File.Exists(FIN_FILE)
+                While System.IO.File.Exists(FIN_FILE)
                     FIN_FILE = FILE_NEW.Replace("_ORIG.xls", Now.ToString("_ddMMyy.HHmmss") & ".xls")
                 End While
 
@@ -1833,9 +1859,9 @@ Public Class frmStartOptions
         Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\NCTS_XLS\NEW\"
 
 
-        If IO.Directory.Exists(ZIEL_PFAD) Then
+        If System.IO.Directory.Exists(ZIEL_PFAD) Then
 
-            For Each MIC_FILE In IO.Directory.GetFiles(ZIEL_PFAD)
+            For Each MIC_FILE In System.IO.Directory.GetFiles(ZIEL_PFAD)
 
                 ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
                 ' EXCEL AUSLESEN:::::::
@@ -1968,15 +1994,15 @@ Public Class frmStartOptions
                 End Try
 
                 Try
-                    If Not IO.Directory.Exists(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\")) Then IO.Directory.CreateDirectory(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\"))
+                    If Not System.IO.Directory.Exists(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\")) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\"))
 
                     Dim newFile = MIC_FILE.Replace("\NEW\", "\" & Now.Year & "\")
 
-                    While IO.File.Exists(newFile)
+                    While System.IO.File.Exists(newFile)
                         newFile = MIC_FILE.Replace("\NEW\", "\" & Now.Year & "\" & Now.ToString("ddMMyy_HHmmss") & "_")
                     End While
 
-                    IO.File.Move(MIC_FILE, newFile)
+                    System.IO.File.Move(MIC_FILE, newFile)
 
                 Catch ex2 As Exception
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
@@ -2082,7 +2108,7 @@ Public Class frmStartOptions
 
                 Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
                 If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                 Dim destFull = ""
                 moveFile(pfad, ZIEL_PFAD, destFull)
@@ -2114,7 +2140,7 @@ Public Class frmStartOptions
 
                     ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
                     If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                    If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                    If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                     destFull = ""
                     moveFile(pfad, ZIEL_PFAD, destFull)
@@ -2153,7 +2179,7 @@ Public Class frmStartOptions
                             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)
+                            If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
                             moveFile(pfad, ZIEL_PFAD, destFull)
 
                             If DS.insertDataToDATENSERVER(destFull) Then
@@ -2186,7 +2212,7 @@ Public Class frmStartOptions
 
                         Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
                         If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                        If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                         Dim destFull = ""
                         moveFile(pfad, ZIEL_PFAD, destFull)
@@ -2227,7 +2253,7 @@ Public Class frmStartOptions
 
                     Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
                     If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                    If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                    If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                     Dim destFull = ""
                     moveFile(pfad, ZIEL_PFAD, destFull)
@@ -2267,7 +2293,7 @@ Public Class frmStartOptions
 
                     Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\"
                     If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                    If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                    If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                     Dim destFull = ""
                     moveFile(pfad, ZIEL_PFAD, destFull)
@@ -2299,6 +2325,32 @@ Public Class frmStartOptions
 
     End Sub
 
+
+    Sub importFileFromUTAMailAnhang(pfad, betreff)
+
+
+        Try
+            Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
+            Dim uta As New cUTA
+            uta.initImportPfade("UTA")
+            Dim Zielpfad = uta.VERARBEITUNG_PFAD
+
+
+            If betreff.ToString.ToLower.Contains("uta") Then
+                Dim found = False
+                betreff = betreff.replace("WG: ", "")
+                betreff = betreff.replace("FW: ", "")
+                moveFile(pfad, Zielpfad)
+            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
+
     Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
         Me.Cursor = Cursors.WaitCursor
         Try
@@ -2479,13 +2531,13 @@ Public Class frmStartOptions
 
     Public Function moveFile(file, toDirectory, Optional ByRef dest = "") ', Optional unlockFile = True)
         Try
-            If Not IO.File.Exists(file) Then Return False
+            If Not System.IO.File.Exists(file) Then Return False
-            If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
+            If Not System.IO.Directory.Exists(toDirectory) Then System.IO.Directory.CreateDirectory(toDirectory)
             dest = toDirectory & cut_file(file).Replace("lock_", "")
-            If IO.File.Exists(dest) Then
+            If System.IO.File.Exists(dest) Then
                 dest = toDirectory & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file).Replace("lock_", "")
             End If
-            IO.File.Move(file, dest) ' Verschiebt die Datei
+            System.IO.File.Move(file, dest) ' Verschiebt die Datei
             Return True
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file & vbNewLine & "DestPfad: " & toDirectory, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -2494,12 +2546,12 @@ Public Class frmStartOptions
     End Function
     Public Function lockFile(file) As String
         Try
-            If Not IO.File.Exists(file) Then Return file
+            If Not System.IO.File.Exists(file) Then Return file
             If file.ToString.Contains("lock_") Then Return file
             Dim FIO As New FileInfo(file)
             Dim dest = FIO.Directory.FullName & "\lock_" & FIO.Name
-            If IO.File.Exists(dest) Then Return file
+            If System.IO.File.Exists(dest) Then Return file
-            IO.File.Move(file, dest) ' Verschiebt die Datei
+            System.IO.File.Move(file, dest) ' Verschiebt die Datei
             Return dest
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -2510,10 +2562,10 @@ Public Class frmStartOptions
     Public Function unlockFile(file) As String
         Try
             Dim dest = file.ToString.Replace("\lock_", "")
-            If Not IO.File.Exists(file) Then Return False
+            If Not System.IO.File.Exists(file) Then Return False
-            If Not IO.File.Exists(dest) Then Return False
+            If Not System.IO.File.Exists(dest) Then Return False
 
-            IO.File.Move(file, dest) ' Verschiebt die Datei
+            System.IO.File.Move(file, dest) ' Verschiebt die Datei
             Return dest
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -2521,28 +2573,28 @@ Public Class frmStartOptions
         Return file
     End Function
     Public Function moveFile_DateBack(file, toDirectory, Optional ByRef dest = "")
-        If Not IO.File.Exists(file) Then Return False
+        If Not System.IO.File.Exists(file) Then Return False
-        If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
+        If Not System.IO.Directory.Exists(toDirectory) Then System.IO.Directory.CreateDirectory(toDirectory)
         dest = toDirectory & cut_file(file)
-        Dim fio As IO.FileInfo = New FileInfo(file)
+        Dim fio As System.IO.FileInfo = New FileInfo(file)
         Dim ext = fio.Extension
-        If IO.File.Exists(dest) Then
+        If System.IO.File.Exists(dest) Then
             dest = toDirectory & cut_file(file).Replace(ext, Now.ToString("_yyMMdd_HHmmss.fff")) & ext
         End If
-        IO.File.Move(file, dest) ' Verschiebt die Datei
+        System.IO.File.Move(file, dest) ' Verschiebt die Datei
         Return True
     End Function
 
     Public Function copyFile_DateBack(file, toDirectory, Optional ByRef dest = "")
-        If Not IO.File.Exists(file) Then Return False
+        If Not System.IO.File.Exists(file) Then Return False
-        If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
+        If Not System.IO.Directory.Exists(toDirectory) Then System.IO.Directory.CreateDirectory(toDirectory)
         dest = toDirectory & cut_file(file)
-        Dim fio As IO.FileInfo = New FileInfo(file)
+        Dim fio As System.IO.FileInfo = New FileInfo(file)
         Dim ext = fio.Extension
-        If IO.File.Exists(dest) Then
+        If System.IO.File.Exists(dest) Then
             dest = toDirectory & cut_file(file).Replace(ext, Now.ToString("_yyMMdd_HHmmss.fff")) & ext
         End If
-        IO.File.Copy(file, dest) ' Verschiebt die Datei
+        System.IO.File.Copy(file, dest) ' Verschiebt die Datei
         Return True
     End Function
 
@@ -2555,25 +2607,25 @@ Public Class frmStartOptions
     '    Return cut_file(file).Replace(ext, Now.ToString("_yyMMdd_HHmmss.fff")) & ext
     'End Function
     Public Function getFileName(file) As String
-        If Not IO.File.Exists(file) Then Return False
+        If Not System.IO.File.Exists(file) Then Return False
 
-        Dim fio As IO.FileInfo = New FileInfo(file)
+        Dim fio As System.IO.FileInfo = New FileInfo(file)
 
         Return fio.Name
     End Function
 
 
     Public Function copyFile(file, toDirectory, Optional ByRef dest = "")
-        If Not IO.File.Exists(file) Then Return False
+        If Not System.IO.File.Exists(file) Then Return False
-        If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
+        If Not System.IO.Directory.Exists(toDirectory) Then System.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...
+        While System.IO.File.Exists(dest) Or System.IO.File.Exists(dest).ToString.Replace(".tmp_", "") 'wenn mit oder ohen .tmp_ existiert...
             tmpExt = Now.ToString("yyMMdd_HHmmss.fff_")
             dest = toDirectory & ".tmp_" & tmpExt & cut_file(file)
         End While
-        IO.File.Copy(file, dest) ' Verschiebt die Datei
+        System.IO.File.Copy(file, dest) ' Verschiebt die Datei
-        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!
+        System.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
 
@@ -3076,10 +3128,10 @@ Public Class frmStartOptions
             Dim dwlFileName = VERARBEITUNGS_PFAD & Now.ToString("yyyyMMdd_HHmmss_") & "Initialload.zip"
             Using response As System.Net.FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse)
 
-                Using responseStream As IO.Stream = response.GetResponseStream
+                Using responseStream As System.IO.Stream = response.GetResponseStream
 
                     'loop to read & write to file
-                    Using fs As New IO.FileStream(dwlFileName, IO.FileMode.Create)
+                    Using fs As New System.IO.FileStream(dwlFileName, System.IO.FileMode.Create)
 
                         Dim buffer(2047) As Byte
 
@@ -3259,8 +3311,8 @@ 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
+                            If Not System.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)
+                                System.IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
                             End If
                         End If
 

initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb

@@ -47,9 +47,9 @@ Public Class frmTCNachrichtenVerarbeitung
         'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
         Me.ERROR_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         '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 System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
-        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+        If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
-        If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
+        If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
 
         'Me.BOX_VERSION = TELOTEC_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
@@ -100,19 +100,19 @@ Public Class frmTCNachrichtenVerarbeitung
     Function getNachrichtenDatenFromTelotec() As Integer
         Dim cnt = 0
         Try
-            For Each f In IO.Directory.GetFiles(TELOTEC_PFAD)
+            For Each f In System.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
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
 
                     'Datei herunterladen
-                    IO.File.Copy(f, destFilenameTMP)
+                    System.IO.File.Copy(f, destFilenameTMP)
-                    If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+                    If System.IO.File.Exists(destFilenameTMP) Then System.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
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
-                    IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+                    System.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
@@ -173,19 +173,19 @@ Public Class frmTCNachrichtenVerarbeitung
     Function getNachrichtenDatenFromTelotec_VERAG() As Integer
         Dim cnt = 0
         Try
-            For Each f In IO.Directory.GetFiles(TELOTEC_PFAD_VERAG)
+            For Each f In System.IO.Directory.GetFiles(TELOTEC_PFAD_VERAG)
                 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
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
 
                     'Datei herunterladen
-                    IO.File.Copy(f, destFilenameTMP)
+                    System.IO.File.Copy(f, destFilenameTMP)
-                    If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+                    If System.IO.File.Exists(destFilenameTMP) Then System.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
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
-                    IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+                    System.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
@@ -237,7 +237,7 @@ Public Class frmTCNachrichtenVerarbeitung
     End Function
 
     Private Function getFilesInOrder() As String()
-        Dim myDirectory As New IO.DirectoryInfo(VERARBEITUNGS_PFAD)
+        Dim myDirectory As New System.IO.DirectoryInfo(VERARBEITUNGS_PFAD)
         'Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.LastWriteTime).Select(Function(x) x.FullName).Take(40).ToArray
         Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.CreationTime).Select(Function(x) x.FullName).ToArray
         ' Dim myfiles As FileInfo() = myDirectory.GetFiles().OrderBy(Function(p) p.CreationTime).Select(Function(x) x.FullName).ToArray
@@ -261,7 +261,7 @@ Public Class frmTCNachrichtenVerarbeitung
                 Try
                     Dateiname = d
                     cWorker_NCTS.Dateiname = d
-                    If IO.File.Exists(d) Then
+                    If System.IO.File.Exists(d) Then
 
 
 
@@ -329,7 +329,7 @@ Public Class frmTCNachrichtenVerarbeitung
 
                                                             Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
                                                             If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                                                            If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                                                            If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                                                             Dim destFull = ""
                                                             frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
@@ -350,7 +350,7 @@ Public Class frmTCNachrichtenVerarbeitung
 
                                                             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)
+                                                            If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                                                             Dim destFull = ""
                                                             frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
@@ -368,41 +368,41 @@ Public Class frmTCNachrichtenVerarbeitung
                                                     End Select
                                                 Case "EZ922" 'STB Mitteilung
 
-                                                            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+                                                    DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
-                                                            DS.da_vorlage = False
+                                                    DS.da_vorlage = False
 
-                                                            Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
+                                                    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 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)
+                                                    If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
-                                                            Dim destFull = ""
+                                                    Dim destFull = ""
-                                                            frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
+                                                    frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
 
-                                                            If DS.insertDataToDATENSERVER(destFull) Then
+                                                    If DS.insertDataToDATENSERVER(destFull) Then
-                                                                If IsNumeric(tc_id) AndAlso tc_id > 0 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 [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!
+                                                            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!
-                                                                    If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
+                                                            If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
-                                                                End If
+                                                        End If
-                                                            End If
+                                                    End If
-                                                            found = True
+                                                    found = True
-                                                            addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr)
+                                                    addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr)
 
-                                                        Case "TR109" 'VBD
+                                                Case "TR109" 'VBD
 
-                                                            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
+                                                    DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
-                                                            DS.da_vorlage = False
+                                                    DS.da_vorlage = False
 
-                                                            Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
+                                                    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 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)
+                                                    If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
-                                                            Dim destFull = ""
+                                                    Dim destFull = ""
-                                                            frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
+                                                    frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
 
-                                                            If DS.insertDataToDATENSERVER(destFull) Then
+                                                    If DS.insertDataToDATENSERVER(destFull) Then
-                                                                If IsNumeric(tc_id) AndAlso tc_id > 0 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 [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!
                                                             If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id)
                                                         End If
@@ -416,7 +416,7 @@ Public Class frmTCNachrichtenVerarbeitung
 
                                                     Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\"
                                                     If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
-                                                    If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+                                                    If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
 
                                                     Dim destFull = ""
                                                     frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
@@ -452,7 +452,7 @@ Public Class frmTCNachrichtenVerarbeitung
                             If True Then
                                 If Not alreadyMoved Then
                                     If found Then
-                                        If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                        If Not System.IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                         frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                         cntDatenEingelesen += 1
                                         Me.Refresh()
@@ -466,7 +466,7 @@ Public Class frmTCNachrichtenVerarbeitung
 
 
                         End If
-                        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
@@ -1071,7 +1071,7 @@ Public Class frmTCNachrichtenVerarbeitung
 
 
             Try
-                '  System.IO.File.Delete(p)
+                '  System.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
@@ -1135,7 +1135,7 @@ Public Class frmTCNachrichtenVerarbeitung
 
                     ''Lösche File: --> vom ALTEN ATLAS
                     'Try
-                    '    System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
+                    '    System.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

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb

@@ -50,9 +50,9 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_ATEZ
         'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
         Me.ERROR_PFAD = cNCTSPartnerWorker.cATEZ_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 System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
-        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+        If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
-        If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
+        If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
 
         'Me.BOX_VERSION = NCTSTR_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
@@ -115,16 +115,16 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_ATEZ
             End If
 
 
-            For Each f In IO.Directory.GetFiles(SERVER_Path)
+            For Each f In System.IO.Directory.GetFiles(SERVER_Path)
-                Dim fi As New IO.FileInfo(f)
+                Dim fi As New System.IO.FileInfo(f)
                 If Not fi.Name.StartsWith(".") Then
                     Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
-                    While IO.File.Exists(zielPfad)
+                    While System.IO.File.Exists(zielPfad)
                         zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
                     End While
-                    IO.File.Copy(f, zielPfad)
+                    System.IO.File.Copy(f, zielPfad)
                     If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                        If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
+                        If System.IO.File.Exists(zielPfad) Then System.IO.File.Delete(f)
                     End If
 
                     ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen
@@ -148,19 +148,19 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_ATEZ
     Function getNachrichtenDatenFromMAVIServices_ALTERNATIV() As Integer
         Dim cnt = 0
         Try
-            For Each f In IO.Directory.GetFiles(TELOTEC_PFAD)
+            For Each f In System.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
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
 
                     'Datei herunterladen
-                    IO.File.Copy(f, destFilenameTMP)
+                    System.IO.File.Copy(f, destFilenameTMP)
-                    If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+                    If System.IO.File.Exists(destFilenameTMP) Then System.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
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
-                    IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+                    System.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
@@ -278,7 +278,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_ATEZ
                 Try
                     Dateiname = d
                     cWorker_NCTS.Dateiname = d
-                    If IO.File.Exists(d) Then
+                    If System.IO.File.Exists(d) Then
                         Dim found = False
                         Dim nr_id As Integer = -1
                         Dim fi As FileInfo = New FileInfo(d)
@@ -368,7 +368,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_ATEZ
 
                             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") & "\")
+                                If Not System.IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                 frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\", destPath)
                                 cntDatenEingelesen += 1
                             Else

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb

@@ -50,9 +50,9 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
         '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 System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
-        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+        If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
-        If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
+        If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
 
         'Me.BOX_VERSION = NCTSTR_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
@@ -115,16 +115,16 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
             End If
 
 
-            For Each f In IO.Directory.GetFiles(SERVER_Path)
+            For Each f In System.IO.Directory.GetFiles(SERVER_Path)
-                Dim fi As New IO.FileInfo(f)
+                Dim fi As New System.IO.FileInfo(f)
                 If Not fi.Name.StartsWith(".") Then
                     Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
-                    While IO.File.Exists(zielPfad)
+                    While System.IO.File.Exists(zielPfad)
                         zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
                     End While
-                    IO.File.Copy(f, zielPfad)
+                    System.IO.File.Copy(f, zielPfad)
                     If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                        If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
+                        If System.IO.File.Exists(zielPfad) Then System.IO.File.Delete(f)
                     End If
 
                     ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen
@@ -147,19 +147,19 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
     Function getNachrichtenDatenFromMAVIServices_ALTERNATIV() As Integer
         Dim cnt = 0
         Try
-            For Each f In IO.Directory.GetFiles(TELOTEC_PFAD)
+            For Each f In System.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
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
 
                     'Datei herunterladen
-                    IO.File.Copy(f, destFilenameTMP)
+                    System.IO.File.Copy(f, destFilenameTMP)
-                    If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+                    If System.IO.File.Exists(destFilenameTMP) Then System.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
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
-                    IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+                    System.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
@@ -277,7 +277,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
                 Try
                     Dateiname = d
                     cWorker_NCTS.Dateiname = d
-                    If IO.File.Exists(d) Then
+                    If System.IO.File.Exists(d) Then
                         Dim found = False
                         Dim nr_id As Integer = -1
                         Dim fi As FileInfo = New FileInfo(d)
@@ -367,7 +367,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
 
                             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") & "\")
+                                If Not System.IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                 frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\", destPath)
                                 cntDatenEingelesen += 1
                             Else

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb

@@ -50,9 +50,9 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
         'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
         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 System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
-        If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
+        If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
-        If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
+        If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
 
         'Me.BOX_VERSION = NCTSTR_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
@@ -115,16 +115,16 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
             End If
 
 
-            For Each f In IO.Directory.GetFiles(SERVER_Path)
+            For Each f In System.IO.Directory.GetFiles(SERVER_Path)
-                Dim fi As New IO.FileInfo(f)
+                Dim fi As New System.IO.FileInfo(f)
                 If True Then 'Not fi.Name.StartsWith(".") Then ' ---> DEAKTIVIERT; DA FALSCH BEREITSTELLT
                     Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
-                    While IO.File.Exists(zielPfad)
+                    While System.IO.File.Exists(zielPfad)
                         zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
                     End While
-                    IO.File.Copy(f, zielPfad)
+                    System.IO.File.Copy(f, zielPfad)
                     If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                        If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
+                        If System.IO.File.Exists(zielPfad) Then System.IO.File.Delete(f)
                     End If
 
                     ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen
@@ -148,19 +148,19 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
     Function getNachrichtenDatenFromMAVIServices_ALTERNATIV() As Integer
         Dim cnt = 0
         Try
-            For Each f In IO.Directory.GetFiles(TELOTEC_PFAD)
+            For Each f In System.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
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
 
                     'Datei herunterladen
-                    IO.File.Copy(f, destFilenameTMP)
+                    System.IO.File.Copy(f, destFilenameTMP)
-                    If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+                    If System.IO.File.Exists(destFilenameTMP) Then System.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
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
-                    IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+                    System.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
@@ -278,7 +278,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
                 Try
                     Dateiname = d
                     cWorker_NCTS.Dateiname = d
-                    If IO.File.Exists(d) Then
+                    If System.IO.File.Exists(d) Then
                         Dim found = False
                         Dim nr_id As Integer = -1
                         Dim fi As FileInfo = New FileInfo(d)
@@ -368,7 +368,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
 
                             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") & "\")
+                                If Not System.IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                 frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\", destPath)
                                 cntDatenEingelesen += 1
                             Else