Hauptfenster SND;

Aviso/Aviso.vbproj

@@ -1260,6 +1260,12 @@
     <Compile Include="GVMS\frmGVMSNew.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_Zollvorgaenge.Designer.vb">
+      <DependentUpon>usrCntlHauptfenster_Suche_Zollvorgaenge.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_Zollvorgaenge.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -1355,16 +1361,16 @@
     <Compile Include="usrcntlFrachtkostenberechnung.vb">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="usrCntlHauptfenster_Suche_SND.Designer.vb">
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_SND.Designer.vb">
       <DependentUpon>usrCntlHauptfenster_Suche_SND.vb</DependentUpon>
     </Compile>
-    <Compile Include="usrCntlHauptfenster_Suche_SND.vb">
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_SND.vb">
       <SubType>UserControl</SubType>
     </Compile>
-    <Compile Include="usrCntlHauptfenster_Suche_AVISO.Designer.vb">
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_AVISO.Designer.vb">
       <DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
     </Compile>
-    <Compile Include="usrCntlHauptfenster_Suche_AVISO.vb">
+    <Compile Include="Hauptfenster\usrCntlHauptfenster_Suche_AVISO.vb">
       <SubType>UserControl</SubType>
     </Compile>
     <Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
@@ -1735,6 +1741,9 @@
     <EmbeddedResource Include="GVMS\frmGVMSNew.resx">
       <DependentUpon>frmGVMSNew.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Hauptfenster\usrCntlHauptfenster_Suche_Zollvorgaenge.resx">
+      <DependentUpon>usrCntlHauptfenster_Suche_Zollvorgaenge.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator>
@@ -1781,10 +1790,10 @@
     <EmbeddedResource Include="usrcntlFrachtkostenberechnung.resx">
       <DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="usrCntlHauptfenster_Suche_SND.resx">
+    <EmbeddedResource Include="Hauptfenster\usrCntlHauptfenster_Suche_SND.resx">
       <DependentUpon>usrCntlHauptfenster_Suche_SND.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="usrCntlHauptfenster_Suche_AVISO.resx">
+    <EmbeddedResource Include="Hauptfenster\usrCntlHauptfenster_Suche_AVISO.resx">
       <DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.resx

@@ -117,15 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnNeu.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
-        BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
-        zULyAAAAAElFTkSuQmCC
-</value>
-  </data>
   <metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.vb

@@ -958,7 +958,7 @@ Public Class usrCntlHauptfenster_Suche_SND
         Return addDays
     End Function
 
-    Private Sub btnNeu_Click(sender As Object, e As EventArgs)
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
         Try
 
             Me.Cursor = Cursors.WaitCursor
@@ -1421,7 +1421,40 @@ Public Class usrCntlHauptfenster_Suche_SND
     End Sub
 
 
-    Private Sub btnNeu_Click_1(sender As Object, e As EventArgs) Handles btnNeu.Click
+    Private Sub btnNeu_Click_1(sender As Object, e As EventArgs)
 
     End Sub
+
+    ' Die neuen Ansichtsbuttons verwenden das bestehende TabControl nur als Statusspeicher.
+    ' Die SQL-Suchlogik mit tbcntrAvisoSND.SelectedTab bleibt unverändert.
+    Private Sub optSndAnsicht_CheckedChanged(sender As Object, e As EventArgs) Handles optSndAlle.CheckedChanged, optSndOffen.CheckedChanged, optSndFreigegeben.CheckedChanged, optSndNichtEingetroffen.CheckedChanged
+        Dim opt = TryCast(sender, RadioButton)
+        If opt Is Nothing OrElse Not opt.Checked OrElse tbcntrAvisoSND Is Nothing Then Return
+        Dim index As Integer = If(opt Is optSndOffen, 1, If(opt Is optSndFreigegeben, 2, If(opt Is optSndNichtEingetroffen, 3, 0)))
+        If tbcntrAvisoSND.SelectedIndex <> index Then tbcntrAvisoSND.SelectedIndex = index
+        optSndAnsicht_Farben()
+    End Sub
+
+    Private Sub tbcntrAvisoSND_AnsichtAktualisieren(sender As Object, e As EventArgs) Handles tbcntrAvisoSND.SelectedIndexChanged
+        If optSndAlle Is Nothing Then Return
+        Select Case tbcntrAvisoSND.SelectedIndex
+            Case 0 : optSndAlle.Checked = True
+            Case 1 : optSndOffen.Checked = True
+            Case 2 : optSndFreigegeben.Checked = True
+            Case 3 : optSndNichtEingetroffen.Checked = True
+        End Select
+        optSndAnsicht_Farben()
+    End Sub
+
+    Private Sub optSndAnsicht_Farben()
+        If optSndAlle Is Nothing Then Return
+        optSndAlle.BackColor = If(optSndAlle.Checked, Color.FromArgb(28, 77, 150), Color.FromArgb(236, 241, 249))
+        optSndOffen.BackColor = If(optSndOffen.Checked, Color.FromArgb(28, 77, 150), Color.FromArgb(236, 241, 249))
+        optSndFreigegeben.BackColor = If(optSndFreigegeben.Checked, Color.FromArgb(28, 77, 150), Color.FromArgb(236, 241, 249))
+        optSndNichtEingetroffen.BackColor = If(optSndNichtEingetroffen.Checked, Color.FromArgb(28, 77, 150), Color.FromArgb(236, 241, 249))
+        optSndAlle.ForeColor = If(optSndAlle.Checked, Color.White, Color.FromArgb(45, 64, 96))
+        optSndOffen.ForeColor = If(optSndOffen.Checked, Color.White, Color.FromArgb(45, 64, 96))
+        optSndFreigegeben.ForeColor = If(optSndFreigegeben.Checked, Color.White, Color.FromArgb(45, 64, 96))
+        optSndNichtEingetroffen.ForeColor = If(optSndNichtEingetroffen.Checked, Color.White, Color.FromArgb(45, 64, 96))
+    End Sub
 End Class

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.Designer.vb

@@ -0,0 +1,701 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlHauptfenster_Suche_Zollvorgaenge
+    Inherits System.Windows.Forms.UserControl
+
+    Private components As System.ComponentModel.IContainer
+
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then components.Dispose()
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    <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 DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.pnlFilter = New System.Windows.Forms.Panel()
+        Me.pnlHeader = New System.Windows.Forms.Panel()
+        Me.lblTitel = New System.Windows.Forms.Label()
+        Me.lblUntertitel = New System.Windows.Forms.Label()
+        Me.grpSuche = New System.Windows.Forms.GroupBox()
+        Me.lbl_txtSuche = New System.Windows.Forms.Label()
+        Me.txtSuche = New System.Windows.Forms.TextBox()
+        Me.lbl_txtMRN = New System.Windows.Forms.Label()
+        Me.txtMRN = New System.Windows.Forms.TextBox()
+        Me.lbl_txtGeschaeftszeichen = New System.Windows.Forms.Label()
+        Me.txtGeschaeftszeichen = New System.Windows.Forms.TextBox()
+        Me.lbl_txtZollamt = New System.Windows.Forms.Label()
+        Me.txtZollamt = New System.Windows.Forms.TextBox()
+        Me.grpVerfahren = New System.Windows.Forms.GroupBox()
+        Me.lbl_cboTyp = New System.Windows.Forms.Label()
+        Me.cboTyp = New System.Windows.Forms.ComboBox()
+        Me.lbl_cboStatus = New System.Windows.Forms.Label()
+        Me.cboStatus = New System.Windows.Forms.ComboBox()
+        Me.lbl_cboLand = New System.Windows.Forms.Label()
+        Me.cboLand = New System.Windows.Forms.ComboBox()
+        Me.grpOrganisation = New System.Windows.Forms.GroupBox()
+        Me.lbl_txtKunde = New System.Windows.Forms.Label()
+        Me.txtKunde = New System.Windows.Forms.TextBox()
+        Me.lbl_cboTeam = New System.Windows.Forms.Label()
+        Me.cboTeam = New System.Windows.Forms.ComboBox()
+        Me.lbl_txtSendungID = New System.Windows.Forms.Label()
+        Me.txtSendungID = New System.Windows.Forms.TextBox()
+        Me.grpFristen = New System.Windows.Forms.GroupBox()
+        Me.lbl_dtFristVon = New System.Windows.Forms.Label()
+        Me.dtFristVon = New System.Windows.Forms.DateTimePicker()
+        Me.lbl_dtFristBis = New System.Windows.Forms.Label()
+        Me.dtFristBis = New System.Windows.Forms.DateTimePicker()
+        Me.pnlAktionen = New System.Windows.Forms.Panel()
+        Me.lblAnsicht = New System.Windows.Forms.Label()
+        Me.optOffen = New System.Windows.Forms.RadioButton()
+        Me.optAlle = New System.Windows.Forms.RadioButton()
+        Me.optFristen = New System.Windows.Forms.RadioButton()
+        Me.optAbgeschlossen = New System.Windows.Forms.RadioButton()
+        Me.chkMeine = New System.Windows.Forms.CheckBox()
+        Me.btnSuchen = New System.Windows.Forms.Button()
+        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.lblInfo = New System.Windows.Forms.Label()
+        Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.pnlFilter.SuspendLayout()
+        Me.pnlHeader.SuspendLayout()
+        Me.grpSuche.SuspendLayout()
+        Me.grpVerfahren.SuspendLayout()
+        Me.grpOrganisation.SuspendLayout()
+        Me.grpFristen.SuspendLayout()
+        Me.pnlAktionen.SuspendLayout()
+        CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnlFilter
+        '
+        Me.pnlFilter.BackColor = System.Drawing.Color.FromArgb(CType(CType(242, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(250, Byte), Integer))
+        Me.pnlFilter.Controls.Add(Me.pnlHeader)
+        Me.pnlFilter.Controls.Add(Me.grpSuche)
+        Me.pnlFilter.Controls.Add(Me.grpVerfahren)
+        Me.pnlFilter.Controls.Add(Me.grpOrganisation)
+        Me.pnlFilter.Controls.Add(Me.grpFristen)
+        Me.pnlFilter.Controls.Add(Me.pnlAktionen)
+        Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlFilter.Location = New System.Drawing.Point(0, 0)
+        Me.pnlFilter.Name = "pnlFilter"
+        Me.pnlFilter.Size = New System.Drawing.Size(1243, 342)
+        Me.pnlFilter.TabIndex = 2
+        '
+        'pnlHeader
+        '
+        Me.pnlHeader.BackColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        Me.pnlHeader.Controls.Add(Me.lblTitel)
+        Me.pnlHeader.Controls.Add(Me.lblUntertitel)
+        Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
+        Me.pnlHeader.Name = "pnlHeader"
+        Me.pnlHeader.Size = New System.Drawing.Size(1243, 45)
+        Me.pnlHeader.TabIndex = 0
+        '
+        'lblTitel
+        '
+        Me.lblTitel.AutoSize = True
+        Me.lblTitel.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.lblTitel.ForeColor = System.Drawing.Color.White
+        Me.lblTitel.Location = New System.Drawing.Point(16, 9)
+        Me.lblTitel.Name = "lblTitel"
+        Me.lblTitel.Size = New System.Drawing.Size(114, 21)
+        Me.lblTitel.TabIndex = 0
+        Me.lblTitel.Text = "Zollverfahren"
+        '
+        'lblUntertitel
+        '
+        Me.lblUntertitel.AutoSize = True
+        Me.lblUntertitel.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.lblUntertitel.ForeColor = System.Drawing.Color.FromArgb(CType(CType(205, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(241, Byte), Integer))
+        Me.lblUntertitel.Location = New System.Drawing.Point(256, 15)
+        Me.lblUntertitel.Name = "lblUntertitel"
+        Me.lblUntertitel.Size = New System.Drawing.Size(334, 15)
+        Me.lblUntertitel.TabIndex = 1
+        Me.lblUntertitel.Text = "Einsprüche · Berichtigungen · Änderungen · Nachforschungen"
+        '
+        'grpSuche
+        '
+        Me.grpSuche.BackColor = System.Drawing.Color.White
+        Me.grpSuche.Controls.Add(Me.lbl_txtSuche)
+        Me.grpSuche.Controls.Add(Me.txtSuche)
+        Me.grpSuche.Controls.Add(Me.lbl_txtMRN)
+        Me.grpSuche.Controls.Add(Me.txtMRN)
+        Me.grpSuche.Controls.Add(Me.lbl_txtGeschaeftszeichen)
+        Me.grpSuche.Controls.Add(Me.txtGeschaeftszeichen)
+        Me.grpSuche.Controls.Add(Me.lbl_txtZollamt)
+        Me.grpSuche.Controls.Add(Me.txtZollamt)
+        Me.grpSuche.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.grpSuche.ForeColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        Me.grpSuche.Location = New System.Drawing.Point(12, 55)
+        Me.grpSuche.Name = "grpSuche"
+        Me.grpSuche.Size = New System.Drawing.Size(595, 117)
+        Me.grpSuche.TabIndex = 1
+        Me.grpSuche.TabStop = False
+        Me.grpSuche.Text = "  Suche / Referenzen  "
+        '
+        'lbl_txtSuche
+        '
+        Me.lbl_txtSuche.AutoSize = True
+        Me.lbl_txtSuche.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtSuche.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_txtSuche.Location = New System.Drawing.Point(14, 19)
+        Me.lbl_txtSuche.Name = "lbl_txtSuche"
+        Me.lbl_txtSuche.Size = New System.Drawing.Size(83, 13)
+        Me.lbl_txtSuche.TabIndex = 0
+        Me.lbl_txtSuche.Text = "Suche / Betreff"
+        '
+        'txtSuche
+        '
+        Me.txtSuche.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtSuche.Location = New System.Drawing.Point(14, 37)
+        Me.txtSuche.MaxLength = 250
+        Me.txtSuche.Name = "txtSuche"
+        Me.txtSuche.Size = New System.Drawing.Size(275, 23)
+        Me.txtSuche.TabIndex = 0
+        '
+        'lbl_txtMRN
+        '
+        Me.lbl_txtMRN.AutoSize = True
+        Me.lbl_txtMRN.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtMRN.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_txtMRN.Location = New System.Drawing.Point(305, 19)
+        Me.lbl_txtMRN.Name = "lbl_txtMRN"
+        Me.lbl_txtMRN.Size = New System.Drawing.Size(32, 13)
+        Me.lbl_txtMRN.TabIndex = 1
+        Me.lbl_txtMRN.Text = "MRN"
+        '
+        'txtMRN
+        '
+        Me.txtMRN.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtMRN.Location = New System.Drawing.Point(305, 37)
+        Me.txtMRN.MaxLength = 35
+        Me.txtMRN.Name = "txtMRN"
+        Me.txtMRN.Size = New System.Drawing.Size(273, 23)
+        Me.txtMRN.TabIndex = 1
+        '
+        'lbl_txtGeschaeftszeichen
+        '
+        Me.lbl_txtGeschaeftszeichen.AutoSize = True
+        Me.lbl_txtGeschaeftszeichen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtGeschaeftszeichen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_txtGeschaeftszeichen.Location = New System.Drawing.Point(14, 63)
+        Me.lbl_txtGeschaeftszeichen.Name = "lbl_txtGeschaeftszeichen"
+        Me.lbl_txtGeschaeftszeichen.Size = New System.Drawing.Size(96, 13)
+        Me.lbl_txtGeschaeftszeichen.TabIndex = 2
+        Me.lbl_txtGeschaeftszeichen.Text = "Geschäftszeichen"
+        '
+        'txtGeschaeftszeichen
+        '
+        Me.txtGeschaeftszeichen.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtGeschaeftszeichen.Location = New System.Drawing.Point(14, 81)
+        Me.txtGeschaeftszeichen.MaxLength = 100
+        Me.txtGeschaeftszeichen.Name = "txtGeschaeftszeichen"
+        Me.txtGeschaeftszeichen.Size = New System.Drawing.Size(275, 23)
+        Me.txtGeschaeftszeichen.TabIndex = 2
+        '
+        'lbl_txtZollamt
+        '
+        Me.lbl_txtZollamt.AutoSize = True
+        Me.lbl_txtZollamt.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtZollamt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_txtZollamt.Location = New System.Drawing.Point(305, 63)
+        Me.lbl_txtZollamt.Name = "lbl_txtZollamt"
+        Me.lbl_txtZollamt.Size = New System.Drawing.Size(45, 13)
+        Me.lbl_txtZollamt.TabIndex = 3
+        Me.lbl_txtZollamt.Text = "Zollamt"
+        '
+        'txtZollamt
+        '
+        Me.txtZollamt.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtZollamt.Location = New System.Drawing.Point(305, 81)
+        Me.txtZollamt.MaxLength = 150
+        Me.txtZollamt.Name = "txtZollamt"
+        Me.txtZollamt.Size = New System.Drawing.Size(273, 23)
+        Me.txtZollamt.TabIndex = 3
+        '
+        'grpVerfahren
+        '
+        Me.grpVerfahren.BackColor = System.Drawing.Color.White
+        Me.grpVerfahren.Controls.Add(Me.lbl_cboTyp)
+        Me.grpVerfahren.Controls.Add(Me.cboTyp)
+        Me.grpVerfahren.Controls.Add(Me.lbl_cboStatus)
+        Me.grpVerfahren.Controls.Add(Me.cboStatus)
+        Me.grpVerfahren.Controls.Add(Me.lbl_cboLand)
+        Me.grpVerfahren.Controls.Add(Me.cboLand)
+        Me.grpVerfahren.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.grpVerfahren.ForeColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        Me.grpVerfahren.Location = New System.Drawing.Point(617, 55)
+        Me.grpVerfahren.Name = "grpVerfahren"
+        Me.grpVerfahren.Size = New System.Drawing.Size(614, 117)
+        Me.grpVerfahren.TabIndex = 2
+        Me.grpVerfahren.TabStop = False
+        Me.grpVerfahren.Text = "  Verfahren  "
+        '
+        'lbl_cboTyp
+        '
+        Me.lbl_cboTyp.AutoSize = True
+        Me.lbl_cboTyp.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_cboTyp.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_cboTyp.Location = New System.Drawing.Point(14, 19)
+        Me.lbl_cboTyp.Name = "lbl_cboTyp"
+        Me.lbl_cboTyp.Size = New System.Drawing.Size(76, 13)
+        Me.lbl_cboTyp.TabIndex = 0
+        Me.lbl_cboTyp.Text = "Verfahrensart"
+        '
+        'cboTyp
+        '
+        Me.cboTyp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTyp.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboTyp.IntegralHeight = False
+        Me.cboTyp.Location = New System.Drawing.Point(14, 37)
+        Me.cboTyp.Name = "cboTyp"
+        Me.cboTyp.Size = New System.Drawing.Size(282, 23)
+        Me.cboTyp.TabIndex = 4
+        '
+        'lbl_cboStatus
+        '
+        Me.lbl_cboStatus.AutoSize = True
+        Me.lbl_cboStatus.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_cboStatus.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_cboStatus.Location = New System.Drawing.Point(310, 19)
+        Me.lbl_cboStatus.Name = "lbl_cboStatus"
+        Me.lbl_cboStatus.Size = New System.Drawing.Size(62, 13)
+        Me.lbl_cboStatus.TabIndex = 5
+        Me.lbl_cboStatus.Text = "Fachstatus"
+        '
+        'cboStatus
+        '
+        Me.cboStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboStatus.IntegralHeight = False
+        Me.cboStatus.Location = New System.Drawing.Point(310, 37)
+        Me.cboStatus.Name = "cboStatus"
+        Me.cboStatus.Size = New System.Drawing.Size(286, 23)
+        Me.cboStatus.TabIndex = 5
+        '
+        'lbl_cboLand
+        '
+        Me.lbl_cboLand.AutoSize = True
+        Me.lbl_cboLand.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_cboLand.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_cboLand.Location = New System.Drawing.Point(14, 63)
+        Me.lbl_cboLand.Name = "lbl_cboLand"
+        Me.lbl_cboLand.Size = New System.Drawing.Size(85, 13)
+        Me.lbl_cboLand.TabIndex = 6
+        Me.lbl_cboLand.Text = "Verfahrensland"
+        '
+        'cboLand
+        '
+        Me.cboLand.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboLand.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboLand.IntegralHeight = False
+        Me.cboLand.Location = New System.Drawing.Point(14, 81)
+        Me.cboLand.Name = "cboLand"
+        Me.cboLand.Size = New System.Drawing.Size(282, 23)
+        Me.cboLand.TabIndex = 6
+        '
+        'grpOrganisation
+        '
+        Me.grpOrganisation.BackColor = System.Drawing.Color.White
+        Me.grpOrganisation.Controls.Add(Me.lbl_txtKunde)
+        Me.grpOrganisation.Controls.Add(Me.txtKunde)
+        Me.grpOrganisation.Controls.Add(Me.lbl_cboTeam)
+        Me.grpOrganisation.Controls.Add(Me.cboTeam)
+        Me.grpOrganisation.Controls.Add(Me.lbl_txtSendungID)
+        Me.grpOrganisation.Controls.Add(Me.txtSendungID)
+        Me.grpOrganisation.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.grpOrganisation.ForeColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        Me.grpOrganisation.Location = New System.Drawing.Point(12, 178)
+        Me.grpOrganisation.Name = "grpOrganisation"
+        Me.grpOrganisation.Size = New System.Drawing.Size(595, 112)
+        Me.grpOrganisation.TabIndex = 3
+        Me.grpOrganisation.TabStop = False
+        Me.grpOrganisation.Text = "  Organisation  "
+        '
+        'lbl_txtKunde
+        '
+        Me.lbl_txtKunde.AutoSize = True
+        Me.lbl_txtKunde.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtKunde.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_txtKunde.Location = New System.Drawing.Point(14, 19)
+        Me.lbl_txtKunde.Name = "lbl_txtKunde"
+        Me.lbl_txtKunde.Size = New System.Drawing.Size(76, 13)
+        Me.lbl_txtKunde.TabIndex = 0
+        Me.lbl_txtKunde.Text = "Auftraggeber"
+        '
+        'txtKunde
+        '
+        Me.txtKunde.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtKunde.Location = New System.Drawing.Point(14, 37)
+        Me.txtKunde.MaxLength = 250
+        Me.txtKunde.Name = "txtKunde"
+        Me.txtKunde.Size = New System.Drawing.Size(370, 23)
+        Me.txtKunde.TabIndex = 7
+        '
+        'lbl_cboTeam
+        '
+        Me.lbl_cboTeam.AutoSize = True
+        Me.lbl_cboTeam.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_cboTeam.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_cboTeam.Location = New System.Drawing.Point(398, 19)
+        Me.lbl_cboTeam.Name = "lbl_cboTeam"
+        Me.lbl_cboTeam.Size = New System.Drawing.Size(32, 13)
+        Me.lbl_cboTeam.TabIndex = 8
+        Me.lbl_cboTeam.Text = "Team"
+        '
+        'cboTeam
+        '
+        Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTeam.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.cboTeam.IntegralHeight = False
+        Me.cboTeam.Location = New System.Drawing.Point(398, 37)
+        Me.cboTeam.Name = "cboTeam"
+        Me.cboTeam.Size = New System.Drawing.Size(180, 23)
+        Me.cboTeam.TabIndex = 8
+        '
+        'lbl_txtSendungID
+        '
+        Me.lbl_txtSendungID.AutoSize = True
+        Me.lbl_txtSendungID.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_txtSendungID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_txtSendungID.Location = New System.Drawing.Point(14, 63)
+        Me.lbl_txtSendungID.Name = "lbl_txtSendungID"
+        Me.lbl_txtSendungID.Size = New System.Drawing.Size(69, 13)
+        Me.lbl_txtSendungID.TabIndex = 9
+        Me.lbl_txtSendungID.Text = "Sendung-ID"
+        '
+        'txtSendungID
+        '
+        Me.txtSendungID.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.txtSendungID.Location = New System.Drawing.Point(14, 81)
+        Me.txtSendungID.MaxLength = 15
+        Me.txtSendungID.Name = "txtSendungID"
+        Me.txtSendungID.Size = New System.Drawing.Size(185, 23)
+        Me.txtSendungID.TabIndex = 9
+        '
+        'grpFristen
+        '
+        Me.grpFristen.BackColor = System.Drawing.Color.White
+        Me.grpFristen.Controls.Add(Me.lbl_dtFristVon)
+        Me.grpFristen.Controls.Add(Me.dtFristVon)
+        Me.grpFristen.Controls.Add(Me.lbl_dtFristBis)
+        Me.grpFristen.Controls.Add(Me.dtFristBis)
+        Me.grpFristen.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.grpFristen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        Me.grpFristen.Location = New System.Drawing.Point(617, 178)
+        Me.grpFristen.Name = "grpFristen"
+        Me.grpFristen.Size = New System.Drawing.Size(614, 112)
+        Me.grpFristen.TabIndex = 4
+        Me.grpFristen.TabStop = False
+        Me.grpFristen.Text = "  Fristen  "
+        '
+        'lbl_dtFristVon
+        '
+        Me.lbl_dtFristVon.AutoSize = True
+        Me.lbl_dtFristVon.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_dtFristVon.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_dtFristVon.Location = New System.Drawing.Point(14, 26)
+        Me.lbl_dtFristVon.Name = "lbl_dtFristVon"
+        Me.lbl_dtFristVon.Size = New System.Drawing.Size(51, 13)
+        Me.lbl_dtFristVon.TabIndex = 0
+        Me.lbl_dtFristVon.Text = "Frist von"
+        '
+        'dtFristVon
+        '
+        Me.dtFristVon.Checked = False
+        Me.dtFristVon.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.dtFristVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtFristVon.Location = New System.Drawing.Point(14, 44)
+        Me.dtFristVon.Name = "dtFristVon"
+        Me.dtFristVon.ShowCheckBox = True
+        Me.dtFristVon.Size = New System.Drawing.Size(282, 23)
+        Me.dtFristVon.TabIndex = 10
+        '
+        'lbl_dtFristBis
+        '
+        Me.lbl_dtFristBis.AutoSize = True
+        Me.lbl_dtFristBis.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.lbl_dtFristBis.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lbl_dtFristBis.Location = New System.Drawing.Point(310, 26)
+        Me.lbl_dtFristBis.Name = "lbl_dtFristBis"
+        Me.lbl_dtFristBis.Size = New System.Drawing.Size(47, 13)
+        Me.lbl_dtFristBis.TabIndex = 11
+        Me.lbl_dtFristBis.Text = "Frist bis"
+        '
+        'dtFristBis
+        '
+        Me.dtFristBis.Checked = False
+        Me.dtFristBis.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.dtFristBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtFristBis.Location = New System.Drawing.Point(310, 44)
+        Me.dtFristBis.Name = "dtFristBis"
+        Me.dtFristBis.ShowCheckBox = True
+        Me.dtFristBis.Size = New System.Drawing.Size(286, 23)
+        Me.dtFristBis.TabIndex = 11
+        '
+        'pnlAktionen
+        '
+        Me.pnlAktionen.BackColor = System.Drawing.Color.White
+        Me.pnlAktionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlAktionen.Controls.Add(Me.btnNeu)
+        Me.pnlAktionen.Controls.Add(Me.btnSuchen)
+        Me.pnlAktionen.Controls.Add(Me.lblAnsicht)
+        Me.pnlAktionen.Controls.Add(Me.optOffen)
+        Me.pnlAktionen.Controls.Add(Me.optAlle)
+        Me.pnlAktionen.Controls.Add(Me.optFristen)
+        Me.pnlAktionen.Controls.Add(Me.chkMeine)
+        Me.pnlAktionen.Controls.Add(Me.optAbgeschlossen)
+        Me.pnlAktionen.Location = New System.Drawing.Point(12, 296)
+        Me.pnlAktionen.Name = "pnlAktionen"
+        Me.pnlAktionen.Size = New System.Drawing.Size(1219, 40)
+        Me.pnlAktionen.TabIndex = 5
+        '
+        'lblAnsicht
+        '
+        Me.lblAnsicht.AutoSize = True
+        Me.lblAnsicht.Font = New System.Drawing.Font("Segoe UI", 8.0!, System.Drawing.FontStyle.Bold)
+        Me.lblAnsicht.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lblAnsicht.Location = New System.Drawing.Point(10, 12)
+        Me.lblAnsicht.Name = "lblAnsicht"
+        Me.lblAnsicht.Size = New System.Drawing.Size(54, 13)
+        Me.lblAnsicht.TabIndex = 0
+        Me.lblAnsicht.Text = "ANSICHT"
+        '
+        'optOffen
+        '
+        Me.optOffen.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optOffen.BackColor = System.Drawing.Color.FromArgb(CType(CType(28, Byte), Integer), CType(CType(77, Byte), Integer), CType(CType(150, Byte), Integer))
+        Me.optOffen.Checked = True
+        Me.optOffen.FlatAppearance.BorderSize = 0
+        Me.optOffen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optOffen.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.optOffen.ForeColor = System.Drawing.Color.White
+        Me.optOffen.Location = New System.Drawing.Point(78, 5)
+        Me.optOffen.Name = "optOffen"
+        Me.optOffen.Size = New System.Drawing.Size(78, 28)
+        Me.optOffen.TabIndex = 1
+        Me.optOffen.TabStop = True
+        Me.optOffen.Text = "Offen"
+        Me.optOffen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optOffen.UseVisualStyleBackColor = False
+        '
+        'optAlle
+        '
+        Me.optAlle.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optAlle.BackColor = System.Drawing.Color.FromArgb(CType(CType(236, Byte), Integer), CType(CType(241, Byte), Integer), CType(CType(249, Byte), Integer))
+        Me.optAlle.FlatAppearance.BorderSize = 0
+        Me.optAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optAlle.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.optAlle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.optAlle.Location = New System.Drawing.Point(159, 5)
+        Me.optAlle.Name = "optAlle"
+        Me.optAlle.Size = New System.Drawing.Size(65, 28)
+        Me.optAlle.TabIndex = 2
+        Me.optAlle.Text = "Alle"
+        Me.optAlle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optAlle.UseVisualStyleBackColor = False
+        '
+        'optFristen
+        '
+        Me.optFristen.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optFristen.BackColor = System.Drawing.Color.FromArgb(CType(CType(236, Byte), Integer), CType(CType(241, Byte), Integer), CType(CType(249, Byte), Integer))
+        Me.optFristen.FlatAppearance.BorderSize = 0
+        Me.optFristen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optFristen.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.optFristen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.optFristen.Location = New System.Drawing.Point(227, 5)
+        Me.optFristen.Name = "optFristen"
+        Me.optFristen.Size = New System.Drawing.Size(83, 28)
+        Me.optFristen.TabIndex = 3
+        Me.optFristen.Text = "Fristen"
+        Me.optFristen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optFristen.UseVisualStyleBackColor = False
+        '
+        'optAbgeschlossen
+        '
+        Me.optAbgeschlossen.Appearance = System.Windows.Forms.Appearance.Button
+        Me.optAbgeschlossen.BackColor = System.Drawing.Color.FromArgb(CType(CType(236, Byte), Integer), CType(CType(241, Byte), Integer), CType(CType(249, Byte), Integer))
+        Me.optAbgeschlossen.FlatAppearance.BorderSize = 0
+        Me.optAbgeschlossen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.optAbgeschlossen.Font = New System.Drawing.Font("Segoe UI", 8.5!)
+        Me.optAbgeschlossen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.optAbgeschlossen.Location = New System.Drawing.Point(313, 5)
+        Me.optAbgeschlossen.Name = "optAbgeschlossen"
+        Me.optAbgeschlossen.Size = New System.Drawing.Size(158, 28)
+        Me.optAbgeschlossen.TabIndex = 4
+        Me.optAbgeschlossen.Text = "Abgeschlossen"
+        Me.optAbgeschlossen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.optAbgeschlossen.UseVisualStyleBackColor = False
+        '
+        'chkMeine
+        '
+        Me.chkMeine.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.chkMeine.AutoSize = True
+        Me.chkMeine.Checked = True
+        Me.chkMeine.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.chkMeine.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.chkMeine.Location = New System.Drawing.Point(771, 10)
+        Me.chkMeine.Name = "chkMeine"
+        Me.chkMeine.Size = New System.Drawing.Size(93, 19)
+        Me.chkMeine.TabIndex = 6
+        Me.chkMeine.Text = "Meine Akten"
+        '
+        'btnSuchen
+        '
+        Me.btnSuchen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSuchen.BackColor = System.Drawing.Color.FromArgb(CType(CType(28, Byte), Integer), CType(CType(77, Byte), Integer), CType(CType(150, Byte), Integer))
+        Me.btnSuchen.FlatAppearance.BorderSize = 0
+        Me.btnSuchen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSuchen.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.btnSuchen.ForeColor = System.Drawing.Color.White
+        Me.btnSuchen.Location = New System.Drawing.Point(886, 2)
+        Me.btnSuchen.Name = "btnSuchen"
+        Me.btnSuchen.Size = New System.Drawing.Size(182, 35)
+        Me.btnSuchen.TabIndex = 7
+        Me.btnSuchen.Text = "Suchen"
+        Me.btnSuchen.UseVisualStyleBackColor = False
+        '
+        'btnNeu
+        '
+        Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnNeu.BackColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        Me.btnNeu.FlatAppearance.BorderSize = 0
+        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.btnNeu.ForeColor = System.Drawing.Color.White
+        Me.btnNeu.Location = New System.Drawing.Point(1074, 1)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(140, 35)
+        Me.btnNeu.TabIndex = 8
+        Me.btnNeu.Text = "Neuer Antrag"
+        Me.btnNeu.UseVisualStyleBackColor = False
+        '
+        'lblInfo
+        '
+        Me.lblInfo.BackColor = System.Drawing.Color.FromArgb(CType(CType(231, Byte), Integer), CType(CType(237, Byte), Integer), CType(CType(246, Byte), Integer))
+        Me.lblInfo.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.lblInfo.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer))
+        Me.lblInfo.Location = New System.Drawing.Point(0, 653)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.lblInfo.Size = New System.Drawing.Size(1243, 27)
+        Me.lblInfo.TabIndex = 1
+        Me.lblInfo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'gridAviso
+        '
+        Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
+        Me.gridAviso.AllowUserToAddRows = False
+        Me.gridAviso.AllowUserToDeleteRows = False
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(253, Byte), Integer))
+        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.gridAviso.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(249, Byte), Integer), CType(CType(252, Byte), Integer))
+        Me.gridAviso.BorderStyle = System.Windows.Forms.BorderStyle.None
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(243, Byte), Integer))
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
+        DataGridViewCellStyle8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
+        Me.gridAviso.ColumnHeadersHeight = 30
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(207, Byte), Integer), CType(CType(225, Byte), Integer), CType(CType(249, Byte), Integer))
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.Color.FromArgb(CType(CType(27, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(103, Byte), Integer))
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle9
+        Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridAviso.EnableHeadersVisualStyles = False
+        Me.gridAviso.Location = New System.Drawing.Point(0, 342)
+        Me.gridAviso.MultiSelect = False
+        Me.gridAviso.Name = "gridAviso"
+        Me.gridAviso.ReadOnly = True
+        Me.gridAviso.RowHeadersVisible = False
+        Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.gridAviso.Size = New System.Drawing.Size(1243, 311)
+        Me.gridAviso.TabIndex = 0
+        '
+        'usrCntlHauptfenster_Suche_Zollvorgaenge
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(242, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(250, Byte), Integer))
+        Me.Controls.Add(Me.gridAviso)
+        Me.Controls.Add(Me.lblInfo)
+        Me.Controls.Add(Me.pnlFilter)
+        Me.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.Name = "usrCntlHauptfenster_Suche_Zollvorgaenge"
+        Me.Size = New System.Drawing.Size(1243, 680)
+        Me.pnlFilter.ResumeLayout(False)
+        Me.pnlHeader.ResumeLayout(False)
+        Me.pnlHeader.PerformLayout()
+        Me.grpSuche.ResumeLayout(False)
+        Me.grpSuche.PerformLayout()
+        Me.grpVerfahren.ResumeLayout(False)
+        Me.grpVerfahren.PerformLayout()
+        Me.grpOrganisation.ResumeLayout(False)
+        Me.grpOrganisation.PerformLayout()
+        Me.grpFristen.ResumeLayout(False)
+        Me.grpFristen.PerformLayout()
+        Me.pnlAktionen.ResumeLayout(False)
+        Me.pnlAktionen.PerformLayout()
+        CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnlFilter As System.Windows.Forms.Panel
+    Friend WithEvents pnlHeader As System.Windows.Forms.Panel
+    Friend WithEvents pnlAktionen As System.Windows.Forms.Panel
+    Friend WithEvents grpSuche As System.Windows.Forms.GroupBox
+    Friend WithEvents grpVerfahren As System.Windows.Forms.GroupBox
+    Friend WithEvents grpOrganisation As System.Windows.Forms.GroupBox
+    Friend WithEvents grpFristen As System.Windows.Forms.GroupBox
+    Friend WithEvents lblTitel As System.Windows.Forms.Label
+    Friend WithEvents lblUntertitel As System.Windows.Forms.Label
+    Friend WithEvents lblAnsicht As System.Windows.Forms.Label
+    Friend WithEvents lblInfo As System.Windows.Forms.Label
+    Friend WithEvents optOffen As System.Windows.Forms.RadioButton
+    Friend WithEvents optAlle As System.Windows.Forms.RadioButton
+    Friend WithEvents optFristen As System.Windows.Forms.RadioButton
+    Friend WithEvents optAbgeschlossen As System.Windows.Forms.RadioButton
+    Friend WithEvents chkMeine As System.Windows.Forms.CheckBox
+    Friend WithEvents btnSuchen As System.Windows.Forms.Button
+    Friend WithEvents btnNeu As System.Windows.Forms.Button
+    Friend WithEvents gridAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents txtSuche As System.Windows.Forms.TextBox
+    Friend WithEvents txtMRN As System.Windows.Forms.TextBox
+    Friend WithEvents txtGeschaeftszeichen As System.Windows.Forms.TextBox
+    Friend WithEvents txtZollamt As System.Windows.Forms.TextBox
+    Friend WithEvents txtKunde As System.Windows.Forms.TextBox
+    Friend WithEvents txtSendungID As System.Windows.Forms.TextBox
+    Friend WithEvents cboTyp As System.Windows.Forms.ComboBox
+    Friend WithEvents cboStatus As System.Windows.Forms.ComboBox
+    Friend WithEvents cboLand As System.Windows.Forms.ComboBox
+    Friend WithEvents cboTeam As System.Windows.Forms.ComboBox
+    Friend WithEvents dtFristVon As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtFristBis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents lbl_txtSuche As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtMRN As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtGeschaeftszeichen As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtZollamt As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtKunde As System.Windows.Forms.Label
+    Friend WithEvents lbl_txtSendungID As System.Windows.Forms.Label
+    Friend WithEvents lbl_cboTyp As System.Windows.Forms.Label
+    Friend WithEvents lbl_cboStatus As System.Windows.Forms.Label
+    Friend WithEvents lbl_cboLand As System.Windows.Forms.Label
+    Friend WithEvents lbl_cboTeam As System.Windows.Forms.Label
+    Friend WithEvents lbl_dtFristVon As System.Windows.Forms.Label
+    Friend WithEvents lbl_dtFristBis As System.Windows.Forms.Label
+End Class

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.vb

@@ -0,0 +1,291 @@
+Imports System.Data
+Imports System.Windows.Forms
+Imports VERAG_PROG_ALLGEMEIN
+
+'Zollverfahren & Anträge – Suche auf Sendungsebene, unabhängig von AvisoID.
+Public Class usrCntlHauptfenster_Suche_Zollvorgaenge
+    Public Event CaseOpenRequested(sendungId As Integer, avisoId As Integer)
+    Public Event CaseNewRequested()
+    Public aktiv As Boolean = False
+    Public PARENT_FRMHAUPTFENSTER As frmHauptfensterNew
+    Private ReadOnly VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Private _loading As Boolean = False
+    Private _initialized As Boolean = False
+
+    Private Class ComboItem
+        Public Property Text As String
+        Public Property Value As String
+        Public Sub New(t As String, v As String)
+            Text = t : Value = v
+        End Sub
+        Public Overrides Function ToString() As String
+            Return Text
+        End Function
+    End Class
+
+    Private Sub AddItem(cbo As ComboBox, label As String, value As String)
+        cbo.Items.Add(New ComboItem(label, value))
+    End Sub
+    Private Function Selected(cbo As ComboBox) As String
+        Dim item = TryCast(cbo.SelectedItem, ComboItem)
+        Return If(item Is Nothing, "", item.Value)
+    End Function
+
+    Private Sub usrCntlHauptfenster_Suche_Zollvorgaenge_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If _initialized Then Exit Sub
+        _initialized = True
+        _loading = True
+        Try
+            cboTyp.Items.Clear()
+            AddItem(cboTyp, "Alle Verfahren", "")
+            AddItem(cboTyp, "Einspruch / Beschwerde", "1")
+            AddItem(cboTyp, "NCTS-Nachforschung", "2")
+            AddItem(cboTyp, "NCTS-Unstimmigkeit", "3")
+            AddItem(cboTyp, "Zollamtliche Anfrage", "4")
+            AddItem(cboTyp, "Berichtigung / Nachbesserung", "5")
+            AddItem(cboTyp, "Änderungsantrag", "6")
+            AddItem(cboTyp, "Erstattung / Erlass", "7")
+            AddItem(cboTyp, "Abgabenbescheid", "8")
+            AddItem(cboTyp, "Mahn-/Vollstreckungsverfahren", "9")
+            AddItem(cboTyp, "Sonstiges", "10")
+            cboTyp.SelectedIndex = 0
+
+            cboStatus.Items.Clear()
+            AddItem(cboStatus, "Alle Status", "")
+            AddItem(cboStatus, "Neu", "0")
+            AddItem(cboStatus, "In Bearbeitung", "1")
+            AddItem(cboStatus, "Unterlagen ausständig", "2")
+            AddItem(cboStatus, "Rückmeldung Zoll ausständig", "3")
+            AddItem(cboStatus, "Entscheidung eingegangen", "4")
+            AddItem(cboStatus, "Erledigt", "5")
+            AddItem(cboStatus, "Geschlossen", "6")
+            cboStatus.SelectedIndex = 0
+
+            cboLand.Items.Clear()
+            AddItem(cboLand, "Alle Länder", "")
+            For Each land In {"AT", "DE", "NL", "IT", "FR", "UK", "TR"}
+                AddItem(cboLand, land, land)
+            Next
+            cboLand.SelectedIndex = 0
+
+            cboTeam.Items.Clear()
+            AddItem(cboTeam, "Alle Teams", "")
+            Dim dt = VERAGSQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cAllgemein.FIRMA.Replace("'", "''") & "' ORDER BY team_bezeichnung", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each r As DataRow In dt.Rows
+                    AddItem(cboTeam, Convert.ToString(r("team_bezeichnung")), Convert.ToString(r("team_id")))
+                Next
+            End If
+            cboTeam.SelectedIndex = 0
+            dtFristVon.Checked = False
+            dtFristBis.Checked = False
+        Catch ex As Exception
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        Finally
+            _loading = False
+        End Try
+        RESET()
+    End Sub
+
+    Public Sub RESET()
+        If Not _initialized Then Exit Sub
+        _loading = True
+        Try
+            txtSuche.Clear() : txtMRN.Clear() : txtGeschaeftszeichen.Clear()
+            txtZollamt.Clear() : txtKunde.Clear() : txtSendungID.Clear()
+            cboTyp.SelectedIndex = 0 : cboStatus.SelectedIndex = 0
+            cboLand.SelectedIndex = 0 : cboTeam.SelectedIndex = 0
+            dtFristVon.Checked = False : dtFristBis.Checked = False
+            optOffen.Checked = True
+            chkMeine.Checked = True
+        Finally
+            _loading = False
+        End Try
+        Aviso_anzeigen("")
+    End Sub
+
+    Private Function Wildcard(value As String) As String
+        Return value.Trim().Replace("*", "%") & "%"
+    End Function
+
+    Public Sub Aviso_anzeigen(Optional hSort As String = "", Optional showDetails As Boolean = True)
+        If Not _initialized OrElse _loading Then Exit Sub
+        Try
+            Dim hSQL As String =
+                "SELECT TOP (1000) s.tblSnd_SendungID, s.tblSnd_AvisoID AS AvisoID, " &
+                "scc.scc_Type AS VerfahrenNr, " &
+                "CASE scc.scc_Type WHEN 1 THEN N'Einspruch/Beschwerde' WHEN 2 THEN N'NCTS-Nachforschung' " &
+                "WHEN 3 THEN N'NCTS-Unstimmigkeit' WHEN 4 THEN N'Zollamtliche Anfrage' " &
+                "WHEN 5 THEN N'Berichtigung' WHEN 6 THEN N'Änderungsantrag' " &
+                "WHEN 7 THEN N'Erstattung/Erlass' WHEN 8 THEN N'Abgabenbescheid' " &
+                "WHEN 9 THEN N'Mahnverfahren' ELSE N'Sonstiges' END AS Verfahren, " &
+                "scc.scc_Subject AS Betreff, scc.scc_CustomsOffice AS Zollamt, " &
+                "scc.scc_CustomsReference AS Geschaeftszeichen, scc.scc_ReferenceMRN AS MRN, " &
+                "scc.scc_ReceivedDate AS Eingang, scc.scc_Deadline AS Frist, " &
+                "scc.scc_ReminderDate AS Wiedervorlage, scc.scc_Status AS StatusNr, " &
+                "CASE scc.scc_Status WHEN 0 THEN N'Neu' WHEN 1 THEN N'In Bearbeitung' " &
+                "WHEN 2 THEN N'Unterlagen ausständig' WHEN 3 THEN N'Zoll ausständig' " &
+                "WHEN 4 THEN N'Entscheidung' WHEN 5 THEN N'Erledigt' " &
+                "WHEN 6 THEN N'Geschlossen' ELSE N'Unbekannt' END AS Fachstatus, " &
+                "s.tblSnd_Zollsystem_Land AS Land, s.tblSnd_Auftraggeber AS Auftraggeber, " &
+                "s.tblSnd_TeamId AS TeamId, s.tblSnd_SachbearbeiterId AS SachbearbeiterId, " &
+                "s.LetzterMitarbeiter AS LetzterMitarbeiter, scc.scc_Amount AS Betrag, scc.scc_Currency AS Waehrung " &
+                "FROM dbo.tblSendungCustomsCases scc " &
+                "INNER JOIN dbo.tblSendungen s ON s.tblSnd_SendungID=scc.scc_SendungID " &
+                "LEFT JOIN dbo.Aviso a ON a.AvisoID=s.tblSnd_AvisoID " &
+                "WHERE (s.tblSnd_Firma=@firma OR s.tblSnd_Cluster=@cluster OR s.LetzterMitarbeiterId=@maId) "
+
+            Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) From {
+                New VERAG_PROG_ALLGEMEIN.SQLVariable("firma", cAllgemein.FIRMA),
+                New VERAG_PROG_ALLGEMEIN.SQLVariable("cluster", cAllgemein.CLUSTER),
+                New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", cAllgemein.USRID)
+            }
+            If chkMeine.Checked Then
+                hSQL &= " AND (s.tblSnd_SachbearbeiterId=@maId OR s.LetzterMitarbeiterId=@maId) "
+            End If
+            If Selected(cboTyp) <> "" Then
+                hSQL &= " AND scc.scc_Type=@type "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("type", CShort(Selected(cboTyp))))
+            End If
+            If Selected(cboStatus) <> "" Then
+                hSQL &= " AND scc.scc_Status=@status "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", CShort(Selected(cboStatus))))
+            End If
+            If Selected(cboLand) <> "" Then
+                hSQL &= " AND s.tblSnd_Zollsystem_Land=@land "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("land", Selected(cboLand)))
+            End If
+            If Selected(cboTeam) <> "" Then
+                hSQL &= " AND s.tblSnd_TeamId=@team "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("team", CInt(Selected(cboTeam))))
+            End If
+            If txtSuche.Text.Trim() <> "" Then
+                hSQL &= " AND (scc.scc_Subject LIKE @search OR s.tblSnd_Anmerkung LIKE @search) "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("search", Wildcard(txtSuche.Text)))
+            End If
+            If txtMRN.Text.Trim() <> "" Then
+                hSQL &= " AND scc.scc_ReferenceMRN LIKE @mrn "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mrn", Wildcard(txtMRN.Text)))
+            End If
+            If txtGeschaeftszeichen.Text.Trim() <> "" Then
+                hSQL &= " AND scc.scc_CustomsReference LIKE @reference "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reference", Wildcard(txtGeschaeftszeichen.Text)))
+            End If
+            If txtZollamt.Text.Trim() <> "" Then
+                hSQL &= " AND scc.scc_CustomsOffice LIKE @office "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("office", Wildcard(txtZollamt.Text)))
+            End If
+            If txtKunde.Text.Trim() <> "" Then
+                hSQL &= " AND s.tblSnd_Auftraggeber LIKE @kunde "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kunde", Wildcard(txtKunde.Text)))
+            End If
+            If txtSendungID.Text.Trim() <> "" Then
+                Dim id As Integer
+                If Not Integer.TryParse(txtSendungID.Text.Trim(), id) Then
+                    lblInfo.Text = "Ungültige Sendung-ID"
+                    Exit Sub
+                End If
+                hSQL &= " AND s.tblSnd_SendungID=@sendungId "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sendungId", id))
+            End If
+            If dtFristVon.Checked Then
+                hSQL &= " AND scc.scc_Deadline>=@fristVon "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fristVon", dtFristVon.Value.Date))
+            End If
+            If dtFristBis.Checked Then
+                hSQL &= " AND scc.scc_Deadline<=@fristBis "
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fristBis", dtFristBis.Value.Date))
+            End If
+            If optOffen.Checked Then
+                hSQL &= " AND scc.scc_Status NOT IN (5,6) "
+            ElseIf optAbgeschlossen.Checked Then
+                hSQL &= " AND scc.scc_Status IN (5,6) "
+            ElseIf optFristen.Checked Then
+                hSQL &= " AND scc.scc_Status NOT IN (5,6) AND (scc.scc_Deadline<=DATEADD(DAY,14,CAST(GETDATE() AS date)) OR scc.scc_ReminderDate<=CAST(GETDATE() AS date)) "
+            End If
+            hSQL &= " ORDER BY CASE WHEN scc.scc_Deadline<CAST(GETDATE() AS date) AND scc.scc_Status NOT IN (5,6) THEN 0 ELSE 1 END, scc.scc_Deadline, scc.scc_SendungID DESC "
+
+            Dim errOcc As Boolean = False
+            Dim dt As DataTable = VERAGSQL.loadDgvBySql_Param(hSQL, "AVISO", 1500, list, False, errOcc)
+            If errOcc Then
+                lblInfo.Text = "Fehler bei der Suche."
+                Exit Sub
+            End If
+            gridAviso.DataSource = dt
+            gridAviso_SpaltenFestlegen()
+            lblInfo.Text = gridAviso.Rows.Count.ToString() & " Vorgänge" & If(gridAviso.Rows.Count >= 1000, " (max. 1000)", "") & " – " & Date.Now.ToString("HH:mm")
+        Catch ex As Exception
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            lblInfo.Text = "Suche fehlgeschlagen: " & ex.Message
+        End Try
+    End Sub
+
+    Public Sub gridAviso_SpaltenFestlegen()
+        If gridAviso.Columns.Count = 0 Then Exit Sub
+        For Each key In {"tblSnd_SendungID", "AvisoID", "VerfahrenNr", "StatusNr", "TeamId", "SachbearbeiterId"}
+            If gridAviso.Columns.Contains(key) Then gridAviso.Columns(key).Visible = False
+        Next
+        For Each key In {"Eingang", "Frist", "Wiedervorlage"}
+            If gridAviso.Columns.Contains(key) Then
+                gridAviso.Columns(key).Width = 90
+                gridAviso.Columns(key).DefaultCellStyle.Format = "dd.MM.yyyy"
+            End If
+        Next
+        If gridAviso.Columns.Contains("Betreff") Then
+            gridAviso.Columns("Betreff").Width = 250
+        End If
+        If gridAviso.Columns.Contains("Verfahren") Then gridAviso.Columns("Verfahren").Width = 155
+        If gridAviso.Columns.Contains("Auftraggeber") Then gridAviso.Columns("Auftraggeber").Width = 180
+        If gridAviso.Columns.Contains("Geschaeftszeichen") Then gridAviso.Columns("Geschaeftszeichen").HeaderText = "Geschäftszeichen"
+        If gridAviso.Columns.Contains("Fachstatus") Then gridAviso.Columns("Fachstatus").Width = 135
+        If gridAviso.Columns.Contains("Betrag") Then gridAviso.Columns("Betrag").DefaultCellStyle.Format = "N2"
+    End Sub
+
+    Private Sub btnSuchen_Click(sender As Object, e As EventArgs) Handles btnSuchen.Click
+        Aviso_anzeigen("")
+    End Sub
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+        RaiseEvent CaseNewRequested()
+    End Sub
+    Private Sub Ansicht_CheckedChanged(sender As Object, e As EventArgs) Handles optOffen.CheckedChanged, optAlle.CheckedChanged, optFristen.CheckedChanged, optAbgeschlossen.CheckedChanged
+        Dim opt = DirectCast(sender, RadioButton)
+        If Not opt.Checked Then Exit Sub
+        For Each rb As RadioButton In New RadioButton() {optOffen, optAlle, optFristen, optAbgeschlossen}
+            rb.BackColor = If(rb.Checked, Color.FromArgb(28, 77, 150), Color.White)
+            rb.ForeColor = If(rb.Checked, Color.White, Color.FromArgb(44, 66, 103))
+        Next
+        Aviso_anzeigen("")
+    End Sub
+    Private Sub filter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTyp.SelectedIndexChanged, cboStatus.SelectedIndexChanged, cboLand.SelectedIndexChanged, cboTeam.SelectedIndexChanged, chkMeine.CheckedChanged
+        Aviso_anzeigen("")
+    End Sub
+    Private Sub filter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown, txtMRN.KeyDown, txtGeschaeftszeichen.KeyDown, txtZollamt.KeyDown, txtKunde.KeyDown, txtSendungID.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            e.SuppressKeyPress = True
+            Aviso_anzeigen("")
+        End If
+    End Sub
+    Private Sub gridAviso_DoubleClick(sender As Object, e As EventArgs) Handles gridAviso.DoubleClick
+        OpenSelectedCase()
+    End Sub
+    Private Sub gridAviso_KeyDown(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            e.Handled = True : e.SuppressKeyPress = True
+            OpenSelectedCase()
+        End If
+    End Sub
+    Private Sub OpenSelectedCase()
+        If gridAviso.CurrentRow Is Nothing Then Exit Sub
+        Dim row = gridAviso.CurrentRow
+        If row.Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub
+        Dim sendungId As Integer = Convert.ToInt32(row.Cells("tblSnd_SendungID").Value)
+        Dim avisoId As Integer = 0
+        If row.Cells("AvisoID").Value IsNot DBNull.Value AndAlso row.Cells("AvisoID").Value IsNot Nothing Then
+            avisoId = Convert.ToInt32(row.Cells("AvisoID").Value)
+        End If
+        If avisoId < 0 Then avisoId = 0
+        cGlobal.Aktive_SendungsID = sendungId
+        cGlobal.Aktive_ID = avisoId
+        RaiseEvent CaseOpenRequested(sendungId, avisoId)
+    End Sub
+End Class

Aviso/frmHauptfensterNew.vb

@@ -65,6 +65,7 @@ Public Class frmHauptfensterNew
 
 
     Dim SEARCH_AVISO As usrCntlHauptfenster_Suche_AVISO = Nothing
+    Dim SEARCH_CUSTOMS_CASES As usrCntlHauptfenster_Suche_Zollvorgaenge = Nothing
     Dim SEARCH_SND As usrCntlHauptfenster_Suche_SND = Nothing
     Dim SEARCH_AVISO_AKTIV As String = "AVISO"
 
@@ -278,12 +279,12 @@ Public Class frmHauptfensterNew
             Case "CUSTOMS_CONTROLLING"
                 splitMainWorkingView.Panel2Collapsed = True
                 SetBtnSelectedolor(btnVIEW_CustControling)
-                'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
+                If SEARCH_CUSTOMS_CASES Is Nothing Then SEARCH_CUSTOMS_CASES = New usrCntlHauptfenster_Suche_Zollvorgaenge
-                'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
+                SEARCH_CUSTOMS_CASES.PARENT_FRMHAUPTFENSTER = Me
-                'pnlMain.Controls.Add(SEARCH_AVISO)
+                pnlMain.Controls.Add(SEARCH_CUSTOMS_CASES)
-                'SEARCH_AVISO.Dock = DockStyle.Fill
+                SEARCH_CUSTOMS_CASES.Dock = DockStyle.Fill
                 pnlMain.PerformLayout()
-                SEARCH_AVISO.PerformLayout()
+                SEARCH_CUSTOMS_CASES.PerformLayout()
                 Application.DoEvents()
 
         End Select