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

EXG NCTS

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-08 09:27:39 +02:00
parent bcbbf76d31
commit 83ebe204df
6 changed files with 2442 additions and 2154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -230,14 +230,19 @@ Public Class frmDYNachrichtenVerarbeitung
For Each d In getFilesInOrder() 'System.System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD,,)
Try
Console.WriteLine(d)
Dateiname = d
cWorker_NCTS.Dateiname = d
If System.IO.File.Exists(d) Then
Dim found = False
Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing
Dim fi As FileInfo = New FileInfo(d)
Console.WriteLine(fi.Name)
If Not fi.Name.StartsWith(".") And Not fi.Name.StartsWith("lock_") Then
Console.WriteLine("Verarbeitung Datein ohne Punkt / lock")
d = frmStartOptions.lockFile(d)
fi = New FileInfo(d)
' EDIFACT
@@ -249,6 +254,7 @@ Public Class frmDYNachrichtenVerarbeitung
alreadyMoved = True
addDGVEinarbeitung("** NLC-Datei **", fi.Name)
ElseIf fi.Extension = ".edi" Then ' Or fi.Name.StartsWith("ZA") Then
Console.WriteLine("Verarbeitung Datein EDI")
Dim s As String = File.ReadAllText(d, System.Text.UTF8Encoding.Default)
If s.Contains("'") Then
Dim lines = s.Split("'")
@@ -282,6 +288,7 @@ Public Class frmDYNachrichtenVerarbeitung
'XML
ElseIf fi.Extension = ".xml" Then
Console.WriteLine("Verarbeitung Datein XML")
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
Dim doc As New XmlDocument()
@@ -417,7 +424,7 @@ Public Class frmDYNachrichtenVerarbeitung
If Not found And cGetMsgType.isSumAErledigungsinformation(doc, VERSION) Then
Select Case VERSION
Case "005" :: If cWorker_Verwahrung.readVW_SumAErledigungsinformation(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - RECHTE SEITE
Case "005" : If cWorker_Verwahrung.readVW_SumAErledigungsinformation(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - RECHTE SEITE
Case Else : If cWorker_Verwahrung.readVW_SumAErledigungsinformation(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - RECHTE SEITE
End Select
End If
@@ -455,9 +462,13 @@ Public Class frmDYNachrichtenVerarbeitung
'------------------------------------------
Console.WriteLine("EXG")
'AES: GEST
If Not found And cGetMsgType.isAES_DatenZumAusgang(doc, VERSION) Then
frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
Console.WriteLine("isAES_DatenZumAusgang")
Try : frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
Catch : End Try
Select Case VERSION
Case False
Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
@@ -466,7 +477,8 @@ Public Class frmDYNachrichtenVerarbeitung
'AES: Zoll Nachricht
If Not found And cGetMsgType.isAES_E_EXT_DAT(doc) Then
frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
Try : frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
Catch : End Try
'Select Case VERSION
' Case False
' Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
@@ -787,6 +799,7 @@ Public Class frmDYNachrichtenVerarbeitung
End If
End If
Catch ex As Exception
Console.WriteLine("ERROR" & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Next