Team CBAM

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -4,7 +4,7 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class usrCntlBenachrichtigungen
     Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim ASF As New AvisoStatusFunctions
-
+    Dim See_Cbam As Boolean = False
 
     Public Event SelectionChanged()
 
@@ -71,6 +71,14 @@ Public Class usrCntlBenachrichtigungen
                         End Select
                     End If
 
+                    If See_Cbam Then
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                            Case "VERIMEX", "AMBAR"
+                            Case Else
+                                whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='33') " 'TEAM_CBAM --> 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 & "')) "
                     Else
@@ -256,6 +264,10 @@ Public Class usrCntlBenachrichtigungen
             cbxNeukunden.Visible = True
             'cbxNeukunden.Checked = True
         End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeCBAM", "AVISO") Then
+            See_Cbam = True
+
+        End If
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeVerwahrung", "AVISO") Then
             cbxVerwarung.Visible = True