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-23 09:49:29 +01:00
parent 3d83cf7878
commit 5df7785d34
2 changed files with 1595 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1583
DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb Normal file
View File

File diff suppressed because it is too large Load Diff

14
initATLASAufschubkonten/cWorker_AES_EXG.vb
View File

@@ -40,6 +40,16 @@ Public Class cWorker_AES_EXG
zp = RESP.ObjektIdentifizierung.ZeitpunktEingang zp = RESP.ObjektIdentifizierung.ZeitpunktEingang
End If End If
'----------------------------------------------------------------------
'EXZ SAVE!
'----------------------------------------------------------------------
Dim EXG As New DAKOSY_Worker.exg
'---------------------------------------------------------------------- '----------------------------------------------------------------------
'QULAIFIZIERUNG! 'QULAIFIZIERUNG!
'---------------------------------------------------------------------- '----------------------------------------------------------------------
@@ -47,7 +57,7 @@ Public Class cWorker_AES_EXG
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit) Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readEZA_DatenZumAusgang_DataEXITDE_005 STATUS.dySt_BezugsNr = readEZA_DatenZumAusgang_DataEXITDE_005
STATUS.dySt_artMitteilung = "EXG_DATA" STATUS.dySt_artMitteilung = "EXG_DATA"
STATUS.dySt_dyArt = "AES" STATUS.dySt_dyArt = "EXG"
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00 STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00
STATUS.dySt_ergCode = "EXG_DATA" STATUS.dySt_ergCode = "EXG_DATA"
@@ -173,7 +183,7 @@ Public Class cWorker_AES_EXG
Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen
STATUS.dySt_BezugsNr = Bezugsnummer STATUS.dySt_BezugsNr = Bezugsnummer
STATUS.dySt_artMitteilung = "EXG_INFO" STATUS.dySt_artMitteilung = "EXG_INFO"
STATUS.dySt_dyArt = "AES" STATUS.dySt_dyArt = "EXG"
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00 STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00
STATUS.dySt_ergCode = "EXG_INFO" STATUS.dySt_ergCode = "EXG_INFO"
STATUS.dySt_ergMitteilung = "MRN:" & MRN STATUS.dySt_ergMitteilung = "MRN:" & MRN