Monitoring Anpassung, MDM Plose Einarbeitung Consortio, Update SND DY Anm

DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb

@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cDakosy_Zollanmeldungen
 
@@ -298,6 +299,26 @@ Public Class cDakosy_Zollanmeldungen
         Return False
     End Function
 
+    Public Sub UPDATE_AVISO_SND(dy_SendungsId)
+
+        'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
+        If dy_SendungsId IsNot Nothing AndAlso dy_SendungsId > 0 Then
+            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
+            If SND.tblSnd_VG_MA <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then ' Nur wenn nicht bereits übernommen
+                SND.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+                SND.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+                SND.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+                If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist...
+                    SND.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+                End If
+                If SND.SAVE() Then
+                    Dim AvisoDAL As New cAvisoDAL
+                    AvisoDAL.addAenderung(SND.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SND.tblSnd_PosUnterNr & " übernommen von " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & " am " & Format(Now, "dd.MM.yyyy HH:mm") & " (AUTO - DY/Send)")
+                End If
+            End If
+        End If
+
+    End Sub
     Public Sub UPDATE_DATA()
         Try
             Select Case dy_ART

DAKOSY_Worker/cDakosyFunftions.vb

@@ -58,7 +58,7 @@ Public Class cDakosyFunftions
 
             Return True
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             Return False
         End Try
     End Function
@@ -106,7 +106,7 @@ Public Class cDakosyFunftions
 
             Return True
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             Return False
         End Try
     End Function
@@ -234,13 +234,13 @@ Public Class cDakosyFunftions
                 IO.Directory.CreateDirectory(getDefaultFolder_SEND)
             End If
         Catch ex As Exception
-             Try
+            Try
                 getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath
                 If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
                     IO.Directory.CreateDirectory(getDefaultFolder_SEND)
                 End If
             Catch ex2 As Exception
-                MsgBox(ex2.Message & ex2.StackTrace)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                 getDefaultFolder_SEND = ""
             End Try
         End Try
@@ -350,7 +350,7 @@ Public Class cDakosyFunftions
             Return True
 
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             Return False
         End Try
     End Function
@@ -460,7 +460,7 @@ Public Class cDakosyFunftions
             Return True
 
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             Return False
         End Try
     End Function