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

fix

Browse Source
This commit is contained in:
d.breimaier
2026-08-12 16:13:33 +02:00
parent 274ea5ee01
commit b6f6f94739
2 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -4109,7 +4109,7 @@ Public Class cWorker_NCTS
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009 STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
STATUS.dySt_artMitteilung = "UEM" STATUS.dySt_artMitteilung = "UEM"
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
STATUS.dySt_pfad = d
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50 STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
STATUS.dySt_ergCode = "MRN" STATUS.dySt_ergCode = "MRN"
STATUS.dySt_ergMitteilung = MRN STATUS.dySt_ergMitteilung = MRN
@@ -4170,16 +4170,19 @@ Public Class cWorker_NCTS
'End If 'End If
If saveVerwahrung Then
'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, STATUS.dySt_id, True, "T1")
End If
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum) SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE() STATUS.SAVE()
If saveVerwahrung Then
'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, STATUS.dySt_id, True, "T1")
End If
statusTMP = STATUS statusTMP = STATUS
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then

2
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -1049,7 +1049,7 @@ Anzeige:
GesSichRef.CalcSaldo() GesSichRef.CalcSaldo()
Dim differenz As Double = cSicherheiten.getDifferenz_alleAusgetragen(gsrightRow("gs_gsnr")) Dim differenz As Double = cSicherheiten.getDifferenz_alleAusgetragen(gsrightRow("gs_gsnr"))
Dim InfoDifferenz As String = "Austragung Sicherheitsbertrag." & gsrightRow.Item("gs_MRNNr") Dim InfoDifferenz As String = "Austragung Sicherheitsbertrag. " & gsrightRow.Item("gs_MRNNr")
Dim corrWarenwert As Double = 0 Dim corrWarenwert As Double = 0
If differenz <> 0 Then If differenz <> 0 Then