From 091e526a043c1e314f060424be49c8d17c6ec7b2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 23 Sep 2024 09:53:19 +0200 Subject: [PATCH] System.IO, Zugferd, Dakosy-Import Firma gesetzt durch Division1 --- DAKOSY_Worker/cDakosyFunftions.vb | 28 +-- MailSender/MAILSender.vb | 6 +- .../AtlasAufschubDatenEinlesen.vb | 6 +- initATLASAufschubkonten/RoutineManager.vbproj | 3 + .../VERAG_Interface/cVERAG_out_eza.vb | 14 +- .../VERAG_Interface/cVERAG_out_ncts.vb | 32 ++-- initATLASAufschubkonten/cAsfinag.vb | 40 ++--- initATLASAufschubkonten/cGetMsgType.vb | 6 +- initATLASAufschubkonten/cUTA.vb | 16 +- initATLASAufschubkonten/cWorker_NCTS.vb | 8 +- .../frmAsfinag_NachrichtenVerarbeitung.vb | 6 +- .../frmDYNachrichtenVerarbeitung.vb | 61 +++++-- .../frmMDMNachrichtenVerarbeitung.vb | 36 ++-- .../frmNachrichtenVerarbeitung_MDM_divers.vb | 53 +++--- initATLASAufschubkonten/frmStartOptions.vb | 166 ++++++++++++------ .../frmTCNachrichtenVerarbeitung.vb | 102 +++++------ .../frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb | 32 ++-- .../frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb | 32 ++-- ...rmTRNCTS_NachrichtenVerarbeitung_OREGON.vb | 32 ++-- 19 files changed, 391 insertions(+), 288 deletions(-) diff --git a/DAKOSY_Worker/cDakosyFunftions.vb b/DAKOSY_Worker/cDakosyFunftions.vb index 9f0f9a5..423de87 100644 --- a/DAKOSY_Worker/cDakosyFunftions.vb +++ b/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 - IO.Directory.CreateDirectory(getDefaultFolder_SEND) + If Not System.IO.Directory.Exists(getDefaultFolder_SEND) Then + 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 - IO.Directory.CreateDirectory(getDefaultFolder_SEND) + If Not System.IO.Directory.Exists(getDefaultFolder_SEND) Then + 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 - IO.Directory.CreateDirectory(saveDir) + If Not System.IO.Directory.Exists(saveDir) Then + 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 - IO.Directory.CreateDirectory(saveDir) + If Not System.IO.Directory.Exists(saveDir) Then + 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" diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index dc5da53..f0b6009 100644 --- a/MailSender/MAILSender.vb +++ b/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 diff --git a/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb b/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb index a7a09f8..a74879a 100644 --- a/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb +++ b/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 diff --git a/initATLASAufschubkonten/RoutineManager.vbproj b/initATLASAufschubkonten/RoutineManager.vbproj index db32ba3..9c5b762 100644 --- a/initATLASAufschubkonten/RoutineManager.vbproj +++ b/initATLASAufschubkonten/RoutineManager.vbproj @@ -109,6 +109,9 @@ + + F:\PROGRAMMIERUNG\dll\ZUGFeRD.NET.dll + diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb index b265ddb..42cbb1d 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb +++ b/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 IO.File.Exists(destFile) Then + If Not System.IO.File.Exists(destFile) Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile) + 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" diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb index d8609cb..90ae343 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb +++ b/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 diff --git a/initATLASAufschubkonten/cAsfinag.vb b/initATLASAufschubkonten/cAsfinag.vb index 948f02b..7d49b11 100644 --- a/initATLASAufschubkonten/cAsfinag.vb +++ b/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) - Dim fi As New IO.FileInfo(f) + For Each f In System.IO.Directory.GetFiles(BEREITSTELLUNG_PFAD) + 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) - If IO.File.Exists(zielPfad & "\" & fi.Name) Then + System.IO.File.Copy(f, zielPfad & "\" & fi.Name, True) + 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 & "\") - IO.File.Move(BEREITSTELLUNG_PFAD & "\" & fi.Name, ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\" & fi.Name) + If Not System.IO.Directory.Exists(ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\") Then System.IO.Directory.CreateDirectory(ARCHIV_PFAD & "\" & Now.Year & "\" & filename & "\") + 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) - Dim fi As New IO.FileInfo(f) + For Each f In System.IO.Directory.GetFiles(SERVER_Path) + 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) - Dim fi As New IO.FileInfo(f) + For Each f In System.IO.Directory.GetFiles(SERVERPath) + 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 - IO.File.Delete(f) + If System.IO.File.Exists(zielPfad) Then + 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) - Dim fi As New IO.FileInfo(f) + For Each f In System.IO.Directory.GetFiles(SERVERPath) + 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 diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index 5412aab..43d711a 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/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 diff --git a/initATLASAufschubkonten/cUTA.vb b/initATLASAufschubkonten/cUTA.vb index e5db4c5..5695460 100644 --- a/initATLASAufschubkonten/cUTA.vb +++ b/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) - Dim fi As New IO.FileInfo(f) + For Each f In System.IO.Directory.GetFiles(SERVERPath) + 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) - If IO.File.Exists(zielPfad) Then - IO.File.Delete(f) + System.IO.File.Copy(f, zielPfad) + If System.IO.File.Exists(zielPfad) Then + 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) diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 119adf4..d9f9bec 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/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 diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb index e8fda72..aeb9f6d 100644 --- a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb +++ b/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 diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 3b24a60..6c60957 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/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 IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) + If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_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 - IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name + 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 @@ -6934,6 +6934,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 +7039,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 Then + division = EZA.Transaktion.IODivision1 End If + End If If EZA.EinzelEntscheidungAnmeldung IsNot Nothing Then @@ -7347,6 +7352,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 @@ -7425,6 +7432,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 @@ -7504,6 +7513,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 @@ -7580,6 +7591,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 @@ -7657,6 +7670,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 @@ -7736,6 +7751,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 @@ -7822,6 +7839,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 @@ -7907,6 +7926,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 @@ -7991,6 +8012,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 @@ -8075,6 +8098,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 @@ -8163,6 +8188,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 @@ -8325,6 +8352,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 @@ -8531,6 +8560,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 @@ -8740,6 +8771,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 @@ -8947,6 +8980,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 diff --git a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb index 2e4b51c..906b687 100644 --- a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb +++ b/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 IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) + If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_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) - If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen + System.IO.File.Copy(f, destFilenameTMP) + 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 - IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name + 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 - End Select + dsNichtErkannt += 1 + 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 diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index 9a14349..0e6db81 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 4e81c4f..2817902 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/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 IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) + If Not System.IO.File.Exists(file) Then Return False + 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 - IO.File.Move(file, dest) ' Verschiebt die Datei + If System.IO.File.Exists(dest) Then Return file + 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 IO.File.Exists(dest) Then Return False + If Not System.IO.File.Exists(file) 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 IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) + If Not System.IO.File.Exists(file) Then Return False + 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 IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) + If Not System.IO.File.Exists(file) Then Return False + 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 IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) + If Not System.IO.File.Exists(file) Then Return False + 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 - 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.Copy(file, dest) ' Verschiebt die Datei + 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("") And XML_Code.Contains("9153") Then - If Not IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then - IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) + If Not System.IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then + System.IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) End If End If diff --git a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb index 1b5b409..5717a03 100644 --- a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb +++ b/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 IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) + If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_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) - If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen + System.IO.File.Copy(f, destFilenameTMP) + 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 - IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name + 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) - If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen + System.IO.File.Copy(f, destFilenameTMP) + 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 - IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name + 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.da_vorlage = False + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" - If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" - If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + Dim 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 System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD) - Dim destFull = "" - frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) - If DS.insertDataToDATENSERVER(destFull) Then - If IsNumeric(tc_id) AndAlso tc_id > 0 Then - SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") - SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! - If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) - End If - End If - found = True - addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr) + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) + End If + End If + found = True + 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.da_vorlage = False + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False - Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" - If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" - If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD) - Dim destFull = "" - frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) - If DS.insertDataToDATENSERVER(destFull) Then - If IsNumeric(tc_id) AndAlso tc_id > 0 Then - SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! 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 diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb index 7485c1a..86907b7 100644 --- a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb +++ b/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 IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) + If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_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) - Dim fi As New IO.FileInfo(f) + For Each f In System.IO.Directory.GetFiles(SERVER_Path) + 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) - If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen + System.IO.File.Copy(f, destFilenameTMP) + 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 - IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name + 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 diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb index ed919d4..910787e 100644 --- a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb +++ b/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 IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) + If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_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) - Dim fi As New IO.FileInfo(f) + For Each f In System.IO.Directory.GetFiles(SERVER_Path) + 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) - If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen + System.IO.File.Copy(f, destFilenameTMP) + 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 - IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name + 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 diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb index d71e5b5..077a500 100644 --- a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb +++ b/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 IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) - If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) + If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_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) - Dim fi As New IO.FileInfo(f) + For Each f In System.IO.Directory.GetFiles(SERVER_Path) + 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) - If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen + System.IO.File.Copy(f, destFilenameTMP) + 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 - IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name + 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