From 995e9587000f992b66ead41fcd84838d9b3390a6 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 8 Apr 2026 09:27:46 +0200 Subject: [PATCH] EXG NCTS --- .../DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 = ""