From 71a26ee1f79bd0844d4520f16a7b7c0c6cbc1deb Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 19 Oct 2026 14:40:03 +0200 Subject: [PATCH] Hauptfenster SND; --- Aviso/Aviso.vbproj | 21 +- ...srCntlHauptfenster_Suche_AVISO.Designer.vb | 0 .../usrCntlHauptfenster_Suche_AVISO.resx | 0 .../usrCntlHauptfenster_Suche_AVISO.vb | 0 .../usrCntlHauptfenster_Suche_SND.Designer.vb | 1133 ++++++++++------- .../usrCntlHauptfenster_Suche_SND.resx | 9 - .../usrCntlHauptfenster_Suche_SND.vb | 37 +- ...uptfenster_Suche_Zollvorgaenge.Designer.vb | 701 ++++++++++ ...rCntlHauptfenster_Suche_Zollvorgaenge.resx | 120 ++ ...usrCntlHauptfenster_Suche_Zollvorgaenge.vb | 291 +++++ Aviso/frmHauptfensterNew.vb | 11 +- 11 files changed, 1848 insertions(+), 475 deletions(-) rename Aviso/{ => Hauptfenster}/usrCntlHauptfenster_Suche_AVISO.Designer.vb (100%) rename Aviso/{ => Hauptfenster}/usrCntlHauptfenster_Suche_AVISO.resx (100%) rename Aviso/{ => Hauptfenster}/usrCntlHauptfenster_Suche_AVISO.vb (100%) rename Aviso/{ => Hauptfenster}/usrCntlHauptfenster_Suche_SND.Designer.vb (50%) rename Aviso/{ => Hauptfenster}/usrCntlHauptfenster_Suche_SND.resx (91%) rename Aviso/{ => Hauptfenster}/usrCntlHauptfenster_Suche_SND.vb (96%) create mode 100644 Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.Designer.vb create mode 100644 Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.resx create mode 100644 Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.vb diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 76a88ac..d786686 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -1260,6 +1260,12 @@ Form + + usrCntlHauptfenster_Suche_Zollvorgaenge.vb + + + UserControl + True @@ -1355,16 +1361,16 @@ UserControl - + usrCntlHauptfenster_Suche_SND.vb - + UserControl - + usrCntlHauptfenster_Suche_AVISO.vb - + UserControl @@ -1735,6 +1741,9 @@ frmGVMSNew.vb + + usrCntlHauptfenster_Suche_Zollvorgaenge.vb + PublicVbMyResourcesResXFileCodeGenerator @@ -1781,10 +1790,10 @@ usrcntlFrachtkostenberechnung.vb - + usrCntlHauptfenster_Suche_SND.vb - + usrCntlHauptfenster_Suche_AVISO.vb diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_AVISO.Designer.vb similarity index 100% rename from Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb rename to Aviso/Hauptfenster/usrCntlHauptfenster_Suche_AVISO.Designer.vb diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.resx b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_AVISO.resx similarity index 100% rename from Aviso/usrCntlHauptfenster_Suche_AVISO.resx rename to Aviso/Hauptfenster/usrCntlHauptfenster_Suche_AVISO.resx diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_AVISO.vb similarity index 100% rename from Aviso/usrCntlHauptfenster_Suche_AVISO.vb rename to Aviso/Hauptfenster/usrCntlHauptfenster_Suche_AVISO.vb diff --git a/Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.Designer.vb similarity index 50% rename from Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb rename to Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.Designer.vb index 6ec4f28..aba8c6e 100644 --- a/Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb +++ b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.Designer.vb @@ -23,51 +23,64 @@ Partial Class usrCntlHauptfenster_Suche_SND Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlHauptfenster_Suche_SND)) - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - 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() - Dim DataGridViewCellStyle10 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() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Panel1 = New System.Windows.Forms.Panel() - Me.cbx_My_CBAM = New System.Windows.Forms.CheckBox() - Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() - Me.cbxLoseSnd = New System.Windows.Forms.CheckBox() - Me.txtAvisierer = New System.Windows.Forms.TextBox() - Me.Label2 = New System.Windows.Forms.Label() - Me.lblErwLKWID = New System.Windows.Forms.Label() - Me.lblAbsender = New System.Windows.Forms.Label() - Me.txtlkwId = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.txtAbsender = New System.Windows.Forms.TextBox() - Me.Button2 = New System.Windows.Forms.Button() - Me.Button1 = New System.Windows.Forms.Button() + Me.pnlHeader = New System.Windows.Forms.Panel() + Me.lblTitel = New System.Windows.Forms.Label() + Me.lblEintraege = New System.Windows.Forms.Label() + Me.lblDauer = New System.Windows.Forms.Label() Me.lblZeit_aktuell = New System.Windows.Forms.Label() + Me.grpReferenzen = New System.Windows.Forms.Panel() + Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label() + Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblErwFilialePos = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox() + Me.lblAbfertigungsnummer = New System.Windows.Forms.Label() + Me.lblErwKdAtrNr = New System.Windows.Forms.Label() + Me.txtKdAuftragsnr = New System.Windows.Forms.TextBox() + Me.lblErwLKWID = New System.Windows.Forms.Label() + Me.txtlkwId = New System.Windows.Forms.TextBox() + Me.grpBeteiligte = New System.Windows.Forms.Panel() + Me.lblErwAuftraggeber = New System.Windows.Forms.Label() + Me.txtAuftraggeber = New System.Windows.Forms.TextBox() + Me.lblAbsender = New System.Windows.Forms.Label() + Me.txtAbsender = New System.Windows.Forms.TextBox() + Me.lblErwEmpfänger = New System.Windows.Forms.Label() + Me.txtEmpfänger = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtAvisierer = New System.Windows.Forms.TextBox() + Me.grpZustaendigkeit = New System.Windows.Forms.Panel() + Me.btnColor = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblMySND_Anzeige = New System.Windows.Forms.Label() + Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboMy_QS = New System.Windows.Forms.CheckBox() + Me.cbxLoseSnd = New System.Windows.Forms.CheckBox() + Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.cbx_My_CBAM = New System.Windows.Forms.CheckBox() + Me.lblVB = New System.Windows.Forms.Label() + Me.cboMy_VB = New System.Windows.Forms.CheckBox() + Me.lblQS = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.pnlAktionen = New System.Windows.Forms.Panel() + Me.lblAnsicht = New System.Windows.Forms.Label() + Me.optSndAlle = New System.Windows.Forms.RadioButton() + Me.optSndOffen = New System.Windows.Forms.RadioButton() + Me.optSndFreigegeben = New System.Windows.Forms.RadioButton() + Me.optSndNichtEingetroffen = New System.Windows.Forms.RadioButton() + Me.Button4 = New System.Windows.Forms.Button() + Me.btnNeu = New System.Windows.Forms.Button() Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl() Me.tbSndAlle = New System.Windows.Forms.TabPage() Me.tbSndOffen = New System.Windows.Forms.TabPage() Me.tbSndFreigegeben = New System.Windows.Forms.TabPage() Me.tbNichtEingetroffen = New System.Windows.Forms.TabPage() - Me.btnColor = New System.Windows.Forms.Button() - Me.Button4 = New System.Windows.Forms.Button() - Me.lblDauer = New System.Windows.Forms.Label() - Me.lblMySND_Anzeige = New System.Windows.Forms.Label() - Me.txtKdAuftragsnr = New System.Windows.Forms.TextBox() - Me.lblErwKdAtrNr = New System.Windows.Forms.Label() - Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnNeu = New System.Windows.Forms.Button() - Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtEmpfänger = New System.Windows.Forms.TextBox() - Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox() - Me.lblErwFilialePos = New System.Windows.Forms.Label() - Me.lblErwEmpfänger = New System.Windows.Forms.Label() - Me.lblEintraege = New System.Windows.Forms.Label() - Me.cboMy_QS = New System.Windows.Forms.CheckBox() - Me.txtAuftraggeber = New System.Windows.Forms.TextBox() - Me.cboMy_VB = New System.Windows.Forms.CheckBox() - Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label() - Me.lblErwAuftraggeber = New System.Windows.Forms.Label() Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TimerAkte = New System.Windows.Forms.Timer(Me.components) Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -76,6 +89,11 @@ Partial Class usrCntlHauptfenster_Suche_SND Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem() Me.Panel1.SuspendLayout() + Me.pnlHeader.SuspendLayout() + Me.grpReferenzen.SuspendLayout() + Me.grpBeteiligte.SuspendLayout() + Me.grpZustaendigkeit.SuspendLayout() + Me.pnlAktionen.SuspendLayout() Me.tbcntrAvisoSND.SuspendLayout() CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() Me.ctxtFarben.SuspendLayout() @@ -83,77 +101,389 @@ Partial Class usrCntlHauptfenster_Suche_SND ' 'Panel1 ' - Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Panel1.Controls.Add(Me.cbx_My_CBAM) - Me.Panel1.Controls.Add(Me.cbx_My_Brexit) - Me.Panel1.Controls.Add(Me.cbxLoseSnd) - Me.Panel1.Controls.Add(Me.txtAvisierer) - Me.Panel1.Controls.Add(Me.Label2) - Me.Panel1.Controls.Add(Me.lblErwLKWID) - Me.Panel1.Controls.Add(Me.lblAbsender) - Me.Panel1.Controls.Add(Me.txtlkwId) - Me.Panel1.Controls.Add(Me.Label1) - Me.Panel1.Controls.Add(Me.txtAbsender) - Me.Panel1.Controls.Add(Me.Button2) - Me.Panel1.Controls.Add(Me.Button1) - Me.Panel1.Controls.Add(Me.lblZeit_aktuell) + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer)) + Me.Panel1.Controls.Add(Me.pnlHeader) + Me.Panel1.Controls.Add(Me.grpReferenzen) + Me.Panel1.Controls.Add(Me.grpBeteiligte) + Me.Panel1.Controls.Add(Me.grpZustaendigkeit) + Me.Panel1.Controls.Add(Me.pnlAktionen) Me.Panel1.Controls.Add(Me.tbcntrAvisoSND) - Me.Panel1.Controls.Add(Me.btnColor) - Me.Panel1.Controls.Add(Me.Button4) - Me.Panel1.Controls.Add(Me.lblDauer) - Me.Panel1.Controls.Add(Me.lblMySND_Anzeige) - Me.Panel1.Controls.Add(Me.txtKdAuftragsnr) - Me.Panel1.Controls.Add(Me.lblErwKdAtrNr) - Me.Panel1.Controls.Add(Me.cboMyAvisoAnzeige) - Me.Panel1.Controls.Add(Me.btnNeu) - Me.Panel1.Controls.Add(Me.cboMy_Grenzstelle) - Me.Panel1.Controls.Add(Me.cboFiliale) - Me.Panel1.Controls.Add(Me.txtEmpfänger) - Me.Panel1.Controls.Add(Me.txtAbfertigungsnummer) - Me.Panel1.Controls.Add(Me.lblErwFilialePos) - Me.Panel1.Controls.Add(Me.lblErwEmpfänger) - Me.Panel1.Controls.Add(Me.lblEintraege) - Me.Panel1.Controls.Add(Me.cboMy_QS) - Me.Panel1.Controls.Add(Me.txtAuftraggeber) - Me.Panel1.Controls.Add(Me.cboMy_VB) - Me.Panel1.Controls.Add(Me.lblMySnd_Grenzstelle) - Me.Panel1.Controls.Add(Me.lblErwAuftraggeber) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 8.5!) Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1243, 115) + Me.Panel1.Size = New System.Drawing.Size(1243, 239) Me.Panel1.TabIndex = 3 ' - 'cbx_My_CBAM + 'pnlHeader ' - Me.cbx_My_CBAM.AutoSize = True - Me.cbx_My_CBAM.ForeColor = System.Drawing.Color.White - Me.cbx_My_CBAM.Location = New System.Drawing.Point(531, 91) - Me.cbx_My_CBAM.Name = "cbx_My_CBAM" - Me.cbx_My_CBAM.Size = New System.Drawing.Size(60, 19) - Me.cbx_My_CBAM.TabIndex = 48 - Me.cbx_My_CBAM.Text = "CBAM" - Me.cbx_My_CBAM.UseVisualStyleBackColor = True - Me.cbx_My_CBAM.Visible = False + 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.lblEintraege) + Me.pnlHeader.Controls.Add(Me.lblDauer) + Me.pnlHeader.Controls.Add(Me.lblZeit_aktuell) + 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, 34) + Me.pnlHeader.TabIndex = 0 ' - 'cbx_My_Brexit + 'lblTitel ' - Me.cbx_My_Brexit.AutoSize = True - Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White - Me.cbx_My_Brexit.Location = New System.Drawing.Point(470, 91) - Me.cbx_My_Brexit.Name = "cbx_My_Brexit" - Me.cbx_My_Brexit.Size = New System.Drawing.Size(55, 19) - Me.cbx_My_Brexit.TabIndex = 47 - Me.cbx_My_Brexit.Text = "Brexit" - Me.cbx_My_Brexit.UseVisualStyleBackColor = True - Me.cbx_My_Brexit.Visible = False + Me.lblTitel.AutoSize = True + Me.lblTitel.Font = New System.Drawing.Font("Segoe UI", 10.0!, System.Drawing.FontStyle.Bold) + Me.lblTitel.ForeColor = System.Drawing.Color.White + Me.lblTitel.Location = New System.Drawing.Point(12, 8) + Me.lblTitel.Name = "lblTitel" + Me.lblTitel.Size = New System.Drawing.Size(110, 19) + Me.lblTitel.TabIndex = 0 + Me.lblTitel.Text = "Sendungssuche" + ' + 'lblEintraege + ' + Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblEintraege.BackColor = System.Drawing.Color.Transparent + Me.lblEintraege.ForeColor = System.Drawing.Color.White + Me.lblEintraege.Location = New System.Drawing.Point(1077, 1) + Me.lblEintraege.Name = "lblEintraege" + Me.lblEintraege.Size = New System.Drawing.Size(140, 18) + Me.lblEintraege.TabIndex = 14 + Me.lblEintraege.Text = "0 Einträge" + Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lblDauer + ' + Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblDauer.BackColor = System.Drawing.Color.Transparent + Me.lblDauer.ForeColor = System.Drawing.Color.White + Me.lblDauer.Location = New System.Drawing.Point(1122, 17) + Me.lblDauer.Name = "lblDauer" + Me.lblDauer.Size = New System.Drawing.Size(95, 18) + Me.lblDauer.TabIndex = 27 + Me.lblDauer.Text = "1111123 ms" + Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'lblZeit_aktuell + ' + Me.lblZeit_aktuell.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblZeit_aktuell.AutoSize = True + Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.White + Me.lblZeit_aktuell.Location = New System.Drawing.Point(1010, 17) + Me.lblZeit_aktuell.Name = "lblZeit_aktuell" + Me.lblZeit_aktuell.Size = New System.Drawing.Size(101, 15) + Me.lblZeit_aktuell.TabIndex = 40 + Me.lblZeit_aktuell.Text = "Refresh: 11:22 Uhr" + Me.lblZeit_aktuell.Visible = False + ' + 'grpReferenzen + ' + Me.grpReferenzen.BackColor = System.Drawing.Color.FromArgb(CType(CType(232, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(251, Byte), Integer)) + Me.grpReferenzen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.grpReferenzen.Controls.Add(Me.lblMySnd_Grenzstelle) + Me.grpReferenzen.Controls.Add(Me.cboMy_Grenzstelle) + Me.grpReferenzen.Controls.Add(Me.lblErwFilialePos) + Me.grpReferenzen.Controls.Add(Me.cboFiliale) + Me.grpReferenzen.Controls.Add(Me.txtAbfertigungsnummer) + Me.grpReferenzen.Controls.Add(Me.lblAbfertigungsnummer) + Me.grpReferenzen.Controls.Add(Me.lblErwKdAtrNr) + Me.grpReferenzen.Controls.Add(Me.txtKdAuftragsnr) + Me.grpReferenzen.Controls.Add(Me.lblErwLKWID) + Me.grpReferenzen.Controls.Add(Me.txtlkwId) + Me.grpReferenzen.Font = New System.Drawing.Font("Segoe UI", 8.5!) + Me.grpReferenzen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(36, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(117, Byte), Integer)) + Me.grpReferenzen.Location = New System.Drawing.Point(8, 40) + Me.grpReferenzen.Name = "grpReferenzen" + Me.grpReferenzen.Size = New System.Drawing.Size(596, 95) + Me.grpReferenzen.TabIndex = 1 + ' + 'lblMySnd_Grenzstelle + ' + Me.lblMySnd_Grenzstelle.AutoSize = True + Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(14, 11) + Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle" + Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(67, 15) + Me.lblMySnd_Grenzstelle.TabIndex = 25 + Me.lblMySnd_Grenzstelle.Text = "Grenzstelle:" + ' + 'cboMy_Grenzstelle + ' + Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing + Me.cboMy_Grenzstelle._allowFreiText = False + Me.cboMy_Grenzstelle._value = "" + Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboMy_Grenzstelle.DropDownWidth = 120 + Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.cboMy_Grenzstelle.FormattingEnabled = True + Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(14, 28) + Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" + Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(120, 23) + Me.cboMy_Grenzstelle.TabIndex = 26 + ' + 'lblErwFilialePos + ' + Me.lblErwFilialePos.AutoSize = True + Me.lblErwFilialePos.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblErwFilialePos.Location = New System.Drawing.Point(148, 11) + Me.lblErwFilialePos.Name = "lblErwFilialePos" + Me.lblErwFilialePos.Size = New System.Drawing.Size(70, 15) + Me.lblErwFilialePos.TabIndex = 2 + Me.lblErwFilialePos.Text = "Filiale / Pos." + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(148, 28) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(98, 23) + Me.cboFiliale.TabIndex = 3 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(260, 28) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 23) + Me.txtAbfertigungsnummer.TabIndex = 5 + ' + 'lblAbfertigungsnummer + ' + Me.lblAbfertigungsnummer.AutoSize = True + Me.lblAbfertigungsnummer.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold) + Me.lblAbfertigungsnummer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblAbfertigungsnummer.Location = New System.Drawing.Point(260, 11) + Me.lblAbfertigungsnummer.Name = "lblAbfertigungsnummer" + Me.lblAbfertigungsnummer.Size = New System.Drawing.Size(128, 15) + Me.lblAbfertigungsnummer.TabIndex = 27 + Me.lblAbfertigungsnummer.Text = "Abfertigungsnummer" + ' + 'lblErwKdAtrNr + ' + Me.lblErwKdAtrNr.AutoSize = True + Me.lblErwKdAtrNr.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblErwKdAtrNr.Location = New System.Drawing.Point(419, 11) + Me.lblErwKdAtrNr.Name = "lblErwKdAtrNr" + Me.lblErwKdAtrNr.Size = New System.Drawing.Size(75, 15) + Me.lblErwKdAtrNr.TabIndex = 0 + Me.lblErwKdAtrNr.Text = "Kd-Auftr.Nr.:" + ' + 'txtKdAuftragsnr + ' + Me.txtKdAuftragsnr.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.txtKdAuftragsnr.Location = New System.Drawing.Point(419, 28) + Me.txtKdAuftragsnr.MaxLength = 100 + Me.txtKdAuftragsnr.Name = "txtKdAuftragsnr" + Me.txtKdAuftragsnr.Size = New System.Drawing.Size(158, 23) + Me.txtKdAuftragsnr.TabIndex = 9 + ' + 'lblErwLKWID + ' + Me.lblErwLKWID.AutoSize = True + Me.lblErwLKWID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblErwLKWID.Location = New System.Drawing.Point(14, 71) + Me.lblErwLKWID.Name = "lblErwLKWID" + Me.lblErwLKWID.Size = New System.Drawing.Size(50, 15) + Me.lblErwLKWID.TabIndex = 19 + Me.lblErwLKWID.Text = "LKW-ID:" + ' + 'txtlkwId + ' + Me.txtlkwId.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.txtlkwId.Location = New System.Drawing.Point(82, 67) + Me.txtlkwId.MaxLength = 100 + Me.txtlkwId.Name = "txtlkwId" + Me.txtlkwId.Size = New System.Drawing.Size(164, 23) + Me.txtlkwId.TabIndex = 10 + ' + 'grpBeteiligte + ' + Me.grpBeteiligte.BackColor = System.Drawing.Color.FromArgb(CType(CType(232, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(251, Byte), Integer)) + Me.grpBeteiligte.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.grpBeteiligte.Controls.Add(Me.lblErwAuftraggeber) + Me.grpBeteiligte.Controls.Add(Me.txtAuftraggeber) + Me.grpBeteiligte.Controls.Add(Me.lblAbsender) + Me.grpBeteiligte.Controls.Add(Me.txtAbsender) + Me.grpBeteiligte.Controls.Add(Me.lblErwEmpfänger) + Me.grpBeteiligte.Controls.Add(Me.txtEmpfänger) + Me.grpBeteiligte.Controls.Add(Me.Label2) + Me.grpBeteiligte.Controls.Add(Me.txtAvisierer) + Me.grpBeteiligte.Font = New System.Drawing.Font("Segoe UI", 8.5!) + Me.grpBeteiligte.ForeColor = System.Drawing.Color.FromArgb(CType(CType(36, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(117, Byte), Integer)) + Me.grpBeteiligte.Location = New System.Drawing.Point(610, 40) + Me.grpBeteiligte.Name = "grpBeteiligte" + Me.grpBeteiligte.Size = New System.Drawing.Size(625, 95) + Me.grpBeteiligte.TabIndex = 2 + ' + 'lblErwAuftraggeber + ' + Me.lblErwAuftraggeber.AutoSize = True + Me.lblErwAuftraggeber.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblErwAuftraggeber.Location = New System.Drawing.Point(14, 11) + Me.lblErwAuftraggeber.Name = "lblErwAuftraggeber" + Me.lblErwAuftraggeber.Size = New System.Drawing.Size(80, 15) + Me.lblErwAuftraggeber.TabIndex = 7 + Me.lblErwAuftraggeber.Text = "Auftraggeber:" + ' + 'txtAuftraggeber + ' + Me.txtAuftraggeber.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.txtAuftraggeber.Location = New System.Drawing.Point(14, 28) + Me.txtAuftraggeber.MaxLength = 100 + Me.txtAuftraggeber.Name = "txtAuftraggeber" + Me.txtAuftraggeber.Size = New System.Drawing.Size(280, 23) + Me.txtAuftraggeber.TabIndex = 1 + ' + 'lblAbsender + ' + Me.lblAbsender.AutoSize = True + Me.lblAbsender.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblAbsender.Location = New System.Drawing.Point(310, 11) + Me.lblAbsender.Name = "lblAbsender" + Me.lblAbsender.Size = New System.Drawing.Size(60, 15) + Me.lblAbsender.TabIndex = 23 + Me.lblAbsender.Text = "Absender:" + ' + 'txtAbsender + ' + Me.txtAbsender.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.txtAbsender.Location = New System.Drawing.Point(310, 28) + Me.txtAbsender.MaxLength = 100 + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Size = New System.Drawing.Size(286, 23) + Me.txtAbsender.TabIndex = 2 + ' + 'lblErwEmpfänger + ' + Me.lblErwEmpfänger.AutoSize = True + Me.lblErwEmpfänger.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblErwEmpfänger.Location = New System.Drawing.Point(14, 54) + Me.lblErwEmpfänger.Name = "lblErwEmpfänger" + Me.lblErwEmpfänger.Size = New System.Drawing.Size(68, 15) + Me.lblErwEmpfänger.TabIndex = 6 + Me.lblErwEmpfänger.Text = "Empfänger:" + ' + 'txtEmpfänger + ' + Me.txtEmpfänger.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.txtEmpfänger.Location = New System.Drawing.Point(14, 69) + Me.txtEmpfänger.MaxLength = 100 + Me.txtEmpfänger.Name = "txtEmpfänger" + Me.txtEmpfänger.Size = New System.Drawing.Size(280, 23) + Me.txtEmpfänger.TabIndex = 3 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.Label2.Location = New System.Drawing.Point(310, 54) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(55, 15) + Me.Label2.TabIndex = 45 + Me.Label2.Text = "Avisierer:" + ' + 'txtAvisierer + ' + Me.txtAvisierer.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.txtAvisierer.Location = New System.Drawing.Point(310, 69) + Me.txtAvisierer.MaxLength = 100 + Me.txtAvisierer.Name = "txtAvisierer" + Me.txtAvisierer.Size = New System.Drawing.Size(286, 23) + Me.txtAvisierer.TabIndex = 44 + ' + 'grpZustaendigkeit + ' + Me.grpZustaendigkeit.BackColor = System.Drawing.Color.FromArgb(CType(CType(232, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(251, Byte), Integer)) + Me.grpZustaendigkeit.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.grpZustaendigkeit.Controls.Add(Me.btnColor) + Me.grpZustaendigkeit.Controls.Add(Me.Label1) + Me.grpZustaendigkeit.Controls.Add(Me.lblMySND_Anzeige) + Me.grpZustaendigkeit.Controls.Add(Me.cboMyAvisoAnzeige) + Me.grpZustaendigkeit.Controls.Add(Me.cboMy_QS) + Me.grpZustaendigkeit.Controls.Add(Me.cbxLoseSnd) + Me.grpZustaendigkeit.Controls.Add(Me.cbx_My_Brexit) + Me.grpZustaendigkeit.Controls.Add(Me.Button2) + Me.grpZustaendigkeit.Controls.Add(Me.cbx_My_CBAM) + Me.grpZustaendigkeit.Controls.Add(Me.lblVB) + Me.grpZustaendigkeit.Controls.Add(Me.cboMy_VB) + Me.grpZustaendigkeit.Controls.Add(Me.lblQS) + Me.grpZustaendigkeit.Controls.Add(Me.Button1) + Me.grpZustaendigkeit.Font = New System.Drawing.Font("Segoe UI", 8.5!) + Me.grpZustaendigkeit.ForeColor = System.Drawing.Color.FromArgb(CType(CType(36, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(117, Byte), Integer)) + Me.grpZustaendigkeit.Location = New System.Drawing.Point(8, 138) + Me.grpZustaendigkeit.Name = "grpZustaendigkeit" + Me.grpZustaendigkeit.Size = New System.Drawing.Size(1227, 61) + Me.grpZustaendigkeit.TabIndex = 3 + ' + 'btnColor + ' + Me.btnColor.BackColor = System.Drawing.Color.White + Me.btnColor.Location = New System.Drawing.Point(713, 27) + Me.btnColor.Name = "btnColor" + Me.btnColor.Size = New System.Drawing.Size(36, 26) + Me.btnColor.TabIndex = 37 + Me.btnColor.UseVisualStyleBackColor = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.Label1.Location = New System.Drawing.Point(655, 33) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(52, 15) + Me.Label1.TabIndex = 43 + Me.Label1.Text = "Priorität:" + ' + 'lblMySND_Anzeige + ' + Me.lblMySND_Anzeige.AutoSize = True + Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.FromArgb(CType(CType(62, Byte), Integer), CType(CType(78, Byte), Integer), CType(CType(103, Byte), Integer)) + Me.lblMySND_Anzeige.Location = New System.Drawing.Point(12, 17) + Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige" + Me.lblMySND_Anzeige.Size = New System.Drawing.Size(52, 15) + Me.lblMySND_Anzeige.TabIndex = 20 + Me.lblMySND_Anzeige.Text = "Anzeige:" + ' + 'cboMyAvisoAnzeige + ' + Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing + Me.cboMyAvisoAnzeige._allowFreiText = False + Me.cboMyAvisoAnzeige._value = "" + Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.cboMyAvisoAnzeige.FormattingEnabled = True + Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(12, 32) + Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" + Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(225, 21) + Me.cboMyAvisoAnzeige.TabIndex = 21 + ' + 'cboMy_QS + ' + Me.cboMy_QS.AutoSize = True + Me.cboMy_QS.Checked = True + Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cboMy_QS.FlatAppearance.CheckedBackColor = System.Drawing.Color.Yellow + Me.cboMy_QS.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer)) + Me.cboMy_QS.Location = New System.Drawing.Point(1170, 34) + Me.cboMy_QS.Name = "cboMy_QS" + Me.cboMy_QS.Size = New System.Drawing.Size(15, 14) + Me.cboMy_QS.TabIndex = 33 + Me.cboMy_QS.ThreeState = True + Me.cboMy_QS.UseVisualStyleBackColor = True ' 'cbxLoseSnd ' Me.cbxLoseSnd.AutoSize = True - Me.cbxLoseSnd.ForeColor = System.Drawing.Color.White - Me.cbxLoseSnd.Location = New System.Drawing.Point(832, 53) + Me.cbxLoseSnd.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer)) + Me.cbxLoseSnd.Location = New System.Drawing.Point(249, 33) Me.cbxLoseSnd.Name = "cbxLoseSnd" Me.cbxLoseSnd.Size = New System.Drawing.Size(181, 19) Me.cbxLoseSnd.TabIndex = 46 @@ -161,115 +491,225 @@ Partial Class usrCntlHauptfenster_Suche_SND Me.cbxLoseSnd.UseVisualStyleBackColor = True Me.cbxLoseSnd.Visible = False ' - 'txtAvisierer + 'cbx_My_Brexit ' - Me.txtAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAvisierer.Location = New System.Drawing.Point(622, 50) - Me.txtAvisierer.MaxLength = 100 - Me.txtAvisierer.Name = "txtAvisierer" - Me.txtAvisierer.Size = New System.Drawing.Size(199, 23) - Me.txtAvisierer.TabIndex = 44 - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.ForeColor = System.Drawing.Color.White - Me.Label2.Location = New System.Drawing.Point(619, 32) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(55, 15) - Me.Label2.TabIndex = 45 - Me.Label2.Text = "Avisierer:" - ' - 'lblErwLKWID - ' - Me.lblErwLKWID.AutoSize = True - Me.lblErwLKWID.ForeColor = System.Drawing.Color.White - Me.lblErwLKWID.Location = New System.Drawing.Point(619, 9) - Me.lblErwLKWID.Name = "lblErwLKWID" - Me.lblErwLKWID.Size = New System.Drawing.Size(49, 15) - Me.lblErwLKWID.TabIndex = 19 - Me.lblErwLKWID.Text = "LKW-Id:" - ' - 'lblAbsender - ' - Me.lblAbsender.AutoSize = True - Me.lblAbsender.ForeColor = System.Drawing.Color.White - Me.lblAbsender.Location = New System.Drawing.Point(209, 32) - Me.lblAbsender.Name = "lblAbsender" - Me.lblAbsender.Size = New System.Drawing.Size(60, 15) - Me.lblAbsender.TabIndex = 23 - Me.lblAbsender.Text = "Absender:" - ' - 'txtlkwId - ' - Me.txtlkwId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtlkwId.Location = New System.Drawing.Point(674, 5) - Me.txtlkwId.MaxLength = 100 - Me.txtlkwId.Name = "txtlkwId" - Me.txtlkwId.Size = New System.Drawing.Size(147, 23) - Me.txtlkwId.TabIndex = 10 - ' - 'Label1 - ' - Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom 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(892, 89) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(63, 15) - Me.Label1.TabIndex = 43 - Me.Label1.Text = "Prio/Stufe:" - ' - 'txtAbsender - ' - Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbsender.Location = New System.Drawing.Point(212, 50) - Me.txtAbsender.MaxLength = 100 - Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.Size = New System.Drawing.Size(199, 23) - Me.txtAbsender.TabIndex = 2 + Me.cbx_My_Brexit.AutoSize = True + Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer)) + Me.cbx_My_Brexit.Location = New System.Drawing.Point(453, 33) + Me.cbx_My_Brexit.Name = "cbx_My_Brexit" + Me.cbx_My_Brexit.Size = New System.Drawing.Size(55, 19) + Me.cbx_My_Brexit.TabIndex = 47 + Me.cbx_My_Brexit.Text = "Brexit" + Me.cbx_My_Brexit.UseVisualStyleBackColor = True + Me.cbx_My_Brexit.Visible = False ' 'Button2 ' - Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(185, Byte), Integer), CType(CType(76, Byte), Integer), CType(CType(30, Byte), Integer)) + Me.Button2.FlatAppearance.BorderSize = 0 + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Button2.ForeColor = System.Drawing.Color.White Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button2.Location = New System.Drawing.Point(1015, 86) - Me.Button2.MaximumSize = New System.Drawing.Size(121, 35) + Me.Button2.Location = New System.Drawing.Point(829, 25) Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(88, 24) + Me.Button2.Size = New System.Drawing.Size(132, 30) Me.Button2.TabIndex = 42 Me.Button2.Text = "Abklärung" Me.Button2.UseVisualStyleBackColor = False ' + 'cbx_My_CBAM + ' + Me.cbx_My_CBAM.AutoSize = True + Me.cbx_My_CBAM.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer)) + Me.cbx_My_CBAM.Location = New System.Drawing.Point(530, 33) + Me.cbx_My_CBAM.Name = "cbx_My_CBAM" + Me.cbx_My_CBAM.Size = New System.Drawing.Size(60, 19) + Me.cbx_My_CBAM.TabIndex = 48 + Me.cbx_My_CBAM.Text = "CBAM" + Me.cbx_My_CBAM.UseVisualStyleBackColor = True + Me.cbx_My_CBAM.Visible = False + ' + 'lblVB + ' + Me.lblVB.AutoSize = True + Me.lblVB.Font = New System.Drawing.Font("Segoe UI", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblVB.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer)) + Me.lblVB.Location = New System.Drawing.Point(1196, 13) + Me.lblVB.Name = "lblVB" + Me.lblVB.Size = New System.Drawing.Size(21, 13) + Me.lblVB.TabIndex = 35 + Me.lblVB.Text = "VB" + ' + 'cboMy_VB + ' + Me.cboMy_VB.AutoSize = True + Me.cboMy_VB.Checked = True + Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cboMy_VB.FlatAppearance.CheckedBackColor = System.Drawing.Color.Yellow + Me.cboMy_VB.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer)) + Me.cboMy_VB.Location = New System.Drawing.Point(1198, 34) + Me.cboMy_VB.Name = "cboMy_VB" + Me.cboMy_VB.Size = New System.Drawing.Size(15, 14) + Me.cboMy_VB.TabIndex = 32 + Me.cboMy_VB.ThreeState = True + Me.cboMy_VB.UseVisualStyleBackColor = True + ' + 'lblQS + ' + Me.lblQS.AutoSize = True + Me.lblQS.Font = New System.Drawing.Font("Segoe UI", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblQS.ForeColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(96, Byte), Integer)) + Me.lblQS.Location = New System.Drawing.Point(1168, 13) + Me.lblQS.Name = "lblQS" + Me.lblQS.Size = New System.Drawing.Size(21, 13) + Me.lblQS.TabIndex = 34 + Me.lblQS.Text = "QS" + ' 'Button1 ' - Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button1.BackColor = System.Drawing.Color.Purple + Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(114, Byte), Integer), CType(CType(38, Byte), Integer), CType(CType(126, Byte), Integer)) + Me.Button1.FlatAppearance.BorderSize = 0 + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Button1.ForeColor = System.Drawing.Color.White Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button1.Location = New System.Drawing.Point(1109, 86) - Me.Button1.MaximumSize = New System.Drawing.Size(121, 35) + Me.Button1.Location = New System.Drawing.Point(969, 25) Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(88, 24) + Me.Button1.Size = New System.Drawing.Size(142, 30) Me.Button1.TabIndex = 41 Me.Button1.Text = "Vorschreiben" Me.Button1.UseVisualStyleBackColor = False ' - 'lblZeit_aktuell + 'pnlAktionen ' - Me.lblZeit_aktuell.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblZeit_aktuell.AutoSize = True - Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.White - Me.lblZeit_aktuell.Location = New System.Drawing.Point(1012, 38) - Me.lblZeit_aktuell.Name = "lblZeit_aktuell" - Me.lblZeit_aktuell.Size = New System.Drawing.Size(101, 15) - Me.lblZeit_aktuell.TabIndex = 40 - Me.lblZeit_aktuell.Text = "Refresh: 11:22 Uhr" - Me.lblZeit_aktuell.Visible = False + Me.pnlAktionen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlAktionen.BackColor = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(137, Byte), Integer)) + Me.pnlAktionen.Controls.Add(Me.lblAnsicht) + Me.pnlAktionen.Controls.Add(Me.optSndAlle) + Me.pnlAktionen.Controls.Add(Me.optSndOffen) + Me.pnlAktionen.Controls.Add(Me.optSndFreigegeben) + Me.pnlAktionen.Controls.Add(Me.optSndNichtEingetroffen) + Me.pnlAktionen.Controls.Add(Me.Button4) + Me.pnlAktionen.Controls.Add(Me.btnNeu) + Me.pnlAktionen.Location = New System.Drawing.Point(8, 204) + Me.pnlAktionen.Name = "pnlAktionen" + Me.pnlAktionen.Size = New System.Drawing.Size(1227, 31) + 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.White + Me.lblAnsicht.Location = New System.Drawing.Point(4, 9) + Me.lblAnsicht.Name = "lblAnsicht" + Me.lblAnsicht.Size = New System.Drawing.Size(45, 13) + Me.lblAnsicht.TabIndex = 0 + Me.lblAnsicht.Text = "STATUS" + ' + 'optSndAlle + ' + Me.optSndAlle.Appearance = System.Windows.Forms.Appearance.Button + Me.optSndAlle.BackColor = System.Drawing.Color.FromArgb(CType(CType(39, Byte), Integer), CType(CType(89, Byte), Integer), CType(CType(158, Byte), Integer)) + Me.optSndAlle.Checked = True + Me.optSndAlle.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer)) + Me.optSndAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.optSndAlle.Font = New System.Drawing.Font("Segoe UI", 8.0!) + Me.optSndAlle.ForeColor = System.Drawing.Color.White + Me.optSndAlle.Location = New System.Drawing.Point(60, 2) + Me.optSndAlle.Name = "optSndAlle" + Me.optSndAlle.Size = New System.Drawing.Size(125, 27) + Me.optSndAlle.TabIndex = 1 + Me.optSndAlle.TabStop = True + Me.optSndAlle.Text = "Alle Sendungen" + Me.optSndAlle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.optSndAlle.UseVisualStyleBackColor = False + ' + 'optSndOffen + ' + Me.optSndOffen.Appearance = System.Windows.Forms.Appearance.Button + Me.optSndOffen.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer)) + Me.optSndOffen.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer)) + Me.optSndOffen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.optSndOffen.Font = New System.Drawing.Font("Segoe UI", 8.0!) + Me.optSndOffen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(104, Byte), Integer)) + Me.optSndOffen.Location = New System.Drawing.Point(188, 2) + Me.optSndOffen.Name = "optSndOffen" + Me.optSndOffen.Size = New System.Drawing.Size(130, 27) + Me.optSndOffen.TabIndex = 2 + Me.optSndOffen.Text = "In Bearbeitung" + Me.optSndOffen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.optSndOffen.UseVisualStyleBackColor = False + ' + 'optSndFreigegeben + ' + Me.optSndFreigegeben.Appearance = System.Windows.Forms.Appearance.Button + Me.optSndFreigegeben.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer)) + Me.optSndFreigegeben.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer)) + Me.optSndFreigegeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.optSndFreigegeben.Font = New System.Drawing.Font("Segoe UI", 8.0!) + Me.optSndFreigegeben.ForeColor = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(104, Byte), Integer)) + Me.optSndFreigegeben.Location = New System.Drawing.Point(321, 2) + Me.optSndFreigegeben.Name = "optSndFreigegeben" + Me.optSndFreigegeben.Size = New System.Drawing.Size(110, 27) + Me.optSndFreigegeben.TabIndex = 3 + Me.optSndFreigegeben.Text = "Überlassen" + Me.optSndFreigegeben.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.optSndFreigegeben.UseVisualStyleBackColor = False + ' + 'optSndNichtEingetroffen + ' + Me.optSndNichtEingetroffen.Appearance = System.Windows.Forms.Appearance.Button + Me.optSndNichtEingetroffen.BackColor = System.Drawing.Color.FromArgb(CType(CType(225, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(242, Byte), Integer)) + Me.optSndNichtEingetroffen.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(234, Byte), Integer)) + Me.optSndNichtEingetroffen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.optSndNichtEingetroffen.Font = New System.Drawing.Font("Segoe UI", 8.0!) + Me.optSndNichtEingetroffen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(67, Byte), Integer), CType(CType(104, Byte), Integer)) + Me.optSndNichtEingetroffen.Location = New System.Drawing.Point(434, 2) + Me.optSndNichtEingetroffen.Name = "optSndNichtEingetroffen" + Me.optSndNichtEingetroffen.Size = New System.Drawing.Size(150, 27) + Me.optSndNichtEingetroffen.TabIndex = 4 + Me.optSndNichtEingetroffen.Text = "Nicht eingetroffen" + Me.optSndNichtEingetroffen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.optSndNichtEingetroffen.UseVisualStyleBackColor = False + ' + 'Button4 + ' + Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(155, Byte), Integer)) + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatAppearance.BorderSize = 0 + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.White + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.Location = New System.Drawing.Point(1104, 0) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(123, 30) + Me.Button4.TabIndex = 17 + Me.Button4.TabStop = False + Me.Button4.Text = "Suchen" + Me.Button4.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.White + Me.btnNeu.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.btnNeu.FlatAppearance.BorderSize = 0 + Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnNeu.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.btnNeu.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnNeu.Image = Global.AVISO.My.Resources.Resources.plus + Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnNeu.Location = New System.Drawing.Point(944, 0) + Me.btnNeu.Name = "btnNeu" + Me.btnNeu.Size = New System.Drawing.Size(154, 30) + Me.btnNeu.TabIndex = 32 + Me.btnNeu.Text = "Neue Sendung" + Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnNeu.UseVisualStyleBackColor = False ' 'tbcntrAvisoSND ' @@ -281,7 +721,7 @@ Partial Class usrCntlHauptfenster_Suche_SND Me.tbcntrAvisoSND.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.tbcntrAvisoSND.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.tbcntrAvisoSND.ItemSize = New System.Drawing.Size(60, 30) - Me.tbcntrAvisoSND.Location = New System.Drawing.Point(3, 84) + Me.tbcntrAvisoSND.Location = New System.Drawing.Point(2, -65) Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND" Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3) Me.tbcntrAvisoSND.SelectedIndex = 0 @@ -330,295 +770,59 @@ Partial Class usrCntlHauptfenster_Suche_SND Me.tbNichtEingetroffen.Text = "Nicht Eingetroffen" Me.tbNichtEingetroffen.UseVisualStyleBackColor = True ' - 'btnColor - ' - Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnColor.BackColor = System.Drawing.Color.White - Me.btnColor.Location = New System.Drawing.Point(961, 87) - Me.btnColor.Name = "btnColor" - Me.btnColor.Size = New System.Drawing.Size(36, 23) - Me.btnColor.TabIndex = 37 - Me.btnColor.UseVisualStyleBackColor = False - ' - 'Button4 - ' - Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.ForeColor = System.Drawing.Color.White - Me.Button4.Image = Global.AVISO.My.Resources.Resources.search - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button4.Location = New System.Drawing.Point(916, 5) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(92, 44) - Me.Button4.TabIndex = 17 - Me.Button4.TabStop = False - Me.Button4.Text = "Suche" - Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.UseVisualStyleBackColor = True - ' - 'lblDauer - ' - Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblDauer.BackColor = System.Drawing.Color.Transparent - Me.lblDauer.ForeColor = System.Drawing.Color.White - Me.lblDauer.Location = New System.Drawing.Point(1005, 21) - Me.lblDauer.Name = "lblDauer" - Me.lblDauer.Size = New System.Drawing.Size(105, 17) - Me.lblDauer.TabIndex = 27 - Me.lblDauer.Text = "1111123 ms" - Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'lblMySND_Anzeige - ' - Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblMySND_Anzeige.AutoSize = True - Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White - Me.lblMySND_Anzeige.Location = New System.Drawing.Point(710, 89) - Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige" - Me.lblMySND_Anzeige.Size = New System.Drawing.Size(52, 15) - Me.lblMySND_Anzeige.TabIndex = 20 - Me.lblMySND_Anzeige.Text = "Anzeige:" - ' - 'txtKdAuftragsnr - ' - Me.txtKdAuftragsnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKdAuftragsnr.Location = New System.Drawing.Point(495, 5) - Me.txtKdAuftragsnr.MaxLength = 100 - Me.txtKdAuftragsnr.Name = "txtKdAuftragsnr" - Me.txtKdAuftragsnr.Size = New System.Drawing.Size(121, 23) - Me.txtKdAuftragsnr.TabIndex = 9 - ' - 'lblErwKdAtrNr - ' - Me.lblErwKdAtrNr.AutoSize = True - Me.lblErwKdAtrNr.ForeColor = System.Drawing.Color.White - Me.lblErwKdAtrNr.Location = New System.Drawing.Point(414, 9) - Me.lblErwKdAtrNr.Name = "lblErwKdAtrNr" - Me.lblErwKdAtrNr.Size = New System.Drawing.Size(75, 15) - Me.lblErwKdAtrNr.TabIndex = 0 - Me.lblErwKdAtrNr.Text = "Kd-Auftr.Nr.:" - ' - 'cboMyAvisoAnzeige - ' - Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing - Me.cboMyAvisoAnzeige._allowFreiText = False - Me.cboMyAvisoAnzeige._value = "" - Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.cboMyAvisoAnzeige.FormattingEnabled = True - Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(768, 87) - Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" - Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(118, 21) - Me.cboMyAvisoAnzeige.TabIndex = 21 - ' - 'btnNeu - ' - Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnNeu.Font = New System.Drawing.Font("Segoe UI", 11.0!) - Me.btnNeu.ForeColor = System.Drawing.Color.Black - Me.btnNeu.Image = CType(resources.GetObject("btnNeu.Image"), System.Drawing.Image) - Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnNeu.Location = New System.Drawing.Point(1116, 6) - Me.btnNeu.MaximumSize = New System.Drawing.Size(121, 35) - Me.btnNeu.Name = "btnNeu" - Me.btnNeu.Size = New System.Drawing.Size(121, 35) - Me.btnNeu.TabIndex = 32 - Me.btnNeu.Text = "Sendung" - Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnNeu.UseVisualStyleBackColor = True - ' - 'cboMy_Grenzstelle - ' - Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing - Me.cboMy_Grenzstelle._allowFreiText = False - Me.cboMy_Grenzstelle._value = "" - Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboMy_Grenzstelle.DropDownWidth = 120 - Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.cboMy_Grenzstelle.FormattingEnabled = True - Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(72, 5) - Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" - Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 24) - Me.cboMy_Grenzstelle.TabIndex = 26 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 300 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(212, 4) - Me.cboFiliale.MaxLength = 4 - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(70, 24) - Me.cboFiliale.TabIndex = 3 - ' - 'txtEmpfänger - ' - Me.txtEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtEmpfänger.Location = New System.Drawing.Point(417, 50) - Me.txtEmpfänger.MaxLength = 100 - Me.txtEmpfänger.Name = "txtEmpfänger" - Me.txtEmpfänger.Size = New System.Drawing.Size(199, 23) - Me.txtEmpfänger.TabIndex = 3 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 5) - Me.txtAbfertigungsnummer.MaxLength = 8 - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(130, 23) - Me.txtAbfertigungsnummer.TabIndex = 5 - ' - 'lblErwFilialePos - ' - Me.lblErwFilialePos.AutoSize = True - Me.lblErwFilialePos.ForeColor = System.Drawing.Color.White - Me.lblErwFilialePos.Location = New System.Drawing.Point(142, 9) - Me.lblErwFilialePos.Name = "lblErwFilialePos" - Me.lblErwFilialePos.Size = New System.Drawing.Size(64, 15) - Me.lblErwFilialePos.TabIndex = 2 - Me.lblErwFilialePos.Text = "Filiale/Pos:" - ' - 'lblErwEmpfänger - ' - Me.lblErwEmpfänger.AutoSize = True - Me.lblErwEmpfänger.ForeColor = System.Drawing.Color.White - Me.lblErwEmpfänger.Location = New System.Drawing.Point(414, 34) - Me.lblErwEmpfänger.Name = "lblErwEmpfänger" - Me.lblErwEmpfänger.Size = New System.Drawing.Size(68, 15) - Me.lblErwEmpfänger.TabIndex = 6 - Me.lblErwEmpfänger.Text = "Empfänger:" - ' - 'lblEintraege - ' - Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblEintraege.BackColor = System.Drawing.Color.Transparent - Me.lblEintraege.ForeColor = System.Drawing.Color.White - Me.lblEintraege.Location = New System.Drawing.Point(971, 8) - Me.lblEintraege.Name = "lblEintraege" - Me.lblEintraege.Size = New System.Drawing.Size(139, 15) - Me.lblEintraege.TabIndex = 14 - Me.lblEintraege.Text = "0 Einträge" - Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'cboMy_QS - ' - Me.cboMy_QS.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboMy_QS.AutoSize = True - Me.cboMy_QS.Checked = True - Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cboMy_QS.FlatAppearance.CheckedBackColor = System.Drawing.Color.Yellow - Me.cboMy_QS.ForeColor = System.Drawing.Color.White - Me.cboMy_QS.Location = New System.Drawing.Point(1203, 92) - Me.cboMy_QS.Name = "cboMy_QS" - Me.cboMy_QS.Size = New System.Drawing.Size(15, 14) - Me.cboMy_QS.TabIndex = 33 - Me.cboMy_QS.ThreeState = True - Me.cboMy_QS.UseVisualStyleBackColor = True - ' - 'txtAuftraggeber - ' - Me.txtAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAuftraggeber.Location = New System.Drawing.Point(7, 50) - Me.txtAuftraggeber.MaxLength = 100 - Me.txtAuftraggeber.Name = "txtAuftraggeber" - Me.txtAuftraggeber.Size = New System.Drawing.Size(199, 23) - Me.txtAuftraggeber.TabIndex = 1 - ' - 'cboMy_VB - ' - Me.cboMy_VB.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboMy_VB.AutoSize = True - Me.cboMy_VB.Checked = True - Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cboMy_VB.FlatAppearance.CheckedBackColor = System.Drawing.Color.Yellow - Me.cboMy_VB.ForeColor = System.Drawing.Color.White - Me.cboMy_VB.Location = New System.Drawing.Point(1222, 92) - Me.cboMy_VB.Name = "cboMy_VB" - Me.cboMy_VB.Size = New System.Drawing.Size(15, 14) - Me.cboMy_VB.TabIndex = 32 - Me.cboMy_VB.ThreeState = True - Me.cboMy_VB.UseVisualStyleBackColor = True - ' - 'lblMySnd_Grenzstelle - ' - Me.lblMySnd_Grenzstelle.AutoSize = True - Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White - Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(4, 9) - Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle" - Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(67, 15) - Me.lblMySnd_Grenzstelle.TabIndex = 25 - Me.lblMySnd_Grenzstelle.Text = "Grenzstelle:" - ' - 'lblErwAuftraggeber - ' - Me.lblErwAuftraggeber.AutoSize = True - Me.lblErwAuftraggeber.ForeColor = System.Drawing.Color.White - Me.lblErwAuftraggeber.Location = New System.Drawing.Point(4, 32) - Me.lblErwAuftraggeber.Name = "lblErwAuftraggeber" - Me.lblErwAuftraggeber.Size = New System.Drawing.Size(80, 15) - Me.lblErwAuftraggeber.TabIndex = 7 - Me.lblErwAuftraggeber.Text = "Auftraggeber:" - ' 'gridAviso ' Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1 Me.gridAviso.AllowUserToAddRows = False Me.gridAviso.AllowUserToDeleteRows = False Me.gridAviso.AllowUserToResizeRows = False - DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 - Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(253, Byte), Integer)) + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + 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 Me.gridAviso.CausesValidation = False Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable - DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(232, Byte), Integer), CType(CType(243, Byte), Integer)) + DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.gridAviso.ColumnHeadersHeight = 25 Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, 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.gridAviso.DefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle3 Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill - Me.gridAviso.Location = New System.Drawing.Point(0, 115) + Me.gridAviso.Location = New System.Drawing.Point(0, 239) Me.gridAviso.MultiSelect = False Me.gridAviso.Name = "gridAviso" Me.gridAviso.ReadOnly = True - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.gridAviso.RowHeadersVisible = False Me.gridAviso.RowHeadersWidth = 62 Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle5 Me.gridAviso.RowTemplate.ReadOnly = True Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.gridAviso.Size = New System.Drawing.Size(1243, 517) + Me.gridAviso.Size = New System.Drawing.Size(1243, 393) Me.gridAviso.TabIndex = 4 Me.gridAviso.TabStop = False ' @@ -669,7 +873,16 @@ Partial Class usrCntlHauptfenster_Suche_SND Me.Name = "usrCntlHauptfenster_Suche_SND" Me.Size = New System.Drawing.Size(1243, 632) Me.Panel1.ResumeLayout(False) - Me.Panel1.PerformLayout() + Me.pnlHeader.ResumeLayout(False) + Me.pnlHeader.PerformLayout() + Me.grpReferenzen.ResumeLayout(False) + Me.grpReferenzen.PerformLayout() + Me.grpBeteiligte.ResumeLayout(False) + Me.grpBeteiligte.PerformLayout() + Me.grpZustaendigkeit.ResumeLayout(False) + Me.grpZustaendigkeit.PerformLayout() + Me.pnlAktionen.ResumeLayout(False) + Me.pnlAktionen.PerformLayout() Me.tbcntrAvisoSND.ResumeLayout(False) CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() Me.ctxtFarben.ResumeLayout(False) @@ -723,4 +936,18 @@ Partial Class usrCntlHauptfenster_Suche_SND Friend WithEvents tbNichtEingetroffen As TabPage Friend WithEvents cbx_My_CBAM As CheckBox Friend WithEvents cbx_My_Brexit As CheckBox + Friend WithEvents pnlHeader As System.Windows.Forms.Panel + Friend WithEvents lblTitel As System.Windows.Forms.Label + Friend WithEvents grpReferenzen As System.Windows.Forms.Panel + Friend WithEvents lblAbfertigungsnummer As System.Windows.Forms.Label + Friend WithEvents grpBeteiligte As System.Windows.Forms.Panel + Friend WithEvents grpZustaendigkeit As System.Windows.Forms.Panel + Friend WithEvents pnlAktionen As System.Windows.Forms.Panel + Friend WithEvents lblAnsicht As System.Windows.Forms.Label + Friend WithEvents lblQS As System.Windows.Forms.Label + Friend WithEvents lblVB As System.Windows.Forms.Label + Friend WithEvents optSndAlle As System.Windows.Forms.RadioButton + Friend WithEvents optSndOffen As System.Windows.Forms.RadioButton + Friend WithEvents optSndFreigegeben As System.Windows.Forms.RadioButton + Friend WithEvents optSndNichtEingetroffen As System.Windows.Forms.RadioButton End Class diff --git a/Aviso/usrCntlHauptfenster_Suche_SND.resx b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.resx similarity index 91% rename from Aviso/usrCntlHauptfenster_Suche_SND.resx rename to Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.resx index 5c0fc46..79dc3bd 100644 --- a/Aviso/usrCntlHauptfenster_Suche_SND.resx +++ b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.resx @@ -117,15 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO - BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO - zULyAAAAAElFTkSuQmCC - - 17, 17 diff --git a/Aviso/usrCntlHauptfenster_Suche_SND.vb b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.vb similarity index 96% rename from Aviso/usrCntlHauptfenster_Suche_SND.vb rename to Aviso/Hauptfenster/usrCntlHauptfenster_Suche_SND.vb index f4b4c0d..27ca7f8 100644 --- a/Aviso/usrCntlHauptfenster_Suche_SND.vb +++ b/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 diff --git a/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.Designer.vb b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.Designer.vb new file mode 100644 index 0000000..43201b9 --- /dev/null +++ b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.Designer.vb @@ -0,0 +1,701 @@ + +Partial Class usrCntlHauptfenster_Suche_Zollvorgaenge + Inherits System.Windows.Forms.UserControl + + Private components As System.ComponentModel.IContainer + + + 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 + + + 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 diff --git a/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.resx b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.vb b/Aviso/Hauptfenster/usrCntlHauptfenster_Suche_Zollvorgaenge.vb new file mode 100644 index 0000000..86b6237 --- /dev/null +++ b/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= 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 diff --git a/Aviso/frmHauptfensterNew.vb b/Aviso/frmHauptfensterNew.vb index a33eab6..d4dba5a 100644 --- a/Aviso/frmHauptfensterNew.vb +++ b/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 - 'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me - 'pnlMain.Controls.Add(SEARCH_AVISO) - 'SEARCH_AVISO.Dock = DockStyle.Fill + If SEARCH_CUSTOMS_CASES Is Nothing Then SEARCH_CUSTOMS_CASES = New usrCntlHauptfenster_Suche_Zollvorgaenge + SEARCH_CUSTOMS_CASES.PARENT_FRMHAUPTFENSTER = Me + pnlMain.Controls.Add(SEARCH_CUSTOMS_CASES) + SEARCH_CUSTOMS_CASES.Dock = DockStyle.Fill pnlMain.PerformLayout() - SEARCH_AVISO.PerformLayout() + SEARCH_CUSTOMS_CASES.PerformLayout() Application.DoEvents() End Select