diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb index 22781010..32ec1a71 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb @@ -120,6 +120,7 @@ Public Class usrCntlATLAS_EXGestellung Next If Not err 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, "") NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Clear() NCTS_OUT.DELETE_HouseConsignment() @@ -132,9 +133,8 @@ Public Class usrCntlATLAS_EXGestellung MsgBox(NCTS_OUT.ncts_dyaAnmID) cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID) Next - - End If + 'Dim BezugsNr = ""