Benachrichtungen, Hauptfenster (Filter Sendungen), etc.

Aviso/Benachrichtigung/usrCntlBenachrichtigungenNEW.vb

@@ -34,6 +34,11 @@ Public Class usrCntlBenachrichtigungenNEW
                 If .Columns IsNot Nothing AndAlso .Columns.Count > 0 Then .Columns.Clear()
 
                 Dim whereMA = " AND  ( 1<>1 "
+                Dim whereVerwahrungsFotos = ""
+
+                If Not cbxFotoVerwahrung.Checked Then
+                    whereVerwahrungsFotos = " AND ab_BenachrichtigungCode <> 20 "
+                End If
 
                 'WARENORT
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
@@ -130,6 +135,7 @@ Public Class usrCntlBenachrichtigungenNEW
                         "WHERE 1=1 " &
                         whereStatus &
                         whereMA &
+                        whereVerwahrungsFotos &
                         " ORDER BY CASE WHEN ANKUNFT<'20010101' THEN '29990101' ELSE ANKUNFT END ASC,ab_Datum ASC"
 
                 Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -527,4 +533,8 @@ Public Class usrCntlBenachrichtigungenNEW
             initDgvAvisoBenachrichtigungen(True, Me.Font)
         End If
     End Sub
+
+    Private Sub cbxFotoVerwahrung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFotoVerwahrung.CheckedChanged
+        initDgvAvisoBenachrichtigungen(True, Me.Font)
+    End Sub
 End Class