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

EXG NCTS

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-08 09:27:46 +02:00
parent e5b85e85fe
commit 995e958700
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb
View File

@@ -120,6 +120,7 @@ Public Class usrCntlATLAS_EXGestellung
Next Next
If Not err Then If Not err Then
If cbxNCTS.Checked Then If cbxNCTS.Checked Then
'Es wird gleich eine NCTS Nachricht erstellt, die BEfüllung erfolge nach Verarbeitung der EXG -> bei der letzten wird der NCTS Datensatz gesendet
Dim NCTS_OUT = usrCntlATLAS_NCTS004.genNCTSfromStammref(Me, FIRMA_DY, AVISO, SENDUNG, "") Dim NCTS_OUT = usrCntlATLAS_NCTS004.genNCTSfromStammref(Me, FIRMA_DY, AVISO, SENDUNG, "")
NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Clear() NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Clear()
NCTS_OUT.DELETE_HouseConsignment() NCTS_OUT.DELETE_HouseConsignment()
@@ -132,9 +133,8 @@ Public Class usrCntlATLAS_EXGestellung
MsgBox(NCTS_OUT.ncts_dyaAnmID) MsgBox(NCTS_OUT.ncts_dyaAnmID)
cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID) cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID)
Next Next
End If End If
'Dim BezugsNr = "" 'Dim BezugsNr = ""