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