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

exg bug

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-14 16:56:11 +02:00
parent ff29ef6e57
commit 627455d16d
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -556,6 +556,7 @@ Public Class usrCntlATLAS_EXGestellung
If Not EXG.LOAD(True) Then Throw New Exception("EXG nicht gefunden: " & exgId) If Not EXG.LOAD(True) Then Throw New Exception("EXG nicht gefunden: " & exgId)
If EXG.exg_POSITION Is Nothing OrElse EXG.exg_POSITION.Count = 0 Then Throw New Exception("EXG ohne Positionen: " & exgId) If EXG.exg_POSITION Is Nothing OrElse EXG.exg_POSITION.Count = 0 Then Throw New Exception("EXG ohne Positionen: " & exgId)
If firstEXG Then If firstEXG Then
firma = EXG.exg_firma firma = EXG.exg_firma
niederlassung = EXG.exg_niederlassung niederlassung = EXG.exg_niederlassung
@@ -578,6 +579,9 @@ Public Class usrCntlATLAS_EXGestellung
'Console.WriteLine("NCTS Empfänger: " & Convert.ToString(HC.nctsHC_Consignee_Name)) 'Console.WriteLine("NCTS Empfänger: " & Convert.ToString(HC.nctsHC_Consignee_Name))
Next Next
If If(firma, "") = "" Then firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If NCTS_OUT.ncts_HOUSE_CONSIGNMENT Is Nothing OrElse NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Count = 0 Then If NCTS_OUT.ncts_HOUSE_CONSIGNMENT Is Nothing OrElse NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Count = 0 Then
Throw New Exception("Keine NCTS-House-Consignments erzeugt.") Throw New Exception("Keine NCTS-House-Consignments erzeugt.")
End If End If