System.IO, Zugferd, Dakosy-Import Firma gesetzt durch Division1
This commit is contained in:
@@ -51,9 +51,9 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Me.ERROR_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
|
||||
|
||||
If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
|
||||
If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
|
||||
If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
|
||||
|
||||
Me.BOX_VERSION = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
|
||||
@@ -144,17 +144,17 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
For Each f In client.ListDirectory(DY_PFAD_out)
|
||||
If Not f.Name.StartsWith(".") And Not f.IsDirectory Then
|
||||
'Temp. DownloadPfad
|
||||
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
|
||||
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
|
||||
|
||||
'Datei herunterladen
|
||||
Dim downloadFileStream As Stream = File.OpenWrite(destFilenameTMP)
|
||||
client.DownloadFile(f.FullName, downloadFileStream)
|
||||
If IO.File.Exists(destFilenameTMP) Then client.DeleteFile(f.FullName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
|
||||
If System.IO.File.Exists(destFilenameTMP) Then client.DeleteFile(f.FullName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
|
||||
downloadFileStream.Dispose()
|
||||
|
||||
'Gültiger Filename
|
||||
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
|
||||
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
|
||||
Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
|
||||
System.IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
|
||||
|
||||
Dim fi As FileInfo = New FileInfo(destFilename)
|
||||
ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen
|
||||
@@ -217,7 +217,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End Function
|
||||
|
||||
Private Function getFilesInOrder() As String()
|
||||
Dim myDirectory As New IO.DirectoryInfo(VERARBEITUNGS_PFAD)
|
||||
Dim myDirectory As New System.IO.DirectoryInfo(VERARBEITUNGS_PFAD)
|
||||
'Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.LastWriteTime).Select(Function(x) x.FullName).Take(40).ToArray
|
||||
Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.CreationTime).Select(Function(x) x.FullName).ToArray
|
||||
' Dim myfiles As FileInfo() = myDirectory.GetFiles().OrderBy(Function(p) p.CreationTime).Select(Function(x) x.FullName).ToArray
|
||||
@@ -231,11 +231,11 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
|
||||
|
||||
For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD,,)
|
||||
For Each d In getFilesInOrder() 'System.System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD,,)
|
||||
Try
|
||||
Dateiname = d
|
||||
cWorker_NCTS.Dateiname = d
|
||||
If IO.File.Exists(d) Then
|
||||
If System.IO.File.Exists(d) Then
|
||||
Dim found = False
|
||||
Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing
|
||||
|
||||
@@ -247,7 +247,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
' If fi.Extension = ".edi" Then
|
||||
Dim alreadyMoved = False
|
||||
If fi.Extension = ".nlc" Then ' Or fi.Name.StartsWith("ZA") Then
|
||||
If Not IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") Then IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
|
||||
If Not System.IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") Then System.IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
|
||||
frmStartOptions.moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
|
||||
alreadyMoved = True
|
||||
addDGVEinarbeitung("** NLC-Datei **", fi.Name)
|
||||
@@ -674,7 +674,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If Not alreadyMoved Then
|
||||
If found Then
|
||||
Dim dest = ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(dest) Then IO.Directory.CreateDirectory(dest)
|
||||
If Not System.IO.Directory.Exists(dest) Then System.IO.Directory.CreateDirectory(dest)
|
||||
Dim destFile = ""
|
||||
If frmStartOptions.moveFile(d, dest, destFile) Then ' dest: Filename wird angefügt
|
||||
If statusTMP IsNot Nothing Then
|
||||
@@ -683,7 +683,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End If
|
||||
Else
|
||||
Dim destErr = ERROR_PFAD & Now.ToString("yyyy_MM") & "\"
|
||||
If Not IO.Directory.Exists(destErr) Then IO.Directory.CreateDirectory(destErr)
|
||||
If Not System.IO.Directory.Exists(destErr) Then System.IO.Directory.CreateDirectory(destErr)
|
||||
|
||||
frmStartOptions.moveFile(d, destErr)
|
||||
End If
|
||||
@@ -6934,6 +6934,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7037,7 +7039,10 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If EZA.EinzelEntscheidungAnmeldung IsNot Nothing Then
|
||||
@@ -7347,6 +7352,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7425,6 +7432,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7504,6 +7513,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7580,6 +7591,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7657,6 +7670,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7736,6 +7751,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7822,6 +7839,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7907,6 +7926,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -7991,6 +8012,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8075,6 +8098,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8163,6 +8188,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8325,6 +8352,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8531,6 +8560,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8740,6 +8771,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -8947,6 +8980,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If EZA.Transaktion IsNot Nothing Then
|
||||
If EZA.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = EZA.Transaktion.IODivision3
|
||||
ElseIf EZA.Transaktion.IODivision1 Then
|
||||
division = EZA.Transaktion.IODivision1
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user