WARENORT-AVISO, EN-Anpassung, Benachrichtigungen, ATILLA-Indonesien, AVISO-TV

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -1,4 +1,6 @@
-Public Class usrCntlBenachrichtigungen
+Imports DAKOSY_Worker.SumAErledigungsinformationVorpapier
+
+Public Class usrCntlBenachrichtigungen
     Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim ASF As New AvisoStatusFunctions
 
@@ -48,6 +50,12 @@
                         whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') "
                     End If
 
+                    If cbxVerwarung.Checked Then
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                            Case "VERAG"
+                                whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='26') " 'TEAM_VERWARUNG --> VERAG
+                        End Select
+                    End If
 
                     If cbxTeams.Checked Then
                         whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) "
@@ -205,6 +213,10 @@
             'cbxNeukunden.Checked = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeVerwahrung", "AVISO") Then
+            cbxVerwarung.Visible = True
+            cbxVerwarung.Checked = True
+        End If
 
 
         'NEIN; weils zB Waidhaus dann alles sieht und übernimmt