VBD Versand TC, Mail sender

initATLASAufschubkonten/frmStartOptions.vb

@@ -1029,6 +1029,40 @@ Public Class frmStartOptions
     End Sub
 
 
+    Sub doMailZollbelegTC(pfad As String, art As String, tc_id As Integer)
+        Try
+
+            Dim DY As New TELOTEC_Worker.cTelotec_Anmeldung(tc_id)
+            If DY.telanm_SendungsId IsNot Nothing AndAlso CInt(DY.telanm_SendungsId) > 0 Then
+
+                doMailZollbeleg(pfad, art, DY.telanm_SendungsId, DY.telanm_BezugsNr)
+
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+        End Try
+    End Sub
+
+
+
+    Sub doMailZollbelegTC(pfad As String, art As String, TC As TELOTEC_Worker.cTelotec_Anmeldung)
+        Try
+            If TC IsNot Nothing Then
+
+                If TC.telanm_SendungsId IsNot Nothing AndAlso CInt(TC.telanm_SendungsId) > 0 Then
+
+                    doMailZollbeleg(pfad, art, TC.telanm_SendungsId, TC.telanm_BezugsNr)
+
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+        End Try
+    End Sub
+
+
 
 
     Sub doMailZollbeleg(pfad, art, dy_SendungsId, BezugsNr)
@@ -6215,7 +6249,7 @@ weiter:
                                 SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & TELO_ANM.Refs_CRN & "'", "FMZOLL")
                                 SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & TELO_ANM.Refs_LRN.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
                                 If ZB_Versand Then
-                                    If DateDiff(DateInterval.Hour, TELO_ANM.dec_CreateDate, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", TELO_ANM.telanm_id)
+                                    If DateDiff(DateInterval.Hour, TELO_ANM.dec_CreateDate, Now) < 24 Then frmStartOptions.doMailZollbelegTC(DS.GET_TOP1_PATH, "VBD", TELO_ANM)
                                 End If
                             End If
                         End If