Benachrichtungen, Hauptfenster (Filter Sendungen), etc.

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb

@@ -23,7 +23,7 @@ Partial Class usrCntlBenachrichtigungen
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -38,6 +38,7 @@ Partial Class usrCntlBenachrichtigungen
         Me.cbxTeams = New System.Windows.Forms.CheckBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Label25 = New System.Windows.Forms.Label()
+        Me.cbxFotoVerwahrung = New System.Windows.Forms.CheckBox()
         Me.Panel2.SuspendLayout()
         CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel4.SuspendLayout()
@@ -80,8 +81,8 @@ Partial Class usrCntlBenachrichtigungen
         Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
         Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
         Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure
+        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
         Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
@@ -96,6 +97,7 @@ Partial Class usrCntlBenachrichtigungen
         '
         Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.Panel4.Controls.Add(Me.cbxTaskForce)
+        Me.Panel4.Controls.Add(Me.cbxFotoVerwahrung)
         Me.Panel4.Controls.Add(Me.cbxVerwarung)
         Me.Panel4.Controls.Add(Me.cbxNeukunden)
         Me.Panel4.Controls.Add(Me.Button10)
@@ -109,8 +111,9 @@ Partial Class usrCntlBenachrichtigungen
         'cbxTaskForce
         '
         Me.cbxTaskForce.AutoSize = True
+        Me.cbxTaskForce.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
-        Me.cbxTaskForce.Location = New System.Drawing.Point(174, 30)
+        Me.cbxTaskForce.Location = New System.Drawing.Point(265, 30)
         Me.cbxTaskForce.Name = "cbxTaskForce"
         Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
         Me.cbxTaskForce.TabIndex = 33
@@ -121,8 +124,9 @@ Partial Class usrCntlBenachrichtigungen
         'cbxVerwarung
         '
         Me.cbxVerwarung.AutoSize = True
+        Me.cbxVerwarung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black
-        Me.cbxVerwarung.Location = New System.Drawing.Point(85, 30)
+        Me.cbxVerwarung.Location = New System.Drawing.Point(84, 30)
         Me.cbxVerwarung.Name = "cbxVerwarung"
         Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17)
         Me.cbxVerwarung.TabIndex = 32
@@ -133,8 +137,9 @@ Partial Class usrCntlBenachrichtigungen
         'cbxNeukunden
         '
         Me.cbxNeukunden.AutoSize = True
+        Me.cbxNeukunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
-        Me.cbxNeukunden.Location = New System.Drawing.Point(7, 30)
+        Me.cbxNeukunden.Location = New System.Drawing.Point(0, 30)
         Me.cbxNeukunden.Name = "cbxNeukunden"
         Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
         Me.cbxNeukunden.TabIndex = 30
@@ -226,6 +231,18 @@ Partial Class usrCntlBenachrichtigungen
         Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
         Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        'cbxFotoVerwahrung
+        '
+        Me.cbxFotoVerwahrung.AutoSize = True
+        Me.cbxFotoVerwahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.cbxFotoVerwahrung.ForeColor = System.Drawing.Color.Black
+        Me.cbxFotoVerwahrung.Location = New System.Drawing.Point(164, 30)
+        Me.cbxFotoVerwahrung.Name = "cbxFotoVerwahrung"
+        Me.cbxFotoVerwahrung.Size = New System.Drawing.Size(104, 17)
+        Me.cbxFotoVerwahrung.TabIndex = 34
+        Me.cbxFotoVerwahrung.Text = "FotoVerwahrung"
+        Me.cbxFotoVerwahrung.UseVisualStyleBackColor = True
+        '
         'usrCntlBenachrichtigungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -257,4 +274,5 @@ Partial Class usrCntlBenachrichtigungen
     Friend WithEvents txtVermerk As TextBox
     Friend WithEvents cbxVerwarung As CheckBox
     Friend WithEvents cbxTaskForce As CheckBox
+    Friend WithEvents cbxFotoVerwahrung As CheckBox
 End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -33,6 +33,12 @@ Public Class usrCntlBenachrichtigungen
                 'End If
 
                 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
@@ -93,7 +99,7 @@ Public Class usrCntlBenachrichtigungen
 
                 whereMA &= " ) "
 
-                Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status, Grenzstelle  FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & "  ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC"
+                Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status, Grenzstelle  FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & whereVerwahrungsFotos & "  ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC"
 
                 Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
                 ' List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
@@ -248,7 +254,6 @@ Public Class usrCntlBenachrichtigungen
         'MyComboBox2.changeItem("Benutzer")
         '  MyComboBox2.chang 
 
-
         MyComboBox2.Items.Clear()
         MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
         MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
@@ -431,4 +436,7 @@ Public Class usrCntlBenachrichtigungen
 
     End Sub
 
+    Private Sub cbxFotoVerwahrung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFotoVerwahrung.CheckedChanged
+        initDgvAvisoBenachrichtigungen(True, Me.Font)
+    End Sub
 End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungenNEW.Designer.vb

@@ -23,8 +23,8 @@ Partial Class usrCntlBenachrichtigungenNEW
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel4 = New System.Windows.Forms.Panel()
@@ -35,16 +35,17 @@ Partial Class usrCntlBenachrichtigungenNEW
         Me.cbxVerwarung = New System.Windows.Forms.CheckBox()
         Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtDatumAb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Label25 = New System.Windows.Forms.Label()
         Me.txtVermerk = New System.Windows.Forms.TextBox()
         Me.Button10 = New System.Windows.Forms.Button()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
-        Me.txtDatumAb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.cbxFotoVerwahrung = New System.Windows.Forms.CheckBox()
         Me.Panel2.SuspendLayout()
         CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel4.SuspendLayout()
@@ -69,18 +70,18 @@ Partial Class usrCntlBenachrichtigungenNEW
         Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
         Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
         Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
-        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
         Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAvisoBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAvisoBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle2
         Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
         Me.gridAvisoBenachrichtigungen.Location = New System.Drawing.Point(0, 76)
         Me.gridAvisoBenachrichtigungen.Name = "gridAvisoBenachrichtigungen"
@@ -93,6 +94,7 @@ Partial Class usrCntlBenachrichtigungenNEW
         '
         Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.Panel4.Controls.Add(Me.MyComboBox2)
+        Me.Panel4.Controls.Add(Me.cbxFotoVerwahrung)
         Me.Panel4.Controls.Add(Me.cbxCluster)
         Me.Panel4.Controls.Add(Me.cbxTaskForce)
         Me.Panel4.Controls.Add(Me.cbxTeams)
@@ -115,7 +117,7 @@ Partial Class usrCntlBenachrichtigungenNEW
         Me.MyComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.MyComboBox2.FormattingEnabled = True
-        Me.MyComboBox2.Location = New System.Drawing.Point(185, -2)
+        Me.MyComboBox2.Location = New System.Drawing.Point(247, 0)
         Me.MyComboBox2.Name = "MyComboBox2"
         Me.MyComboBox2.Size = New System.Drawing.Size(71, 21)
         Me.MyComboBox2.TabIndex = 27
@@ -137,7 +139,7 @@ Partial Class usrCntlBenachrichtigungenNEW
         '
         Me.cbxTaskForce.AutoSize = True
         Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
-        Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
+        Me.cbxTaskForce.Location = New System.Drawing.Point(169, 2)
         Me.cbxTaskForce.Name = "cbxTaskForce"
         Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
         Me.cbxTaskForce.TabIndex = 33
@@ -198,6 +200,92 @@ Partial Class usrCntlBenachrichtigungenNEW
         Me.Panel3.Size = New System.Drawing.Size(319, 76)
         Me.Panel3.TabIndex = 3
         '
+        'txtSearch
+        '
+        Me.txtSearch._DateTimeOnly = False
+        Me.txtSearch._numbersOnly = False
+        Me.txtSearch._numbersOnlyKommastellen = ""
+        Me.txtSearch._numbersOnlyTrennzeichen = True
+        Me.txtSearch._Prozent = False
+        Me.txtSearch._ShortDateNew = False
+        Me.txtSearch._ShortDateOnly = False
+        Me.txtSearch._TimeOnly = False
+        Me.txtSearch._TimeOnly_Seconds = False
+        Me.txtSearch._value = ""
+        Me.txtSearch._Waehrung = False
+        Me.txtSearch._WaehrungZeichen = True
+        Me.txtSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtSearch.ForeColor = System.Drawing.Color.Black
+        Me.txtSearch.Location = New System.Drawing.Point(50, 50)
+        Me.txtSearch.MaxLineLength = -1
+        Me.txtSearch.MaxLines_Warning = ""
+        Me.txtSearch.MaxLines_Warning_Label = Nothing
+        Me.txtSearch.Name = "txtSearch"
+        Me.txtSearch.Size = New System.Drawing.Size(128, 20)
+        Me.txtSearch.TabIndex = 35
+        Me.txtSearch.Visible = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(5, 53)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(41, 13)
+        Me.Label2.TabIndex = 36
+        Me.Label2.Text = "Suche:"
+        Me.Label2.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(185, 53)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(22, 13)
+        Me.Label1.TabIndex = 34
+        Me.Label1.Text = "ab:"
+        Me.Label1.Visible = False
+        '
+        'txtDatumAb
+        '
+        Me.txtDatumAb._DateTimeOnly = False
+        Me.txtDatumAb._numbersOnly = False
+        Me.txtDatumAb._numbersOnlyKommastellen = ""
+        Me.txtDatumAb._numbersOnlyTrennzeichen = True
+        Me.txtDatumAb._Prozent = False
+        Me.txtDatumAb._ShortDateNew = True
+        Me.txtDatumAb._ShortDateOnly = False
+        Me.txtDatumAb._TimeOnly = False
+        Me.txtDatumAb._TimeOnly_Seconds = False
+        Me.txtDatumAb._value = ""
+        Me.txtDatumAb._Waehrung = False
+        Me.txtDatumAb._WaehrungZeichen = True
+        Me.txtDatumAb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtDatumAb.ForeColor = System.Drawing.Color.Black
+        Me.txtDatumAb.Location = New System.Drawing.Point(213, 50)
+        Me.txtDatumAb.MaxLength = 10
+        Me.txtDatumAb.MaxLineLength = -1
+        Me.txtDatumAb.MaxLines_Warning = ""
+        Me.txtDatumAb.MaxLines_Warning_Label = Nothing
+        Me.txtDatumAb.Name = "txtDatumAb"
+        Me.txtDatumAb.Size = New System.Drawing.Size(100, 20)
+        Me.txtDatumAb.TabIndex = 33
+        Me.txtDatumAb.Visible = False
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.ForeColor = System.Drawing.Color.White
+        Me.CheckBox1.Location = New System.Drawing.Point(3, 25)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(86, 17)
+        Me.CheckBox1.TabIndex = 32
+        Me.CheckBox1.Text = "Alte Einträge"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
         'Label22
         '
         Me.Label22.AutoSize = True
@@ -247,95 +335,22 @@ Partial Class usrCntlBenachrichtigungenNEW
         Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button10.UseVisualStyleBackColor = True
         '
-        'CheckBox1
-        '
-        Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.ForeColor = System.Drawing.Color.White
-        Me.CheckBox1.Location = New System.Drawing.Point(3, 25)
-        Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(86, 17)
-        Me.CheckBox1.TabIndex = 32
-        Me.CheckBox1.Text = "Alte Einträge"
-        Me.CheckBox1.UseVisualStyleBackColor = True
-        '
-        'txtDatumAb
-        '
-        Me.txtDatumAb._DateTimeOnly = False
-        Me.txtDatumAb._numbersOnly = False
-        Me.txtDatumAb._numbersOnlyKommastellen = ""
-        Me.txtDatumAb._numbersOnlyTrennzeichen = True
-        Me.txtDatumAb._Prozent = False
-        Me.txtDatumAb._ShortDateNew = True
-        Me.txtDatumAb._ShortDateOnly = False
-        Me.txtDatumAb._TimeOnly = False
-        Me.txtDatumAb._TimeOnly_Seconds = False
-        Me.txtDatumAb._value = ""
-        Me.txtDatumAb._Waehrung = False
-        Me.txtDatumAb._WaehrungZeichen = True
-        Me.txtDatumAb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtDatumAb.ForeColor = System.Drawing.Color.Black
-        Me.txtDatumAb.Location = New System.Drawing.Point(213, 50)
-        Me.txtDatumAb.MaxLineLength = -1
-        Me.txtDatumAb.MaxLines_Warning = ""
-        Me.txtDatumAb.MaxLines_Warning_Label = Nothing
-        Me.txtDatumAb.Name = "txtDatumAb"
-        Me.txtDatumAb.Size = New System.Drawing.Size(100, 20)
-        Me.txtDatumAb.TabIndex = 33
-        Me.txtDatumAb.Visible = False
-        '
-        'Label1
-        '
-        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label1.AutoSize = True
-        Me.Label1.ForeColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(185, 53)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(22, 13)
-        Me.Label1.TabIndex = 34
-        Me.Label1.Text = "ab:"
-        Me.Label1.Visible = False
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.ForeColor = System.Drawing.Color.White
-        Me.Label2.Location = New System.Drawing.Point(5, 53)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(41, 13)
-        Me.Label2.TabIndex = 36
-        Me.Label2.Text = "Suche:"
-        Me.Label2.Visible = False
-        '
-        'txtSearch
-        '
-        Me.txtSearch._DateTimeOnly = False
-        Me.txtSearch._numbersOnly = False
-        Me.txtSearch._numbersOnlyKommastellen = ""
-        Me.txtSearch._numbersOnlyTrennzeichen = True
-        Me.txtSearch._Prozent = False
-        Me.txtSearch._ShortDateNew = False
-        Me.txtSearch._ShortDateOnly = False
-        Me.txtSearch._TimeOnly = False
-        Me.txtSearch._TimeOnly_Seconds = False
-        Me.txtSearch._value = ""
-        Me.txtSearch._Waehrung = False
-        Me.txtSearch._WaehrungZeichen = True
-        Me.txtSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtSearch.ForeColor = System.Drawing.Color.Black
-        Me.txtSearch.Location = New System.Drawing.Point(50, 50)
-        Me.txtSearch.MaxLineLength = -1
-        Me.txtSearch.MaxLines_Warning = ""
-        Me.txtSearch.MaxLines_Warning_Label = Nothing
-        Me.txtSearch.Name = "txtSearch"
-        Me.txtSearch.Size = New System.Drawing.Size(128, 20)
-        Me.txtSearch.TabIndex = 35
-        Me.txtSearch.Visible = False
-        '
         'Timer1
         '
         Me.Timer1.Interval = 5000
         '
+        'cbxFotoVerwahrung
+        '
+        Me.cbxFotoVerwahrung.AutoSize = True
+        Me.cbxFotoVerwahrung.ForeColor = System.Drawing.Color.Black
+        Me.cbxFotoVerwahrung.Location = New System.Drawing.Point(169, 19)
+        Me.cbxFotoVerwahrung.Name = "cbxFotoVerwahrung"
+        Me.cbxFotoVerwahrung.Size = New System.Drawing.Size(107, 17)
+        Me.cbxFotoVerwahrung.TabIndex = 34
+        Me.cbxFotoVerwahrung.Text = "Foto Verwahrung"
+        Me.cbxFotoVerwahrung.UseVisualStyleBackColor = True
+        Me.cbxFotoVerwahrung.Visible = False
+        '
         'usrCntlBenachrichtigungenNEW
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -373,4 +388,5 @@ Partial Class usrCntlBenachrichtigungenNEW
     Friend WithEvents Label2 As Label
     Friend WithEvents Label1 As Label
     Friend WithEvents Timer1 As Timer
+    Friend WithEvents cbxFotoVerwahrung As CheckBox
 End Class

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