Verwahrung, NCTS, etc.

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

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

initATLASAufschubkonten/frmStartOptions.vb

@@ -2795,14 +2795,16 @@ Public Class frmStartOptions
                     moveFile(pfad, ZIEL_PFAD, destFull)
 
                     Try
-
+                        If destFull <> "" Then
-                        If DS.insertDataToDATENSERVER(destFull) Then
+                            If DS.insertDataToDATENSERVER(destFull) Then
-                            If IsNumeric(dy_id) AndAlso dy_id > 0 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 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!
+                                    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)
+                                    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