From fa42cca191b3311931ff578b60299cf03c341728 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Mon, 2 Feb 2026 08:51:25 +0100
Subject: [PATCH] Packst.

---
 DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb |  1 +
 initATLASAufschubkonten/cBuergschaften.vb            | 11 ++++++-----
 initATLASAufschubkonten/frmStartOptions.vb           |  6 +++++-
 3 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
index 3d6e379..cb927bf 100644
--- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
@@ -3565,6 +3565,7 @@ Public Class cDakosy_NCTSOut004_HouseConsignment
             p.nctsHCCI_NctsHCId = nctsHCId
             p.nctsHCCI_NctsId = ncts_id
             If Not p.INSERT() Then
+                p.INSERT_Packing(p.nctsHCCI_Id, p.nctsHCCI_NctsHCId, p.nctsHCCI_NctsId)
                 Return False
             End If
         Next
diff --git a/initATLASAufschubkonten/cBuergschaften.vb b/initATLASAufschubkonten/cBuergschaften.vb
index 6d2ddaf..b2c8b0b 100644
--- a/initATLASAufschubkonten/cBuergschaften.vb
+++ b/initATLASAufschubkonten/cBuergschaften.vb
@@ -15,11 +15,12 @@ Public Class cBuergschaften
         Return cn
     End Function
     Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
-        Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=FMZOLL\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
-        ' cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
-        cn.Open()
-        Return cn
+        Return (VERAG_PROG_ALLGEMEIN.SQL).GetNewOpenConnectionFMZOLL()
+        'Dim cn As New SqlConnection()
+        'cn.ConnectionString = "Data Source=FMZOLL\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
+        '' cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
+        'cn.Open()
+        'Return cn
     End Function
     Public Shared Function GetNewOpenConnectionBUCHHALTUNG() As SqlConnection
         Dim cn As New SqlConnection()
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 6dab8f0..721fc74 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -1241,7 +1241,11 @@ Public Class frmStartOptions
 
                             Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg"
 
-
+                            If KundenNr = 770931 Then ' Sonderfall Kanadevia
+                                If KdAtrNr.ToString.Contains("/") Then
+                                    KdAtrNr = KdAtrNr.ToString.Split("/")(0) 'nur vorderer Teil nehmen
+                                End If
+                            End If
 
                             'Wenn ein fixer BEtreff verwendet werden sollte:
                             If KD_ERW.EmailFreigabeBeleg_Betreff Then