diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index 6bb86db..53112fa 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.vb @@ -475,7 +475,7 @@ Public Class frmATEZ_EZA ' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" 'End Select FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me) - txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "NCTS") + txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA") txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA") Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 1a00390..05ab612 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -1271,6 +1271,12 @@ UserControl + + usrCntlHauptfenster_Suche_SND.vb + + + UserControl + usrCntlHauptfenster_Suche_AVISO.vb @@ -1673,6 +1679,9 @@ usrcntlFrachtkostenberechnung.vb + + usrCntlHauptfenster_Suche_SND.vb + usrCntlHauptfenster_Suche_AVISO.vb diff --git a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb index 8c9eb15..e5d9496 100644 --- a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb +++ b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb @@ -53,7 +53,7 @@ Partial Class usrCntlBenachrichtigungen Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(284, 203) + Me.Panel2.Size = New System.Drawing.Size(284, 278) Me.Panel2.TabIndex = 2 ' 'MyComboBox2 @@ -89,7 +89,7 @@ Partial Class usrCntlBenachrichtigungen Me.gridAvisoBenachrichtigungen.Name = "gridAvisoBenachrichtigungen" Me.gridAvisoBenachrichtigungen.ReadOnly = True Me.gridAvisoBenachrichtigungen.RowHeadersVisible = False - Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(284, 144) + Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(284, 209) Me.gridAvisoBenachrichtigungen.TabIndex = 2 ' 'Panel4 @@ -101,16 +101,16 @@ Partial Class usrCntlBenachrichtigungen Me.Panel4.Controls.Add(Me.Button10) Me.Panel4.Controls.Add(Me.txtVermerk) Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel4.Location = New System.Drawing.Point(0, 165) + Me.Panel4.Location = New System.Drawing.Point(0, 230) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(284, 38) + Me.Panel4.Size = New System.Drawing.Size(284, 48) Me.Panel4.TabIndex = 5 ' 'cbxTaskForce ' Me.cbxTaskForce.AutoSize = True Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black - Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19) + Me.cbxTaskForce.Location = New System.Drawing.Point(174, 30) Me.cbxTaskForce.Name = "cbxTaskForce" Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17) Me.cbxTaskForce.TabIndex = 33 @@ -122,7 +122,7 @@ Partial Class usrCntlBenachrichtigungen ' Me.cbxVerwarung.AutoSize = True Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black - Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19) + Me.cbxVerwarung.Location = New System.Drawing.Point(85, 30) Me.cbxVerwarung.Name = "cbxVerwarung" Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17) Me.cbxVerwarung.TabIndex = 32 @@ -134,7 +134,7 @@ Partial Class usrCntlBenachrichtigungen ' Me.cbxNeukunden.AutoSize = True Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black - Me.cbxNeukunden.Location = New System.Drawing.Point(7, 19) + Me.cbxNeukunden.Location = New System.Drawing.Point(7, 30) Me.cbxNeukunden.Name = "cbxNeukunden" Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17) Me.cbxNeukunden.TabIndex = 30 @@ -146,11 +146,10 @@ Partial Class usrCntlBenachrichtigungen ' Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button10.Enabled = False - Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button10.ForeColor = System.Drawing.Color.Black Me.Button10.Image = Global.AVISO.My.Resources.Resources.ok Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button10.Location = New System.Drawing.Point(159, 3) + Me.Button10.Location = New System.Drawing.Point(159, 0) Me.Button10.Name = "Button10" Me.Button10.Size = New System.Drawing.Size(121, 30) Me.Button10.TabIndex = 3 @@ -163,7 +162,7 @@ Partial Class usrCntlBenachrichtigungen ' Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtVermerk.Location = New System.Drawing.Point(7, -1) + Me.txtVermerk.Location = New System.Drawing.Point(7, 3) Me.txtVermerk.Name = "txtVermerk" Me.txtVermerk.ReadOnly = True Me.txtVermerk.Size = New System.Drawing.Size(146, 20) @@ -233,7 +232,7 @@ Partial Class usrCntlBenachrichtigungen Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.Panel2) Me.Name = "usrCntlBenachrichtigungen" - Me.Size = New System.Drawing.Size(284, 203) + Me.Size = New System.Drawing.Size(284, 278) Me.Panel2.ResumeLayout(False) CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel4.ResumeLayout(False) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index df0c1b0..ae9a434 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfensterNew.Designer.vb b/Aviso/frmHauptfensterNew.Designer.vb index 5fe109e..8ad9ada 100644 --- a/Aviso/frmHauptfensterNew.Designer.vb +++ b/Aviso/frmHauptfensterNew.Designer.vb @@ -231,20 +231,14 @@ Partial Class frmHauptfensterNew Me.lblFimaAviso = New System.Windows.Forms.Label() Me.Button11 = New System.Windows.Forms.Button() Me.btnMAVerzeichnis = New System.Windows.Forms.Button() - Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnKontakt = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.lblGrenzstelle = New System.Windows.Forms.Label() Me.lblVersion = New System.Windows.Forms.Label() - Me.btnFakturierung = New System.Windows.Forms.Button() Me.btnDienstplan = New System.Windows.Forms.Button() - Me.btnRg = New System.Windows.Forms.Button() - Me.btnKassenbuch = New System.Windows.Forms.Button() Me.btnRefresh = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() - Me.btnKunden = New System.Windows.Forms.Button() - Me.btnSpedBuch = New System.Windows.Forms.Button() Me.lblDauer = New System.Windows.Forms.Label() Me.btnDrucken = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() @@ -254,7 +248,6 @@ Partial Class frmHauptfensterNew Me.btnMinimieren = New System.Windows.Forms.Button() Me.Panel2 = New System.Windows.Forms.Panel() Me.btnZertifikate = New System.Windows.Forms.Button() - Me.Label7 = New System.Windows.Forms.Label() Me.lblErrVermerk = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -268,17 +261,25 @@ Partial Class frmHauptfensterNew Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.pnlDetailsLinks = New System.Windows.Forms.Panel() Me.splitMain = New System.Windows.Forms.SplitContainer() - Me.pnlMain = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.splitMainWorkingView = New System.Windows.Forms.SplitContainer() + Me.pnlMain = New System.Windows.Forms.Panel() + Me.pnlMain_Bottom = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel8 = New System.Windows.Forms.Panel() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() Me.btnWichtigeStandort = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() Me.Panel6 = New System.Windows.Forms.Panel() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel() Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.btnKunden = New System.Windows.Forms.Button() + Me.btnFakturierung = New System.Windows.Forms.Button() + Me.btnRg = New System.Windows.Forms.Button() + Me.btnKassenbuch = New System.Windows.Forms.Button() + Me.btnSpedBuch = New System.Windows.Forms.Button() Me.pnlOptionen = New System.Windows.Forms.Panel() Me.btnKasse_User = New System.Windows.Forms.Button() Me.btnKasse_LG = New System.Windows.Forms.Button() @@ -307,15 +308,17 @@ Partial Class frmHauptfensterNew Me.cntVerag = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.pnlLeft = New System.Windows.Forms.Panel() - Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen() Me.Panel5 = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Panel7 = New System.Windows.Forms.Panel() + Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService() + Me.cbxInfoChat = New System.Windows.Forms.CheckBox() + Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -332,6 +335,10 @@ Partial Class frmHauptfensterNew Me.splitMain.Panel1.SuspendLayout() Me.splitMain.Panel2.SuspendLayout() Me.splitMain.SuspendLayout() + CType(Me.splitMainWorkingView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splitMainWorkingView.Panel1.SuspendLayout() + Me.splitMainWorkingView.Panel2.SuspendLayout() + Me.splitMainWorkingView.SuspendLayout() Me.Panel1.SuspendLayout() Me.FlowLayoutPanel1.SuspendLayout() Me.Panel6.SuspendLayout() @@ -1606,7 +1613,7 @@ Partial Class frmHauptfensterNew Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0) Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0) Me.pnlDetailsRechts.Name = "pnlDetailsRechts" - Me.pnlDetailsRechts.Size = New System.Drawing.Size(306, 739) + Me.pnlDetailsRechts.Size = New System.Drawing.Size(297, 739) Me.pnlDetailsRechts.TabIndex = 0 ' 'lblMitarbeiter @@ -1648,7 +1655,7 @@ Partial Class frmHauptfensterNew Me.lblUsrname.BackColor = System.Drawing.Color.White Me.lblUsrname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.lblUsrname.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) - Me.lblUsrname.Location = New System.Drawing.Point(242, 384) + Me.lblUsrname.Location = New System.Drawing.Point(283, 384) Me.lblUsrname.Name = "lblUsrname" Me.lblUsrname.Size = New System.Drawing.Size(75, 13) Me.lblUsrname.TabIndex = 86 @@ -1660,7 +1667,7 @@ Partial Class frmHauptfensterNew Me.lblFimaAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblFimaAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblFimaAviso.ForeColor = System.Drawing.Color.Black - Me.lblFimaAviso.Location = New System.Drawing.Point(298, 371) + Me.lblFimaAviso.Location = New System.Drawing.Point(339, 371) Me.lblFimaAviso.Name = "lblFimaAviso" Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13) Me.lblFimaAviso.TabIndex = 11 @@ -1697,24 +1704,6 @@ Partial Class frmHauptfensterNew Me.btnMAVerzeichnis.UseVisualStyleBackColor = False Me.btnMAVerzeichnis.Visible = False ' - 'btnMitarbeiterKonto - ' - Me.btnMitarbeiterKonto.allowBorder = False - Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White - Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 - Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black - Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s - Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(227, 307) - Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" - Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) - Me.btnMitarbeiterKonto.TabIndex = 86 - Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" - Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False - ' 'btnKontakt ' Me.btnKontakt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1724,7 +1713,7 @@ Partial Class frmHauptfensterNew Me.btnKontakt.ForeColor = System.Drawing.Color.Black Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.Telefonliste_small Me.btnKontakt.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnKontakt.Location = New System.Drawing.Point(471, 3) + Me.btnKontakt.Location = New System.Drawing.Point(3, 59) Me.btnKontakt.Name = "btnKontakt" Me.btnKontakt.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) Me.btnKontakt.Size = New System.Drawing.Size(150, 50) @@ -1776,7 +1765,7 @@ Partial Class frmHauptfensterNew Me.lblGrenzstelle.BackColor = System.Drawing.Color.White Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) - Me.lblGrenzstelle.Location = New System.Drawing.Point(301, 384) + Me.lblGrenzstelle.Location = New System.Drawing.Point(342, 384) Me.lblGrenzstelle.Name = "lblGrenzstelle" Me.lblGrenzstelle.Size = New System.Drawing.Size(60, 13) Me.lblGrenzstelle.TabIndex = 0 @@ -1788,32 +1777,13 @@ Partial Class frmHauptfensterNew Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblVersion.ForeColor = System.Drawing.Color.Black - Me.lblVersion.Location = New System.Drawing.Point(293, 399) + Me.lblVersion.Location = New System.Drawing.Point(334, 399) Me.lblVersion.Name = "lblVersion" Me.lblVersion.Size = New System.Drawing.Size(68, 13) Me.lblVersion.TabIndex = 6 Me.lblVersion.Text = "V1.0.0.0" Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'btnFakturierung - ' - Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default - Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!) - Me.btnFakturierung.ForeColor = System.Drawing.Color.Black - Me.btnFakturierung.Image = CType(resources.GetObject("btnFakturierung.Image"), System.Drawing.Image) - Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnFakturierung.Location = New System.Drawing.Point(159, 3) - Me.btnFakturierung.Name = "btnFakturierung" - Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.btnFakturierung.Size = New System.Drawing.Size(150, 50) - Me.btnFakturierung.TabIndex = 11 - Me.btnFakturierung.TabStop = False - Me.btnFakturierung.Text = "Fakturierung" - Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnFakturierung.UseVisualStyleBackColor = False - Me.btnFakturierung.Visible = False - ' 'btnDienstplan ' Me.btnDienstplan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1831,44 +1801,6 @@ Partial Class frmHauptfensterNew Me.btnDienstplan.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnDienstplan.UseVisualStyleBackColor = False ' - 'btnRg - ' - Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default - Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!) - Me.btnRg.ForeColor = System.Drawing.Color.Black - Me.btnRg.Image = CType(resources.GetObject("btnRg.Image"), System.Drawing.Image) - Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnRg.Location = New System.Drawing.Point(315, 3) - Me.btnRg.Name = "btnRg" - Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.btnRg.Size = New System.Drawing.Size(150, 50) - Me.btnRg.TabIndex = 9 - Me.btnRg.TabStop = False - Me.btnRg.Text = "Rechnungs-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "daten" - Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnRg.UseVisualStyleBackColor = False - Me.btnRg.Visible = False - ' - 'btnKassenbuch - ' - Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default - Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!) - Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black - Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.kasse_sw_small - Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnKassenbuch.Location = New System.Drawing.Point(471, 3) - Me.btnKassenbuch.Name = "btnKassenbuch" - Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50) - Me.btnKassenbuch.TabIndex = 8 - Me.btnKassenbuch.TabStop = False - Me.btnKassenbuch.Text = "Kassenbuch" - Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnKassenbuch.UseVisualStyleBackColor = False - Me.btnKassenbuch.Visible = False - ' 'btnRefresh ' Me.btnRefresh.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) @@ -1897,42 +1829,6 @@ Partial Class frmHauptfensterNew Me.Button3.UseVisualStyleBackColor = True Me.Button3.Visible = False ' - 'btnKunden - ' - Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default - Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!) - Me.btnKunden.ForeColor = System.Drawing.Color.Black - Me.btnKunden.Image = CType(resources.GetObject("btnKunden.Image"), System.Drawing.Image) - Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnKunden.Location = New System.Drawing.Point(3, 3) - Me.btnKunden.Name = "btnKunden" - Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.btnKunden.Size = New System.Drawing.Size(150, 50) - Me.btnKunden.TabIndex = 2 - Me.btnKunden.TabStop = False - Me.btnKunden.Text = "Kunden" - Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnKunden.UseVisualStyleBackColor = False - ' - 'btnSpedBuch - ' - Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default - Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!) - Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black - Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.spedbuch1 - Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnSpedBuch.Location = New System.Drawing.Point(3, 59) - Me.btnSpedBuch.Name = "btnSpedBuch" - Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50) - Me.btnSpedBuch.TabIndex = 3 - Me.btnSpedBuch.TabStop = False - Me.btnSpedBuch.Text = "Sped.Buch" - Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSpedBuch.UseVisualStyleBackColor = False - ' 'lblDauer ' Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -1951,7 +1847,7 @@ Partial Class frmHauptfensterNew Me.btnDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.btnDrucken.ForeColor = System.Drawing.Color.Black - Me.btnDrucken.Location = New System.Drawing.Point(773, 293) + Me.btnDrucken.Location = New System.Drawing.Point(57, 88) Me.btnDrucken.Name = "btnDrucken" Me.btnDrucken.Size = New System.Drawing.Size(79, 39) Me.btnDrucken.TabIndex = 0 @@ -1967,7 +1863,7 @@ Partial Class frmHauptfensterNew Me.Button6.ForeColor = System.Drawing.Color.Black Me.Button6.Image = Global.AVISO.My.Resources.Resources.fremdSped Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button6.Location = New System.Drawing.Point(474, 293) + Me.Button6.Location = New System.Drawing.Point(13, 105) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(140, 39) Me.Button6.TabIndex = 7 @@ -1983,9 +1879,9 @@ Partial Class frmHauptfensterNew Me.btnUmrechnungskurse.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnUmrechnungskurse.ForeColor = System.Drawing.Color.Black Me.btnUmrechnungskurse.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnUmrechnungskurse.Location = New System.Drawing.Point(5, 19) + Me.btnUmrechnungskurse.Location = New System.Drawing.Point(5, 3) Me.btnUmrechnungskurse.Name = "btnUmrechnungskurse" - Me.btnUmrechnungskurse.Size = New System.Drawing.Size(121, 40) + Me.btnUmrechnungskurse.Size = New System.Drawing.Size(144, 40) Me.btnUmrechnungskurse.TabIndex = 2 Me.btnUmrechnungskurse.TabStop = False Me.btnUmrechnungskurse.Text = "Umrechnungskurse" @@ -1999,9 +1895,9 @@ Partial Class frmHauptfensterNew Me.btnZollwebseiten.ForeColor = System.Drawing.Color.Black Me.btnZollwebseiten.Image = CType(resources.GetObject("btnZollwebseiten.Image"), System.Drawing.Image) Me.btnZollwebseiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnZollwebseiten.Location = New System.Drawing.Point(5, 62) + Me.btnZollwebseiten.Location = New System.Drawing.Point(5, 44) Me.btnZollwebseiten.Name = "btnZollwebseiten" - Me.btnZollwebseiten.Size = New System.Drawing.Size(121, 40) + Me.btnZollwebseiten.Size = New System.Drawing.Size(144, 40) Me.btnZollwebseiten.TabIndex = 0 Me.btnZollwebseiten.TabStop = False Me.btnZollwebseiten.Text = "Zoll-Webseiten" @@ -2010,7 +1906,7 @@ Partial Class frmHauptfensterNew ' 'Timer1 ' - Me.Timer1.Interval = 1000 + Me.Timer1.Interval = 5000 ' 'btnMinimieren ' @@ -2032,7 +1928,6 @@ Partial Class frmHauptfensterNew 'Panel2 ' Me.Panel2.Controls.Add(Me.btnZertifikate) - Me.Panel2.Controls.Add(Me.Label7) Me.Panel2.Controls.Add(Me.lblErrVermerk) Me.Panel2.Controls.Add(Me.btnUmrechnungskurse) Me.Panel2.Controls.Add(Me.btnZollwebseiten) @@ -2049,35 +1944,24 @@ Partial Class frmHauptfensterNew Me.btnZertifikate.ForeColor = System.Drawing.Color.Black Me.btnZertifikate.Image = CType(resources.GetObject("btnZertifikate.Image"), System.Drawing.Image) Me.btnZertifikate.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnZertifikate.Location = New System.Drawing.Point(5, 107) + Me.btnZertifikate.Location = New System.Drawing.Point(5, 86) Me.btnZertifikate.Name = "btnZertifikate" - Me.btnZertifikate.Size = New System.Drawing.Size(121, 40) + Me.btnZertifikate.Size = New System.Drawing.Size(144, 40) Me.btnZertifikate.TabIndex = 5 Me.btnZertifikate.TabStop = False Me.btnZertifikate.Text = "Zertifikate" Me.btnZertifikate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnZertifikate.UseVisualStyleBackColor = False ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.ForeColor = System.Drawing.Color.Black - Me.Label7.Location = New System.Drawing.Point(2, 5) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(37, 13) - Me.Label7.TabIndex = 3 - Me.Label7.Text = "Links:" - ' 'lblErrVermerk ' Me.lblErrVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblErrVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.lblErrVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red - Me.lblErrVermerk.Location = New System.Drawing.Point(12, 134) + Me.lblErrVermerk.Location = New System.Drawing.Point(5, 122) Me.lblErrVermerk.Name = "lblErrVermerk" - Me.lblErrVermerk.Size = New System.Drawing.Size(154, 27) + Me.lblErrVermerk.Size = New System.Drawing.Size(173, 27) Me.lblErrVermerk.TabIndex = 1 Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!" Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft @@ -2128,7 +2012,7 @@ Partial Class frmHauptfensterNew Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.disconnect Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.pic.Location = New System.Drawing.Point(131, 362) + Me.pic.Location = New System.Drawing.Point(172, 362) Me.pic.Name = "pic" Me.pic.Size = New System.Drawing.Size(59, 50) Me.pic.TabIndex = 5 @@ -2157,7 +2041,7 @@ Partial Class frmHauptfensterNew Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top Me.pnlAktOption.Location = New System.Drawing.Point(0, 0) Me.pnlAktOption.Name = "pnlAktOption" - Me.pnlAktOption.Size = New System.Drawing.Size(821, 5) + Me.pnlAktOption.Size = New System.Drawing.Size(789, 5) Me.pnlAktOption.TabIndex = 1 ' 'Button8 @@ -2167,7 +2051,7 @@ Partial Class frmHauptfensterNew Me.Button8.ForeColor = System.Drawing.Color.Black Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image) Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button8.Location = New System.Drawing.Point(1093, 214) + Me.Button8.Location = New System.Drawing.Point(1061, 214) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(89, 34) Me.Button8.TabIndex = 3 @@ -2184,7 +2068,7 @@ Partial Class frmHauptfensterNew Me.btnFertig.ForeColor = System.Drawing.Color.Black Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image) Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnFertig.Location = New System.Drawing.Point(1197, 214) + Me.btnFertig.Location = New System.Drawing.Point(1165, 214) Me.btnFertig.Name = "btnFertig" Me.btnFertig.Size = New System.Drawing.Size(102, 34) Me.btnFertig.TabIndex = 0 @@ -2198,7 +2082,7 @@ Partial Class frmHauptfensterNew Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainer1.IsSplitterFixed = True - Me.SplitContainer1.Location = New System.Drawing.Point(367, 30) + Me.SplitContainer1.Location = New System.Drawing.Point(408, 30) Me.SplitContainer1.Name = "SplitContainer1" ' 'SplitContainer1.Panel1 @@ -2211,8 +2095,8 @@ Partial Class frmHauptfensterNew Me.SplitContainer1.Panel2.Controls.Add(Me.btnSmall) Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts) Me.SplitContainer1.Panel2MinSize = 200 - Me.SplitContainer1.Size = New System.Drawing.Size(1290, 741) - Me.SplitContainer1.SplitterDistance = 981 + Me.SplitContainer1.Size = New System.Drawing.Size(1249, 741) + Me.SplitContainer1.SplitterDistance = 949 Me.SplitContainer1.SplitterWidth = 1 Me.SplitContainer1.TabIndex = 7 ' @@ -2225,7 +2109,7 @@ Partial Class frmHauptfensterNew Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0) Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564) Me.pnlDetailsLinks.Name = "pnlDetailsLinks" - Me.pnlDetailsLinks.Size = New System.Drawing.Size(979, 739) + Me.pnlDetailsLinks.Size = New System.Drawing.Size(947, 739) Me.pnlDetailsLinks.TabIndex = 0 ' 'splitMain @@ -2238,9 +2122,7 @@ Partial Class frmHauptfensterNew ' 'splitMain.Panel1 ' - Me.splitMain.Panel1.Controls.Add(Me.pnlMain) - Me.splitMain.Panel1.Controls.Add(Me.btnDrucken) - Me.splitMain.Panel1.Controls.Add(Me.Button6) + Me.splitMain.Panel1.Controls.Add(Me.splitMainWorkingView) Me.splitMain.Panel1.Controls.Add(Me.Button8) Me.splitMain.Panel1.Controls.Add(Me.btnFertig) Me.splitMain.Panel1.Controls.Add(Me.Panel1) @@ -2254,18 +2136,47 @@ Partial Class frmHauptfensterNew Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption) Me.splitMain.Panel2.Controls.Add(Me.pnlOptionen) Me.splitMain.Panel2.Controls.Add(Me.Panel9) - Me.splitMain.Size = New System.Drawing.Size(977, 737) + Me.splitMain.Size = New System.Drawing.Size(945, 737) Me.splitMain.SplitterDistance = 576 Me.splitMain.TabIndex = 0 ' + 'splitMainWorkingView + ' + Me.splitMainWorkingView.BackColor = System.Drawing.Color.White + Me.splitMainWorkingView.Dock = System.Windows.Forms.DockStyle.Fill + Me.splitMainWorkingView.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.splitMainWorkingView.Location = New System.Drawing.Point(0, 75) + Me.splitMainWorkingView.Name = "splitMainWorkingView" + Me.splitMainWorkingView.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'splitMainWorkingView.Panel1 + ' + Me.splitMainWorkingView.Panel1.Controls.Add(Me.pnlMain) + ' + 'splitMainWorkingView.Panel2 + ' + Me.splitMainWorkingView.Panel2.Controls.Add(Me.pnlMain_Bottom) + Me.splitMainWorkingView.Size = New System.Drawing.Size(945, 501) + Me.splitMainWorkingView.SplitterDistance = 350 + Me.splitMainWorkingView.SplitterWidth = 10 + Me.splitMainWorkingView.TabIndex = 9 + ' 'pnlMain ' Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnlMain.Location = New System.Drawing.Point(0, 66) + Me.pnlMain.Location = New System.Drawing.Point(0, 0) Me.pnlMain.Name = "pnlMain" - Me.pnlMain.Size = New System.Drawing.Size(977, 510) + Me.pnlMain.Size = New System.Drawing.Size(945, 350) Me.pnlMain.TabIndex = 8 ' + 'pnlMain_Bottom + ' + Me.pnlMain_Bottom.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlMain_Bottom.Location = New System.Drawing.Point(0, 0) + Me.pnlMain_Bottom.Name = "pnlMain_Bottom" + Me.pnlMain_Bottom.Size = New System.Drawing.Size(945, 141) + Me.pnlMain_Bottom.TabIndex = 9 + ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) @@ -2275,16 +2186,16 @@ Partial Class frmHauptfensterNew Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(977, 66) + Me.Panel1.Size = New System.Drawing.Size(945, 75) Me.Panel1.TabIndex = 2 ' 'Panel8 ' Me.Panel8.BackColor = System.Drawing.Color.White Me.Panel8.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel8.Location = New System.Drawing.Point(0, 56) + Me.Panel8.Location = New System.Drawing.Point(0, 65) Me.Panel8.Name = "Panel8" - Me.Panel8.Size = New System.Drawing.Size(749, 10) + Me.Panel8.Size = New System.Drawing.Size(717, 10) Me.Panel8.TabIndex = 10 ' 'FlowLayoutPanel1 @@ -2293,25 +2204,26 @@ Partial Class frmHauptfensterNew Me.FlowLayoutPanel1.Controls.Add(Me.btnWichtigeStandort) Me.FlowLayoutPanel1.Controls.Add(Me.Button4) Me.FlowLayoutPanel1.Controls.Add(Me.Button7) + Me.FlowLayoutPanel1.Controls.Add(Me.Button9) Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 0) Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0) Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1" - Me.FlowLayoutPanel1.Size = New System.Drawing.Size(749, 65) + Me.FlowLayoutPanel1.Size = New System.Drawing.Size(717, 65) Me.FlowLayoutPanel1.TabIndex = 6 ' 'btnWichtigeStandort ' Me.btnWichtigeStandort.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.btnWichtigeStandort.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnWichtigeStandort.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnWichtigeStandort.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer)) - Me.btnWichtigeStandort.Location = New System.Drawing.Point(3, 9) - Me.btnWichtigeStandort.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0) + Me.btnWichtigeStandort.Location = New System.Drawing.Point(3, 16) + Me.btnWichtigeStandort.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) Me.btnWichtigeStandort.Name = "btnWichtigeStandort" Me.btnWichtigeStandort.Size = New System.Drawing.Size(158, 47) Me.btnWichtigeStandort.TabIndex = 4 Me.btnWichtigeStandort.TabStop = False - Me.btnWichtigeStandort.Text = "LKW/AVISO" + Me.btnWichtigeStandort.Text = "LKW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(FrontOffice)" Me.ToolTip1.SetToolTip(Me.btnWichtigeStandort, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & "d sortiert nach Dauer") Me.btnWichtigeStandort.UseVisualStyleBackColor = False @@ -2321,15 +2233,15 @@ Partial Class frmHauptfensterNew Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.Button4.FlatAppearance.BorderSize = 0 - Me.Button4.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button4.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.Button4.ForeColor = System.Drawing.Color.White - Me.Button4.Location = New System.Drawing.Point(167, 9) - Me.Button4.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0) + Me.Button4.Location = New System.Drawing.Point(167, 16) + Me.Button4.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(158, 47) + Me.Button4.Size = New System.Drawing.Size(173, 47) Me.Button4.TabIndex = 5 Me.Button4.TabStop = False - Me.Button4.Text = "SENDUNGEN" + Me.Button4.Text = "SENDUNGEN (Abklären/Vorschreiben)" Me.ToolTip1.SetToolTip(Me.Button4, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & "d sortiert nach Dauer") Me.Button4.UseVisualStyleBackColor = False @@ -2339,26 +2251,44 @@ Partial Class frmHauptfensterNew Me.Button7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.Button7.FlatAppearance.BorderSize = 0 - Me.Button7.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button7.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.Button7.ForeColor = System.Drawing.Color.White - Me.Button7.Location = New System.Drawing.Point(331, 9) - Me.Button7.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0) + Me.Button7.Location = New System.Drawing.Point(346, 16) + Me.Button7.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(158, 47) Me.Button7.TabIndex = 6 Me.Button7.TabStop = False - Me.Button7.Text = "BACKOFFICE" + Me.Button7.Text = "Kombiansicht" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "LKW/SENDUNGEN" Me.ToolTip1.SetToolTip(Me.Button7, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & "d sortiert nach Dauer") Me.Button7.UseVisualStyleBackColor = False ' + 'Button9 + ' + Me.Button9.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) + Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.Button9.FlatAppearance.BorderSize = 0 + Me.Button9.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.Button9.ForeColor = System.Drawing.Color.White + Me.Button9.Location = New System.Drawing.Point(510, 16) + Me.Button9.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(158, 47) + Me.Button9.TabIndex = 7 + Me.Button9.TabStop = False + Me.Button9.Text = "BACKOFFICE" + Me.ToolTip1.SetToolTip(Me.Button9, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + "d sortiert nach Dauer") + Me.Button9.UseVisualStyleBackColor = False + ' 'Panel6 ' Me.Panel6.Controls.Add(Me.PictureBox1) Me.Panel6.Dock = System.Windows.Forms.DockStyle.Right - Me.Panel6.Location = New System.Drawing.Point(749, 0) + Me.Panel6.Location = New System.Drawing.Point(717, 0) Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(228, 66) + Me.Panel6.Size = New System.Drawing.Size(228, 75) Me.Panel6.TabIndex = 9 ' 'PictureBox1 @@ -2369,7 +2299,7 @@ Partial Class frmHauptfensterNew Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill Me.PictureBox1.Location = New System.Drawing.Point(0, 0) Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(228, 66) + Me.PictureBox1.Size = New System.Drawing.Size(228, 75) Me.PictureBox1.TabIndex = 7 Me.PictureBox1.TabStop = False ' @@ -2383,7 +2313,7 @@ Partial Class frmHauptfensterNew Me.FlowLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Top Me.FlowLayoutPanel2.Location = New System.Drawing.Point(181, 70) Me.FlowLayoutPanel2.Name = "FlowLayoutPanel2" - Me.FlowLayoutPanel2.Size = New System.Drawing.Size(640, 65) + Me.FlowLayoutPanel2.Size = New System.Drawing.Size(608, 65) Me.FlowLayoutPanel2.TabIndex = 86 ' 'MyFlowLayoutPanel1 @@ -2398,9 +2328,102 @@ Partial Class frmHauptfensterNew Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5) Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" - Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(640, 65) + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(608, 65) Me.MyFlowLayoutPanel1.TabIndex = 85 ' + 'btnKunden + ' + Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default + Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnKunden.ForeColor = System.Drawing.Color.Black + Me.btnKunden.Image = CType(resources.GetObject("btnKunden.Image"), System.Drawing.Image) + Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKunden.Location = New System.Drawing.Point(3, 3) + Me.btnKunden.Name = "btnKunden" + Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnKunden.Size = New System.Drawing.Size(150, 50) + Me.btnKunden.TabIndex = 2 + Me.btnKunden.TabStop = False + Me.btnKunden.Text = "Kunden" + Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKunden.UseVisualStyleBackColor = False + ' + 'btnFakturierung + ' + Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default + Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnFakturierung.ForeColor = System.Drawing.Color.Black + Me.btnFakturierung.Image = CType(resources.GetObject("btnFakturierung.Image"), System.Drawing.Image) + Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnFakturierung.Location = New System.Drawing.Point(159, 3) + Me.btnFakturierung.Name = "btnFakturierung" + Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnFakturierung.Size = New System.Drawing.Size(150, 50) + Me.btnFakturierung.TabIndex = 11 + Me.btnFakturierung.TabStop = False + Me.btnFakturierung.Text = "Fakturierung" + Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnFakturierung.UseVisualStyleBackColor = False + Me.btnFakturierung.Visible = False + ' + 'btnRg + ' + Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default + Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnRg.ForeColor = System.Drawing.Color.Black + Me.btnRg.Image = CType(resources.GetObject("btnRg.Image"), System.Drawing.Image) + Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRg.Location = New System.Drawing.Point(315, 3) + Me.btnRg.Name = "btnRg" + Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnRg.Size = New System.Drawing.Size(150, 50) + Me.btnRg.TabIndex = 9 + Me.btnRg.TabStop = False + Me.btnRg.Text = "Rechnungen" + Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRg.UseVisualStyleBackColor = False + Me.btnRg.Visible = False + ' + 'btnKassenbuch + ' + Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default + Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black + Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.kasse_sw_small + Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnKassenbuch.Location = New System.Drawing.Point(3, 59) + Me.btnKassenbuch.Name = "btnKassenbuch" + Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50) + Me.btnKassenbuch.TabIndex = 8 + Me.btnKassenbuch.TabStop = False + Me.btnKassenbuch.Text = "Kassenbuch" + Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKassenbuch.UseVisualStyleBackColor = False + Me.btnKassenbuch.Visible = False + ' + 'btnSpedBuch + ' + Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black + Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.spedbuch1 + Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSpedBuch.Location = New System.Drawing.Point(159, 59) + Me.btnSpedBuch.Name = "btnSpedBuch" + Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50) + Me.btnSpedBuch.TabIndex = 3 + Me.btnSpedBuch.TabStop = False + Me.btnSpedBuch.Text = "Sped.Buch" + Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSpedBuch.UseVisualStyleBackColor = False + ' 'pnlOptionen ' Me.pnlOptionen.BackColor = System.Drawing.Color.Black @@ -2461,8 +2484,10 @@ Partial Class frmHauptfensterNew 'Panel9 ' Me.Panel9.Controls.Add(Me.btnRefresh) + Me.Panel9.Controls.Add(Me.Button6) + Me.Panel9.Controls.Add(Me.btnDrucken) Me.Panel9.Dock = System.Windows.Forms.DockStyle.Right - Me.Panel9.Location = New System.Drawing.Point(821, 0) + Me.Panel9.Location = New System.Drawing.Point(789, 0) Me.Panel9.Name = "Panel9" Me.Panel9.Size = New System.Drawing.Size(156, 157) Me.Panel9.TabIndex = 88 @@ -2625,17 +2650,6 @@ Partial Class frmHauptfensterNew Me.HomepageToolStripMenuItem.Size = New System.Drawing.Size(133, 22) Me.HomepageToolStripMenuItem.Text = "Homepage" ' - 'UsrCntlTestsystem1 - ' - Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White - Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red - Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1) - Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6) - Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1" - Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) - Me.UsrCntlTestsystem1.TabIndex = 8 - ' 'pnlLeft ' Me.pnlLeft.Controls.Add(Me.UsrCntlBenachrichtigungen2) @@ -2644,20 +2658,13 @@ Partial Class frmHauptfensterNew Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLeft.Location = New System.Drawing.Point(0, 30) Me.pnlLeft.Name = "pnlLeft" - Me.pnlLeft.Size = New System.Drawing.Size(367, 741) + Me.pnlLeft.Size = New System.Drawing.Size(408, 741) Me.pnlLeft.TabIndex = 88 ' - 'UsrCntlBenachrichtigungen2 - ' - Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10) - Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2" - Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(367, 315) - Me.UsrCntlBenachrichtigungen2.TabIndex = 5 - ' 'Panel5 ' Me.Panel5.BackColor = System.Drawing.Color.White + Me.Panel5.Controls.Add(Me.cbxInfoChat) Me.Panel5.Controls.Add(Me.TabControl1) Me.Panel5.Controls.Add(Me.lblFimaAviso) Me.Panel5.Controls.Add(Me.lblDauer) @@ -2671,7 +2678,7 @@ Partial Class frmHauptfensterNew Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel5.Location = New System.Drawing.Point(0, 325) Me.Panel5.Name = "Panel5" - Me.Panel5.Size = New System.Drawing.Size(367, 416) + Me.Panel5.Size = New System.Drawing.Size(408, 416) Me.Panel5.TabIndex = 3 ' 'TabControl1 @@ -2679,47 +2686,97 @@ Partial Class frmHauptfensterNew Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.TabControl1.Location = New System.Drawing.Point(0, 0) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(367, 301) + Me.TabControl1.Size = New System.Drawing.Size(408, 301) Me.TabControl1.TabIndex = 85 ' 'TabPage1 ' - Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Location = New System.Drawing.Point(4, 25) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(359, 275) + Me.TabPage1.Size = New System.Drawing.Size(400, 272) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Chat" Me.TabPage1.UseVisualStyleBackColor = True ' 'TabPage2 ' - Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Location = New System.Drawing.Point(4, 25) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(359, 275) + Me.TabPage2.Size = New System.Drawing.Size(400, 272) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "TabPage2" Me.TabPage2.UseVisualStyleBackColor = True ' + 'btnMitarbeiterKonto + ' + Me.btnMitarbeiterKonto.allowBorder = False + Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White + Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 + Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black + Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s + Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(268, 307) + Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" + Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) + Me.btnMitarbeiterKonto.TabIndex = 86 + Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" + Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False + ' 'Panel7 ' Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Panel7.Dock = System.Windows.Forms.DockStyle.Top Me.Panel7.Location = New System.Drawing.Point(0, 0) Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(367, 10) + Me.Panel7.Size = New System.Drawing.Size(408, 10) Me.Panel7.TabIndex = 4 ' + 'UsrCntlTestsystem1 + ' + Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White + Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red + Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1) + Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6) + Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1" + Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) + Me.UsrCntlTestsystem1.TabIndex = 8 + ' 'UidAbfrageService1 ' Me.UidAbfrageService1.Credentials = Nothing Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/" Me.UidAbfrageService1.UseDefaultCredentials = False ' + 'cbxInfoChat + ' + Me.cbxInfoChat.AutoSize = True + Me.cbxInfoChat.Checked = True + Me.cbxInfoChat.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxInfoChat.Location = New System.Drawing.Point(221, 6) + Me.cbxInfoChat.Name = "cbxInfoChat" + Me.cbxInfoChat.Size = New System.Drawing.Size(183, 17) + Me.cbxInfoChat.TabIndex = 87 + Me.cbxInfoChat.Text = "Chat-Benachrichtigung aktivieren" + Me.cbxInfoChat.UseVisualStyleBackColor = True + ' + 'UsrCntlBenachrichtigungen2 + ' + Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10) + Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2" + Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(408, 315) + Me.UsrCntlBenachrichtigungen2.TabIndex = 5 + ' 'frmHauptfensterNew ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2744,7 +2801,6 @@ Partial Class frmHauptfensterNew Me.pnlDetailsRechts.ResumeLayout(False) Me.pnlDetailsRechts.PerformLayout() Me.Panel2.ResumeLayout(False) - Me.Panel2.PerformLayout() Me.cntxtAtilla.ResumeLayout(False) CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() @@ -2759,6 +2815,10 @@ Partial Class frmHauptfensterNew Me.splitMain.Panel2.ResumeLayout(False) CType(Me.splitMain, System.ComponentModel.ISupportInitialize).EndInit() Me.splitMain.ResumeLayout(False) + Me.splitMainWorkingView.Panel1.ResumeLayout(False) + Me.splitMainWorkingView.Panel2.ResumeLayout(False) + CType(Me.splitMainWorkingView, System.ComponentModel.ISupportInitialize).EndInit() + Me.splitMainWorkingView.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.FlowLayoutPanel1.ResumeLayout(False) Me.Panel6.ResumeLayout(False) @@ -2774,6 +2834,7 @@ Partial Class frmHauptfensterNew Me.cntVerag.ResumeLayout(False) Me.pnlLeft.ResumeLayout(False) Me.Panel5.ResumeLayout(False) + Me.Panel5.PerformLayout() Me.TabControl1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -2851,7 +2912,6 @@ Partial Class frmHauptfensterNew Friend WithEvents ZeilenInFarbeEinausToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents btnKassenbuch As System.Windows.Forms.Button Friend WithEvents btnUmrechnungskurse As System.Windows.Forms.Button - Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents LogoutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents UsrCntlTestsystem1 As VERAG_PROG_ALLGEMEIN.usrCntlTestsystem Friend WithEvents TabellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem @@ -3053,16 +3113,14 @@ Partial Class frmHauptfensterNew Friend WithEvents Panel7 As Panel Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem Friend WithEvents ATILLASENDUNGToolStripMenuItem As ToolStripMenuItem - Friend WithEvents Panel2 As Panel Friend WithEvents UidAbfrageService1 As VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService Friend WithEvents UsrCntlBenachrichtigungen2 As usrCntlBenachrichtigungen Friend WithEvents TabControl1 As TabControl Friend WithEvents TabPage1 As TabPage Friend WithEvents TabPage2 As TabPage - Friend WithEvents Panel1 As Panel Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel Friend WithEvents btnWichtigeStandort As Button - Friend WithEvents pnlMain As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel + Friend WithEvents pnlMain As System.Windows.Forms.Panel Friend WithEvents PictureBox1 As PictureBox Friend WithEvents Panel6 As Panel Friend WithEvents Panel8 As Panel @@ -3071,4 +3129,10 @@ Partial Class frmHauptfensterNew Friend WithEvents Panel9 As Panel Friend WithEvents Button4 As Button Friend WithEvents Button7 As Button + Friend WithEvents Button9 As Button + Friend WithEvents Panel2 As Panel + Friend WithEvents splitMainWorkingView As SplitContainer + Friend WithEvents Panel1 As Panel + Friend WithEvents pnlMain_Bottom As Panel + Friend WithEvents cbxInfoChat As CheckBox End Class diff --git a/Aviso/frmHauptfensterNew.resx b/Aviso/frmHauptfensterNew.resx index 7e986cb..c047f34 100644 --- a/Aviso/frmHauptfensterNew.resx +++ b/Aviso/frmHauptfensterNew.resx @@ -124,32 +124,6 @@ 249, 17 - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt - lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY - 7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E - rkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt - lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY - 7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E - rkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAP1JREFUSEvt - k0sKwkAQRLsRL+BOj+XevQtdeAY9ozv1FgYEP0wYZXjpnoxJBBd5UGCqq6slEJGRkX9BVZ+WmBsMHvLE - vV6wvE3c7wyL28T9EmYsGUqhm8feLI3wjl6pRGRteCseNV+n55fI2+VdN0SvVN4u73qhLb1SiciGXvSb - h+kFVPXkzSzigTP9gNmjqg9zkLwN+iSXi7M7/RpVvRmvpv4MkucD90Rkj6NT9qjqFTvlGGX8k9/DEiqX - zc2oNJsNJ7FJ8tvjk2FPo5Nmoip2zI1Z0DGKfihexO6KsyTjw/C3Yl8R4VtkUQdd2NuKUdJJ7M3C5b5i - /8jIT3kBe5JJfQp6Jq0AAAAASUVORK5CYII= - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt @@ -230,6 +204,32 @@ 560, 17 + + + iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAP1JREFUSEvt + k0sKwkAQRLsRL+BOj+XevQtdeAY9ozv1FgYEP0wYZXjpnoxJBBd5UGCqq6slEJGRkX9BVZ+WmBsMHvLE + vV6wvE3c7wyL28T9EmYsGUqhm8feLI3wjl6pRGRteCseNV+n55fI2+VdN0SvVN4u73qhLb1SiciGXvSb + h+kFVPXkzSzigTP9gNmjqg9zkLwN+iSXi7M7/RpVvRmvpv4MkucD90Rkj6NT9qjqFTvlGGX8k9/DEiqX + zc2oNJsNJ7FJ8tvjk2FPo5Nmoip2zI1Z0DGKfihexO6KsyTjw/C3Yl8R4VtkUQdd2NuKUdJJ7M3C5b5i + /8jIT3kBe5JJfQp6Jq0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt + lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY + 7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt + lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY + 7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E + rkJggg== + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -246,9 +246,6 @@ AAAAAElFTkSuQmCC - - 560, 17 - 659, 17 diff --git a/Aviso/frmHauptfensterNew.vb b/Aviso/frmHauptfensterNew.vb index af0c960..12f72ca 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_SND As usrCntlHauptfenster_Suche_SND = Nothing Dim SEARCH_AVISO_AKTIV As String = "AVISO" Public Sub New() @@ -101,34 +102,54 @@ Public Class frmHauptfensterNew End Sub Sub SWITCH_SEARCH(switchTO) pnlMain.Controls.Clear() + pnlMain_Bottom.Controls.Clear() SEARCH_AVISO_AKTIV = switchTO Select Case SEARCH_AVISO_AKTIV Case "SND" - Dim aaaaa As New usrCntlSND_Ausfuhr - pnlMain.Controls.Add(aaaaa) - initsearch("", False) ': Aviso_anzeigen("") - - Case "AVISO" - If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO - - pnlMain.Controls.Add(SEARCH_AVISO) - - 'SEARCH_AVISO.Dock = DockStyle.Fill - SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me - SEARCH_AVISO.Visible = True - SEARCH_AVISO.BringToFront() - SEARCH_AVISO.Width = pnlMain.Width - SEARCH_AVISO.Height = pnlMain.Height + splitMainWorkingView.Panel2Collapsed = True + If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND + SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me + pnlMain.Controls.Add(SEARCH_SND) + SEARCH_SND.Dock = DockStyle.Fill pnlMain.PerformLayout() - SEARCH_AVISO.PerformLayout() + SEARCH_SND.PerformLayout() Application.DoEvents() - 'MsgBox(pnlMain.Width & " / " & pnlMain.Height) - 'MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height) + Case "AVISO" + splitMainWorkingView.Panel2Collapsed = True + + 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 + pnlMain.PerformLayout() + SEARCH_AVISO.PerformLayout() + Application.DoEvents() + + Case "AVISO_SND_KOMBI" + splitMainWorkingView.Panel2Collapsed = False + + 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 + pnlMain.PerformLayout() + SEARCH_AVISO.PerformLayout() + Application.DoEvents() + '-------------------------------------------------------------- + If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND + SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me + pnlMain_Bottom.Controls.Add(SEARCH_SND) + SEARCH_SND.Dock = DockStyle.Fill + pnlMain_Bottom.PerformLayout() + SEARCH_SND.PerformLayout() + Application.DoEvents() + + End Select initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("") End Sub @@ -142,6 +163,20 @@ Public Class frmHauptfensterNew End If End Sub + Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click + + Select Case SEARCH_AVISO_AKTIV + Case "SND" + If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True) + Case "AVISO" + If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) + Case "AVISO_SND_KOMBI" + If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) + If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True) + End Select + UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) + End Sub + Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then @@ -510,7 +545,7 @@ Public Class frmHauptfensterNew 'Grid jetzt aktivieren und befüllen - Standardanzeige ident mit Button Wichtig Grid_aktiv = True SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim - If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper + ' If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper initsearch(" ORDER BY Ankunft") UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) @@ -1445,15 +1480,8 @@ ELSE_ATILLA: End If End Sub - Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click - If SEARCH_AVISO IsNot nohing Then - SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) - UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) - End If - End Sub - 'Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter ' Try @@ -1740,7 +1768,7 @@ ELSE_ATILLA: 'btnGenerelleGestellungen.Visible = False Button6.Visible = False - btnWichtigeStandort.Visible = False + 'btnWichtigeStandort.Visible = False Panel2.Visible = False ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then @@ -3059,7 +3087,9 @@ ELSE_ATILLA: End If End If Next - If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) + If cbxInfoChat.Checked Then '# 'Anzeicge Infobox Neuer Chat Ein/Aus + If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) + End If Else Me.Icon = My.Resources.Aviso End If @@ -3858,4 +3888,11 @@ ELSE_ATILLA: End Try End Sub + Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles Button7.Click + Grid_aktiv = False + SWITCH_SEARCH("AVISO_SND_KOMBI") + + SEARCH_AVISO.RESET() + Grid_aktiv = True + End Sub End Class diff --git a/Aviso/frmNotify.Designer.vb b/Aviso/frmNotify.Designer.vb index c639f8d..08b35b5 100644 --- a/Aviso/frmNotify.Designer.vb +++ b/Aviso/frmNotify.Designer.vb @@ -47,7 +47,7 @@ Partial Class frmNotify Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(300, 70) + Me.pnl.Size = New System.Drawing.Size(227, 70) Me.pnl.TabIndex = 1 ' 'lblText @@ -57,7 +57,7 @@ Partial Class frmNotify Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblText.Location = New System.Drawing.Point(0, 25) Me.lblText.Name = "lblText" - Me.lblText.Size = New System.Drawing.Size(298, 43) + Me.lblText.Size = New System.Drawing.Size(225, 43) Me.lblText.TabIndex = 0 Me.lblText.Text = "Der LKW SD 13 AS steht bereits seit über 2 Stunden! " Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -65,12 +65,12 @@ Partial Class frmNotify 'Header ' Me.Header.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Header.Controls.Add(Me.lblTitle) Me.Header.Controls.Add(Me.btnClose) + Me.Header.Controls.Add(Me.lblTitle) Me.Header.Dock = System.Windows.Forms.DockStyle.Top Me.Header.Location = New System.Drawing.Point(0, 0) Me.Header.Name = "Header" - Me.Header.Size = New System.Drawing.Size(298, 25) + Me.Header.Size = New System.Drawing.Size(225, 25) Me.Header.TabIndex = 87 ' 'lblTitle @@ -79,7 +79,7 @@ Partial Class frmNotify Me.lblTitle.ForeColor = System.Drawing.Color.White Me.lblTitle.Location = New System.Drawing.Point(3, 0) Me.lblTitle.Name = "lblTitle" - Me.lblTitle.Size = New System.Drawing.Size(241, 24) + Me.lblTitle.Size = New System.Drawing.Size(194, 24) Me.lblTitle.TabIndex = 88 Me.lblTitle.Text = "LKW Standzeit Benachrichtigung" Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -93,7 +93,7 @@ Partial Class frmNotify Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnClose.ForeColor = System.Drawing.Color.White - Me.btnClose.Location = New System.Drawing.Point(264, -1) + Me.btnClose.Location = New System.Drawing.Point(191, -1) Me.btnClose.Name = "btnClose" Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.btnClose.Size = New System.Drawing.Size(35, 25) @@ -106,7 +106,7 @@ Partial Class frmNotify Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoSize = True - Me.ClientSize = New System.Drawing.Size(300, 70) + Me.ClientSize = New System.Drawing.Size(227, 70) Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.MaximumSize = New System.Drawing.Size(300, 300) diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb b/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb index 5fd8444..a8690c2 100644 --- a/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class usrCntlHauptfenster_Suche_AVISO Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlHauptfenster_Suche_AVISO)) @@ -31,7 +31,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Panel1 = New System.Windows.Forms.Panel() Me.btnDetailsuche = New System.Windows.Forms.Button() - Me.lblDauer = New System.Windows.Forms.Label() Me.pnlSearch = New System.Windows.Forms.Panel() Me.lblAbsender = New System.Windows.Forms.Label() Me.txtAbsender = New System.Windows.Forms.TextBox() @@ -57,31 +56,21 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.lblErwFilialePos = New System.Windows.Forms.Label() Me.lblErwAuftraggeber = New System.Windows.Forms.Label() Me.cbxAlle = New System.Windows.Forms.CheckBox() - Me.lblEintraege = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.btnE_Aviso = New System.Windows.Forms.Button() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.btnNeu = New System.Windows.Forms.Button() Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label21 = New System.Windows.Forms.Label() - Me.btnHeute = New System.Windows.Forms.Button() Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label16 = New System.Windows.Forms.Label() - Me.btnGestern = New System.Windows.Forms.Button() Me.Label8 = New System.Windows.Forms.Label() Me.cbxCluster = New System.Windows.Forms.CheckBox() Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnWoche = New System.Windows.Forms.Button() Me.lblGrenze = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.dtpBis = New System.Windows.Forms.DateTimePicker() Me.Label6 = New System.Windows.Forms.Label() - Me.dtpVon = New System.Windows.Forms.DateTimePicker() Me.txtSuche = New System.Windows.Forms.TextBox() - Me.Label2 = New System.Windows.Forms.Label() - Me.lblZeit_aktuell = New System.Windows.Forms.Label() Me.btnWichtige = New System.Windows.Forms.Button() Me.btnWichtigeStandort = New System.Windows.Forms.Button() Me.lblSuche = New System.Windows.Forms.Label() @@ -97,23 +86,18 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.tabNichtEingetroffen = New System.Windows.Forms.TabPage() Me.pnlTime = New System.Windows.Forms.Panel() Me.lblHinweis = New System.Windows.Forms.Label() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.dtpVon = New System.Windows.Forms.DateTimePicker() + Me.dtpBis = New System.Windows.Forms.DateTimePicker() + Me.Label5 = New System.Windows.Forms.Label() + Me.btnWoche = New System.Windows.Forms.Button() + Me.btnGestern = New System.Windows.Forms.Button() + Me.btnHeute = New System.Windows.Forms.Button() Me.lblAkte = New System.Windows.Forms.Label() - Me.pblSNDOptions = New System.Windows.Forms.Panel() - Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() - Me.btnColor = New System.Windows.Forms.Button() - Me.lblMySND_Anzeige = New System.Windows.Forms.Label() - Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboMy_QS = New System.Windows.Forms.CheckBox() - Me.cbx_My_LKW = New System.Windows.Forms.CheckBox() - Me.cboMy_VB = New System.Windows.Forms.CheckBox() - Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label() - 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.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.Button7 = New System.Windows.Forms.Button() + Me.lblZeit_aktuell = New System.Windows.Forms.Label() + Me.lblDauer = New System.Windows.Forms.Label() + Me.lblEintraege = 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) @@ -125,8 +109,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.pnlSearch.SuspendLayout() Me.tbcntrAvisoLKW.SuspendLayout() Me.pnlTime.SuspendLayout() - Me.pblSNDOptions.SuspendLayout() - Me.tbcntrAvisoSND.SuspendLayout() CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() Me.ctxtFarben.SuspendLayout() Me.SuspendLayout() @@ -134,40 +116,33 @@ Partial Class usrCntlHauptfenster_Suche_AVISO '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.lblHinweis) Me.Panel1.Controls.Add(Me.btnDetailsuche) - Me.Panel1.Controls.Add(Me.lblDauer) Me.Panel1.Controls.Add(Me.pnlSearch) - Me.Panel1.Controls.Add(Me.lblEintraege) Me.Panel1.Controls.Add(Me.Label22) Me.Panel1.Controls.Add(Me.Label10) Me.Panel1.Controls.Add(Me.btnE_Aviso) - Me.Panel1.Controls.Add(Me.MyComboBox1) Me.Panel1.Controls.Add(Me.btnNeu) Me.Panel1.Controls.Add(Me.txtBestimmungszollstelle) Me.Panel1.Controls.Add(Me.Label21) - Me.Panel1.Controls.Add(Me.btnHeute) Me.Panel1.Controls.Add(Me.cboImEx) Me.Panel1.Controls.Add(Me.cboTeams) Me.Panel1.Controls.Add(Me.Label16) - Me.Panel1.Controls.Add(Me.btnGestern) Me.Panel1.Controls.Add(Me.Label8) Me.Panel1.Controls.Add(Me.cbxCluster) Me.Panel1.Controls.Add(Me.cboGrenzstelle) - Me.Panel1.Controls.Add(Me.btnWoche) Me.Panel1.Controls.Add(Me.lblGrenze) - Me.Panel1.Controls.Add(Me.Label5) - Me.Panel1.Controls.Add(Me.dtpBis) Me.Panel1.Controls.Add(Me.Label6) - Me.Panel1.Controls.Add(Me.dtpVon) Me.Panel1.Controls.Add(Me.txtSuche) - Me.Panel1.Controls.Add(Me.Label2) - Me.Panel1.Controls.Add(Me.lblZeit_aktuell) Me.Panel1.Controls.Add(Me.btnWichtige) Me.Panel1.Controls.Add(Me.btnWichtigeStandort) Me.Panel1.Controls.Add(Me.lblSuche) Me.Panel1.Controls.Add(Me.tbcntrAvisoLKW) Me.Panel1.Controls.Add(Me.pnlTime) Me.Panel1.Controls.Add(Me.lblAkte) + Me.Panel1.Controls.Add(Me.lblZeit_aktuell) + Me.Panel1.Controls.Add(Me.lblDauer) + Me.Panel1.Controls.Add(Me.lblEintraege) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Panel1.Location = New System.Drawing.Point(0, 0) @@ -192,18 +167,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.btnDetailsuche.Text = "Detailsuche" Me.btnDetailsuche.UseVisualStyleBackColor = False ' - '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(1101, 15) - Me.lblDauer.Name = "lblDauer" - Me.lblDauer.Size = New System.Drawing.Size(136, 17) - Me.lblDauer.TabIndex = 27 - Me.lblDauer.Text = "1111123 ms" - Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' 'pnlSearch ' Me.pnlSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(138, Byte), Integer)) @@ -487,18 +450,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.cbxAlle.Text = "Alle" Me.cbxAlle.UseVisualStyleBackColor = True ' - '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(1098, 3) - 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 - ' 'Label22 ' Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -525,12 +476,12 @@ Partial Class usrCntlHauptfenster_Suche_AVISO ' 'btnE_Aviso ' - Me.btnE_Aviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnE_Aviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnE_Aviso.BackColor = System.Drawing.Color.White Me.btnE_Aviso.Font = New System.Drawing.Font("Segoe UI", 11.0!) Me.btnE_Aviso.ForeColor = System.Drawing.Color.Black Me.btnE_Aviso.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnE_Aviso.Location = New System.Drawing.Point(1119, 43) + Me.btnE_Aviso.Location = New System.Drawing.Point(1116, 45) Me.btnE_Aviso.MaximumSize = New System.Drawing.Size(121, 34) Me.btnE_Aviso.Name = "btnE_Aviso" Me.btnE_Aviso.Size = New System.Drawing.Size(121, 34) @@ -540,31 +491,15 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.btnE_Aviso.UseVisualStyleBackColor = False Me.btnE_Aviso.Visible = False ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.MyComboBox1.ForeColor = System.Drawing.Color.White - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(823, 5) - Me.MyComboBox1.MaxLength = 4 - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(98, 21) - Me.MyComboBox1.TabIndex = 7 - ' 'btnNeu ' - Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + 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.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(1119, 83) + Me.btnNeu.Location = New System.Drawing.Point(1116, 6) Me.btnNeu.MaximumSize = New System.Drawing.Size(121, 34) Me.btnNeu.Name = "btnNeu" Me.btnNeu.Size = New System.Drawing.Size(121, 34) @@ -609,18 +544,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.Label21.TabIndex = 23 Me.Label21.Text = "IM/EX:" ' - 'btnHeute - ' - Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnHeute.ForeColor = System.Drawing.Color.White - Me.btnHeute.Location = New System.Drawing.Point(922, 4) - Me.btnHeute.Name = "btnHeute" - Me.btnHeute.Size = New System.Drawing.Size(50, 22) - Me.btnHeute.TabIndex = 0 - Me.btnHeute.TabStop = False - Me.btnHeute.Text = "Heute" - Me.btnHeute.UseVisualStyleBackColor = True - ' 'cboImEx ' Me.cboImEx._allowedValuesFreiText = Nothing @@ -663,18 +586,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.Label16.TabIndex = 18 Me.Label16.Text = "Team:" ' - 'btnGestern - ' - Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnGestern.ForeColor = System.Drawing.Color.White - Me.btnGestern.Location = New System.Drawing.Point(971, 4) - Me.btnGestern.Name = "btnGestern" - Me.btnGestern.Size = New System.Drawing.Size(58, 22) - Me.btnGestern.TabIndex = 1 - Me.btnGestern.TabStop = False - Me.btnGestern.Text = "Gestern" - Me.btnGestern.UseVisualStyleBackColor = True - ' 'Label8 ' Me.Label8.AutoSize = True @@ -717,18 +628,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24) Me.cboGrenzstelle.TabIndex = 13 ' - 'btnWoche - ' - Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnWoche.ForeColor = System.Drawing.Color.White - Me.btnWoche.Location = New System.Drawing.Point(1028, 4) - Me.btnWoche.Name = "btnWoche" - Me.btnWoche.Size = New System.Drawing.Size(64, 22) - Me.btnWoche.TabIndex = 2 - Me.btnWoche.TabStop = False - Me.btnWoche.Text = "1 Woche" - Me.btnWoche.UseVisualStyleBackColor = True - ' 'lblGrenze ' Me.lblGrenze.AutoSize = True @@ -739,24 +638,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.lblGrenze.TabIndex = 9 Me.lblGrenze.Text = "Grenzstelle:" ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.ForeColor = System.Drawing.Color.White - Me.Label5.Location = New System.Drawing.Point(852, 36) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(27, 15) - Me.Label5.TabIndex = 6 - Me.Label5.Text = "von" - ' - 'dtpBis - ' - Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpBis.Location = New System.Drawing.Point(1007, 32) - Me.dtpBis.Name = "dtpBis" - Me.dtpBis.Size = New System.Drawing.Size(85, 23) - Me.dtpBis.TabIndex = 4 - ' 'Label6 ' Me.Label6.AutoSize = True @@ -768,14 +649,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.Label6.TabIndex = 11 Me.Label6.Text = "mind. 2 Zeichen" ' - 'dtpVon - ' - Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpVon.Location = New System.Drawing.Point(887, 32) - Me.dtpVon.Name = "dtpVon" - Me.dtpVon.Size = New System.Drawing.Size(85, 23) - Me.dtpVon.TabIndex = 3 - ' 'txtSuche ' Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -785,26 +658,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.txtSuche.Size = New System.Drawing.Size(306, 26) Me.txtSuche.TabIndex = 0 ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.ForeColor = System.Drawing.Color.White - Me.Label2.Location = New System.Drawing.Point(976, 36) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(22, 15) - Me.Label2.TabIndex = 5 - Me.Label2.Text = "bis" - ' - 'lblZeit_aktuell - ' - Me.lblZeit_aktuell.AutoSize = True - Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblZeit_aktuell.Location = New System.Drawing.Point(6, 39) - Me.lblZeit_aktuell.Name = "lblZeit_aktuell" - Me.lblZeit_aktuell.Size = New System.Drawing.Size(169, 15) - Me.lblZeit_aktuell.TabIndex = 6 - Me.lblZeit_aktuell.Text = "letzte Aktualisierung: 11:22 Uhr" - ' 'btnWichtige ' Me.btnWichtige.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -854,7 +707,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.tbcntrAvisoLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.tbcntrAvisoLKW.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.tbcntrAvisoLKW.ItemSize = New System.Drawing.Size(60, 30) - Me.tbcntrAvisoLKW.Location = New System.Drawing.Point(-1, 86) + Me.tbcntrAvisoLKW.Location = New System.Drawing.Point(3, 86) Me.tbcntrAvisoLKW.Name = "tbcntrAvisoLKW" Me.tbcntrAvisoLKW.Padding = New System.Drawing.Point(12, 3) Me.tbcntrAvisoLKW.SelectedIndex = 0 @@ -961,10 +814,17 @@ Partial Class usrCntlHauptfenster_Suche_AVISO ' Me.pnlTime.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.pnlTime.Controls.Add(Me.lblHinweis) + Me.pnlTime.Controls.Add(Me.MyComboBox1) + Me.pnlTime.Controls.Add(Me.Label2) + Me.pnlTime.Controls.Add(Me.dtpVon) + Me.pnlTime.Controls.Add(Me.dtpBis) + Me.pnlTime.Controls.Add(Me.Label5) + Me.pnlTime.Controls.Add(Me.btnWoche) + Me.pnlTime.Controls.Add(Me.btnGestern) + Me.pnlTime.Controls.Add(Me.btnHeute) Me.pnlTime.Location = New System.Drawing.Point(794, 1) Me.pnlTime.Name = "pnlTime" - Me.pnlTime.Size = New System.Drawing.Size(330, 57) + Me.pnlTime.Size = New System.Drawing.Size(307, 57) Me.pnlTime.TabIndex = 12 ' 'lblHinweis @@ -972,241 +832,146 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.lblHinweis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblHinweis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblHinweis.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblHinweis.Location = New System.Drawing.Point(192, 56) + Me.lblHinweis.Location = New System.Drawing.Point(954, 93) Me.lblHinweis.Name = "lblHinweis" Me.lblHinweis.Size = New System.Drawing.Size(129, 16) Me.lblHinweis.TabIndex = 38 Me.lblHinweis.Text = "Hinweis eingetragen" Me.lblHinweis.Visible = False ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.MyComboBox1.ForeColor = System.Drawing.Color.White + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(20, 4) + Me.MyComboBox1.MaxLength = 4 + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(98, 21) + Me.MyComboBox1.TabIndex = 7 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(173, 35) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(22, 15) + Me.Label2.TabIndex = 5 + Me.Label2.Text = "bis" + ' + 'dtpVon + ' + Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpVon.Location = New System.Drawing.Point(84, 31) + Me.dtpVon.Name = "dtpVon" + Me.dtpVon.Size = New System.Drawing.Size(85, 23) + Me.dtpVon.TabIndex = 3 + ' + 'dtpBis + ' + Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpBis.Location = New System.Drawing.Point(204, 31) + Me.dtpBis.Name = "dtpBis" + Me.dtpBis.Size = New System.Drawing.Size(85, 23) + Me.dtpBis.TabIndex = 4 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.ForeColor = System.Drawing.Color.White + Me.Label5.Location = New System.Drawing.Point(49, 35) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(27, 15) + Me.Label5.TabIndex = 6 + Me.Label5.Text = "von" + ' + 'btnWoche + ' + Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWoche.ForeColor = System.Drawing.Color.White + Me.btnWoche.Location = New System.Drawing.Point(225, 3) + Me.btnWoche.Name = "btnWoche" + Me.btnWoche.Size = New System.Drawing.Size(64, 22) + Me.btnWoche.TabIndex = 2 + Me.btnWoche.TabStop = False + Me.btnWoche.Text = "1 Woche" + Me.btnWoche.UseVisualStyleBackColor = True + ' + 'btnGestern + ' + Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnGestern.ForeColor = System.Drawing.Color.White + Me.btnGestern.Location = New System.Drawing.Point(168, 3) + Me.btnGestern.Name = "btnGestern" + Me.btnGestern.Size = New System.Drawing.Size(58, 22) + Me.btnGestern.TabIndex = 1 + Me.btnGestern.TabStop = False + Me.btnGestern.Text = "Gestern" + Me.btnGestern.UseVisualStyleBackColor = True + ' + 'btnHeute + ' + Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnHeute.ForeColor = System.Drawing.Color.White + Me.btnHeute.Location = New System.Drawing.Point(119, 3) + Me.btnHeute.Name = "btnHeute" + Me.btnHeute.Size = New System.Drawing.Size(50, 22) + Me.btnHeute.TabIndex = 0 + Me.btnHeute.TabStop = False + Me.btnHeute.Text = "Heute" + Me.btnHeute.UseVisualStyleBackColor = True + ' 'lblAkte ' - Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAkte.ForeColor = System.Drawing.Color.White - Me.lblAkte.Location = New System.Drawing.Point(1107, 5) + Me.lblAkte.Location = New System.Drawing.Point(1016, 85) Me.lblAkte.Name = "lblAkte" - Me.lblAkte.Size = New System.Drawing.Size(130, 34) + Me.lblAkte.Size = New System.Drawing.Size(221, 30) Me.lblAkte.TabIndex = 29 Me.lblAkte.Text = "0 Akte vom " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Arbeitsplatz übernommen" Me.lblAkte.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'pblSNDOptions + 'lblZeit_aktuell ' - Me.pblSNDOptions.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.pblSNDOptions.Controls.Add(Me.cbx_My_Brexit) - Me.pblSNDOptions.Controls.Add(Me.btnColor) - Me.pblSNDOptions.Controls.Add(Me.lblMySND_Anzeige) - Me.pblSNDOptions.Controls.Add(Me.cboMyAvisoAnzeige) - Me.pblSNDOptions.Controls.Add(Me.cboMy_Grenzstelle) - Me.pblSNDOptions.Controls.Add(Me.cboMy_QS) - Me.pblSNDOptions.Controls.Add(Me.cbx_My_LKW) - Me.pblSNDOptions.Controls.Add(Me.cboMy_VB) - Me.pblSNDOptions.Controls.Add(Me.lblMySnd_Grenzstelle) - Me.pblSNDOptions.Location = New System.Drawing.Point(314, 259) - Me.pblSNDOptions.Name = "pblSNDOptions" - Me.pblSNDOptions.Size = New System.Drawing.Size(568, 25) - Me.pblSNDOptions.TabIndex = 29 - Me.pblSNDOptions.Visible = False + Me.lblZeit_aktuell.AutoSize = True + Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.White + Me.lblZeit_aktuell.Location = New System.Drawing.Point(1012, 31) + Me.lblZeit_aktuell.Name = "lblZeit_aktuell" + Me.lblZeit_aktuell.Size = New System.Drawing.Size(101, 15) + Me.lblZeit_aktuell.TabIndex = 6 + Me.lblZeit_aktuell.Text = "Refresh: 11:22 Uhr" + Me.lblZeit_aktuell.Visible = False ' - 'cbx_My_Brexit + 'lblDauer ' - Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cbx_My_Brexit.AutoSize = True - Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White - Me.cbx_My_Brexit.Location = New System.Drawing.Point(3, 3) - Me.cbx_My_Brexit.Name = "cbx_My_Brexit" - Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17) - Me.cbx_My_Brexit.TabIndex = 28 - Me.cbx_My_Brexit.Text = "BREXIT" - Me.cbx_My_Brexit.UseVisualStyleBackColor = True - Me.cbx_My_Brexit.Visible = False + 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(978, 15) + Me.lblDauer.Name = "lblDauer" + Me.lblDauer.Size = New System.Drawing.Size(136, 17) + Me.lblDauer.TabIndex = 27 + Me.lblDauer.Text = "1111123 ms" + Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' - 'btnColor + 'lblEintraege ' - Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnColor.BackColor = System.Drawing.Color.White - Me.btnColor.Location = New System.Drawing.Point(471, 1) - Me.btnColor.Name = "btnColor" - Me.btnColor.Size = New System.Drawing.Size(36, 23) - Me.btnColor.TabIndex = 37 - Me.btnColor.UseVisualStyleBackColor = False - Me.btnColor.Visible = False - ' - 'lblMySND_Anzeige - ' - Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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(277, 3) - Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige" - Me.lblMySND_Anzeige.Size = New System.Drawing.Size(48, 13) - Me.lblMySND_Anzeige.TabIndex = 20 - Me.lblMySND_Anzeige.Text = "Anzeige:" - ' - 'cboMyAvisoAnzeige - ' - Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing - Me.cboMyAvisoAnzeige._allowFreiText = False - Me.cboMyAvisoAnzeige._value = "" - Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.cboMyAvisoAnzeige.FormattingEnabled = True - Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(335, 1) - Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" - Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(118, 21) - Me.cboMyAvisoAnzeige.TabIndex = 21 - ' - 'cboMy_Grenzstelle - ' - Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing - Me.cboMy_Grenzstelle._allowFreiText = False - Me.cboMy_Grenzstelle._value = "" - Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - 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.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.cboMy_Grenzstelle.FormattingEnabled = True - Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(207, 1) - Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" - Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21) - Me.cboMy_Grenzstelle.TabIndex = 26 - ' - 'cboMy_QS - ' - Me.cboMy_QS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.ForeColor = System.Drawing.Color.White - Me.cboMy_QS.Location = New System.Drawing.Point(519, 5) - 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 - ' - 'cbx_My_LKW - ' - Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cbx_My_LKW.AutoSize = True - Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White - Me.cbx_My_LKW.Location = New System.Drawing.Point(83, 3) - Me.cbx_My_LKW.Name = "cbx_My_LKW" - Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17) - Me.cbx_My_LKW.TabIndex = 24 - Me.cbx_My_LKW.Text = "LKW" - Me.cbx_My_LKW.UseVisualStyleBackColor = True - ' - 'cboMy_VB - ' - Me.cboMy_VB.Anchor = CType((System.Windows.Forms.AnchorStyles.Top 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.ForeColor = System.Drawing.Color.White - Me.cboMy_VB.Location = New System.Drawing.Point(538, 5) - 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.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblMySnd_Grenzstelle.AutoSize = True - Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White - Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(139, 4) - Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle" - Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(62, 13) - Me.lblMySnd_Grenzstelle.TabIndex = 25 - Me.lblMySnd_Grenzstelle.Text = "Grenzstelle:" - ' - 'tbcntrAvisoSND - ' - Me.tbcntrAvisoSND.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.tbcntrAvisoSND.Controls.Add(Me.tbSndAlle) - Me.tbcntrAvisoSND.Controls.Add(Me.tbSndOffen) - Me.tbcntrAvisoSND.Controls.Add(Me.tbSndFreigegeben) - 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(235, 222) - Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND" - Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3) - Me.tbcntrAvisoSND.SelectedIndex = 0 - Me.tbcntrAvisoSND.Size = New System.Drawing.Size(129, 11) - Me.tbcntrAvisoSND.TabIndex = 27 - Me.tbcntrAvisoSND.Visible = False - ' - 'tbSndAlle - ' - Me.tbSndAlle.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tbSndAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tbSndAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tbSndAlle.Location = New System.Drawing.Point(4, 34) - Me.tbSndAlle.Name = "tbSndAlle" - Me.tbSndAlle.Padding = New System.Windows.Forms.Padding(3) - Me.tbSndAlle.Size = New System.Drawing.Size(121, 0) - Me.tbSndAlle.TabIndex = 0 - Me.tbSndAlle.Text = "Alle Sendungen" - ' - 'tbSndOffen - ' - Me.tbSndOffen.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tbSndOffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tbSndOffen.Location = New System.Drawing.Point(4, 34) - Me.tbSndOffen.Name = "tbSndOffen" - Me.tbSndOffen.Padding = New System.Windows.Forms.Padding(3) - Me.tbSndOffen.Size = New System.Drawing.Size(121, 0) - Me.tbSndOffen.TabIndex = 1 - Me.tbSndOffen.Text = "Offen" - ' - 'tbSndFreigegeben - ' - Me.tbSndFreigegeben.Location = New System.Drawing.Point(4, 34) - Me.tbSndFreigegeben.Name = "tbSndFreigegeben" - Me.tbSndFreigegeben.Size = New System.Drawing.Size(121, 0) - Me.tbSndFreigegeben.TabIndex = 2 - Me.tbSndFreigegeben.Text = "Freigegeben" - Me.tbSndFreigegeben.UseVisualStyleBackColor = True - ' - 'CheckBox1 - ' - Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.CheckBox1.AutoSize = True - Me.CheckBox1.Checked = True - Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox1.ForeColor = System.Drawing.Color.White - Me.CheckBox1.Location = New System.Drawing.Point(244, 260) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(50, 17) - Me.CheckBox1.TabIndex = 28 - Me.CheckBox1.Text = "LKW" - Me.CheckBox1.UseVisualStyleBackColor = True - Me.CheckBox1.Visible = False - ' - 'Button7 - ' - Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button7.Font = New System.Drawing.Font("Segoe UI", 11.0!) - Me.Button7.ForeColor = System.Drawing.Color.Black - Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image) - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button7.Location = New System.Drawing.Point(917, 259) - Me.Button7.MaximumSize = New System.Drawing.Size(121, 35) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(121, 35) - Me.Button7.TabIndex = 32 - Me.Button7.Text = "Sendung" - Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.UseVisualStyleBackColor = True - Me.Button7.Visible = False + 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(975, 3) + 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 ' 'gridAviso ' @@ -1304,10 +1069,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.tbcntrAvisoSND) - Me.Controls.Add(Me.CheckBox1) - Me.Controls.Add(Me.Button7) - Me.Controls.Add(Me.pblSNDOptions) Me.Controls.Add(Me.gridAviso) Me.Controls.Add(Me.Panel1) Me.Name = "usrCntlHauptfenster_Suche_AVISO" @@ -1318,32 +1079,14 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.pnlSearch.PerformLayout() Me.tbcntrAvisoLKW.ResumeLayout(False) Me.pnlTime.ResumeLayout(False) - Me.pblSNDOptions.ResumeLayout(False) - Me.pblSNDOptions.PerformLayout() - Me.tbcntrAvisoSND.ResumeLayout(False) + Me.pnlTime.PerformLayout() CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() Me.ctxtFarben.ResumeLayout(False) Me.ResumeLayout(False) - Me.PerformLayout() End Sub Friend WithEvents Panel1 As Panel - Friend WithEvents pblSNDOptions As Panel - Friend WithEvents cbx_My_Brexit As CheckBox - Friend WithEvents btnColor As Button - Friend WithEvents lblMySND_Anzeige As Label - Friend WithEvents cboMyAvisoAnzeige As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents cboMy_Grenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents cboMy_QS As CheckBox - Friend WithEvents cbx_My_LKW As CheckBox - Friend WithEvents cboMy_VB As CheckBox - Friend WithEvents lblMySnd_Grenzstelle As Label - Friend WithEvents CheckBox1 As CheckBox - Friend WithEvents tbcntrAvisoSND As TabControl - Friend WithEvents tbSndAlle As TabPage - Friend WithEvents tbSndOffen As TabPage - Friend WithEvents tbSndFreigegeben As TabPage Friend WithEvents txtBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents Label10 As Label Friend WithEvents cboImEx As VERAG_PROG_ALLGEMEIN.MyComboBox @@ -1416,7 +1159,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Friend WithEvents lblDauer As Label Friend WithEvents btnE_Aviso As Button Friend WithEvents btnNeu As Button - Friend WithEvents Button7 As Button Friend WithEvents Label22 As Label Friend WithEvents lblHinweis As Label Friend WithEvents btnDetailsuche As Button diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.resx b/Aviso/usrCntlHauptfenster_Suche_AVISO.resx index dee4168..5c0fc46 100644 --- a/Aviso/usrCntlHauptfenster_Suche_AVISO.resx +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.resx @@ -124,14 +124,6 @@ dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO zULyAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO - BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO - zULyAAAAAElFTkSuQmCC diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb index a1c4591..8a57a92 100644 --- a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb @@ -72,62 +72,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO gridAviso.Rows(0).Selected = True End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then - cboMy_Grenzstelle.Items.Clear() - cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False) - cboMy_Grenzstelle.changeItem("") - Else - cboMy_Grenzstelle.Items.Clear() - ''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office - '''' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK")) - ''''End If - cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE") - ' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG+AMB", "SBG+AMB")) - cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO")) - cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???")) - cboMy_Grenzstelle.changeItem("") - ''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar.. - End If - - - - cboMyAvisoAnzeige.Items.Clear() - cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE")) - cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer")) - cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False) - cboMyAvisoAnzeige.changeItem("Benutzer") - - - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then - cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1")) - cboMy_QS.CheckState = CheckState.Checked - cboMy_VB.CheckState = CheckState.Unchecked - cboMyAvisoAnzeige.changeItem("T1") - Else - - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then - cboMy_QS.CheckState = CheckState.Unchecked - cboMy_VB.CheckState = CheckState.Indeterminate - Else - cboMy_QS.CheckState = CheckState.Checked - cboMy_VB.CheckState = CheckState.Unchecked - End If - - Dim myLKW As Boolean = False - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then - myLKW = True - End If - - If myLKW Then - cbx_My_LKW.Checked = True - cboMy_QS.CheckState = CheckState.Indeterminate - cboMy_VB.CheckState = CheckState.Indeterminate - ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then - cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) - - End If - End If MyComboBox1.Items.Clear() MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", UStatus_none)) @@ -201,18 +146,9 @@ Public Class usrCntlHauptfenster_Suche_AVISO End Select - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then - cbx_My_Brexit.Checked = True - End If - tbcntrAvisoLKW.Width = Panel1.Width - 'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y) - tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X, tbcntrAvisoLKW.Location.Y) - tbcntrAvisoSND.SelectedIndex = 1 - tbcntrAvisoSND.Width = tbcntrAvisoLKW.Width - tbcntrAvisoSND.Height = tbcntrAvisoLKW.Height If cboTeams.Items.Count = 0 Then cboTeams.Visible = False dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15) @@ -563,40 +499,40 @@ Public Class usrCntlHauptfenster_Suche_AVISO 'Dauer berechnen: For Each r As DataGridViewRow In .Rows r.DefaultCellStyle.Font = nfont - If Not cbx_My_LKW.Checked Then - If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER - r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) - ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) - ' r.Cells("Abfertigungsart").Value = "FREMD" - r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value - Else 'Nomal - Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value - If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] " + 'If False Then + ' If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER + ' r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) + ' ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) + ' ' r.Cells("Abfertigungsart").Value = "FREMD" + ' r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value + ' Else 'Nomal + ' Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value + ' If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] " - r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") - r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value + ' r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") + ' r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value - If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".." - End If + ' If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".." + ' End If - If .Columns("StatusVorbereitetQS") IsNot Nothing Then - If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then - DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv - DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" - Else - DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen" - End If - End If - If .Columns("StatusVorgeschrieben") IsNot Nothing Then - If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then - DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv - DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" - Else - DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen" - End If - End If + ' If .Columns("StatusVorbereitetQS") IsNot Nothing Then + ' If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then + ' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv + ' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + ' Else + ' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen" + ' End If + ' End If + ' If .Columns("StatusVorgeschrieben") IsNot Nothing Then + ' If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then + ' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv + ' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + ' Else + ' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen" + ' End If + ' End If - End If + 'End If ' MsgBox(r.Cells(1).Value) ' MsgBox(r.Cells(6).Value) @@ -635,7 +571,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO 'Farbkennung If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then - If Not cbx_My_LKW.Checked Then + If True Then Select Case r.Cells("Status").Value Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2" ' Freigabe, N.Eingetr. @@ -890,89 +826,6 @@ Public Class usrCntlHauptfenster_Suche_AVISO hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC" - Else - - - '---------------------------------------------------------------------------------------------------------------------------------- - '--- Sendung --- - '---------------------------------------------------------------------------------------------------------------------------------- - Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer" - If cboMyAvisoAnzeige._value <> "" Then - If cboMyAvisoAnzeige._value = "ALLE" Then - ' inBearbeitungSQL = " 1=1 " 'ALLE - inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) " - ElseIf cboMyAvisoAnzeige._value = "T1" Then - inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 " - 'NUR VERAG/IMEX: - inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) " - ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then - If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG - inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId - OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) " - Else - inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) " - - End If - End If - End If - Dim hSQLFirma = "" - hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " & - " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " & - " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " & - " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & - hSQLFirma & " AND ( " & inBearbeitungSQL & ") " - - Select Case cboMy_VB.CheckState - Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null " - Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null " - ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null " - End Select - Select Case cboMy_QS.CheckState - Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null " - Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null " - ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null " - End Select - If cboMy_Grenzstelle._value = "ALLE_WO" Then - hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " - - Else - - If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" - If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') " - - End If - - If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') " - - 'Farbe - If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then - Select Case btnColor.BackColor - Case Color.Red - hSQL &= " AND (Status = 3 ) " - Case Color.Orange - ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) " - hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) " - Case Color.Yellow - hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) " - End Select - End If - ''Farbe - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then - ' Select Case btnColor.BackColor - ' Case Color.Red - ' hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) " - ' Case Color.Orange - ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) " - ' Case Color.Yellow - ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) " - ' End Select - 'End If - - 'hSQL &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen! - ' Funktioniert nciht, wg. WO - - hSQL &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID") - End If ' MsgBox(hSQL) @@ -995,12 +848,11 @@ Public Class usrCntlHauptfenster_Suche_AVISO 'gridAviso.DataSource = AVISOBinding.bindingSource 'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count) + 'Grid neu designen + gridAviso_SpaltenFestlegen() - If CheckBox1.Checked Then - gridAviso_SpaltenFestlegen() - End If 'Tabelle Kommt/Geht bereinigen If gridAviso.RowCount = 0 Then @@ -1015,7 +867,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO ' lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt" hMerkZeit = Now - lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm") + lblZeit_aktuell.Text = "Refresh: " & Format(Now, "HH:mm") @@ -1058,7 +910,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO ' initPnlSearch() 'End Sub Sub initPnlSearch() - MsgBox("s") + If pnlSearch.Visible Then pnlSearch.Visible = False Panel1.Height -= pnlSearch.Height @@ -1105,30 +957,31 @@ Public Class usrCntlHauptfenster_Suche_AVISO Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click - If CheckBox1.Checked Then - toggle_LKW_SND("LKW") - Else - toggle_LKW_SND("SND") - End If - End Sub - - Private Sub toggle_LKW_SND(typ) - AVISO_TYP = typ - If AVISO_TYP = "LKW" Then - tbcntrAvisoLKW.Visible = True - tbcntrAvisoSND.Visible = False - pblSNDOptions.Visible = False - - ElseIf AVISO_TYP = "SND" Then - tbcntrAvisoLKW.Visible = False - tbcntrAvisoSND.Visible = True - pblSNDOptions.Visible = True - End If - + 'If CheckBox1.Checked Then + ' toggle_LKW_SND("LKW") + 'Else + ' toggle_LKW_SND("SND") + 'End If Aviso_anzeigen("") - End Sub + 'Private Sub toggle_LKW_SND(typ) + ' AVISO_TYP = typ + ' If AVISO_TYP = "LKW" Then + ' tbcntrAvisoLKW.Visible = True + ' tbcntrAvisoSND.Visible = False + ' pblSNDOptions.Visible = False + + ' ElseIf AVISO_TYP = "SND" Then + ' tbcntrAvisoLKW.Visible = False + ' tbcntrAvisoSND.Visible = True + ' pblSNDOptions.Visible = True + ' End If + + ' Aviso_anzeigen("") + + 'End Sub + Private Sub txtSuche_KeyDown1(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSuche.PreviewKeyDown If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then Aviso_anzeigen("") @@ -1376,7 +1229,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO Exit Sub End If - If cbx_My_LKW.Checked Then + If True Then Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() @@ -1386,19 +1239,6 @@ Public Class usrCntlHauptfenster_Suche_AVISO PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick() 'Aviso_anzeigen("") - Else - - If gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub - - Dim SendungsId = gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value - Dim AvisoID = gridAviso.SelectedRows(0).Cells("AvisoID").Value - - Dim f = Func.openSnd(SendungsId, AvisoID) - If f IsNot Nothing Then - AddHandler f.FormClosed, Sub() - PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick() - End Sub - End If End If If gridAviso.SelectedRows.Count = 0 Then Exit Sub @@ -1421,46 +1261,6 @@ Public Class usrCntlHauptfenster_Suche_AVISO - Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged - If Grid_aktiv Then - 'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen - If sender Is cboMyAvisoAnzeige Then - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then - Grid_aktiv = False - If cboMyAvisoAnzeige._value = "T1" Then - cboMy_QS.CheckState = CheckState.Checked - cboMy_VB.CheckState = CheckState.Unchecked - Else - cboMy_QS.CheckState = CheckState.Indeterminate - cboMy_VB.CheckState = CheckState.Indeterminate - End If - Grid_aktiv = True - End If - End If - - 'DGV anzeigen: - Aviso_anzeigen("") - End If - cboMy_QS.Visible = Not cbx_My_LKW.Checked - cboMy_VB.Visible = Not cbx_My_LKW.Checked - cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked - lblMySND_Anzeige.Visible = Not cbx_My_LKW.Checked - - If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then - btnColor.Visible = Not cbx_My_LKW.Checked - Else - btnColor.Visible = False - End If - If cbx_My_LKW.Checked Then - ' lblMeineAviso.Text = "Meine Aviso:" - cbx_My_Brexit.Visible = False - Else - ' lblMeineAviso.Text = "Meine Sendungen:" - cbx_My_Brexit.Visible = True - End If - End Sub - - Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboImEx.SelectedIndexChanged If Grid_aktiv Then Aviso_anzeigen("") @@ -1473,31 +1273,11 @@ Public Class usrCntlHauptfenster_Suche_AVISO End If End Sub - Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click + Private Sub Button13_Click(sender As Object, e As EventArgs) ctxtFarben.Show(Cursor.Position) End Sub - Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click - btnColor.BackColor = Color.Red - ' meineAviso_anzeigen() - End Sub - - Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click - btnColor.BackColor = Color.Orange - ' meineAviso_anzeigen() - End Sub - - Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click - btnColor.BackColor = Color.Yellow - ' meineAviso_anzeigen() - End Sub - - - Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click - btnColor.BackColor = Color.White - ' meineAviso_anzeigen() - End Sub Function getDateVorschreiben(addDays) As Date @@ -1959,4 +1739,5 @@ Public Class usrCntlHauptfenster_Suche_AVISO 'pnlSearch.Visible = Not pnlSearch.Visible initPnlSearch() End Sub + End Class diff --git a/Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb b/Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb new file mode 100644 index 0000000..e9de69e --- /dev/null +++ b/Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb @@ -0,0 +1,491 @@ + +Partial Class usrCntlHauptfenster_Suche_SND + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlHauptfenster_Suche_SND)) + 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.btnDetailsuche = New System.Windows.Forms.Button() + Me.lblDauer = New System.Windows.Forms.Label() + Me.lblEintraege = New System.Windows.Forms.Label() + Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() + Me.btnColor = New System.Windows.Forms.Button() + Me.lblMySND_Anzeige = New System.Windows.Forms.Label() + Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboMy_QS = New System.Windows.Forms.CheckBox() + Me.cboMy_VB = New System.Windows.Forms.CheckBox() + Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label() + 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.btnNeu = New System.Windows.Forms.Button() + 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) + Me.ALLEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem() + Me.lblZeit_aktuell = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel1.SuspendLayout() + Me.tbcntrAvisoSND.SuspendLayout() + CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ctxtFarben.SuspendLayout() + Me.SuspendLayout() + ' + '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.Label1) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.lblZeit_aktuell) + Me.Panel1.Controls.Add(Me.cbx_My_Brexit) + Me.Panel1.Controls.Add(Me.tbcntrAvisoSND) + Me.Panel1.Controls.Add(Me.btnDetailsuche) + Me.Panel1.Controls.Add(Me.btnColor) + Me.Panel1.Controls.Add(Me.lblDauer) + Me.Panel1.Controls.Add(Me.lblMySND_Anzeige) + Me.Panel1.Controls.Add(Me.cboMyAvisoAnzeige) + Me.Panel1.Controls.Add(Me.btnNeu) + Me.Panel1.Controls.Add(Me.cboMy_Grenzstelle) + Me.Panel1.Controls.Add(Me.lblEintraege) + Me.Panel1.Controls.Add(Me.cboMy_QS) + Me.Panel1.Controls.Add(Me.cboMy_VB) + Me.Panel1.Controls.Add(Me.lblMySnd_Grenzstelle) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1243, 76) + Me.Panel1.TabIndex = 3 + ' + 'btnDetailsuche + ' + Me.btnDetailsuche.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.btnDetailsuche.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnDetailsuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDetailsuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.btnDetailsuche.ForeColor = System.Drawing.Color.White + Me.btnDetailsuche.ImageAlign = System.Drawing.ContentAlignment.TopRight + Me.btnDetailsuche.Location = New System.Drawing.Point(788, 11) + Me.btnDetailsuche.Margin = New System.Windows.Forms.Padding(0) + Me.btnDetailsuche.Name = "btnDetailsuche" + Me.btnDetailsuche.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.btnDetailsuche.Size = New System.Drawing.Size(185, 27) + Me.btnDetailsuche.TabIndex = 39 + Me.btnDetailsuche.Text = "Detailsuche" + Me.btnDetailsuche.UseVisualStyleBackColor = False + ' + '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(974, 21) + Me.lblDauer.Name = "lblDauer" + Me.lblDauer.Size = New System.Drawing.Size(136, 17) + Me.lblDauer.TabIndex = 27 + Me.lblDauer.Text = "1111123 ms" + Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '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 + ' + 'cbx_My_Brexit + ' + Me.cbx_My_Brexit.AutoSize = True + Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White + Me.cbx_My_Brexit.Location = New System.Drawing.Point(342, 6) + Me.cbx_My_Brexit.Name = "cbx_My_Brexit" + Me.cbx_My_Brexit.Size = New System.Drawing.Size(63, 19) + Me.cbx_My_Brexit.TabIndex = 28 + Me.cbx_My_Brexit.Text = "BREXIT" + Me.cbx_My_Brexit.UseVisualStyleBackColor = True + Me.cbx_My_Brexit.Visible = False + ' + '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(937, 50) + Me.btnColor.Name = "btnColor" + Me.btnColor.Size = New System.Drawing.Size(36, 23) + Me.btnColor.TabIndex = 37 + Me.btnColor.UseVisualStyleBackColor = False + ' + 'lblMySND_Anzeige + ' + Me.lblMySND_Anzeige.AutoSize = True + Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White + Me.lblMySND_Anzeige.Location = New System.Drawing.Point(142, 7) + 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.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.cboMyAvisoAnzeige.FormattingEnabled = True + Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(200, 5) + Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" + Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(118, 21) + Me.cboMyAvisoAnzeige.TabIndex = 21 + ' + '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.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.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, 21) + Me.cboMy_Grenzstelle.TabIndex = 26 + ' + '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.ForeColor = System.Drawing.Color.White + Me.cboMy_QS.Location = New System.Drawing.Point(1203, 55) + 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 + ' + '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.ForeColor = System.Drawing.Color.White + Me.cboMy_VB.Location = New System.Drawing.Point(1222, 55) + 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, 8) + 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:" + ' + 'tbcntrAvisoSND + ' + Me.tbcntrAvisoSND.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndAlle) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndOffen) + Me.tbcntrAvisoSND.Controls.Add(Me.tbSndFreigegeben) + 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, 45) + Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND" + Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3) + Me.tbcntrAvisoSND.SelectedIndex = 0 + Me.tbcntrAvisoSND.Size = New System.Drawing.Size(360, 31) + Me.tbcntrAvisoSND.TabIndex = 27 + Me.tbcntrAvisoSND.Visible = False + ' + 'tbSndAlle + ' + Me.tbSndAlle.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tbSndAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbSndAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbSndAlle.Location = New System.Drawing.Point(4, 34) + Me.tbSndAlle.Name = "tbSndAlle" + Me.tbSndAlle.Padding = New System.Windows.Forms.Padding(3) + Me.tbSndAlle.Size = New System.Drawing.Size(352, 0) + Me.tbSndAlle.TabIndex = 0 + Me.tbSndAlle.Text = "Alle Sendungen" + ' + 'tbSndOffen + ' + Me.tbSndOffen.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tbSndOffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbSndOffen.Location = New System.Drawing.Point(4, 34) + Me.tbSndOffen.Name = "tbSndOffen" + Me.tbSndOffen.Padding = New System.Windows.Forms.Padding(3) + Me.tbSndOffen.Size = New System.Drawing.Size(121, 0) + Me.tbSndOffen.TabIndex = 1 + Me.tbSndOffen.Text = "Offen" + ' + 'tbSndFreigegeben + ' + Me.tbSndFreigegeben.Location = New System.Drawing.Point(4, 34) + Me.tbSndFreigegeben.Name = "tbSndFreigegeben" + Me.tbSndFreigegeben.Size = New System.Drawing.Size(121, 0) + Me.tbSndFreigegeben.TabIndex = 2 + Me.tbSndFreigegeben.Text = "Freigegeben" + Me.tbSndFreigegeben.UseVisualStyleBackColor = True + ' + '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 + Me.btnNeu.Visible = False + ' + 'gridAviso + ' + Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1 + Me.gridAviso.AllowUserToAddRows = False + Me.gridAviso.AllowUserToDeleteRows = False + Me.gridAviso.AllowUserToResizeRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray + Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue + 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 + 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, 76) + Me.gridAviso.MultiSelect = False + Me.gridAviso.Name = "gridAviso" + Me.gridAviso.ReadOnly = True + 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 + 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, 556) + Me.gridAviso.TabIndex = 4 + Me.gridAviso.TabStop = False + ' + 'TimerAkte + ' + Me.TimerAkte.Interval = 5000 + ' + 'ctxtFarben + ' + Me.ctxtFarben.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.ctxtFarben.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ALLEToolStripMenuItem, Me.ToolStripMenuItem19, Me.ToolStripMenuItem20, Me.ToolStripMenuItem21}) + Me.ctxtFarben.Name = "cntxt" + Me.ctxtFarben.Size = New System.Drawing.Size(122, 92) + ' + 'ALLEToolStripMenuItem + ' + Me.ALLEToolStripMenuItem.Name = "ALLEToolStripMenuItem" + Me.ALLEToolStripMenuItem.Size = New System.Drawing.Size(121, 22) + Me.ALLEToolStripMenuItem.Text = "ALLE" + ' + 'ToolStripMenuItem19 + ' + Me.ToolStripMenuItem19.BackColor = System.Drawing.Color.Red + Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" + Me.ToolStripMenuItem19.Size = New System.Drawing.Size(121, 22) + Me.ToolStripMenuItem19.Text = "ROT" + ' + 'ToolStripMenuItem20 + ' + Me.ToolStripMenuItem20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(121, 22) + Me.ToolStripMenuItem20.Text = "ORANGE" + ' + 'ToolStripMenuItem21 + ' + Me.ToolStripMenuItem21.BackColor = System.Drawing.Color.Yellow + Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21" + Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22) + Me.ToolStripMenuItem21.Text = "GELB" + ' + '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(668, 13) + 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 + ' + '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.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, 49) + Me.Button1.MaximumSize = New System.Drawing.Size(121, 35) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(88, 24) + Me.Button1.TabIndex = 41 + Me.Button1.Text = "Vorschreiben" + Me.Button1.UseVisualStyleBackColor = 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.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, 49) + Me.Button2.MaximumSize = New System.Drawing.Size(121, 35) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(88, 24) + Me.Button2.TabIndex = 42 + Me.Button2.Text = "Abklärung" + Me.Button2.UseVisualStyleBackColor = False + ' + '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(868, 54) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(63, 15) + Me.Label1.TabIndex = 43 + Me.Label1.Text = "Prio/Stufe:" + ' + 'usrCntlHauptfenster_Suche_SND + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.gridAviso) + Me.Controls.Add(Me.Panel1) + Me.Name = "usrCntlHauptfenster_Suche_SND" + Me.Size = New System.Drawing.Size(1243, 632) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.tbcntrAvisoSND.ResumeLayout(False) + CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() + Me.ctxtFarben.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Panel1 As Panel + Friend WithEvents cbx_My_Brexit As CheckBox + Friend WithEvents btnColor As Button + Friend WithEvents lblMySND_Anzeige As Label + Friend WithEvents cboMyAvisoAnzeige As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cboMy_Grenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cboMy_QS As CheckBox + Friend WithEvents cboMy_VB As CheckBox + Friend WithEvents lblMySnd_Grenzstelle As Label + Friend WithEvents tbcntrAvisoSND As TabControl + Friend WithEvents tbSndAlle As TabPage + Friend WithEvents tbSndOffen As TabPage + Friend WithEvents tbSndFreigegeben As TabPage + Friend WithEvents lblEintraege As Label + Friend WithEvents gridAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents TimerAkte As Timer + Friend WithEvents ctxtFarben As ContextMenuStrip + Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem + Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem + Friend WithEvents lblDauer As Label + Friend WithEvents btnNeu As Button + Friend WithEvents btnDetailsuche As Button + Friend WithEvents lblZeit_aktuell As Label + Friend WithEvents Button2 As Button + Friend WithEvents Button1 As Button + Friend WithEvents Label1 As Label +End Class diff --git a/Aviso/usrCntlHauptfenster_Suche_SND.resx b/Aviso/usrCntlHauptfenster_Suche_SND.resx new file mode 100644 index 0000000..5c0fc46 --- /dev/null +++ b/Aviso/usrCntlHauptfenster_Suche_SND.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO + BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO + zULyAAAAAElFTkSuQmCC + + + + 17, 17 + + + 126, 56 + + \ No newline at end of file diff --git a/Aviso/usrCntlHauptfenster_Suche_SND.vb b/Aviso/usrCntlHauptfenster_Suche_SND.vb new file mode 100644 index 0000000..3ea4272 --- /dev/null +++ b/Aviso/usrCntlHauptfenster_Suche_SND.vb @@ -0,0 +1,1374 @@ + +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO +Imports VERAG_PROG_ALLGEMEIN.cGlobal + + +Public Class usrCntlHauptfenster_Suche_SND + + + Public AVISO_TYP = "SND" + Public aktiv = False + Dim cProgramFunctions As New cProgramFunctions + Public PARENT_FRMHAUPTFENSTER As frmHauptfensterNew + Dim Grid_aktiv As Boolean = False + Private AvisoDAL As New cAvisoDAL + Private FUNC As New AvisoStatusFunctions + Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL + + Dim sd = 0 + Dim closeOK = False + Dim Fullscreen = False + Dim rowHeight = 20 + Dim chkFarben = True + + Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220) + Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200) + + Public gridFont As New Font(Me.Font.FontFamily, 8) + + Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Public Sub RESET() + cboMy_Grenzstelle.SelectedIndex = 0 + ' MyComboBox1.changeItem(UStatus_AVEingang) + + tbcntrAvisoSND.SelectedIndex = 0 + Grid_aktiv = True + initDat() + Aviso_anzeigen("") + End Sub + + + Private Sub usrCntlHauptfenster_Suche_AVISO_Load(sender As Object, e As EventArgs) Handles Me.Load + 'pnlSearch.Height = 145 + PARENT_FRMHAUPTFENSTER = PARENT_FRMHAUPTFENSTER + + + ' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + + 'cboImEx.Items.Clear() + 'cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + 'cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT")) + 'cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT", "EXPORT")) + 'cboImEx.changeItem("") + + + If gridAviso.RowCount > 0 Then + gridAviso.Rows(0).Selected = True + End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then + cboMy_Grenzstelle.Items.Clear() + cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False) + cboMy_Grenzstelle.changeItem("") + Else + cboMy_Grenzstelle.Items.Clear() + ''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office + '''' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK")) + ''''End If + + cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE") + ' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG+AMB", "SBG+AMB")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO")) + cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???")) + cboMy_Grenzstelle.changeItem("") + ''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar.. + End If + + + + cboMyAvisoAnzeige.Items.Clear() + cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE")) + cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer")) + cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False) + cboMyAvisoAnzeige.changeItem("Benutzer") + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1")) + cboMy_QS.CheckState = CheckState.Checked + cboMy_VB.CheckState = CheckState.Unchecked + cboMyAvisoAnzeige.changeItem("T1") + Else + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then + cboMy_QS.CheckState = CheckState.Unchecked + cboMy_VB.CheckState = CheckState.Indeterminate + Else + cboMy_QS.CheckState = CheckState.Checked + cboMy_VB.CheckState = CheckState.Unchecked + End If + + Dim myLKW As Boolean = False + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then + myLKW = True + End If + + If myLKW Then + ' cbx_My_LKW.Checked = True + cboMy_QS.CheckState = CheckState.Indeterminate + cboMy_VB.CheckState = CheckState.Indeterminate + ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then + cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) + + End If + End If + + + 'cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True) + + + + If My.Computer.Screen.WorkingArea.Width < 1300 Then + + + End If + + + + SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then + cbx_My_Brexit.Checked = True + End If + + + + tbcntrAvisoSND.SelectedIndex = 1 + + TimerAkte.Enabled = True + + ' pnlSearch.Visible = False + initPnlSearch() + Grid_aktiv = True + End Sub + + + Public Sub gridAviso_SpaltenFestlegen() + Try + + If gridAviso.RowCount = 0 Then Exit Sub + Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) + + If AVISO_TYP = "SND" Then + + + + 'Dim sqlStr = "" + + 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + 'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) + 'If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts... + + 'Dim errOcc = False + + ''MsgBox(sqlStr) + 'Try + ' gridAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG) + 'End Try + + + ' gridMyAviso.DataSource = VermerkeDAL.loadTableMyAviso(VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID) + ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08")))) + ' MsgBox(gridMyAviso.RowCount) + + ' Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) + Dim nfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Regular) + + + 'MsgBox(sqlStr) + + + With gridAviso + If .Columns.Count <= 0 Then PARENT_FRMHAUPTFENSTER.pic.Visible = False : Exit Sub + If .Columns("AvisoID") Is Nothing Then PARENT_FRMHAUPTFENSTER.pic.Visible = False : Exit Sub + + .DefaultCellStyle.Font = nfont + + .MultiSelect = False + .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen + .Columns("Freigabe").Visible = False 'AvisoID nicht anzeigen + .Columns("maId").Visible = False 'maID nicht anzeigen + '.Columns("Vorbereitung").Visible = False 'Vorber. nicht anzeigen + + .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen + .Columns("LetzterMitarbeiterId").Visible = False 'Mitarb. nicht anzeigen + .Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen + + .Columns("Status").Width = 90 + .Columns("Status").HeaderText = "Status" + + .Columns("LKW_Nr").MinimumWidth = 90 + .Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen" + .Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .Columns("AvisoTVHinweis").Visible = False ' = 60 + .Columns("Dauer").Visible = False ' = 60 + + + .Columns("Datum").Visible = False 'Mitarb. nicht anzeigen + '.Columns("Datum").Width = 145 '115 + '.Columns("Datum").HeaderText = "Erfasst" + '.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + '.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns("AvisoEingang").Visible = False + ' .Columns("AvisoEingang").Width = 120 + ' .Columns("AvisoEingang").HeaderText = "Av.Eingang" + ' .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + ' .Columns("AvisoEingang").DefaultCellStyle.Format = "HH:mm, dddd" + + .Columns("Ankunft").Visible = False + .Columns("Ankunft").Width = 145 '115 + .Columns("Ankunft").HeaderText = "Ankunft" + .Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then + .Columns("Grenzstelle").Visible = True + .Columns("Grenzstelle").Width = 70 + .Columns("Grenzstelle").HeaderText = "Grenzstelle" + .Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + ' Else + ' .Columns("Grenzstelle").Visible = False + ' End If + + .Columns("Freigabe").Width = 80 + .Columns("Freigabe").HeaderText = "Freigabe" + ' .Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" + + .Columns("LKW_fertig").Width = 35 + .Columns("LKW_fertig").HeaderText = "OK" + .Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White + .Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + If cboMy_Grenzstelle._value = "NEU" Then + .Columns("VerwahrungStatus").Width = 55 + .Columns("VerwahrungStatus").HeaderText = "Kontrolle" + .Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White + .Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("VerwahrungStatus").Visible = True + Else + .Columns("VerwahrungStatus").Visible = False + End If + + If gridAviso.RowCount = 0 Then gridAviso.Columns.Clear() : Exit Sub + + + Dim t As New DataGridViewTextBoxColumn + t.Name = "DauerText" + t.Width = 80 + t.HeaderText = "Dauer" + t.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter + t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns.Insert(7, t) + + + + .Columns("tblSnd_Status").Visible = False + + .Columns("tblSnd_Abfertigungsart_ID").Visible = False + .Columns("tblSnd_Zollsystem_Land").Visible = False + .Columns("tblSnd_Vorgeschrieben").Visible = False + .Columns("tblSnd_Vorbereitet").Visible = False + .Columns("tblSnd_SendungID").Visible = False + .Columns("tblSnd_Fremdspedition").Visible = False + .Columns("tblSnd_FremdspeditionText").Visible = False + + .Columns("tblSnd_Empfaenger").MinimumWidth = 80 + .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger" + .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + .Columns("VoraussichtlichesEintreffen").Width = 55 + .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen" + .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM." + + ' .Columns("Vermerke_Anzahl").Width = 60 + ' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke" + ' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns("AbfertigungsNr").Width = 110 + .Columns("AbfertigungsNr").HeaderText = "Pos-Nr." + .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft + .Columns("AbfertigungsNr").Visible = False + + + + + + Dim c As DataGridViewImageColumn + c = New DataGridViewImageColumn + c.Name = "StatusVorbereitetQS" + c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Status 'Vorbereitet-QS' eintragen" + c.HeaderText = "QS" + .Columns.Add(c) + + + c = New DataGridViewImageColumn + c.Name = "StatusVorgeschrieben" + c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.ToolTipText = "Status 'Vorgeschrieben' eintragen" + c.HeaderText = "VG" + .Columns.Add(c) + + + Dim t2 = New DataGridViewTextBoxColumn + t2.Name = "Abfertigungsart" + t2.HeaderText = "Abfertigungsart" + t2.Width = 110 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White + 't.ToolTipText = "" + .Columns.Insert(7, t2) + + + + 'Dauer berechnen: + For Each r As DataGridViewRow In .Rows + r.DefaultCellStyle.Font = nfont + If True Then + If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER + r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) + ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) + ' r.Cells("Abfertigungsart").Value = "FREMD" + r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value + Else 'Nomal + Dim Abfertigungsland As String = If(r.Cells("tblSnd_Zollsystem_Land").Value Is DBNull.Value, "", r.Cells("tblSnd_Zollsystem_Land").Value) + If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] " + + r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") + r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value + + If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".." + End If + + If .Columns("StatusVorbereitetQS") IsNot Nothing Then + If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + Else + DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen" + End If + End If + If .Columns("StatusVorgeschrieben") IsNot Nothing Then + If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" + Else + DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen" + End If + End If + + End If + + ' MsgBox(r.Cells(1).Value) + ' MsgBox(r.Cells(6).Value) + ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells(6).Value)), Now)) + If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then + If CInt(r.Cells("Status").Value) > VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then + Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now) + If IsNumeric(dauerTmp) Then + r.Cells("Dauer").Value = dauerTmp + r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(dauerTmp) + Else + r.Cells("Dauer").Value = "0" + r.Cells("DauerText").Value = "0" + End If + End If + Else + r.Cells("DauerText").Value = "0" + r.Cells("Dauer").Value = "0" + End If + + + If r.Cells("VerwahrungStatus").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green + If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128) + If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green + If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red + ' MsgBox(r.Cells("Dauer").Value) + + ' If CBool(r.Cells("Vorbereitung").Value) = True Then + 'r.Cells("Status").Value = 99 + 'End If + + + + + 'Farbkennung + + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + If True Then + Select Case r.Cells("Status").Value + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2" + ' Freigabe, N.Eingetr. + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3" + ' Ankunft + r.DefaultCellStyle.BackColor = Color.IndianRed + r.Cells("DauerText").Style.ForeColor = Color.White + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN + ' Ankunft + r.DefaultCellStyle.BackColor = Color.SteelBlue + r.Cells("DauerText").Style.ForeColor = Color.White + Case Else + 'Alle anderen Status: + If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then + + Dim VoraussichtlichesEintreffen = CDate(r.Cells("VoraussichtlichesEintreffen").Value) + + 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute + ' r.DefaultCellStyle.BackColor = Color.IndianRed + 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'morgen + ' r.DefaultCellStyle.BackColor = Color.Orange + 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'Ümorgen+ÜÜmorgen + ' r.DefaultCellStyle.BackColor = Color.LightYellow + 'End If + + 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute + ' r.DefaultCellStyle.BackColor = Color.Orange + 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen + ' r.DefaultCellStyle.BackColor = Color.LightYellow + 'End If + + If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute + r.DefaultCellStyle.BackColor = Color.Orange + ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen + r.DefaultCellStyle.BackColor = Color.LightYellow + End If + + Else + End If + End Select + End If + End If + + + Next + + + + + + + + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .ClearSelection() + + End With + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + gridAviso._TRANSLATE() + End Sub + + + Sub initDauerLKWFertig() + Try + + 'Dauer berechnen: + With gridAviso + + For Each r As DataGridViewRow In .Rows + If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then + If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then + If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then + Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now) + If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then + r.Cells("Dauer").Value = dauerTmp + Else + r.Cells("Dauer").Value = "0" + End If + Else + r.Cells("Dauer").Value = "0" + End If + End If + End If + If r.Cells("LKW_fertig").Value = "OK" Then + r.Cells("LKW_fertig").Style.ForeColor = Color.White + r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128) + 'Else + 'r.Cells("LKW_fertig").Style.BackColor = Color.White + End If + If r.Cells("LKW_fertig").Value = "DE" Then + r.Cells("LKW_fertig").Style.ForeColor = Color.White + r.Cells("LKW_fertig").Style.BackColor = Color.Green + 'Else + 'r.Cells("LKW_fertig").Style.BackColor = Color.White + End If + If r.Cells("VerwahrungStatus").Value = "OK" Then + r.Cells("VerwahrungStatus").Style.ForeColor = Color.White + r.Cells("VerwahrungStatus").Style.BackColor = Color.Green + 'Else + 'r.Cells("LKW_fertig").Style.BackColor = Color.White + End If + + + Next + End With + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True) + 'Paint wieder reaktivieren + locZeilen = -1 + gridAviso.Columns.Clear() + If Not Grid_aktiv Then Exit Sub + ' Grid_aktiv = False + Dim hStart As Integer = My.Computer.Clock.TickCount + Details_aktiv = False + gridAviso.GetOrder() + + Dim datumseinschr = "" + Dim top = "TOP 1000 " + + Dim hSQL As String = "" + If AVISO_TYP = "SND" Then + + + '---------------------------------------------------------------------------------------------------------------------------------- + '--- Sendung --- + '---------------------------------------------------------------------------------------------------------------------------------- + Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer" + If cboMyAvisoAnzeige._value <> "" Then + If cboMyAvisoAnzeige._value = "ALLE" Then + ' inBearbeitungSQL = " 1=1 " 'ALLE + inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) " + ElseIf cboMyAvisoAnzeige._value = "T1" Then + inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 " + 'NUR VERAG/IMEX: + inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) " + ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then + If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG + inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId + OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) " + Else + inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) " + + End If + End If + End If + + + + Dim hSQLFirma = "" + hSQL = " SELECT " & top & " AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " & + " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText ,tblSnd_Zollsystem_Land " & + " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " & + " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & + hSQLFirma & " AND ( " & inBearbeitungSQL & ") " + + Select Case cboMy_VB.CheckState + Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null " + Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null " + ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null " + End Select + Select Case cboMy_QS.CheckState + Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null " + Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null " + ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null " + End Select + If cboMy_Grenzstelle._value = "ALLE_WO" Then + hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " + + Else + + If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" + If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') " + + End If + + If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') " + + 'Farbe + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + Select Case btnColor.BackColor + Case Color.Red + hSQL &= " AND (Status = 3 ) " + Case Color.Orange + ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) " + hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) " + Case Color.Yellow + hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) " + End Select + End If + ''Farbe + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + ' Select Case btnColor.BackColor + ' Case Color.Red + ' hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) " + ' Case Color.Orange + ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) " + ' Case Color.Yellow + ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) " + ' End Select + 'End If + + 'hSQL &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen! + ' Funktioniert nciht, wg. WO + + hSQL &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft ,tblSnd_SendungID " + + End If + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) + + 'MsgBox(hSQL) + 'If hSort = "" Then + 'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC" + ' Else + ' hSQL += " " & hSort + ' End If + gridAviso.DefaultCellStyle.Font = gridFont + gridAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein + 'gridAviso.DataSource = AvisoDAL.loadDataTableBySQL(hSQL) + 'gridAviso.SET_SQL(hSQL, "AVISO", list) + 'Dim errOcc = False + 'gridAviso.LOAD(False, errOcc) + + Try + gridAviso.DataSource = VERAGSQL.loadDgvBySql_Param(hSQL, "AVISO", 1500, list, False, errOcc) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG) + End Try + If errOcc Then + PARENT_FRMHAUPTFENSTER.pic.Visible = True + End If + + + ' AVISOBinding.setARITHABORTOn() + 'AVISOBinding.initBinding(hSQL, "Aviso") + 'gridAviso.DataSource = AVISOBinding.bindingSource + + 'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count) + 'Grid neu designen + + + ' If CheckBox1.Checked Then + gridAviso_SpaltenFestlegen() + + ' End If + + 'Tabelle Kommt/Geht bereinigen + If gridAviso.RowCount = 0 Then + gridAviso.DataSource = Nothing + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = 0 + ' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID) + End If + + 'Anzeige der Anzahl gewählter Datensätze + VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount + 'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl + ' lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt" + + hMerkZeit = Now + lblZeit_aktuell.Text = "Refresh: " & Format(Now, "HH:mm") + + + + 'Focus auf 1. Zeile setzen, falls Auswahl vorhanden + If showDetails Then + If VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl > 0 Then gridAviso.CurrentCell = gridAviso.Rows(0).Cells(1) + End If + + Dim hEnde As Integer = My.Computer.Clock.TickCount + Dim hDifferenz As Integer = hEnde - hStart + ' btnÜbernehmen.Visible = True + Grid_aktiv = True + 'Aviso_anzeigen("") + If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then + If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True + End If + + gridAviso.SetOrder() + Details_aktiv = True + + If showDetails Then + If gridAviso.SelectedRows.Count > 0 Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value + End If + PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + ' If chkFarben Then GridZeichnenAviso() + + lblDauer.Text = "" & hDifferenz.ToString & " ms" + + lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "") + + + + 'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms" + End Sub + + + 'Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) + ' initPnlSearch() + 'End Sub + Sub initPnlSearch() + ' MsgBox("s") + ' If pnlSearch.Visible Then + ' pnlSearch.Visible = False + ' Panel1.Height -= pnlSearch.Height + ' Panel1.Height += tbcntrAvisoLKW.Height + ' tbcntrAvisoLKW.Visible = True + ' Me.Refresh() + ' Aviso_anzeigen("") + ' Else + ' pnlSearch.Visible = True + ' Panel1.Height += pnlSearch.Height + ' Panel1.Height -= tbcntrAvisoLKW.Height + ' tbcntrAvisoLKW.Visible = False + ' Me.Refresh() + ' initDat() + ' gridAviso.Columns.Clear() + ' cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + ' cbxAlle.Checked = True + ' cboGrenzstelle.SelectedIndex = 0 + ' End If + + ' If tbcntrAvisoLKW.SelectedTab IsNot tabAlle Then + ' Grid_aktiv = False + ' tbcntrAvisoLKW.SelectedIndex = 0 + ' End If + + ' Grid_aktiv = True + End Sub + + Sub initDat() + ' Dim tmpGrid_aktiv = Grid_aktiv + ' Grid_aktiv = False + ' If tbcntrAvisoLKW.SelectedIndex = 0 Then + ' cboGrenzstelle.SelectedIndex = 0 + ' MyComboBox1.changeItem(UStatus_AVEingang) + ' dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15) + ' dtpBis.Value = Now.AddDays(1) + ' ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then + ' MyComboBox1.changeItem(Status_Freigegeben) + ' dtpVon.Value = Now + ' dtpBis.Value = Now + ' End If + ' Grid_aktiv = tmpGrid_aktiv + End Sub + + + + + Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) + + Private Sub txtSuche_GotFocus(sender As Object, e As EventArgs) + Try + If My.Computer.Keyboard.CapsLock Then + Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0) + Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0) + End If + Catch ex As Exception + + End Try + End Sub + + + Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr + + + + Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick + + If gridAviso.SelectedRows.Count = 0 Then Exit Sub + ' If gridAviso.SelectedRows(0).Cells("AvisoID").Value Is DBNull.Value Then Exit Sub + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then + Exit Sub + End If + + + + If gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub + + Dim SendungsId = gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value + Dim AvisoID = gridAviso.SelectedRows(0).Cells("AvisoID").Value + + Dim f = FUNC.openSnd(SendungsId, AvisoID) + If f IsNot Nothing Then + AddHandler f.FormClosed, Sub() + PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick() + End Sub + End If + + + If gridAviso.SelectedRows.Count = 0 Then Exit Sub + + + End Sub + + + Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick + ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) + + ' lblAkte.Visible = False + End Sub + Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs) + If Grid_aktiv Then + ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "") + Aviso_anzeigen("") + End If + End Sub + + + + Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged + If Grid_aktiv Then + 'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen + If sender Is cboMyAvisoAnzeige Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + Grid_aktiv = False + If cboMyAvisoAnzeige._value = "T1" Then + cboMy_QS.CheckState = CheckState.Checked + cboMy_VB.CheckState = CheckState.Unchecked + Else + cboMy_QS.CheckState = CheckState.Indeterminate + cboMy_VB.CheckState = CheckState.Indeterminate + End If + Grid_aktiv = True + End If + End If + + 'DGV anzeigen: + Aviso_anzeigen("") + End If + 'cboMy_QS.Visible = True 'Not cbx_My_LKW.Checked + 'cboMy_VB.Visible = True 'Not cbx_My_LKW.Checked + 'cboMyAvisoAnzeige.Visible = True 'Not cbx_My_LKW.Checked + 'lblMySND_Anzeige.Visible = True 'Not cbx_My_LKW.Checked + 'cbx_My_Brexit.Visible = True + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then + btnColor.Visible = True 'Not cbx_My_LKW.Checked + Else + btnColor.Visible = False + End If + 'If cbx_My_LKW.Checked Then + ' ' lblMeineAviso.Text = "Meine Aviso:" + ' cbx_My_Brexit.Visible = False + 'Else + ' ' lblMeineAviso.Text = "Meine Sendungen:" + ' cbx_My_Brexit.Visible = True + 'End If + End Sub + + + Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs) + If Grid_aktiv Then + Aviso_anzeigen("") + End If + End Sub + + Private Sub txtBestimmungszollstelle_VALUE_CHANGED() + If Grid_aktiv Then + Aviso_anzeigen("") + End If + End Sub + + Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click + ctxtFarben.Show(Cursor.Position) + + End Sub + + Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click + btnColor.BackColor = Color.Red + Aviso_anzeigen("") + End Sub + + Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click + btnColor.BackColor = Color.Orange + Aviso_anzeigen("") + End Sub + + Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click + btnColor.BackColor = Color.Yellow + Aviso_anzeigen("") + End Sub + + + Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click + btnColor.BackColor = Color.White + Aviso_anzeigen("") + End Sub + + + Function getDateVorschreiben(addDays) As Date + Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren + + While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays)) + addDays += 1 + End While + Return Now.AddDays(addDays) + End Function + + Function getDaysVorschreiben(addDays) As Integer + Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren + + While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays)) + addDays += 1 + End While + Return addDays + End Function + + Private Sub btnNeu_Click(sender As Object, e As EventArgs) + Try + + Me.Cursor = Cursors.WaitCursor + gridAviso.ClearSelection() + 'gridMyAviso.ClearSelection() + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim f As New frmEintragAviso + + 'If sender Is ToolStripMenuItem17 Then + ' f.FIRMA_TMP = "ATILLA" + 'End If + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0 + ' f.frmHilf = Me + If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then + f.ShowDialog(frmGrayOut) + End If + frmGrayOut.Close() + PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick() 'Aviso_anzeigen("") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub Button12_Click(sender As Object, e As EventArgs) + Me.Cursor = Cursors.WaitCursor + Dim f As New frm_eAVISO + f.Show() + Me.Cursor = Cursors.Default + End Sub + + + + Private Sub usrCntlHauptfenster_Suche_AVISO_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown + If (e.KeyCode) = Keys.Add AndAlso e.Control Then + btnNeu.PerformClick() + End If + + End Sub + + Function setAkive_AuswahlID() As Integer + If gridAviso.SelectedRows.Count > 0 Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value) + Else + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1 + End If + + 'If gridMyAviso.SelectedRows.Count > 0 Then + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value) + ' If Not cbx_My_LKW.Checked Then + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value) + ' Else + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + + ' End If + 'Else + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + 'End If + + Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID + End Function + + Public Sub GridZeichnenAviso() + 'hier wird der Grid speziell designed + If gridAviso.RowCount = 0 Then Exit Sub + 'Falls Kunde auf inaktiv steht, dann wird Zeile ausgegraut angezeigt + For Each dr As DataGridViewRow In gridAviso.Rows + Select Case VarToInt(dr.Cells("Status").Value) + Case 0 'erfasst + dr.DefaultCellStyle.SelectionBackColor = Color.FromArgb(230, 0, 0) + dr.DefaultCellStyle.ForeColor = Color.FromArgb(230, 0, 0) + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 1 'freigegeben + dr.DefaultCellStyle.SelectionBackColor = Color.Green + dr.DefaultCellStyle.ForeColor = Color.Green + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 2 'LKW nicht eingetroffen + dr.DefaultCellStyle.SelectionBackColor = Color.Gray + dr.DefaultCellStyle.ForeColor = Color.Gray + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 3 'Ankunft + dr.DefaultCellStyle.SelectionBackColor = Color.Blue + dr.DefaultCellStyle.ForeColor = Color.Blue + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 4 'Vorbereitet + dr.DefaultCellStyle.SelectionBackColor = Color.Brown + dr.DefaultCellStyle.ForeColor = Color.Brown + dr.DefaultCellStyle.SelectionForeColor = Color.White + Case 5 'Vorbereitet + dr.DefaultCellStyle.SelectionBackColor = Color.Purple + dr.DefaultCellStyle.ForeColor = Color.Purple + dr.DefaultCellStyle.SelectionForeColor = Color.White + End Select + dr.Cells("Status").Style.BackColor = dr.DefaultCellStyle.ForeColor + dr.Cells("Status").Style.SelectionForeColor = dr.DefaultCellStyle.ForeColor + dr.Cells("LKW_Nr").Style.BackColor = lkwbackcolor + 'dr.Cells("LKW_Nr").Style.SelectionBackColor = lkwbackcolorSel + ' dr.Cells("LKW_Nr").Style.SelectionForeColor = Color.Black + Next + + + End Sub + + Public Sub lblHinweiseVisible() + ' If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") + 'If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") + End Sub + + + + Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True) + + PARENT_FRMHAUPTFENSTER.pic.Visible = False + Try + + + If Not Grid_aktiv Then Exit Sub + Details_aktiv = False + + + + ' If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False) + + + If AVISO_TYP = "LKW" Then + gridAviso.ClearSelection() + For Each r As DataGridViewRow In gridAviso.Rows + If CInt(r.Cells("AvisoId").Value) = tmpid Then + ' gridMyAviso.ClearSelection() + gridAviso.CurrentCell = r.Cells("Status") + r.Selected = True : Exit For + End If + Next + Else + gridAviso.ClearSelection() + If gridAviso.Rows.Count > 0 Then + For Each r As DataGridViewRow In gridAviso.Rows + If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then + gridAviso.CurrentCell = r.Cells("Status") + r.Selected = True : Exit For + End If + Next + End If + End If + + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid + Details_aktiv = True + + If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then + + Dim usrcntlAvisoID = -1 + Dim usrcntlAktiv As DateTime + If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then + If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then + usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID + usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv + Else + usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID + usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv + End If + + If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then + PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + Else + If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown) + PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + End If + End If + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") + End Try + End Sub + + + + Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseClick + + If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + 'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + 'gridMyAviso.ClearSelection() 'WARUM? + ' If sender Is gridAviso Then gridMyAviso.ClearSelection() : UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection() + ' If sender Is gridMyAviso Then gridAviso.ClearSelection() : UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection() + ' MsgBox(Grid_aktiv) + DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True + + Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value) + + If AVISO_TYP = "SND" Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value) + Else + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 + End If + + + If e.Button = MouseButtons.Right Then + If True Then + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ' If sender Is gridAviso Then + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + ' sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex) + ' conMenuAviso.Show(Cursor.Position) + ' End If + 'Else + setAkive_AuswahlID() + avisoAktualisierenAktiveIdBehalten(tmpId, , False) + Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status + If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then + 'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation) + PARENT_FRMHAUPTFENSTER.lblErrVermerk.Width = 300 + PARENT_FRMHAUPTFENSTER.lblErrVermerk.Visible = True + ' PARENT_FRMHAUPTFENSTER.hideErr.Enabled = True + Exit Sub + End If + + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim sv As New frmAddAktenvermerkShort(tmpId) + sv.Location = Me.PointToClient(Cursor.Position) + ' sv.ShowDialog() + sv.ShowDialog(frmGrayOut) + frmGrayOut.Close() + + End If + ElseIf e.Button = MouseButtons.Left Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + avisoAktualisierenAktiveIdBehalten(tmpId, , False) + End If + End Sub + + Private Sub gridAviso_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellContentClick + Try + If e.RowIndex > 0 Then + + ' MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name) + If AVISO_TYP = "SND" Then + If True Then 'gridMyAviso.SelectedRows.Count = 1 Then + Dim SendungsId = gridAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value + Dim AvisoID = gridAviso.Rows(e.RowIndex).Cells("AvisoID").Value + If SendungsId > 0 And AvisoID > 0 Then + + Select Case gridAviso.Columns(e.ColumnIndex).Name + + Case "StatusVorgeschrieben" + Me.Cursor = Cursors.WaitCursor + If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then + avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("") + End If + Me.Cursor = Cursors.Default + Case "StatusVorbereitetQS" + Me.Cursor = Cursors.WaitCursor + If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then + avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("") + End If + + Me.Cursor = Cursors.Default + End Select + End If + End If + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + + + Private Sub gridAviso_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.ColumnHeaderMouseClick + ' GridZeichnenAviso() + End Sub + + Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting + ' If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then + 'If gridAviso.Rows(e.RowIndex).Cells("Transportmittelart").Value = "SPRINTER" Then + ' If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then + ' e.Graphics.DrawImage(My.Resources.sprinter_white, e.CellBounds) + ' 'e.CellStyle.BackColor = Color.White + ' End If + + + ' If Not e.Handled Then + ' e.Handled = True + ' e.PaintContent(e.CellBounds) + ' End If + 'End If + ' End If + + End Sub + + + Private Sub gridAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridAviso.CellFormatting + 'Anzahl Minuten als verständlichen Text anzeigen + + If AVISO_TYP = "LKW" Then + Select Case gridAviso.Columns(e.ColumnIndex).Name + Case "Status" 'Status + Select Case VarToInt(e.Value) + Case 0 : e.Value = "Erfasst" + Case 1 : e.Value = "Freigegeben" + Case 2 : e.Value = "LKW n.e." + Case 3 : e.Value = "Ankunft" + Case 4 : e.Value = "Vorbereitet" + Case 5 : e.Value = "Vorgeschrieben" + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien" + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex" + Case Else : e.Value = "unbekannt" + End Select + + Case "AvisoEingang" 'Aviso-Eingang + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Datum" 'Aviso-Eingang + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Erfasst" 'Aviso-Eingang + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Vorbereitet" 'Vorbereitet + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Vorgeschrieben" 'Vorgeschrieben + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Ankunft" 'Ankunft + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Freigabe" 'Abfahrt + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Dauer" 'Dauer + + If VarToInt(e.Value) > 120 Then + gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red + End If + If VarToInt(e.Value) = 0 Then + e.Value = "" + Else + e.Value = Minuten_auf_Text(VarToLng(e.Value)) + End If + Case "VoraussichtlichesEintreffen" + ' "Der Operator = ist für Typ DBNull und Typ Date nicht definiert." + + If (gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value Is DBNull.Value OrElse gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value = LeerDatum) AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value IsNot DBNull.Value AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value <= 1 Then + 'gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.ForeColor = Color.Red + gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold) + End If + End Select + + Else + Try + + + If gridAviso Is Nothing Then Exit Sub + If gridAviso.Columns Is Nothing Then Exit Sub + If gridAviso.ColumnCount = 0 Then Exit Sub + + + 'Anzahl Minuten als verständlichen Text anzeigen + Select Case gridAviso.Columns(e.ColumnIndex).Name + Case "Status" 'Status + + 'Dim vb As Boolean = gridAviso.Rows(e.RowIndex).Cells("statVorb").Value + 'Select Case VarToInt(e.Value) + ' Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) + ' Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben") + ' Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.") + ' Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + ' Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet") + ' Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben") + ' ' Case 99 : e.Value = "in Vorbereitung" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + ' 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown + ' ' gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + ' Case Else : e.Value = "unbekannt" + 'End Select + + Select Case VarToInt(e.Value) + Case 0 : e.Value = "Erfasst" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60) + Case 1 : e.Value = "Freigegeben" + Case 2 : e.Value = "LKW n.e." + Case 3 : e.Value = "Ankunft" : gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + Case 4 : e.Value = "Vorbereitet" + Case 5 : e.Value = "Vorgeschrieben" + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien" + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex" + ' Case 99 : e.Value = "in Vorbereitung" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown + ' gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F) + Case Else : e.Value = "unbekannt" + End Select + + ' If gridAviso.Rows(e.RowIndex).Cells("statVorb").Value = "1" Then + 'e.Value &= " (VB)" + ' End If + + Case "AvisoEingang" 'Aviso-Eingang + If VarToDate(e.Value) = LeerDatum Then e.Value = "" + + Case "Ankunft" 'Ankunft + If VarToDate(e.Value) = LeerDatum Then + e.Value = "" + Else + ' If DateDiff(DateInterval.Minute, CDate(VarToDate(e.Value)), Now) > 120 Then + ' 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red + ' gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red + ' gridAviso.Rows(e.RowIndex).Cells("Ankunft").Style.ForeColor = Color.Red + ' End If + End If + End Select + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + + + + End Sub + + Private Sub btnDetailsuche_Click(sender As Object, e As EventArgs) Handles btnDetailsuche.Click + 'pnlSearch.Visible = Not pnlSearch.Visible + initPnlSearch() + End Sub + + Private Sub cboMy_QS_CheckedChanged(sender As Object, e As EventArgs) Handles cboMy_QS.CheckedChanged + + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Grid_aktiv = False + cboMy_QS.CheckState = CheckState.Unchecked + cboMy_VB.CheckState = CheckState.Indeterminate + Aviso_anzeigen("") + Grid_aktiv = True + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Grid_aktiv = False + cboMy_QS.CheckState = CheckState.Checked + cboMy_VB.CheckState = CheckState.Unchecked + Aviso_anzeigen("") + Grid_aktiv = True + End Sub +End Class