Div

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -64,6 +64,13 @@ Public Class usrCntlBenachrichtigungen
                         End Select
                     End If
 
+                    If cbxTaskForce.Checked Then
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                            Case "VERAG"
+                                whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='7') " 'TEAM_TASKFORCE --> 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
@@ -232,6 +239,11 @@ Public Class usrCntlBenachrichtigungen
             cbxVerwarung.Checked = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeTaskForce", "AVISO") Then
+            cbxTaskForce.Visible = True
+            cbxTaskForce.Checked = True
+        End If
+
 
         'NEIN; weils zB Waidhaus dann alles sieht und übernimmt
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
@@ -348,7 +360,7 @@ Public Class usrCntlBenachrichtigungen
         initDgvAvisoBenachrichtigungen(True, Me.Font)
     End Sub
 
-    Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged
+    Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged, cbxVerwarung.CheckedChanged, cbxTaskForce.CheckedChanged
         initDgvAvisoBenachrichtigungen(True, Me.Font)
     End Sub