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

Mailsender, status EZA send

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-07-07 13:35:57 +02:00
parent f193cb6dd3
commit 252a74a93a
6 changed files with 257 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -524,7 +524,7 @@ Public Class frmDYNachrichtenVerarbeitung
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc)
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc, statusTMP)
If bezugsNr <> "" Then
found = True
End If
@@ -5170,7 +5170,7 @@ Public Class frmDYNachrichtenVerarbeitung
End Try
End Function
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc As XmlDocument) As String
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(doc As XmlDocument, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
Try
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF = ""
Dim sw = New StringWriter()
@@ -5780,7 +5780,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_FCFCDF = ""
End If