edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

System.IO, Zugferd, Dakosy-Import Firma gesetzt durch Division1

Browse Source
This commit is contained in:
d.breimaier
2024-09-23 09:53:19 +02:00
parent 6f163b8815
commit 091e526a04
19 changed files with 391 additions and 288 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
DAKOSY_Worker/cDakosyFunftions.vb
View File

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

6
MailSender/MAILSender.vb
View File

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

6
initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb
View File

@@ -4,11 +4,11 @@ Imports System.IO
Module AtlasAufschubDatenEinlesen Module AtlasAufschubDatenEinlesen
Public Sub initAllFiles(path As String, HISTORY As Boolean) 'Alle Files im Ordner durchlaufen 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 If HISTORY Then
initFile(file) initFile(file)
Else Else
Dim FI As New IO.FileInfo(file) Dim FI As New System.IO.FileInfo(file)
Dim LastWriteDate As Date = FI.LastWriteTime Dim LastWriteDate As Date = FI.LastWriteTime
If LastWriteDate > Now.AddDays(-6) Then If LastWriteDate > Now.AddDays(-6) Then
initFile(file) initFile(file)
@@ -102,7 +102,7 @@ Module AtlasAufschubDatenEinlesen
If System.IO.File.Exists(sFile) Then If System.IO.File.Exists(sFile) Then
Try Try
Dim F As Short = FreeFile() 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) FileClose(F)
Catch Catch
Return True Return True

3
initATLASAufschubkonten/RoutineManager.vbproj
View File

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

14
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb
View File

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

32
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
View File

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

40
initATLASAufschubkonten/cAsfinag.vb
View File

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

6
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -667,7 +667,7 @@ Public Class cGetMsgType
End Function End Function
Shared Function isPLOSE_Detail(doc As String) As Boolean 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.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 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 Return True
@@ -676,7 +676,7 @@ Public Class cGetMsgType
Return False Return False
End Function End Function
Shared Function isPLOSE_Header(doc As String) As Boolean 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.Count > 0 Then
If lines(0).ToString.Replace("""", "").StartsWith("TR6") Then If lines(0).ToString.Replace("""", "").StartsWith("TR6") Then
Return True Return True
@@ -685,7 +685,7 @@ Public Class cGetMsgType
Return False Return False
End Function End Function
Shared Function isPLOSE_INVData(doc As String) As Boolean 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.Count > 0 Then
If lines(0).ToString.Replace("""", "").StartsWith("PloseCode") Then If lines(0).ToString.Replace("""", "").StartsWith("PloseCode") Then

16
initATLASAufschubkonten/cUTA.vb
View File

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

8
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -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 (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 IsNot Nothing Then
'If ATEZ.status < 40 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_", "")) FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
'End If 'End If
' 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 (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 IsNot Nothing Then
'If ATEZ.status < 40 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_", "")) FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
'End If 'End If
' End If ' End If
@@ -3966,7 +3966,7 @@ Public Class cWorker_NCTS
Try 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) 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 Exit Sub
@@ -4016,7 +4016,7 @@ Public Class cWorker_NCTS
Dim NCTS = cDakosyNCTSOut004.LOADByBezugsNr(dy_BezugsNr, False) Dim NCTS = cDakosyNCTSOut004.LOADByBezugsNr(dy_BezugsNr, False)
If NCTS IsNot Nothing Then 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_", ""))) FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\PDF\" & If(NCTS.ncts_MRN, fio.Name.Replace("lock_", "")))
End If End If
'End If 'End If

6
initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb
View File

@@ -128,7 +128,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
Dim found = False Dim found = False
Dateiname = d 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 Dim nr_id As Integer = -1
@@ -171,12 +171,12 @@ Public Class frmAsfinag_NachrichtenVerabeitung
End If End If
If found Then 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) frmStartOptions.moveFile(d, asfinag.ARCHIV_PFAD & "\" & Now.Year & "\" & FileType & "\", asfinag.VERARBEITUNG_PFAD)
cntDatenEingelesen += 1 cntDatenEingelesen += 1
Else Else
If Not found Then 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) frmStartOptions.moveFile(d, asfinag.ERROR_PFAD & "\" & Now.Year & "\" & FileType & "\", asfinag.VERARBEITUNG_PFAD)
' nciht gefunden, oder durch ERROR nicht eingearbt,. ' nciht gefunden, oder durch ERROR nicht eingearbt,.
dsNichtErkannt += 1 dsNichtErkannt += 1

61
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -51,9 +51,9 @@ Public Class frmDYNachrichtenVerarbeitung
Me.ERROR_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 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\" 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
Me.BOX_VERSION = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 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) For Each f In client.ListDirectory(DY_PFAD_out)
If Not f.Name.StartsWith(".") And Not f.IsDirectory Then If Not f.Name.StartsWith(".") And Not f.IsDirectory Then
'Temp. DownloadPfad '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 'Datei herunterladen
Dim downloadFileStream As Stream = File.OpenWrite(destFilenameTMP) Dim downloadFileStream As Stream = File.OpenWrite(destFilenameTMP)
client.DownloadFile(f.FullName, downloadFileStream) 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() downloadFileStream.Dispose()
'Gültiger Filename 'Gültiger Filename
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen System.IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
Dim fi As FileInfo = New FileInfo(destFilename) Dim fi As FileInfo = New FileInfo(destFilename)
ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen
@@ -217,7 +217,7 @@ Public Class frmDYNachrichtenVerarbeitung
End Function End Function
Private Function getFilesInOrder() As String() 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.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 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 ' 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 Try
Dateiname = d Dateiname = d
cWorker_NCTS.Dateiname = d cWorker_NCTS.Dateiname = d
If IO.File.Exists(d) Then If System.IO.File.Exists(d) Then
Dim found = False Dim found = False
Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing
@@ -247,7 +247,7 @@ Public Class frmDYNachrichtenVerarbeitung
' If fi.Extension = ".edi" Then ' If fi.Extension = ".edi" Then
Dim alreadyMoved = False Dim alreadyMoved = False
If fi.Extension = ".nlc" Then ' Or fi.Name.StartsWith("ZA") Then 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\") frmStartOptions.moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
alreadyMoved = True alreadyMoved = True
addDGVEinarbeitung("** NLC-Datei **", fi.Name) addDGVEinarbeitung("** NLC-Datei **", fi.Name)
@@ -674,7 +674,7 @@ Public Class frmDYNachrichtenVerarbeitung
If Not alreadyMoved Then If Not alreadyMoved Then
If found Then If found Then
Dim dest = ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" 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 = "" Dim destFile = ""
If frmStartOptions.moveFile(d, dest, destFile) Then ' dest: Filename wird angefügt If frmStartOptions.moveFile(d, dest, destFile) Then ' dest: Filename wird angefügt
If statusTMP IsNot Nothing Then If statusTMP IsNot Nothing Then
@@ -683,7 +683,7 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
Else Else
Dim destErr = ERROR_PFAD & Now.ToString("yyyy_MM") & "\" 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) frmStartOptions.moveFile(d, destErr)
End If End If
@@ -6934,6 +6934,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7037,7 +7039,10 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
If EZA.EinzelEntscheidungAnmeldung IsNot Nothing Then If EZA.EinzelEntscheidungAnmeldung IsNot Nothing Then
@@ -7347,6 +7352,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7425,6 +7432,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7504,6 +7513,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7580,6 +7591,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7657,6 +7670,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7736,6 +7751,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7822,6 +7839,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7907,6 +7926,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -7991,6 +8012,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8075,6 +8098,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8163,6 +8188,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8325,6 +8352,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8531,6 +8560,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8740,6 +8771,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If
@@ -8947,6 +8980,8 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3 division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 Then
division = EZA.Transaktion.IODivision1
End If End If
End If End If

36
initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
View File

@@ -45,9 +45,9 @@ Public Class frmMDMNachrichtenVerarbeitung
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\" 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
Me.ERROR_PFAD = MDM_Worker.cMDM_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 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\" 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
'Me.BOX_VERSION = MDM_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) '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) ' 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") 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(), Using downloadResponse As FtpWebResponse = downloadRequest.GetResponse(),
sourceStream As Stream = downloadResponse.GetResponseStream(), sourceStream As Stream = downloadResponse.GetResponseStream(),
@@ -181,9 +181,9 @@ Public Class frmMDMNachrichtenVerarbeitung
targetStream.Dispose() targetStream.Dispose()
downloadResponse.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) Dim fi As FileInfo = New FileInfo(destFilename)
@@ -232,19 +232,19 @@ Public Class frmMDMNachrichtenVerarbeitung
Function getNachrichtenDatenFromMDMServices_ALTERNATIV() As Integer Function getNachrichtenDatenFromMDMServices_ALTERNATIV() As Integer
Dim cnt = 0 Dim cnt = 0
Try 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) Dim FI As New FileInfo(f)
If Not FI.Name.StartsWith(".") Then If Not FI.Name.StartsWith(".") Then
'Temp. DownloadPfad '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 'Datei herunterladen
IO.File.Copy(f, destFilenameTMP) System.IO.File.Copy(f, destFilenameTMP)
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen If System.IO.File.Exists(destFilenameTMP) Then System.IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename 'Gültiger Filename
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen System.IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
Dim fi_dest As FileInfo = New FileInfo(destFilename) Dim fi_dest As FileInfo = New FileInfo(destFilename)
ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen
@@ -361,7 +361,7 @@ Public Class frmMDMNachrichtenVerarbeitung
Try Try
Dateiname = d Dateiname = d
cWorker_NCTS.Dateiname = d cWorker_NCTS.Dateiname = d
If IO.File.Exists(d) Then If System.IO.File.Exists(d) Then
Dim found = False Dim found = False
Dim fi As FileInfo = New FileInfo(d) Dim fi As FileInfo = New FileInfo(d)
@@ -421,7 +421,7 @@ Public Class frmMDMNachrichtenVerarbeitung
If fi.Extension.ToLower = ".pdf" Then If fi.Extension.ToLower = ".pdf" Then
found = False 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: 'File in Datenarchiv sichern:
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "PLOSE", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d)) 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 End If
Case 5 Case 5
frmStartOptions.moveFile_DateBack(d, ERROR_PFAD) frmStartOptions.moveFile_DateBack(d, ERROR_PFAD)
dsNichtErkannt += 1 dsNichtErkannt += 1
End Select End Select
If True Then If True Then
If Not alreadyMoved Then If Not alreadyMoved Then
If found 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") & "\") frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
End If End If
End If End If

53
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -3,10 +3,16 @@ Imports System.Net
Imports System.Text Imports System.Text
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports System.Web 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
Imports Renci.SshNet.Sftp Imports Renci.SshNet.Sftp
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class frmNachrichtenVerarbeitung_MDM_divers Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim cntDatenEingelesen As Integer = 0 Dim cntDatenEingelesen As Integer = 0
Dim dsNichtErkannt As Integer = 0 Dim dsNichtErkannt As Integer = 0
@@ -71,7 +77,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim cnt = getNachrichtenDaten() Dim cnt = getNachrichtenDaten()
Label9.Text = cnt & " Datensätze empfangen." 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) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Me.Enabled = True Me.Enabled = True
@@ -87,7 +93,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt." Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
Label6.Visible = True Label6.Visible = True
End If 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) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Me.Enabled = True Me.Enabled = True
@@ -108,7 +114,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
End If 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) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -160,7 +166,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
'name = name.Replace(".csv", "_RGDAT_" & Now.ToShortDateString & ".csv") 'name = name.Replace(".csv", "_RGDAT_" & Now.ToShortDateString & ".csv")
Dim destFilenameTMP = verarbeitungspfad 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) Dim fi As FileInfo = New FileInfo(verarbeitungspfad & name)
destFilenameTMP &= name.Replace(fi.Extension, "_") & Now.ToString("yyMMdd_HHmmss.fff") & fi.Extension destFilenameTMP &= name.Replace(fi.Extension, "_") & Now.ToString("yyMMdd_HHmmss.fff") & fi.Extension
Else Else
@@ -207,7 +213,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
End If End If
End Using End Using
Catch ex As Exception Catch ex As System.Exception
End Try End Try
End If 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 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 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) 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 Dim remoteFileNameRenamed = "/_" & file.Name
client.RenameFile(Path + remoteFileName, Path + remoteFileNameRenamed) 'verarbeitete Datei kennzeichnen mit beginnenden "_" 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) For Each d In System.IO.Directory.GetFiles(verarbeitungspfad)
Try Try
Dateiname = d Dateiname = d
If IO.File.Exists(d) Then If System.IO.File.Exists(d) Then
Dim found = False Dim found = False
Dim fi As FileInfo = New FileInfo(d) Dim fi As FileInfo = New FileInfo(d)
@@ -337,7 +343,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
found = False 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: 'File in Datenarchiv sichern:
@@ -403,10 +409,10 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
'------------------------------------------ '------------------------------------------
'------------------ .PDF ------------------ '------------------ .PDF ------------------
'------------------------------------------ '------------------------------------------
'PDFs über EEA 'PDFs über EEA und Zugpfrd
If fi.Extension.ToLower = ".pdf" Then 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 If fi.Name.ToString.StartsWith("invoice_") Then
@@ -414,6 +420,13 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
DS.uploadDataToDATENSERVER(d,,,,,, True) 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---------------------- '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") ' 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---------------------- 'TO DO -> ÄNDERN----------------------
@@ -429,13 +442,11 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
dgvEinarbeitung.Refresh() dgvEinarbeitung.Refresh()
End Select End Select
End If End If
If True Then If True Then
If Not alreadyMoved Then If Not alreadyMoved Then
If found 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") & "\") frmStartOptions.moveFile_DateBack(d, zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
End If End If
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) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Next Next
@@ -472,7 +483,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
dgvEinarbeitung.Rows.Add(art, BezugsNr) dgvEinarbeitung.Rows.Add(art, BezugsNr)
Try Try
dgvEinarbeitung.FirstDisplayedScrollingRowIndex = dgvEinarbeitung.RowCount - 1 dgvEinarbeitung.FirstDisplayedScrollingRowIndex = dgvEinarbeitung.RowCount - 1
Catch ex As Exception Catch ex As System.Exception
End Try End Try
End Sub End Sub
@@ -520,7 +531,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
End If 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) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End While End While
@@ -539,7 +550,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
End If 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) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
MsgBox(ex.StackTrace & ex.Message) MsgBox(ex.StackTrace & ex.Message)
readRMC = "" readRMC = ""
@@ -563,7 +574,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
readUTA = "Zeilen: " & cnt 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) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
MsgBox(ex.StackTrace & ex.Message) MsgBox(ex.StackTrace & ex.Message)
End Try End Try

166
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -91,6 +91,9 @@ Public Class frmStartOptions
txtEZOLLAnhDat._value = Now.ToShortDateString txtEZOLLAnhDat._value = Now.ToShortDateString
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
'PARAM = "mdm_mail_attach"
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray 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 If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
PARAM = parameter(1) PARAM = parameter(1)
@@ -103,8 +106,6 @@ Public Class frmStartOptions
'Exit Sub 'Exit Sub
'PARAM = "AMBAR_VERAG_BUCHUNGEN_CS"
'Standart-Errorverhalten ist MAIL 'Standart-Errorverhalten ist MAIL
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
If PARAM <> "" Then If PARAM <> "" Then
@@ -331,6 +332,31 @@ Public Class frmStartOptions
End If End If
closeMe() 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" Case "MAIL_ATTACH_WORK_FILES"
Dim f As New frmInfo(PARAM) Dim f As New frmInfo(PARAM)
@@ -632,7 +658,7 @@ Public Class frmStartOptions
DS.da_vorlage = False DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
destFull = "" destFull = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 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\" 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 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, 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\" 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 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, 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\" 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 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, 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\" & Now.Year & "\"
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\NCTS_XLS\NEW\" 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull) moveFile(pfad, ZIEL_PFAD, destFull)
@@ -1386,7 +1412,7 @@ Public Class frmStartOptions
If betreff.contains("IDSPRD: Platts Price Report") Then If betreff.contains("IDSPRD: Platts Price Report") Then
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "IDS\IDS_XLS\Platts_Price_Report\NEW\" 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, 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\" 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() Dim DT_PLATTS As New DataTable()
DT_PLATTS.Columns.Add("IsoCode") DT_PLATTS.Columns.Add("IsoCode")
DT_PLATTS.Columns.Add("Outlet") 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") 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") FILE_NEW = IDS_FILE.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", Now.ToString("_ddMMyy.HHmmss") & "_ORIG.xls")
End While 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") 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") 'IDS_FILE = ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", "_ORIG.xls")
@@ -1768,7 +1794,7 @@ Public Class frmStartOptions
End With End With
Dim FIN_FILE = FILE_NEW.Replace("_ORIG.xls", ".xls") 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") FIN_FILE = FILE_NEW.Replace("_ORIG.xls", Now.ToString("_ddMMyy.HHmmss") & ".xls")
End While End While
@@ -1833,9 +1859,9 @@ Public Class frmStartOptions
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\NCTS_XLS\NEW\" 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::::::: ' EXCEL AUSLESEN:::::::
@@ -1968,15 +1994,15 @@ Public Class frmStartOptions
End Try End Try
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 & "\") 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") & "_") newFile = MIC_FILE.Replace("\NEW\", "\" & Now.Year & "\" & Now.ToString("ddMMyy_HHmmss") & "_")
End While End While
IO.File.Move(MIC_FILE, newFile) System.IO.File.Move(MIC_FILE, newFile)
Catch ex2 As Exception Catch ex2 As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) 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\" 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 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, 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\" 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 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 = "" destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull) moveFile(pfad, ZIEL_PFAD, destFull)
@@ -2153,7 +2179,7 @@ Public Class frmStartOptions
DS.da_vorlage = False DS.da_vorlage = False
Dim destFull = "" Dim destFull = ""
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" 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) moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then 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\" 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 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, 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\" 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 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, 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\" 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 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 = "" Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull) moveFile(pfad, ZIEL_PFAD, destFull)
@@ -2299,6 +2325,32 @@ Public Class frmStartOptions
End Sub 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 Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Try Try
@@ -2479,13 +2531,13 @@ Public Class frmStartOptions
Public Function moveFile(file, toDirectory, Optional ByRef dest = "") ', Optional unlockFile = True) Public Function moveFile(file, toDirectory, Optional ByRef dest = "") ', Optional unlockFile = True)
Try Try
If Not IO.File.Exists(file) Then Return False If Not System.IO.File.Exists(file) Then Return False
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) If Not System.IO.Directory.Exists(toDirectory) Then System.IO.Directory.CreateDirectory(toDirectory)
dest = toDirectory & cut_file(file).Replace("lock_", "") 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_", "") dest = toDirectory & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file).Replace("lock_", "")
End If End If
IO.File.Move(file, dest) ' Verschiebt die Datei System.IO.File.Move(file, dest) ' Verschiebt die Datei
Return True Return True
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file & vbNewLine & "DestPfad: " & toDirectory, System.Reflection.MethodInfo.GetCurrentMethod.Name) 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 End Function
Public Function lockFile(file) As String Public Function lockFile(file) As String
Try 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 If file.ToString.Contains("lock_") Then Return file
Dim FIO As New FileInfo(file) Dim FIO As New FileInfo(file)
Dim dest = FIO.Directory.FullName & "\lock_" & FIO.Name Dim dest = FIO.Directory.FullName & "\lock_" & FIO.Name
If IO.File.Exists(dest) Then Return file If System.IO.File.Exists(dest) Then Return file
IO.File.Move(file, dest) ' Verschiebt die Datei System.IO.File.Move(file, dest) ' Verschiebt die Datei
Return dest Return dest
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name) 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 Public Function unlockFile(file) As String
Try Try
Dim dest = file.ToString.Replace("\lock_", "") Dim dest = file.ToString.Replace("\lock_", "")
If Not IO.File.Exists(file) Then Return False If Not System.IO.File.Exists(file) Then Return False
If Not IO.File.Exists(dest) Then Return False If Not System.IO.File.Exists(dest) Then Return False
IO.File.Move(file, dest) ' Verschiebt die Datei System.IO.File.Move(file, dest) ' Verschiebt die Datei
Return dest Return dest
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name) 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 Return file
End Function End Function
Public Function moveFile_DateBack(file, toDirectory, Optional ByRef dest = "") Public Function moveFile_DateBack(file, toDirectory, Optional ByRef dest = "")
If Not IO.File.Exists(file) Then Return False If Not System.IO.File.Exists(file) Then Return False
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) If Not System.IO.Directory.Exists(toDirectory) Then System.IO.Directory.CreateDirectory(toDirectory)
dest = toDirectory & cut_file(file) 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 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 dest = toDirectory & cut_file(file).Replace(ext, Now.ToString("_yyMMdd_HHmmss.fff")) & ext
End If End If
IO.File.Move(file, dest) ' Verschiebt die Datei System.IO.File.Move(file, dest) ' Verschiebt die Datei
Return True Return True
End Function End Function
Public Function copyFile_DateBack(file, toDirectory, Optional ByRef dest = "") Public Function copyFile_DateBack(file, toDirectory, Optional ByRef dest = "")
If Not IO.File.Exists(file) Then Return False If Not System.IO.File.Exists(file) Then Return False
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) If Not System.IO.Directory.Exists(toDirectory) Then System.IO.Directory.CreateDirectory(toDirectory)
dest = toDirectory & cut_file(file) 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 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 dest = toDirectory & cut_file(file).Replace(ext, Now.ToString("_yyMMdd_HHmmss.fff")) & ext
End If End If
IO.File.Copy(file, dest) ' Verschiebt die Datei System.IO.File.Copy(file, dest) ' Verschiebt die Datei
Return True Return True
End Function End Function
@@ -2555,25 +2607,25 @@ Public Class frmStartOptions
' Return cut_file(file).Replace(ext, Now.ToString("_yyMMdd_HHmmss.fff")) & ext ' Return cut_file(file).Replace(ext, Now.ToString("_yyMMdd_HHmmss.fff")) & ext
'End Function 'End Function
Public Function getFileName(file) As String 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 Return fio.Name
End Function End Function
Public Function copyFile(file, toDirectory, Optional ByRef dest = "") Public Function copyFile(file, toDirectory, Optional ByRef dest = "")
If Not IO.File.Exists(file) Then Return False If Not System.IO.File.Exists(file) Then Return False
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) If Not System.IO.Directory.Exists(toDirectory) Then System.IO.Directory.CreateDirectory(toDirectory)
dest = toDirectory & ".tmp_" & cut_file(file) dest = toDirectory & ".tmp_" & cut_file(file)
Dim tmpExt = "" 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_") tmpExt = Now.ToString("yyMMdd_HHmmss.fff_")
dest = toDirectory & ".tmp_" & tmpExt & cut_file(file) dest = toDirectory & ".tmp_" & tmpExt & cut_file(file)
End While End While
IO.File.Copy(file, dest) ' Verschiebt die Datei System.IO.File.Copy(file, dest) ' Verschiebt die Datei
IO.File.Move(dest, dest.ToString.Replace(".tmp_" & tmpExt, "")) ' Umbenennen der Datei --> der "." am Anfang dient dazu, dass die Datei nicht abgegriffen wird, während sie kopiert wird! System.IO.File.Move(dest, dest.ToString.Replace(".tmp_" & tmpExt, "")) ' Umbenennen der Datei --> der "." am Anfang dient dazu, dass die Datei nicht abgegriffen wird, während sie kopiert wird!
dest = dest.ToString.Replace(".tmp_" & tmpExt, "") dest = dest.ToString.Replace(".tmp_" & tmpExt, "")
Return True Return True
@@ -3076,10 +3128,10 @@ Public Class frmStartOptions
Dim dwlFileName = VERARBEITUNGS_PFAD & Now.ToString("yyyyMMdd_HHmmss_") & "Initialload.zip" Dim dwlFileName = VERARBEITUNGS_PFAD & Now.ToString("yyyyMMdd_HHmmss_") & "Initialload.zip"
Using response As System.Net.FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse) 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 '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 Dim buffer(2047) As Byte
@@ -3259,8 +3311,8 @@ Public Class frmStartOptions
Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default) Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default)
If XML_Code.Contains("<FCFCDC>") And XML_Code.Contains("<TaxOffice>9153</TaxOffice>") Then If XML_Code.Contains("<FCFCDC>") And XML_Code.Contains("<TaxOffice>9153</TaxOffice>") Then
If Not IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then If Not System.IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then
IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) System.IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
End If End If
End If End If

102
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -47,9 +47,9 @@ Public Class frmTCNachrichtenVerarbeitung
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\" 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
Me.ERROR_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 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\" 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
'Me.BOX_VERSION = TELOTEC_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) '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 Function getNachrichtenDatenFromTelotec() As Integer
Dim cnt = 0 Dim cnt = 0
Try 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) Dim FI As New FileInfo(f)
If Not FI.Name.StartsWith(".") Then If Not FI.Name.StartsWith(".") Then
'Temp. DownloadPfad '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 'Datei herunterladen
IO.File.Copy(f, destFilenameTMP) System.IO.File.Copy(f, destFilenameTMP)
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen If System.IO.File.Exists(destFilenameTMP) Then System.IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename 'Gültiger Filename
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen System.IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
Dim fi_dest As FileInfo = New FileInfo(destFilename) Dim fi_dest As FileInfo = New FileInfo(destFilename)
ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen 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 Function getNachrichtenDatenFromTelotec_VERAG() As Integer
Dim cnt = 0 Dim cnt = 0
Try 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) Dim FI As New FileInfo(f)
If Not FI.Name.StartsWith(".") Then If Not FI.Name.StartsWith(".") Then
'Temp. DownloadPfad '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 'Datei herunterladen
IO.File.Copy(f, destFilenameTMP) System.IO.File.Copy(f, destFilenameTMP)
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen If System.IO.File.Exists(destFilenameTMP) Then System.IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename 'Gültiger Filename
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen System.IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
Dim fi_dest As FileInfo = New FileInfo(destFilename) Dim fi_dest As FileInfo = New FileInfo(destFilename)
ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen
@@ -237,7 +237,7 @@ Public Class frmTCNachrichtenVerarbeitung
End Function End Function
Private Function getFilesInOrder() As String() 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.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 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 ' 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 Try
Dateiname = d Dateiname = d
cWorker_NCTS.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\" 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 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 = "" Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, 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\" Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = "" Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
@@ -368,41 +368,41 @@ Public Class frmTCNachrichtenVerarbeitung
End Select End Select
Case "EZ922" 'STB Mitteilung Case "EZ922" 'STB Mitteilung
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = "" Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then If IsNumeric(tc_id) AndAlso tc_id > 0 Then
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
End If End If
End If End If
found = True found = True
addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr) addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr)
Case "TR109" 'VBD Case "TR109" 'VBD
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = "" Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then If IsNumeric(tc_id) AndAlso tc_id > 0 Then
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! 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) If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id)
End If End If
@@ -416,7 +416,7 @@ Public Class frmTCNachrichtenVerarbeitung
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\" 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 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 = "" Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
@@ -452,7 +452,7 @@ Public Class frmTCNachrichtenVerarbeitung
If True Then If True Then
If Not alreadyMoved Then If Not alreadyMoved Then
If found 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") & "\") frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
cntDatenEingelesen += 1 cntDatenEingelesen += 1
Me.Refresh() Me.Refresh()
@@ -466,7 +466,7 @@ Public Class frmTCNachrichtenVerarbeitung
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -1071,7 +1071,7 @@ Public Class frmTCNachrichtenVerarbeitung
Try Try
' System.IO.File.Delete(p) ' System.System.IO.File.Delete(p)
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -1135,7 +1135,7 @@ Public Class frmTCNachrichtenVerarbeitung
''Lösche File: --> vom ALTEN ATLAS ''Lösche File: --> vom ALTEN ATLAS
'Try 'Try
' System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) ' System.System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
'Catch ex As Exception 'Catch ex As Exception
' writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) ' writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
'End Try 'End Try

32
initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb
View File

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

32
initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb
View File

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

32
initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb
View File

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