Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

initATLASAufschubkonten/frmStartOptions.vb

@@ -4892,6 +4892,75 @@ Public Class frmStartOptions
     End Function
 
 
+    Function insertBenachrichtigung_BearbeitendeEinheit(AvisoId, SendungsId, firma, code, TXT_HEAD, TXT_BODY, prio)
+        '
+        'Benachrichtigung
+        If SendungsId Is DBNull.Value Then SendungsId = Nothing
+        Try
+            'Benutzer vorschreiben der Sendung...
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
+            Dim art = "B"
+            'MsgBox("Benutzer vorschreiben" & sendToID)
+
+            'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
+            If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
+                sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
+                art = "B"
+            End If
+            ' MsgBox("Benutzer der Sendung" & sendToID)
+
+            'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
+            If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
+                sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO", -1)
+                art = "B"
+            End If
+            '  MsgBox("Benutzer der LKW" & sendToID)
+
+            'Wenn Benutzer des LKWs nicht online, Team der Sendung...
+            If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
+                sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
+                art = "T"
+            End If
+            '  MsgBox("Team der Sendung" & sendToID)
+
+            'Wenn Team der Sendung nicht gefunden, Team des LKW...
+            If sendToID <= 0 Then
+                sendToID = SQL.DLookup("TeamId", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO", -1)
+                art = "T"
+            End If
+            ' MsgBox("Team LKW " & sendToID)
+
+            'Wenn TEAM LKW nicht gefunden, Firma...
+            If sendToID <= 0 Then
+                If firma IsNot Nothing AndAlso firma <> "" Then
+                    sendToID = firma
+                    art = "F"
+                End If
+            End If
+
+
+            'Wenn gefunden
+            If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
+                Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO")
+                Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO")
+                '  If GrenzstelleAVISO = "???" Then
+                Select Case statusAVISO
+                    Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
+                        'Nicht
+                    Case Else
+                        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, code, art, sendToID, TXT_HEAD, prio, , TXT_BODY.Trim,,, firma)
+                End Select
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        End Try
+        Return True
+    End Function
+
+
     Sub insertVermerk(AvisoID, SendungID, VermerkCodeId, VermerkText)
         If SendungID Is DBNull.Value Then SendungID = -1