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

SDL/VERAGDataSet.xsc

@@ -0,0 +1 @@
+

SDL/VERAGDataSet.xss

@@ -0,0 +1 @@
+

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -4074,14 +4074,14 @@ Public Class frmMDMDatenverarbetiung
     Private Function setRechenwerteIDS() As Boolean
         'Abrechnungsdatum setzen
 
-        If Not LIEFERANT = "IDS" Then Return false
+        If Not LIEFERANT = "IDS" Then Return False
 
         If MyDatagridview1.Rows.Count = 0 Then
             MsgBox("Keine Daten zum Setzen vorhanden!")
             Return False
         End If
 
-        For each row In MyDatagridview1.Rows
+        For Each row In MyDatagridview1.Rows
 
             Dim kundeOhneRabatt = True
 

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

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -1270,7 +1270,7 @@
       <Version>2.0.1</Version>
     </PackageReference>
     <PackageReference Include="Microsoft.Bcl.AsyncInterfaces">
-      <Version>1.0.0</Version>
+      <Version>7.0.0</Version>
     </PackageReference>
     <PackageReference Include="Newtonsoft.Json">
       <Version>13.0.3</Version>