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

EXG

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-22 23:11:39 +01:00
parent d830c49d64
commit 3d83cf7878
7 changed files with 135 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -316,7 +316,7 @@ Public Class cGetMsgType
Return False
End Function
Shared Function isEZA_DatenZumAusgang(doc As XmlDocument, ByRef VERSION As String) As Boolean
Shared Function isAES_DatenZumAusgang(doc As XmlDocument, ByRef VERSION As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("DataEXITDE").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
@@ -327,6 +327,17 @@ Public Class cGetMsgType
End If
Return False
End Function
Shared Function isAES_E_EXT_DAT(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("E_EXT_DAT").Count > 0 Then
'If doc.GetElementsByTagName("Version").Count > 0 Then
' VERSION = doc.GetElementsByTagName("Version")(0).InnerText
'End If
Return True
End If
End If
Return False
End Function
Shared Function isEZA_SumAErledigungsinformationCDXWare(doc As XmlDocument, ByRef VERSION As String) As Boolean
If doc.HasChildNodes Then

17
initATLASAufschubkonten/cWorker_AES_EXG.vb
View File

@@ -76,13 +76,16 @@ Public Class cWorker_AES_EXG
If generateInformationenZumAusgang003(MRN, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then
If saveFile <> "" Then
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
Return True
Else
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
Return False
End If
frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\")
'NOCH NCIHT!!!!!!
'If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then
' 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
' Return True
'Else
' 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
' Return False
'End If
End If
End If
End If

22
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -420,26 +420,38 @@ Public Class frmDYNachrichtenVerarbeitung
'VW: SumAErledigungsinformationCDXWare
If Not found And cGetMsgType.isEZA_DatenZumAusgang(doc, VERSION) Then
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationCDXWare(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
Case Else : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationCDXWare007(Me, d, saveVerwahrung) <> "" Then found = True
End Select
End If
'------------------------------------------
'------------------ EXPORT / Gestellung (AES) ------------------
'------------------------------------------
'VW: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
'AES: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isAES_DatenZumAusgang(doc, VERSION) Then
frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
Select Case VERSION
Case False
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung) <> "" Then found = True
Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
End Select
End If
'AES: Zoll Nachricht
If Not found And cGetMsgType.isAES_E_EXT_DAT(doc) Then
frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
'Select Case VERSION
' Case False
' Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
'End Select
End If
'
'------------------------------------------
'------------------ EZA ------------------