Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb

@@ -237,6 +237,63 @@ Public Class cAvisoBenachrichtigungen
     End Function
 
 
+
+    Public Shared Function send_BENACHRICHTIGUNG_AKTIV_AVISOUSER(AvisoId As Integer, SendungsId As Integer, TXT_Titel As String, TXT_Mitteilung As String, code As Integer, Optional firma As String = "")
+
+        'Benachrichtigung
+        Try
+            Dim SQL As New SQL
+            Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
+            Dim art = "B"
+
+            '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
+
+            '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
+
+            'Wenn Benutzer des LKWs nicht online, Team...
+            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
+
+            'Wenn TEAM  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='" & DY_TMP.dy_AvisoId & "'", "AVISO")
+                ' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben
+                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_Titel, 1, , (TXT_Mitteilung).Trim,,, firma <> "")
+                        Return True
+                End Select
+                ' End If
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
+        End Try
+        Return False
+
+    End Function
+
 End Class
 
 Public Class cAvisoBenachrichtigungenCodes
@@ -251,5 +308,6 @@ Public Class cAvisoBenachrichtigungenCodes
     Public Shared ZOLL_Rueckweisung As Integer = 8
     Public Shared ZOLL_Mitteilung As Integer = 9
     Public Shared AAE_Benachrichtigung As Integer = 10
+    Public Shared Verwahrung_Foto As Integer = 20
 
 End Class