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

DY div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-12 22:41:07 +01:00
parent 52feeaa603
commit 8572a83771
7 changed files with 665 additions and 599 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1193,10 +1193,14 @@ Public Class frmDYNachrichtenVerarbeitung
BezugsNr = ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt
STATUS2.dySt_ergCode = "" 'erg.EreignisCode
STATUS2.dySt_ergMitteilung = "" 'erg.Ereignismitteilung
If ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech.Contains("OKAY") Then
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_04
ElseIf ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech.Contains("INFO") Then
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_08
If ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech IsNot Nothing Then
If ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech.Contains("OKAY") Then
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_04
ElseIf ge.Quittungsobjekt.QuittungTech(0).ErgebnisTech.Contains("INFO") Then
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_08
Else
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_98
End If
Else
STATUS2.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_98
End If