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

NCTS5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-13 22:12:48 +02:00
parent da98cbfc22
commit 4afd3d2151
9 changed files with 443 additions and 572 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -396,7 +396,7 @@ Public Class frmDYNachrichtenVerarbeitung
End If
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc)
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc, statusTMP)
If bezugsNr <> "" Then
found = True
End If
@@ -3544,6 +3544,10 @@ Public Class frmDYNachrichtenVerarbeitung
EZA.eza_ADRESSEN.Add(ADR)
End If
'Erwerber
If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Acquirer IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
@@ -3922,7 +3926,7 @@ Public Class frmDYNachrichtenVerarbeitung
End Function
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc As XmlDocument) As String
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc As XmlDocument, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
Try
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = ""
Dim sw = New StringWriter()
@@ -4530,7 +4534,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.SAVE_ALL() Then
If If(EZA.eza_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
If If(EZA.eza_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = ""
End If