exg bug

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb

@@ -556,6 +556,7 @@ Public Class usrCntlATLAS_EXGestellung
             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 firstEXG Then
                 firma = EXG.exg_firma
                 niederlassung = EXG.exg_niederlassung
@@ -578,6 +579,9 @@ Public Class usrCntlATLAS_EXGestellung
             'Console.WriteLine("NCTS Empfänger: " & Convert.ToString(HC.nctsHC_Consignee_Name))
         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
             Throw New Exception("Keine NCTS-House-Consignments erzeugt.")
         End If