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

14.08.2019

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-08-14 09:02:16 +02:00
parent 82e1bf915b
commit 554262d804
4 changed files with 87 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -193,6 +193,8 @@ Public Class frmDYNachrichtenVerarbeitung
cWorker_NCTS.Dateiname = d
If IO.File.Exists(d) Then
Dim found = False
Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing
Dim fi As FileInfo = New FileInfo(d)
' EDIFACT
@@ -260,7 +262,7 @@ Public Class frmDYNachrichtenVerarbeitung
'NCTS: Versandanmeldung
If Not found AndAlso cGetMsgType.isNCTS_VersandanmeldungXML(doc) Then
If cWorker_NCTS.readNCTS_VersandanmeldungXML(Me, doc) <> "" Then found = True
If cWorker_NCTS.readNCTS_VersandanmeldungXML(Me, doc, statusTMP) <> "" Then found = True
End If
'NCTS: Ankunftsanzeige
@@ -277,9 +279,9 @@ Public Class frmDYNachrichtenVerarbeitung
'NCTS: Ueberlassungsmeldung
If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then
Select Case VERSION
Case "006" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung006(Me, d) <> "" Then found = True ': MsgBox("005!")
Case "005" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung005(Me, d) <> "" Then found = True ': MsgBox("005!")
Case Else : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung(Me, d) <> "" Then found = True
Case "006" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung006(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case "005" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung005(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case Else : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung(Me, d, statusTMP) <> "" Then found = True
End Select
End If
@@ -486,8 +488,14 @@ Public Class frmDYNachrichtenVerarbeitung
If True Then
If Not alreadyMoved Then
If found Then
If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
frmStartOptions.moveFile(d, 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)
Dim destFile = ""
If frmStartOptions.moveFile(d, dest, destFile) Then ' dest: Filename wird angefügt
If statusTMP IsNot Nothing Then
statusTMP.updatePfad(destFile)
End If
End If
Else
frmStartOptions.moveFile(d, ERROR_PFAD)
End If