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

plose, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-17 14:50:29 +02:00
parent c07b170516
commit 7bb33a0833
7 changed files with 149 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -4102,8 +4102,6 @@ Public Class cWorker_NCTS
'End If
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
@@ -4179,7 +4177,7 @@ Public Class cWorker_NCTS
If saveVerwahrung Then
'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, STATUS.dySt_id, True, "T1")
cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
End If

2
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -895,7 +895,7 @@ Anzeige:
Dim gs_row As Array = Nothing
gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & SUMA_POSNr & " AND isnull(gsp_MRNNr,'') <> ''")
gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & SUMA_POSNr & " AND isnull(gsp_MRNNr,'') = ''")
If gs_row.Length = 0 Then
Continue For