From d2ebc68cc000b255bdad8c0e3eaaaa6f43335e85 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 19 Aug 2026 09:17:26 +0200
Subject: [PATCH] Verwahrung, NCTS, etc.

---
 initATLASAufschubkonten/cWorker_NCTS.vb       | 17 ++++++++---------
 initATLASAufschubkonten/cWorker_Verwahrung.vb |  1 +
 initATLASAufschubkonten/frmStartOptions.vb    | 14 ++++++++------
 3 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb
index 31b668c..f7faa7b 100644
--- a/initATLASAufschubkonten/cWorker_NCTS.vb
+++ b/initATLASAufschubkonten/cWorker_NCTS.vb
@@ -4102,12 +4102,13 @@ Public Class cWorker_NCTS
                 'End If
                 ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
 
+
                 If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
                     Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
                     STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
                     STATUS.dySt_artMitteilung = "UEM"
                     STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
-                    STATUS.dySt_pfad = d
+
                     STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
                     STATUS.dySt_ergCode = "MRN"
                     STATUS.dySt_ergMitteilung = MRN
@@ -4168,19 +4169,11 @@ Public Class cWorker_NCTS
                     'End If
 
 
-
                     SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
                     SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
 
                     If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                     STATUS.SAVE()
-
-                    If saveVerwahrung Then
-                        'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
-                        cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
-                    End If
-
-
                     statusTMP = STATUS
                     cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
                     ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
@@ -4200,6 +4193,12 @@ Public Class cWorker_NCTS
 
                     FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
                 End If
+
+                If saveVerwahrung Then
+                    'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
+                    cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
+                End If
+
             End If
 
         Catch ex As Exception
diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb
index d5ddc6f..c2d4ccb 100644
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -1051,6 +1051,7 @@ Anzeige:
                                 Dim differenz As Double = cSicherheiten.getDifferenz_alleAusgetragen(gsrightRow("gs_gsnr"))
                                 Dim InfoDifferenz As String = "Austragung Sicherheitsbertrag. " & gsrightRow.Item("gs_MRNNr")
                                 Dim corrWarenwert As Double = 0
+
                                 If differenz <> 0 Then
 
                                     If Math.Abs(differenz) <= 0.02 AndAlso Math.Abs(differenz) > 0 Then
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 776ef42..5a3c7cd 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -2795,14 +2795,16 @@ Public Class frmStartOptions
                     moveFile(pfad, ZIEL_PFAD, destFull)
 
                     Try
-
-                        If DS.insertDataToDATENSERVER(destFull) Then
-                            If IsNumeric(dy_id) AndAlso dy_id > 0 Then
-                                sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
-                                sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
-                                doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
+                        If destFull <> "" Then
+                            If DS.insertDataToDATENSERVER(destFull) Then
+                                If IsNumeric(dy_id) AndAlso dy_id > 0 Then
+                                    sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
+                                    sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
+                                    doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
+                                End If
                             End If
                         End If
+
                     Catch ex As Exception
                         VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Pfad: " & destFull & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
                     End Try