Abgaben EZA nach POS; Beleg Mail Abs+Empf

DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb

@@ -1522,6 +1522,8 @@ Public Class cDakosy_EZA_Aufschub
     Property ezaAfb_Abgabenbetrag As Object = Nothing
     Property ezaAfb_AbgabeArt As Object = Nothing
     Property AufschubnehmerName As Object = Nothing
+    Property ezaAfb_PositionsNummer As Object = Nothing
+    Property ezaAfb_Prozentsatz As Object = Nothing
 
 
     'Public selButton As Object = Nothing ' Für die GUI
@@ -1554,6 +1556,8 @@ Public Class cDakosy_EZA_Aufschub
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Abgabenbetrag", ezaAfb_Abgabenbetrag))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AbgabeArt", ezaAfb_AbgabeArt))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubnehmerName", AufschubnehmerName))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_PositionsNummer", ezaAfb_PositionsNummer))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Prozentsatz", ezaAfb_Prozentsatz))
 
 
         Return list

DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb

@@ -3575,8 +3575,9 @@ Public Class cDakosy_NCTSOut004_HouseConsignment
         For Each p In nctsWP_CONSIGNMENT_ITEM
             p.nctsHCCI_NctsHCId = nctsHCId
             p.nctsHCCI_NctsId = ncts_id
-            If Not p.INSERT() Then
+            If p.INSERT() Then
                 p.INSERT_Packing(p.nctsHCCI_Id, p.nctsHCCI_NctsHCId, p.nctsHCCI_NctsId)
+            Else
                 Return False
             End If
         Next