diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index 0a2aa20..92f98a2 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/frmAddSendungsvermerkShort.Designer.vb b/Aviso/frmAddSendungsvermerkShort.Designer.vb index ee37b78..c19bbbb 100644 --- a/Aviso/frmAddSendungsvermerkShort.Designer.vb +++ b/Aviso/frmAddSendungsvermerkShort.Designer.vb @@ -27,11 +27,21 @@ Partial Class frmAddSendungsvermerkShort Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.pnlMain = New System.Windows.Forms.Panel() Me.pnlSendungsVermker = New System.Windows.Forms.Panel() - Me.Label5 = New System.Windows.Forms.Label() + Me.optDraft = New System.Windows.Forms.CheckBox() + Me.optGewPackAngefordert = New System.Windows.Forms.CheckBox() + Me.optKostenbestaetigungAngefordert = New System.Windows.Forms.CheckBox() + Me.optZolltarifnummerAngefordert = New System.Windows.Forms.CheckBox() Me.txtSonstigesDokumentFehlt = New System.Windows.Forms.TextBox() + Me.cbxPackliste = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.optFremd_ATB = New System.Windows.Forms.CheckBox() Me.optFremd_SendungAvisiert = New System.Windows.Forms.CheckBox() + Me.optFahrerKeinATR = New System.Windows.Forms.CheckBox() + Me.optFrachtkostenAngefordert = New System.Windows.Forms.CheckBox() + Me.optKundeNichtErreichbar = New System.Windows.Forms.CheckBox() + Me.optAbsenderbestätigung = New System.Windows.Forms.CheckBox() + Me.cbxRgBest = New System.Windows.Forms.CheckBox() + Me.optUeberwachungsdok = New System.Windows.Forms.CheckBox() Me.lblErrSpedition = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.lblErrGrund = New System.Windows.Forms.Label() @@ -43,36 +53,32 @@ Partial Class frmAddSendungsvermerkShort Me.optSpeditionWeitergeleitet = New System.Windows.Forms.CheckBox() Me.optFreierText = New System.Windows.Forms.CheckBox() Me.optATAangefordert = New System.Windows.Forms.CheckBox() + Me.optVorkasseAngefordert = New System.Windows.Forms.CheckBox() + Me.optKontaktdatenAngefordert = New System.Windows.Forms.CheckBox() Me.Label3 = New System.Windows.Forms.Label() Me.lblErr240Zeichen = New System.Windows.Forms.Label() Me.txtDetail = New System.Windows.Forms.TextBox() - Me.btnCustomerUploadLink = New System.Windows.Forms.Button() - Me.btnCustomerUploadEmail = New System.Windows.Forms.Button() - Me.txtCustomerUploadEmail = New System.Windows.Forms.TextBox() - Me.lblCustomerUploadEmail = New System.Windows.Forms.Label() - Me.lblCustomerUploadValidityHours = New System.Windows.Forms.Label() - Me.nudCustomerUploadValidityHours = New System.Windows.Forms.NumericUpDown() - Me.cmbCustomerUploadLanguage = New System.Windows.Forms.ComboBox() - Me.lblCustomerUploadLanguage = New System.Windows.Forms.Label() - Me.txtCustomerUploadEmailText = New System.Windows.Forms.TextBox() - Me.lblCustomerUploadEmailText = New System.Windows.Forms.Label() - Me.pnlCustomerUploadSeparator = New System.Windows.Forms.Panel() Me.lblZustzlFreitext = New System.Windows.Forms.Label() Me.txtSendungSpedition = New System.Windows.Forms.TextBox() Me.cbxNichtLeserlich = New System.Windows.Forms.CheckBox() Me.btnOK = New System.Windows.Forms.Button() Me.cbxSonstDok = New System.Windows.Forms.CheckBox() Me.Label9 = New System.Windows.Forms.Label() + Me.cbxVollmacht = New System.Windows.Forms.CheckBox() + Me.cbxCMR = New System.Windows.Forms.CheckBox() Me.Label17 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() + Me.cbxATR = New System.Windows.Forms.CheckBox() + Me.cbxLS = New System.Windows.Forms.CheckBox() Me.txtFreierText = New System.Windows.Forms.TextBox() + Me.cbxRechnung = New System.Windows.Forms.CheckBox() Me.Label20 = New System.Windows.Forms.Label() + Me.cbxAuftrag = New System.Windows.Forms.CheckBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox4 = New System.Windows.Forms.PictureBox() Me.Panel4 = New System.Windows.Forms.Panel() Me.pnlMain.SuspendLayout() Me.pnlSendungsVermker.SuspendLayout() - CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -89,18 +95,28 @@ Partial Class frmAddSendungsvermerkShort Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlMain.Location = New System.Drawing.Point(0, 0) Me.pnlMain.Name = "pnlMain" - Me.pnlMain.Size = New System.Drawing.Size(474, 868) + Me.pnlMain.Size = New System.Drawing.Size(454, 605) Me.pnlMain.TabIndex = 0 ' 'pnlSendungsVermker ' Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlSendungsVermker.Controls.Add(Me.Label5) + Me.pnlSendungsVermker.Controls.Add(Me.optDraft) + Me.pnlSendungsVermker.Controls.Add(Me.optGewPackAngefordert) + Me.pnlSendungsVermker.Controls.Add(Me.optKostenbestaetigungAngefordert) + Me.pnlSendungsVermker.Controls.Add(Me.optZolltarifnummerAngefordert) Me.pnlSendungsVermker.Controls.Add(Me.txtSonstigesDokumentFehlt) + Me.pnlSendungsVermker.Controls.Add(Me.cbxPackliste) Me.pnlSendungsVermker.Controls.Add(Me.Label4) Me.pnlSendungsVermker.Controls.Add(Me.optFremd_ATB) Me.pnlSendungsVermker.Controls.Add(Me.optFremd_SendungAvisiert) + Me.pnlSendungsVermker.Controls.Add(Me.optFahrerKeinATR) + Me.pnlSendungsVermker.Controls.Add(Me.optFrachtkostenAngefordert) + Me.pnlSendungsVermker.Controls.Add(Me.optKundeNichtErreichbar) + Me.pnlSendungsVermker.Controls.Add(Me.optAbsenderbestätigung) + Me.pnlSendungsVermker.Controls.Add(Me.cbxRgBest) + Me.pnlSendungsVermker.Controls.Add(Me.optUeberwachungsdok) Me.pnlSendungsVermker.Controls.Add(Me.lblErrSpedition) Me.pnlSendungsVermker.Controls.Add(Me.Label2) Me.pnlSendungsVermker.Controls.Add(Me.lblErrGrund) @@ -112,65 +128,102 @@ Partial Class frmAddSendungsvermerkShort Me.pnlSendungsVermker.Controls.Add(Me.optSpeditionWeitergeleitet) Me.pnlSendungsVermker.Controls.Add(Me.optFreierText) Me.pnlSendungsVermker.Controls.Add(Me.optATAangefordert) + Me.pnlSendungsVermker.Controls.Add(Me.optVorkasseAngefordert) + Me.pnlSendungsVermker.Controls.Add(Me.optKontaktdatenAngefordert) Me.pnlSendungsVermker.Controls.Add(Me.Label3) Me.pnlSendungsVermker.Controls.Add(Me.lblErr240Zeichen) Me.pnlSendungsVermker.Controls.Add(Me.txtDetail) - Me.pnlSendungsVermker.Controls.Add(Me.btnCustomerUploadLink) - Me.pnlSendungsVermker.Controls.Add(Me.btnCustomerUploadEmail) - Me.pnlSendungsVermker.Controls.Add(Me.txtCustomerUploadEmail) - Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadEmail) - Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadValidityHours) - Me.pnlSendungsVermker.Controls.Add(Me.nudCustomerUploadValidityHours) - Me.pnlSendungsVermker.Controls.Add(Me.cmbCustomerUploadLanguage) - Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadLanguage) - Me.pnlSendungsVermker.Controls.Add(Me.txtCustomerUploadEmailText) - Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadEmailText) - Me.pnlSendungsVermker.Controls.Add(Me.pnlCustomerUploadSeparator) Me.pnlSendungsVermker.Controls.Add(Me.lblZustzlFreitext) Me.pnlSendungsVermker.Controls.Add(Me.txtSendungSpedition) Me.pnlSendungsVermker.Controls.Add(Me.cbxNichtLeserlich) Me.pnlSendungsVermker.Controls.Add(Me.btnOK) Me.pnlSendungsVermker.Controls.Add(Me.cbxSonstDok) Me.pnlSendungsVermker.Controls.Add(Me.Label9) + Me.pnlSendungsVermker.Controls.Add(Me.cbxVollmacht) + Me.pnlSendungsVermker.Controls.Add(Me.cbxCMR) Me.pnlSendungsVermker.Controls.Add(Me.Label17) Me.pnlSendungsVermker.Controls.Add(Me.Label13) + Me.pnlSendungsVermker.Controls.Add(Me.cbxATR) + Me.pnlSendungsVermker.Controls.Add(Me.cbxLS) Me.pnlSendungsVermker.Controls.Add(Me.txtFreierText) + Me.pnlSendungsVermker.Controls.Add(Me.cbxRechnung) Me.pnlSendungsVermker.Controls.Add(Me.Label20) + Me.pnlSendungsVermker.Controls.Add(Me.cbxAuftrag) Me.pnlSendungsVermker.Controls.Add(Me.PictureBox1) Me.pnlSendungsVermker.Controls.Add(Me.PictureBox4) Me.pnlSendungsVermker.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlSendungsVermker.Location = New System.Drawing.Point(0, 0) Me.pnlSendungsVermker.Name = "pnlSendungsVermker" - Me.pnlSendungsVermker.Size = New System.Drawing.Size(474, 868) + Me.pnlSendungsVermker.Size = New System.Drawing.Size(454, 605) Me.pnlSendungsVermker.TabIndex = 0 ' - 'Label5 + 'optDraft ' - Me.Label5.AutoSize = True - Me.Label5.BackColor = System.Drawing.Color.WhiteSmoke - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(2, 642) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(202, 17) - Me.Label5.TabIndex = 118 - Me.Label5.Text = "Kundenportal Upload-Link:" + Me.optDraft.AutoSize = True + Me.optDraft.Location = New System.Drawing.Point(12, 262) + Me.optDraft.Name = "optDraft" + Me.optDraft.Size = New System.Drawing.Size(174, 17) + Me.optDraft.TabIndex = 102 + Me.optDraft.Text = "T1/T2 ""Draft"" OK - angefordert" + Me.optDraft.UseVisualStyleBackColor = True + ' + 'optGewPackAngefordert + ' + Me.optGewPackAngefordert.AutoSize = True + Me.optGewPackAngefordert.Location = New System.Drawing.Point(12, 236) + Me.optGewPackAngefordert.Name = "optGewPackAngefordert" + Me.optGewPackAngefordert.Size = New System.Drawing.Size(245, 17) + Me.optGewPackAngefordert.TabIndex = 101 + Me.optGewPackAngefordert.Text = "Gewicht/Packstücke mangelhaft - angefordert" + Me.optGewPackAngefordert.UseVisualStyleBackColor = True + ' + 'optKostenbestaetigungAngefordert + ' + Me.optKostenbestaetigungAngefordert.AutoSize = True + Me.optKostenbestaetigungAngefordert.Location = New System.Drawing.Point(270, 214) + Me.optKostenbestaetigungAngefordert.Name = "optKostenbestaetigungAngefordert" + Me.optKostenbestaetigungAngefordert.Size = New System.Drawing.Size(177, 17) + Me.optKostenbestaetigungAngefordert.TabIndex = 99 + Me.optKostenbestaetigungAngefordert.Text = "Kostenbestätigung - angefordert" + Me.optKostenbestaetigungAngefordert.UseVisualStyleBackColor = True + ' + 'optZolltarifnummerAngefordert + ' + Me.optZolltarifnummerAngefordert.AutoSize = True + Me.optZolltarifnummerAngefordert.Location = New System.Drawing.Point(12, 214) + Me.optZolltarifnummerAngefordert.Name = "optZolltarifnummerAngefordert" + Me.optZolltarifnummerAngefordert.Size = New System.Drawing.Size(154, 17) + Me.optZolltarifnummerAngefordert.TabIndex = 98 + Me.optZolltarifnummerAngefordert.Text = "Zolltarifnummer angefordert" + Me.optZolltarifnummerAngefordert.UseVisualStyleBackColor = True ' 'txtSonstigesDokumentFehlt ' Me.txtSonstigesDokumentFehlt.BackColor = System.Drawing.Color.White Me.txtSonstigesDokumentFehlt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(96, 214) + Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(94, 96) Me.txtSonstigesDokumentFehlt.MaxLength = 80 Me.txtSonstigesDokumentFehlt.Name = "txtSonstigesDokumentFehlt" Me.txtSonstigesDokumentFehlt.Size = New System.Drawing.Size(198, 20) Me.txtSonstigesDokumentFehlt.TabIndex = 10 ' + 'cbxPackliste + ' + Me.cbxPackliste.AutoSize = True + Me.cbxPackliste.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxPackliste.Location = New System.Drawing.Point(308, 75) + Me.cbxPackliste.Name = "cbxPackliste" + Me.cbxPackliste.Size = New System.Drawing.Size(69, 17) + Me.cbxPackliste.TabIndex = 97 + Me.cbxPackliste.Text = "Packliste" + Me.cbxPackliste.UseVisualStyleBackColor = False + ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.BackColor = System.Drawing.Color.WhiteSmoke Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(11, 563) + Me.Label4.Location = New System.Drawing.Point(11, 411) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(125, 17) Me.Label4.TabIndex = 96 @@ -180,7 +233,7 @@ Partial Class frmAddSendungsvermerkShort ' Me.optFremd_ATB.AutoSize = True Me.optFremd_ATB.BackColor = System.Drawing.Color.WhiteSmoke - Me.optFremd_ATB.Location = New System.Drawing.Point(12, 610) + Me.optFremd_ATB.Location = New System.Drawing.Point(12, 458) Me.optFremd_ATB.Name = "optFremd_ATB" Me.optFremd_ATB.Size = New System.Drawing.Size(130, 17) Me.optFremd_ATB.TabIndex = 94 @@ -191,19 +244,81 @@ Partial Class frmAddSendungsvermerkShort ' Me.optFremd_SendungAvisiert.AutoSize = True Me.optFremd_SendungAvisiert.BackColor = System.Drawing.Color.WhiteSmoke - Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 587) + Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 435) Me.optFremd_SendungAvisiert.Name = "optFremd_SendungAvisiert" Me.optFremd_SendungAvisiert.Size = New System.Drawing.Size(193, 17) Me.optFremd_SendungAvisiert.TabIndex = 93 Me.optFremd_SendungAvisiert.Text = "Sendung an Fremdeinsteller avisiert" Me.optFremd_SendungAvisiert.UseVisualStyleBackColor = False ' + 'optFahrerKeinATR + ' + Me.optFahrerKeinATR.AutoSize = True + Me.optFahrerKeinATR.BackColor = System.Drawing.Color.WhiteSmoke + Me.optFahrerKeinATR.Location = New System.Drawing.Point(308, 52) + Me.optFahrerKeinATR.Name = "optFahrerKeinATR" + Me.optFahrerKeinATR.Size = New System.Drawing.Size(125, 17) + Me.optFahrerKeinATR.TabIndex = 92 + Me.optFahrerKeinATR.Text = "Fahrer hat kein A.TR" + Me.optFahrerKeinATR.UseVisualStyleBackColor = False + ' + 'optFrachtkostenAngefordert + ' + Me.optFrachtkostenAngefordert.AutoSize = True + Me.optFrachtkostenAngefordert.Location = New System.Drawing.Point(12, 162) + Me.optFrachtkostenAngefordert.Name = "optFrachtkostenAngefordert" + Me.optFrachtkostenAngefordert.Size = New System.Drawing.Size(145, 17) + Me.optFrachtkostenAngefordert.TabIndex = 91 + Me.optFrachtkostenAngefordert.Text = "Frachtkosten angefordert" + Me.optFrachtkostenAngefordert.UseVisualStyleBackColor = True + ' + 'optKundeNichtErreichbar + ' + Me.optKundeNichtErreichbar.AutoSize = True + Me.optKundeNichtErreichbar.Location = New System.Drawing.Point(270, 141) + Me.optKundeNichtErreichbar.Name = "optKundeNichtErreichbar" + Me.optKundeNichtErreichbar.Size = New System.Drawing.Size(133, 17) + Me.optKundeNichtErreichbar.TabIndex = 90 + Me.optKundeNichtErreichbar.Text = "Kunde nicht erreichbar" + Me.optKundeNichtErreichbar.UseVisualStyleBackColor = True + ' + 'optAbsenderbestätigung + ' + Me.optAbsenderbestätigung.AutoSize = True + Me.optAbsenderbestätigung.BackColor = System.Drawing.Color.WhiteSmoke + Me.optAbsenderbestätigung.Location = New System.Drawing.Point(308, 32) + Me.optAbsenderbestätigung.Name = "optAbsenderbestätigung" + Me.optAbsenderbestätigung.Size = New System.Drawing.Size(136, 17) + Me.optAbsenderbestätigung.TabIndex = 89 + Me.optAbsenderbestätigung.Text = "Absenderbestät. angef." + Me.optAbsenderbestätigung.UseVisualStyleBackColor = False + ' + 'cbxRgBest + ' + Me.cbxRgBest.AutoSize = True + Me.cbxRgBest.Location = New System.Drawing.Point(270, 185) + Me.cbxRgBest.Name = "cbxRgBest" + Me.cbxRgBest.Size = New System.Drawing.Size(146, 17) + Me.cbxRgBest.TabIndex = 86 + Me.cbxRgBest.Text = "Rechnungsbestät. angef." + Me.cbxRgBest.UseVisualStyleBackColor = True + ' + 'optUeberwachungsdok + ' + Me.optUeberwachungsdok.AutoSize = True + Me.optUeberwachungsdok.Location = New System.Drawing.Point(270, 163) + Me.optUeberwachungsdok.Name = "optUeberwachungsdok" + Me.optUeberwachungsdok.Size = New System.Drawing.Size(114, 17) + Me.optUeberwachungsdok.TabIndex = 85 + Me.optUeberwachungsdok.Text = "Ü-Dok. angefodert" + Me.optUeberwachungsdok.UseVisualStyleBackColor = True + ' 'lblErrSpedition ' Me.lblErrSpedition.AutoSize = True Me.lblErrSpedition.BackColor = System.Drawing.Color.WhiteSmoke Me.lblErrSpedition.ForeColor = System.Drawing.Color.Red - Me.lblErrSpedition.Location = New System.Drawing.Point(175, 468) + Me.lblErrSpedition.Location = New System.Drawing.Point(175, 316) Me.lblErrSpedition.Name = "lblErrSpedition" Me.lblErrSpedition.Size = New System.Drawing.Size(158, 13) Me.lblErrSpedition.TabIndex = 17 @@ -215,7 +330,7 @@ Partial Class frmAddSendungsvermerkShort Me.Label2.AutoSize = True Me.Label2.BackColor = System.Drawing.Color.WhiteSmoke Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label2.Location = New System.Drawing.Point(175, 468) + Me.Label2.Location = New System.Drawing.Point(175, 316) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(57, 13) Me.Label2.TabIndex = 84 @@ -226,7 +341,7 @@ Partial Class frmAddSendungsvermerkShort Me.lblErrGrund.AutoSize = True Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke Me.lblErrGrund.ForeColor = System.Drawing.Color.Red - Me.lblErrGrund.Location = New System.Drawing.Point(147, 537) + Me.lblErrGrund.Location = New System.Drawing.Point(147, 385) Me.lblErrGrund.Name = "lblErrGrund" Me.lblErrGrund.Size = New System.Drawing.Size(149, 13) Me.lblErrGrund.TabIndex = 26 @@ -242,7 +357,7 @@ Partial Class frmAddSendungsvermerkShort 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(419, -1) + Me.btnCLose.Location = New System.Drawing.Point(399, -1) Me.btnCLose.Name = "btnCLose" Me.btnCLose.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.btnCLose.Size = New System.Drawing.Size(54, 20) @@ -255,7 +370,7 @@ Partial Class frmAddSendungsvermerkShort Me.lblErrDokument.AutoSize = True Me.lblErrDokument.BackColor = System.Drawing.Color.WhiteSmoke Me.lblErrDokument.ForeColor = System.Drawing.Color.Red - Me.lblErrDokument.Location = New System.Drawing.Point(93, 233) + Me.lblErrDokument.Location = New System.Drawing.Point(91, 115) Me.lblErrDokument.Name = "lblErrDokument" Me.lblErrDokument.Size = New System.Drawing.Size(157, 13) Me.lblErrDokument.TabIndex = 11 @@ -277,7 +392,7 @@ Partial Class frmAddSendungsvermerkShort ' Me.txtSpedition.BackColor = System.Drawing.Color.WhiteSmoke Me.txtSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSpedition.Location = New System.Drawing.Point(177, 484) + Me.txtSpedition.Location = New System.Drawing.Point(177, 332) Me.txtSpedition.MaxLength = 50 Me.txtSpedition.Name = "txtSpedition" Me.txtSpedition.Size = New System.Drawing.Size(125, 20) @@ -298,7 +413,7 @@ Partial Class frmAddSendungsvermerkShort ' Me.optSpeditionWeitergeleitet.AutoSize = True Me.optSpeditionWeitergeleitet.BackColor = System.Drawing.Color.WhiteSmoke - Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 486) + Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 334) Me.optSpeditionWeitergeleitet.Name = "optSpeditionWeitergeleitet" Me.optSpeditionWeitergeleitet.Size = New System.Drawing.Size(163, 17) Me.optSpeditionWeitergeleitet.TabIndex = 19 @@ -309,7 +424,7 @@ Partial Class frmAddSendungsvermerkShort ' Me.optFreierText.AutoSize = True Me.optFreierText.BackColor = System.Drawing.Color.WhiteSmoke - Me.optFreierText.Location = New System.Drawing.Point(12, 513) + Me.optFreierText.Location = New System.Drawing.Point(12, 361) Me.optFreierText.Name = "optFreierText" Me.optFreierText.Size = New System.Drawing.Size(105, 17) Me.optFreierText.TabIndex = 27 @@ -320,18 +435,38 @@ Partial Class frmAddSendungsvermerkShort ' Me.optATAangefordert.AutoSize = True Me.optATAangefordert.BackColor = System.Drawing.Color.WhiteSmoke - Me.optATAangefordert.Location = New System.Drawing.Point(164, 610) + Me.optATAangefordert.Location = New System.Drawing.Point(164, 458) Me.optATAangefordert.Name = "optATAangefordert" Me.optATAangefordert.Size = New System.Drawing.Size(208, 17) Me.optATAangefordert.TabIndex = 15 Me.optATAangefordert.Text = "ATA/ATC-Nr. angefordert (Fremdanm.)" Me.optATAangefordert.UseVisualStyleBackColor = False ' + 'optVorkasseAngefordert + ' + Me.optVorkasseAngefordert.AutoSize = True + Me.optVorkasseAngefordert.Location = New System.Drawing.Point(12, 184) + Me.optVorkasseAngefordert.Name = "optVorkasseAngefordert" + Me.optVorkasseAngefordert.Size = New System.Drawing.Size(144, 17) + Me.optVorkasseAngefordert.TabIndex = 14 + Me.optVorkasseAngefordert.Text = "Vorauskasse angefordert" + Me.optVorkasseAngefordert.UseVisualStyleBackColor = True + ' + 'optKontaktdatenAngefordert + ' + Me.optKontaktdatenAngefordert.AutoSize = True + Me.optKontaktdatenAngefordert.Location = New System.Drawing.Point(12, 141) + Me.optKontaktdatenAngefordert.Name = "optKontaktdatenAngefordert" + Me.optKontaktdatenAngefordert.Size = New System.Drawing.Size(212, 17) + Me.optKontaktdatenAngefordert.TabIndex = 12 + Me.optKontaktdatenAngefordert.Text = "Kontaktdaten (z.B.Tel-Nr.) - angefordert" + Me.optKontaktdatenAngefordert.UseVisualStyleBackColor = True + ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.BackColor = System.Drawing.Color.WhiteSmoke - Me.Label3.Location = New System.Drawing.Point(308, 487) + Me.Label3.Location = New System.Drawing.Point(308, 335) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(57, 13) Me.Label3.TabIndex = 22 @@ -341,7 +476,7 @@ Partial Class frmAddSendungsvermerkShort ' Me.lblErr240Zeichen.AutoSize = True Me.lblErr240Zeichen.ForeColor = System.Drawing.Color.Red - Me.lblErr240Zeichen.Location = New System.Drawing.Point(212, 785) + Me.lblErr240Zeichen.Location = New System.Drawing.Point(219, 496) Me.lblErr240Zeichen.Name = "lblErr240Zeichen" Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13) Me.lblErr240Zeichen.TabIndex = 32 @@ -353,7 +488,7 @@ Partial Class frmAddSendungsvermerkShort Me.txtDetail.AcceptsReturn = True Me.txtDetail.BackColor = System.Drawing.Color.White Me.txtDetail.ForeColor = System.Drawing.SystemColors.InfoText - Me.txtDetail.Location = New System.Drawing.Point(5, 801) + Me.txtDetail.Location = New System.Drawing.Point(12, 512) Me.txtDetail.MaxLength = 240 Me.txtDetail.Multiline = True Me.txtDetail.Name = "txtDetail" @@ -363,117 +498,10 @@ Partial Class frmAddSendungsvermerkShort Me.txtDetail.TabStop = False Me.txtDetail.WordWrap = False ' - 'btnCustomerUploadLink - ' - Me.btnCustomerUploadLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCustomerUploadLink.Location = New System.Drawing.Point(340, 668) - Me.btnCustomerUploadLink.Name = "btnCustomerUploadLink" - Me.btnCustomerUploadLink.Size = New System.Drawing.Size(124, 23) - Me.btnCustomerUploadLink.TabIndex = 108 - Me.btnCustomerUploadLink.Text = "Link kopieren" - Me.btnCustomerUploadLink.UseVisualStyleBackColor = True - ' - 'btnCustomerUploadEmail - ' - Me.btnCustomerUploadEmail.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCustomerUploadEmail.Location = New System.Drawing.Point(340, 694) - Me.btnCustomerUploadEmail.Name = "btnCustomerUploadEmail" - Me.btnCustomerUploadEmail.Size = New System.Drawing.Size(124, 23) - Me.btnCustomerUploadEmail.TabIndex = 109 - Me.btnCustomerUploadEmail.Text = "E-Mail senden" - Me.btnCustomerUploadEmail.UseVisualStyleBackColor = True - ' - 'txtCustomerUploadEmail - ' - Me.txtCustomerUploadEmail.BackColor = System.Drawing.Color.White - Me.txtCustomerUploadEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCustomerUploadEmail.Location = New System.Drawing.Point(80, 696) - Me.txtCustomerUploadEmail.MaxLength = 255 - Me.txtCustomerUploadEmail.Name = "txtCustomerUploadEmail" - Me.txtCustomerUploadEmail.Size = New System.Drawing.Size(254, 20) - Me.txtCustomerUploadEmail.TabIndex = 107 - ' - 'lblCustomerUploadEmail - ' - Me.lblCustomerUploadEmail.AutoSize = True - Me.lblCustomerUploadEmail.Location = New System.Drawing.Point(2, 699) - Me.lblCustomerUploadEmail.Name = "lblCustomerUploadEmail" - Me.lblCustomerUploadEmail.Size = New System.Drawing.Size(54, 13) - Me.lblCustomerUploadEmail.TabIndex = 110 - Me.lblCustomerUploadEmail.Text = "E-Mail an:" - ' - 'lblCustomerUploadValidityHours - ' - Me.lblCustomerUploadValidityHours.AutoSize = True - Me.lblCustomerUploadValidityHours.Location = New System.Drawing.Point(176, 672) - Me.lblCustomerUploadValidityHours.Name = "lblCustomerUploadValidityHours" - Me.lblCustomerUploadValidityHours.Size = New System.Drawing.Size(66, 13) - Me.lblCustomerUploadValidityHours.TabIndex = 111 - Me.lblCustomerUploadValidityHours.Text = "Gültigkeit(h):" - ' - 'nudCustomerUploadValidityHours - ' - Me.nudCustomerUploadValidityHours.Location = New System.Drawing.Point(260, 670) - Me.nudCustomerUploadValidityHours.Maximum = New Decimal(New Integer() {168, 0, 0, 0}) - Me.nudCustomerUploadValidityHours.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) - Me.nudCustomerUploadValidityHours.Name = "nudCustomerUploadValidityHours" - Me.nudCustomerUploadValidityHours.Size = New System.Drawing.Size(74, 20) - Me.nudCustomerUploadValidityHours.TabIndex = 112 - Me.nudCustomerUploadValidityHours.Value = New Decimal(New Integer() {168, 0, 0, 0}) - ' - 'cmbCustomerUploadLanguage - ' - Me.cmbCustomerUploadLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmbCustomerUploadLanguage.FormattingEnabled = True - Me.cmbCustomerUploadLanguage.Items.AddRange(New Object() {"de", "en", "tr", "sr", "bg"}) - Me.cmbCustomerUploadLanguage.Location = New System.Drawing.Point(80, 670) - Me.cmbCustomerUploadLanguage.Name = "cmbCustomerUploadLanguage" - Me.cmbCustomerUploadLanguage.Size = New System.Drawing.Size(80, 21) - Me.cmbCustomerUploadLanguage.TabIndex = 116 - ' - 'lblCustomerUploadLanguage - ' - Me.lblCustomerUploadLanguage.AutoSize = True - Me.lblCustomerUploadLanguage.Location = New System.Drawing.Point(2, 673) - Me.lblCustomerUploadLanguage.Name = "lblCustomerUploadLanguage" - Me.lblCustomerUploadLanguage.Size = New System.Drawing.Size(72, 13) - Me.lblCustomerUploadLanguage.TabIndex = 117 - Me.lblCustomerUploadLanguage.Text = "Mail Sprache:" - ' - 'txtCustomerUploadEmailText - ' - Me.txtCustomerUploadEmailText.BackColor = System.Drawing.Color.White - Me.txtCustomerUploadEmailText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCustomerUploadEmailText.Location = New System.Drawing.Point(80, 718) - Me.txtCustomerUploadEmailText.MaxLength = 500 - Me.txtCustomerUploadEmailText.Multiline = True - Me.txtCustomerUploadEmailText.Name = "txtCustomerUploadEmailText" - Me.txtCustomerUploadEmailText.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - Me.txtCustomerUploadEmailText.Size = New System.Drawing.Size(254, 54) - Me.txtCustomerUploadEmailText.TabIndex = 113 - Me.txtCustomerUploadEmailText.Text = "Bitte laden Sie die angeforderten Dokumente über den Link hoch." - ' - 'lblCustomerUploadEmailText - ' - Me.lblCustomerUploadEmailText.AutoSize = True - Me.lblCustomerUploadEmailText.Location = New System.Drawing.Point(2, 721) - Me.lblCustomerUploadEmailText.Name = "lblCustomerUploadEmailText" - Me.lblCustomerUploadEmailText.Size = New System.Drawing.Size(63, 13) - Me.lblCustomerUploadEmailText.TabIndex = 114 - Me.lblCustomerUploadEmailText.Text = "E-Mail Text:" - ' - 'pnlCustomerUploadSeparator - ' - Me.pnlCustomerUploadSeparator.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlCustomerUploadSeparator.Location = New System.Drawing.Point(-8, 779) - Me.pnlCustomerUploadSeparator.Name = "pnlCustomerUploadSeparator" - Me.pnlCustomerUploadSeparator.Size = New System.Drawing.Size(474, 1) - Me.pnlCustomerUploadSeparator.TabIndex = 115 - ' 'lblZustzlFreitext ' Me.lblZustzlFreitext.AutoSize = True - Me.lblZustzlFreitext.Location = New System.Drawing.Point(2, 785) + Me.lblZustzlFreitext.Location = New System.Drawing.Point(9, 496) Me.lblZustzlFreitext.Name = "lblZustzlFreitext" Me.lblZustzlFreitext.Size = New System.Drawing.Size(142, 13) Me.lblZustzlFreitext.TabIndex = 31 @@ -483,7 +511,7 @@ Partial Class frmAddSendungsvermerkShort ' Me.txtSendungSpedition.BackColor = System.Drawing.Color.WhiteSmoke Me.txtSendungSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 484) + Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 332) Me.txtSendungSpedition.MaxLength = 50 Me.txtSendungSpedition.Name = "txtSendungSpedition" Me.txtSendungSpedition.Size = New System.Drawing.Size(25, 20) @@ -494,7 +522,7 @@ Partial Class frmAddSendungsvermerkShort ' Me.cbxNichtLeserlich.AutoSize = True Me.cbxNichtLeserlich.BackColor = System.Drawing.Color.WhiteSmoke - Me.cbxNichtLeserlich.Location = New System.Drawing.Point(310, 216) + Me.cbxNichtLeserlich.Location = New System.Drawing.Point(308, 98) Me.cbxNichtLeserlich.Name = "cbxNichtLeserlich" Me.cbxNichtLeserlich.Size = New System.Drawing.Size(90, 17) Me.cbxNichtLeserlich.TabIndex = 8 @@ -504,7 +532,7 @@ Partial Class frmAddSendungsvermerkShort 'btnOK ' Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnOK.Location = New System.Drawing.Point(313, 801) + Me.btnOK.Location = New System.Drawing.Point(320, 512) Me.btnOK.Name = "btnOK" Me.btnOK.Size = New System.Drawing.Size(124, 54) Me.btnOK.TabIndex = 34 @@ -515,7 +543,7 @@ Partial Class frmAddSendungsvermerkShort ' Me.cbxSonstDok.AutoSize = True Me.cbxSonstDok.BackColor = System.Drawing.Color.WhiteSmoke - Me.cbxSonstDok.Location = New System.Drawing.Point(14, 216) + Me.cbxSonstDok.Location = New System.Drawing.Point(12, 98) Me.cbxSonstDok.Name = "cbxSonstDok" Me.cbxSonstDok.Size = New System.Drawing.Size(83, 17) Me.cbxSonstDok.TabIndex = 9 @@ -527,18 +555,40 @@ Partial Class frmAddSendungsvermerkShort Me.Label9.AutoSize = True Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label9.Location = New System.Drawing.Point(354, 537) + Me.Label9.Location = New System.Drawing.Point(354, 385) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(90, 13) Me.Label9.TabIndex = 30 Me.Label9.Text = "(max. 80 Zeichen)" ' + 'cbxVollmacht + ' + Me.cbxVollmacht.AutoSize = True + Me.cbxVollmacht.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxVollmacht.Location = New System.Drawing.Point(164, 75) + Me.cbxVollmacht.Name = "cbxVollmacht" + Me.cbxVollmacht.Size = New System.Drawing.Size(72, 17) + Me.cbxVollmacht.TabIndex = 7 + Me.cbxVollmacht.Text = "Vollmacht" + Me.cbxVollmacht.UseVisualStyleBackColor = False + ' + 'cbxCMR + ' + Me.cbxCMR.AutoSize = True + Me.cbxCMR.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxCMR.Location = New System.Drawing.Point(164, 32) + Me.cbxCMR.Name = "cbxCMR" + Me.cbxCMR.Size = New System.Drawing.Size(50, 17) + Me.cbxCMR.TabIndex = 3 + Me.cbxCMR.Text = "CMR" + Me.cbxCMR.UseVisualStyleBackColor = False + ' 'Label17 ' Me.Label17.AutoSize = True Me.Label17.BackColor = System.Drawing.Color.WhiteSmoke Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Italic) - Me.Label17.Location = New System.Drawing.Point(144, 537) + Me.Label17.Location = New System.Drawing.Point(144, 385) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(182, 13) Me.Label17.TabIndex = 29 @@ -549,38 +599,82 @@ Partial Class frmAddSendungsvermerkShort Me.Label13.AutoSize = True Me.Label13.BackColor = System.Drawing.Color.WhiteSmoke Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label13.Location = New System.Drawing.Point(9, 459) + Me.Label13.Location = New System.Drawing.Point(9, 307) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(84, 17) Me.Label13.TabIndex = 16 Me.Label13.Text = "Sonstiges:" ' + 'cbxATR + ' + Me.cbxATR.AutoSize = True + Me.cbxATR.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxATR.Location = New System.Drawing.Point(164, 52) + Me.cbxATR.Name = "cbxATR" + Me.cbxATR.Size = New System.Drawing.Size(127, 17) + Me.cbxATR.TabIndex = 5 + Me.cbxATR.Text = "A.TR (Original/Kopie)" + Me.cbxATR.UseVisualStyleBackColor = False + ' + 'cbxLS + ' + Me.cbxLS.AutoSize = True + Me.cbxLS.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxLS.Location = New System.Drawing.Point(12, 75) + Me.cbxLS.Name = "cbxLS" + Me.cbxLS.Size = New System.Drawing.Size(83, 17) + Me.cbxLS.TabIndex = 6 + Me.cbxLS.Text = "Lieferschein" + Me.cbxLS.UseVisualStyleBackColor = False + ' 'txtFreierText ' Me.txtFreierText.BackColor = System.Drawing.Color.WhiteSmoke Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtFreierText.Location = New System.Drawing.Point(122, 511) + Me.txtFreierText.Location = New System.Drawing.Point(122, 359) Me.txtFreierText.MaxLength = 80 Me.txtFreierText.Name = "txtFreierText" Me.txtFreierText.Size = New System.Drawing.Size(322, 23) Me.txtFreierText.TabIndex = 28 ' + 'cbxRechnung + ' + Me.cbxRechnung.AutoSize = True + Me.cbxRechnung.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxRechnung.Location = New System.Drawing.Point(12, 53) + Me.cbxRechnung.Name = "cbxRechnung" + Me.cbxRechnung.Size = New System.Drawing.Size(137, 17) + Me.cbxRechnung.TabIndex = 4 + Me.cbxRechnung.Text = "Rechnung (mangelhaft)" + Me.cbxRechnung.UseVisualStyleBackColor = False + ' 'Label20 ' Me.Label20.AutoSize = True Me.Label20.BackColor = System.Drawing.Color.WhiteSmoke - Me.Label20.Location = New System.Drawing.Point(267, 487) + Me.Label20.Location = New System.Drawing.Point(267, 335) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(0, 13) Me.Label20.TabIndex = 21 ' + 'cbxAuftrag + ' + Me.cbxAuftrag.AutoSize = True + Me.cbxAuftrag.BackColor = System.Drawing.Color.WhiteSmoke + Me.cbxAuftrag.Location = New System.Drawing.Point(12, 32) + Me.cbxAuftrag.Name = "cbxAuftrag" + Me.cbxAuftrag.Size = New System.Drawing.Size(60, 17) + Me.cbxAuftrag.TabIndex = 2 + Me.cbxAuftrag.Text = "Auftrag" + Me.cbxAuftrag.UseVisualStyleBackColor = False + ' 'PictureBox1 ' Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.PictureBox1.Location = New System.Drawing.Point(-1, -1) Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(474, 250) + Me.PictureBox1.Size = New System.Drawing.Size(453, 130) Me.PictureBox1.TabIndex = 83 Me.PictureBox1.TabStop = False ' @@ -588,9 +682,9 @@ Partial Class frmAddSendungsvermerkShort ' Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.PictureBox4.Location = New System.Drawing.Point(-1, 450) + Me.PictureBox4.Location = New System.Drawing.Point(-1, 297) Me.PictureBox4.Name = "PictureBox4" - Me.PictureBox4.Size = New System.Drawing.Size(481, 189) + Me.PictureBox4.Size = New System.Drawing.Size(453, 189) Me.PictureBox4.TabIndex = 78 Me.PictureBox4.TabStop = False ' @@ -601,14 +695,14 @@ Partial Class frmAddSendungsvermerkShort Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top Me.Panel4.Location = New System.Drawing.Point(0, 0) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(474, 0) + Me.Panel4.Size = New System.Drawing.Size(454, 0) Me.Panel4.TabIndex = 1 ' 'frmAddSendungsvermerkShort ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(474, 868) + Me.ClientSize = New System.Drawing.Size(454, 605) Me.Controls.Add(Me.pnlMain) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -620,7 +714,6 @@ Partial Class frmAddSendungsvermerkShort Me.pnlMain.ResumeLayout(False) Me.pnlSendungsVermker.ResumeLayout(False) Me.pnlSendungsVermker.PerformLayout() - CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -634,6 +727,8 @@ Partial Class frmAddSendungsvermerkShort Friend WithEvents optSpeditionWeitergeleitet As System.Windows.Forms.CheckBox Friend WithEvents optFreierText As System.Windows.Forms.CheckBox Friend WithEvents optATAangefordert As System.Windows.Forms.CheckBox + Friend WithEvents optVorkasseAngefordert As System.Windows.Forms.CheckBox + Friend WithEvents optKontaktdatenAngefordert As System.Windows.Forms.CheckBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents lblErr240Zeichen As System.Windows.Forms.Label Friend WithEvents lblZustzlFreitext As System.Windows.Forms.Label @@ -642,13 +737,19 @@ Partial Class frmAddSendungsvermerkShort Friend WithEvents btnOK As System.Windows.Forms.Button Friend WithEvents cbxSonstDok As System.Windows.Forms.CheckBox Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents cbxVollmacht As System.Windows.Forms.CheckBox Friend WithEvents lblErrSpedition As System.Windows.Forms.Label + Friend WithEvents cbxCMR As System.Windows.Forms.CheckBox Friend WithEvents lblErrGrund As System.Windows.Forms.Label Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents cbxATR As System.Windows.Forms.CheckBox + Friend WithEvents cbxLS As System.Windows.Forms.CheckBox Friend WithEvents txtFreierText As System.Windows.Forms.TextBox Friend WithEvents txtSpedition As System.Windows.Forms.TextBox + Friend WithEvents cbxRechnung As System.Windows.Forms.CheckBox Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents cbxAuftrag As System.Windows.Forms.CheckBox Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents optSendungInVorbereitung As System.Windows.Forms.CheckBox @@ -656,20 +757,19 @@ Partial Class frmAddSendungsvermerkShort Friend WithEvents lblErrDokument As System.Windows.Forms.Label Friend WithEvents btnCLose As System.Windows.Forms.Button Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents optUeberwachungsdok As System.Windows.Forms.CheckBox + Friend WithEvents cbxRgBest As CheckBox Friend WithEvents Label4 As Label Friend WithEvents optFremd_ATB As CheckBox Friend WithEvents optFremd_SendungAvisiert As CheckBox + Friend WithEvents optFahrerKeinATR As CheckBox + Friend WithEvents optFrachtkostenAngefordert As CheckBox + Friend WithEvents optKundeNichtErreichbar As CheckBox + Friend WithEvents optAbsenderbestätigung As CheckBox + Friend WithEvents cbxPackliste As CheckBox + Friend WithEvents optGewPackAngefordert As CheckBox + Friend WithEvents optKostenbestaetigungAngefordert As CheckBox + Friend WithEvents optZolltarifnummerAngefordert As CheckBox + Friend WithEvents optDraft As CheckBox Public WithEvents txtDetail As TextBox - Friend WithEvents btnCustomerUploadLink As Button - Friend WithEvents btnCustomerUploadEmail As Button - Friend WithEvents txtCustomerUploadEmail As TextBox - Friend WithEvents lblCustomerUploadEmail As Label - Friend WithEvents lblCustomerUploadValidityHours As Label - Friend WithEvents nudCustomerUploadValidityHours As NumericUpDown - Friend WithEvents cmbCustomerUploadLanguage As ComboBox - Friend WithEvents lblCustomerUploadLanguage As Label - Friend WithEvents txtCustomerUploadEmailText As TextBox - Friend WithEvents lblCustomerUploadEmailText As Label - Friend WithEvents pnlCustomerUploadSeparator As Panel - Friend WithEvents Label5 As Label End Class diff --git a/Aviso/frmAddSendungsvermerkShort.vb b/Aviso/frmAddSendungsvermerkShort.vb index 6a0dfea..a672768 100644 --- a/Aviso/frmAddSendungsvermerkShort.vb +++ b/Aviso/frmAddSendungsvermerkShort.vb @@ -1,13 +1,7 @@ -Imports System.Configuration -Imports System.IO -Imports System.Net -Imports System.Net.Mail -Imports System.Text -Imports Newtonsoft.Json -Imports Newtonsoft.Json.Linq -Imports VERAG_PROG_ALLGEMEIN Imports AVISO.AvisoStatusFunctions +Imports SDL +Imports VERAG_PROG_ALLGEMEIN Public Class frmAddSendungsvermerkShort Dim AvisoDAL As New cAvisoDAL @@ -15,28 +9,6 @@ Public Class frmAddSendungsvermerkShort Dim myAviso As New cAviso Dim VermerkeDAL As New cVermerkeDAL Dim aktChanged As Boolean = False - Private ReadOnly _anforderungCheckboxes As New List(Of CheckBox) - Private ReadOnly _anhangsartIdByCheckbox As New Dictionary(Of CheckBox, Integer) - Private ReadOnly _backendBezeichnungByCodeId As New Dictionary(Of Integer, String) - Private ReadOnly _selectedAnhangsartIdByCodeId As New Dictionary(Of Integer, Integer) - Private ReadOnly _documentCustomNameByCodeId As New Dictionary(Of Integer, String) - Private ReadOnly _documentBaseTextByCodeId As New Dictionary(Of Integer, String) - Private ReadOnly _anhangsartenOptions As New List(Of AnhangsartOption) - Private ReadOnly _bereichByCodeId As New Dictionary(Of Integer, Integer) - Private _selectedDocumentCodeId As Integer = 0 - Private _isLoadingDocumentEditor As Boolean = False - Private pnlDocumentEditor As Panel - Private lblDocumentEditorTitle As Label - Private lblDocumentEditorName As Label - Private txtDocumentEditorName As TextBox - Private lblDocumentEditorAnhangsart As Label - Private cmbDocumentEditorAnhangsart As ComboBox - Private lblDocumentEditorInfo As Label - Private txtDocumentEditorInfo As TextBox - Private lblDocumentEditorStatus As Label - Private Const DefaultDocumentBaseText As String = "Bitte das Dokument hochladen." - Private Const BereichDokumentMain As Integer = 1 - Private Const BereichAngefordert As Integer = 2 Dim Neuanlage As Boolean = False Dim hStatus As Integer @@ -97,18 +69,6 @@ Public Class frmAddSendungsvermerkShort If My.Computer.Screen.WorkingArea.Height < Me.Height Then Me.Height = My.Computer.Screen.WorkingArea.Height End If - - If cmbCustomerUploadLanguage IsNot Nothing Then - If cmbCustomerUploadLanguage.SelectedIndex < 0 Then - Dim idx = cmbCustomerUploadLanguage.Items.IndexOf("de") - If idx >= 0 Then - cmbCustomerUploadLanguage.SelectedIndex = idx - ElseIf cmbCustomerUploadLanguage.Items.Count > 0 Then - cmbCustomerUploadLanguage.SelectedIndex = 0 - End If - End If - End If - For Each c In Me.Controls If c.GetType.Name.ToString = "RadioButton" Then AddHandler DirectCast(c, RadioButton).CheckedChanged, AddressOf selectionChanged @@ -122,8 +82,6 @@ Public Class frmAddSendungsvermerkShort txtSendung.Text = "KOMPLETT" End If - SetupDynamicAnforderungCheckboxes() - hStatus = myAviso.Status If hStatus = cGlobal.Status_Vorbereitet Or hStatus = cGlobal.Status_Vorgeschrieben Or hStatus = cGlobal.Status_Erfasst Then optSendungInVorbereitung.Visible = True @@ -156,835 +114,6 @@ Public Class frmAddSendungsvermerkShort End Sub - Private Sub SetupDynamicAnforderungCheckboxes() - _anforderungCheckboxes.Clear() - _anhangsartIdByCheckbox.Clear() - _backendBezeichnungByCodeId.Clear() - _selectedAnhangsartIdByCodeId.Clear() - _documentCustomNameByCodeId.Clear() - _documentBaseTextByCodeId.Clear() - _bereichByCodeId.Clear() - _selectedDocumentCodeId = 0 - If flpDocumentTabs IsNot Nothing Then - flpDocumentTabs.Controls.Clear() - End If - - Dim dt As DataTable = Nothing - Try - dt = AvisoDAL.loadDataTableBySQL("SELECT [VermerkCodeId],[Bezeichnung],[FrontendBezeichnung],[AvisoAnhangsartId],[AnforderungBereich] FROM [VermerkeCodes] WHERE [Anforderung]=1 ORDER BY [Bezeichnung]") - Catch - Try - dt = AvisoDAL.loadDataTableBySQL("SELECT [VermerkCodeId],[Bezeichnung],[AvisoAnhangsartId],[AnforderungBereich] FROM [VermerkeCodes] WHERE [Anforderung]=1 ORDER BY [Bezeichnung]") - Catch - Return - End Try - End Try - - If dt Is Nothing OrElse dt.Rows.Count = 0 Then - Return - End If - EnsureAnhangsartenOptionsLoaded() - - Dim docsLeft = Label1.Left + 3 - Dim docsTop = Label1.Bottom + 6 - Dim docsWidth = PictureBox1.Width - (docsLeft * 2) - Dim docsMainHeight = Math.Max(10, cbxSonstDok.Top - docsTop - 6) - Dim docsMainPanel = CreateAnforderungFlowPanel("flpDokumenteFehlenMain", docsLeft, docsTop, docsWidth, docsMainHeight, Color.WhiteSmoke) - docsMainPanel.FlowDirection = FlowDirection.LeftToRight - docsMainPanel.WrapContents = True - - Dim docsExtraFound = pnlSendungsVermker.Controls.Find("flpDokumenteFehlenExtra", True) - If docsExtraFound IsNot Nothing AndAlso docsExtraFound.Length > 0 Then - Dim docsExtraPanel = TryCast(docsExtraFound(0), FlowLayoutPanel) - If docsExtraPanel IsNot Nothing Then - docsExtraPanel.Visible = False - docsExtraPanel.Controls.Clear() - End If - End If - - PositionDocumentEditorAndUpload() - - Dim lblSonstigeVermerke As Label = TryCast(pnlSendungsVermker.Controls.Find("lblSonstigeVermerke", True).FirstOrDefault(), Label) - If lblSonstigeVermerke Is Nothing Then - lblSonstigeVermerke = New Label() - lblSonstigeVermerke.Name = "lblSonstigeVermerke" - lblSonstigeVermerke.Text = "Sonstige Vermerke:" - lblSonstigeVermerke.Font = New Font("Microsoft Sans Serif", 10.0!, FontStyle.Bold) - lblSonstigeVermerke.AutoSize = True - lblSonstigeVermerke.BackColor = Color.White - pnlSendungsVermker.Controls.Add(lblSonstigeVermerke) - End If - lblSonstigeVermerke.Left = docsLeft - lblSonstigeVermerke.Top = PictureBox1.Bottom + 8 - lblSonstigeVermerke.BringToFront() - - Dim anforderungLeft = docsLeft - Dim anforderungTop = lblSonstigeVermerke.Bottom + 6 - Dim anforderungWidth = pnlSendungsVermker.Width - (anforderungLeft * 2) - Dim anforderungHeight = 198 - Dim anforderungPanel = CreateAnforderungFlowPanel("flpAngefordert", anforderungLeft, anforderungTop, anforderungWidth, anforderungHeight, Color.White) - - For Each row As DataRow In dt.Rows - Dim id As Integer - Try - id = CInt(row("VermerkCodeId")) - Catch - Continue For - End Try - - Dim bezeichnung = If(IsDBNull(row("Bezeichnung")), "", CStr(row("Bezeichnung"))).Trim() - If bezeichnung = "" Then Continue For - _backendBezeichnungByCodeId(id) = bezeichnung - - Dim frontendBezeichnung = bezeichnung - If dt.Columns.Contains("FrontendBezeichnung") Then - frontendBezeichnung = If(IsDBNull(row("FrontendBezeichnung")), "", CStr(row("FrontendBezeichnung"))).Trim() - If frontendBezeichnung = "" Then frontendBezeichnung = bezeichnung - End If - - Dim cb As New CheckBox() - cb.Text = frontendBezeichnung - cb.Tag = id - cb.Margin = New Padding(0, 0, 8, 2) - AddHandler cb.CheckedChanged, AddressOf DynamicAnforderungCheckboxChanged - - If bezeichnung.ToLowerInvariant().Contains("nicht leserlich") Then - Continue For - End If - - Dim anhangsartId As Integer = 0 - Try - If Not IsDBNull(row("AvisoAnhangsartId")) Then - anhangsartId = CInt(row("AvisoAnhangsartId")) - End If - Catch - End Try - _anhangsartIdByCheckbox(cb) = anhangsartId - If Not _documentCustomNameByCodeId.ContainsKey(id) Then - _documentCustomNameByCodeId(id) = GetAnhangsartDisplayTextById(anhangsartId) - End If - - Dim bereich As Integer = BereichAngefordert - Try - If Not IsDBNull(row("AnforderungBereich")) Then - bereich = CInt(row("AnforderungBereich")) - End If - Catch - End Try - _bereichByCodeId(id) = bereich - - If bereich = BereichDokumentMain Then - cb.BackColor = Color.WhiteSmoke - cb.UseVisualStyleBackColor = False - ConfigureAnforderungCheckbox(cb, docsMainPanel) - docsMainPanel.Controls.Add(cb) - Else - ConfigureAnforderungCheckbox(cb, anforderungPanel) - anforderungPanel.Controls.Add(cb) - End If - - _anforderungCheckboxes.Add(cb) - Next - - ArrangeSections(docsMainPanel, anforderungPanel) - cbxSonstDok.BringToFront() - txtSonstigesDokumentFehlt.BringToFront() - cbxNichtLeserlich.BringToFront() - lblErrDokument.BringToFront() - - End Sub - - Private Function CreateAnforderungFlowPanel(name As String, left As Integer, top As Integer, width As Integer, height As Integer, backColor As Color) As FlowLayoutPanel - Dim found = pnlSendungsVermker.Controls.Find(name, True) - If found IsNot Nothing AndAlso found.Length > 0 Then - Dim existing = TryCast(found(0), FlowLayoutPanel) - If existing IsNot Nothing Then - existing.Left = left - existing.Top = top - existing.Width = width - existing.Height = height - existing.BackColor = backColor - existing.FlowDirection = FlowDirection.TopDown - existing.WrapContents = True - existing.AutoScroll = True - existing.Controls.Clear() - existing.BringToFront() - Return existing - End If - End If - - Dim flp As New FlowLayoutPanel() - flp.Name = name - flp.Left = left - flp.Top = top - flp.Width = width - flp.Height = height - flp.FlowDirection = FlowDirection.TopDown - flp.WrapContents = True - flp.AutoScroll = True - flp.BackColor = backColor - flp.Padding = New Padding(0) - flp.Margin = New Padding(0) - pnlSendungsVermker.Controls.Add(flp) - flp.BringToFront() - Return flp - End Function - - Private Sub ConfigureAnforderungCheckbox(cb As CheckBox, container As Control) - If cb Is Nothing OrElse container Is Nothing Then Return - - cb.AutoSize = False - cb.Height = 20 - - Dim cols As Integer = 2 - Dim colGap As Integer = 14 - Dim minCbWidth As Integer = 120 - If String.Equals(container.Name, "flpDokumenteFehlenMain", StringComparison.OrdinalIgnoreCase) Then - cols = 3 - colGap = 8 - minCbWidth = 150 - End If - Dim usableWidth = Math.Max(120, container.Width - 12) - Dim cbWidth = CInt(Math.Floor((usableWidth - ((cols - 1) * colGap)) / cols)) - cb.Width = Math.Max(minCbWidth, cbWidth) - End Sub - - Private Sub PositionDocumentEditorAndUpload() - EnsureDocumentEditorControls() - - Dim topSectionBottom = Math.Max(cbxSonstDok.Bottom, lblErrDokument.Bottom) - - pnlDocumentEditor.Left = 8 - pnlDocumentEditor.Top = topSectionBottom + 12 - pnlDocumentEditor.Width = pnlSendungsVermker.Width - 16 - pnlDocumentEditor.Height = 152 - pnlDocumentEditor.BackColor = Color.WhiteSmoke - pnlDocumentEditor.BringToFront() - - Label5.Top = pnlDocumentEditor.Bottom + 8 - Label5.BackColor = Color.WhiteSmoke - Label5.BringToFront() - - Label20.Left = Label5.Right + 10 - Label20.Top = Label5.Top + 2 - Label20.BackColor = Color.WhiteSmoke - Label20.AutoSize = True - Label20.ForeColor = Color.FromArgb(0, 102, 153) - Label20.Text = "Bitte zuerst Dokument(e) oben auswählen." - Label20.BringToFront() - - lblCustomerUploadLanguage.Top = Label5.Bottom + 10 - lblCustomerUploadLanguage.BackColor = Color.WhiteSmoke - lblCustomerUploadLanguage.BringToFront() - cmbCustomerUploadLanguage.Top = lblCustomerUploadLanguage.Top - 3 - cmbCustomerUploadLanguage.BringToFront() - - lblCustomerUploadValidityHours.Top = lblCustomerUploadLanguage.Top - lblCustomerUploadValidityHours.BackColor = Color.WhiteSmoke - lblCustomerUploadValidityHours.BringToFront() - nudCustomerUploadValidityHours.Top = lblCustomerUploadLanguage.Top - 2 - nudCustomerUploadValidityHours.BringToFront() - - btnCustomerUploadLink.Top = lblCustomerUploadLanguage.Top - 4 - btnCustomerUploadLink.BringToFront() - - lblCustomerUploadEmail.Top = lblCustomerUploadLanguage.Top + 26 - lblCustomerUploadEmail.BackColor = Color.WhiteSmoke - lblCustomerUploadEmail.BringToFront() - txtCustomerUploadEmail.Top = lblCustomerUploadEmail.Top - 3 - txtCustomerUploadEmail.BringToFront() - - btnCustomerUploadEmail.Top = txtCustomerUploadEmail.Top - 2 - btnCustomerUploadEmail.BringToFront() - - lblCustomerUploadEmailText.Top = lblCustomerUploadEmail.Top + 22 - lblCustomerUploadEmailText.BackColor = Color.WhiteSmoke - lblCustomerUploadEmailText.BringToFront() - txtCustomerUploadEmailText.Top = lblCustomerUploadEmailText.Top - 3 - txtCustomerUploadEmailText.BringToFront() - - pnlCustomerUploadSeparator.Visible = False - - PictureBox1.Height = txtCustomerUploadEmailText.Bottom + 12 - End Sub - - Private Sub ArrangeSections(docsMainPanel As FlowLayoutPanel, anforderungPanel As FlowLayoutPanel) - If docsMainPanel Is Nothing OrElse anforderungPanel Is Nothing Then Return - - Label13.Top = anforderungPanel.Bottom + 14 - PictureBox4.Top = Label13.Top - 10 - - optSpeditionWeitergeleitet.Top = Label13.Bottom + 10 - txtSpedition.Top = optSpeditionWeitergeleitet.Top - 2 - Label2.Top = optSpeditionWeitergeleitet.Top - 18 - Label3.Top = optSpeditionWeitergeleitet.Top + 1 - lblErrSpedition.Top = Label2.Top - - optFreierText.Top = optSpeditionWeitergeleitet.Bottom + 9 - txtFreierText.Top = optFreierText.Top - 2 - Label17.Top = txtFreierText.Bottom + 4 - Label9.Top = Label17.Top - lblErrGrund.Top = Label17.Top - - Label4.Top = Label17.Bottom + 14 - optFremd_SendungAvisiert.Top = Label4.Bottom + 7 - optFremd_ATB.Top = optFremd_SendungAvisiert.Bottom + 6 - optATAangefordert.Top = optFremd_ATB.Top - - PictureBox4.Height = (optFremd_ATB.Bottom + 12) - PictureBox4.Top - - lblZustzlFreitext.Top = PictureBox4.Bottom + 8 - txtDetail.Top = lblZustzlFreitext.Bottom + 4 - btnOK.Top = txtDetail.Top - lblErr240Zeichen.Top = txtDetail.Top - 16 - - Dim contentBottom = Math.Max(btnOK.Bottom, txtDetail.Bottom) + 12 - pnlSendungsVermker.Height = contentBottom - pnlMain.Height = contentBottom - Me.ClientSize = New Size(Me.ClientSize.Width, contentBottom) - End Sub - - Private flpDocumentTabs As FlowLayoutPanel - - Private Sub EnsureDocumentEditorControls() - If pnlDocumentEditor IsNot Nothing Then Return - - pnlDocumentEditor = New Panel() - pnlDocumentEditor.BackColor = Color.WhiteSmoke - pnlDocumentEditor.BorderStyle = BorderStyle.FixedSingle - pnlSendungsVermker.Controls.Add(pnlDocumentEditor) - - flpDocumentTabs = New FlowLayoutPanel() - flpDocumentTabs.Location = New Point(0, 0) - flpDocumentTabs.Width = pnlDocumentEditor.Width - flpDocumentTabs.Height = 50 - flpDocumentTabs.BackColor = Color.FromArgb(220, 220, 220) - flpDocumentTabs.WrapContents = False - flpDocumentTabs.AutoScroll = True - flpDocumentTabs.Anchor = AnchorStyles.Top Or AnchorStyles.Left Or AnchorStyles.Right - pnlDocumentEditor.Controls.Add(flpDocumentTabs) - - lblDocumentEditorTitle = New Label() - lblDocumentEditorTitle.AutoSize = True - lblDocumentEditorTitle.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, CType(0, Byte)) - lblDocumentEditorTitle.Location = New Point(8, 58) - lblDocumentEditorTitle.Text = "Dokumentdetails" - pnlDocumentEditor.Controls.Add(lblDocumentEditorTitle) - - lblDocumentEditorName = New Label() - lblDocumentEditorName.AutoSize = True - lblDocumentEditorName.Location = New Point(8, 80) - lblDocumentEditorName.Text = "Dokumentname:" - pnlDocumentEditor.Controls.Add(lblDocumentEditorName) - - txtDocumentEditorName = New TextBox() - txtDocumentEditorName.BackColor = Color.White - txtDocumentEditorName.Location = New Point(110, 77) - txtDocumentEditorName.MaxLength = 120 - txtDocumentEditorName.Size = New Size(128, 20) - AddHandler txtDocumentEditorName.TextChanged, AddressOf DocumentEditorInputChanged - pnlDocumentEditor.Controls.Add(txtDocumentEditorName) - - lblDocumentEditorAnhangsart = New Label() - lblDocumentEditorAnhangsart.AutoSize = True - lblDocumentEditorAnhangsart.Location = New Point(248, 80) - lblDocumentEditorAnhangsart.Text = "Anhangsart:" - pnlDocumentEditor.Controls.Add(lblDocumentEditorAnhangsart) - - cmbDocumentEditorAnhangsart = New ComboBox() - cmbDocumentEditorAnhangsart.BackColor = Color.White - cmbDocumentEditorAnhangsart.DropDownStyle = ComboBoxStyle.DropDownList - cmbDocumentEditorAnhangsart.Location = New Point(320, 77) - cmbDocumentEditorAnhangsart.Size = New Size(124, 21) - EnsureAnhangsartenOptionsLoaded() - For Each o In _anhangsartenOptions - cmbDocumentEditorAnhangsart.Items.Add(o) - Next - AddHandler cmbDocumentEditorAnhangsart.SelectedIndexChanged, AddressOf DocumentEditorAnhangsartChanged - pnlDocumentEditor.Controls.Add(cmbDocumentEditorAnhangsart) - - lblDocumentEditorInfo = New Label() - lblDocumentEditorInfo.AutoSize = True - lblDocumentEditorInfo.Location = New Point(8, 104) - lblDocumentEditorInfo.Text = "Dokument Info:" - pnlDocumentEditor.Controls.Add(lblDocumentEditorInfo) - - txtDocumentEditorInfo = New TextBox() - txtDocumentEditorInfo.BackColor = Color.White - txtDocumentEditorInfo.Location = New Point(110, 101) - txtDocumentEditorInfo.MaxLength = 500 - txtDocumentEditorInfo.Size = New Size(334, 20) - txtDocumentEditorInfo.Text = DefaultDocumentBaseText - AddHandler txtDocumentEditorInfo.TextChanged, AddressOf DocumentEditorInputChanged - pnlDocumentEditor.Controls.Add(txtDocumentEditorInfo) - - lblDocumentEditorStatus = New Label() - lblDocumentEditorStatus.AutoSize = True - lblDocumentEditorStatus.ForeColor = Color.FromArgb(0, 102, 153) - lblDocumentEditorStatus.Location = New Point(8, 128) - lblDocumentEditorStatus.Text = "Wählen Sie ein Dokument, um Name und Dokument Info anzupassen." - pnlDocumentEditor.Controls.Add(lblDocumentEditorStatus) - End Sub - - Private Sub DocumentEditorInputChanged(sender As Object, e As EventArgs) - If _isLoadingDocumentEditor Then Return - If _selectedDocumentCodeId <= 0 Then Return - - _documentCustomNameByCodeId(_selectedDocumentCodeId) = If(txtDocumentEditorName.Text, "").Trim() - _documentBaseTextByCodeId(_selectedDocumentCodeId) = If(txtDocumentEditorInfo.Text, "").Trim() - - If flpDocumentTabs IsNot Nothing Then - Dim tab = TryCast(flpDocumentTabs.Controls("tab_" & _selectedDocumentCodeId), Panel) - If tab IsNot Nothing Then - Dim lblText = TryCast(tab.Controls("lblText"), Label) - Dim lblClose = TryCast(tab.Controls("lblClose"), Label) - If lblText IsNot Nothing AndAlso lblClose IsNot Nothing Then - lblText.Text = _documentCustomNameByCodeId(_selectedDocumentCodeId) - If lblText.Text = "" Then lblText.Text = "Unbenannt" - lblText.PerformLayout() - lblClose.Location = New Point(lblText.Right + 5, 5) - tab.Width = lblClose.Right + 5 - End If - End If - End If - End Sub - - Private Sub DocumentEditorAnhangsartChanged(sender As Object, e As EventArgs) - If _isLoadingDocumentEditor Then Return - If _selectedDocumentCodeId <= 0 Then Return - - Dim selected = TryCast(cmbDocumentEditorAnhangsart.SelectedItem, AnhangsartOption) - If selected Is Nothing Then Return - _selectedAnhangsartIdByCodeId(_selectedDocumentCodeId) = selected.Id - End Sub - - Private Sub EnsureAnhangsartenOptionsLoaded() - If _anhangsartenOptions.Count > 0 Then Return - - Dim dt As DataTable = Nothing - Try - dt = AvisoDAL.loadDataTableBySQL("SELECT [aa_id],[aa_bezeichnung],[aa_name] FROM [tblAvisoAnhangsarten] WHERE [aa_aktiv]=1 ORDER BY [aa_sort],[aa_bezeichnung]") - Catch - Return - End Try - - If dt Is Nothing Then Return - - For Each row As DataRow In dt.Rows - Dim id As Integer = 0 - Try - id = CInt(row("aa_id")) - Catch - Continue For - End Try - If id <= 0 Then Continue For - Dim alreadyAdded As Boolean = False - For Each existing In _anhangsartenOptions - If existing.Id = id Then - alreadyAdded = True - Exit For - End If - Next - If alreadyAdded Then Continue For - - Dim text = If(IsDBNull(row("aa_bezeichnung")), "", CStr(row("aa_bezeichnung"))).Trim() - If text = "" Then - text = If(IsDBNull(row("aa_name")), "", CStr(row("aa_name"))).Trim() - End If - If text = "" Then text = "#" & id.ToString() - - _anhangsartenOptions.Add(New AnhangsartOption(id, text)) - Next - End Sub - - Private Sub SelectAnhangsartInEditor(anhangsartId As Integer) - If cmbDocumentEditorAnhangsart Is Nothing Then Return - cmbDocumentEditorAnhangsart.SelectedIndex = -1 - If anhangsartId <= 0 Then Return - - For i = 0 To cmbDocumentEditorAnhangsart.Items.Count - 1 - Dim optionItem = TryCast(cmbDocumentEditorAnhangsart.Items(i), AnhangsartOption) - If optionItem Is Nothing Then Continue For - If optionItem.Id = anhangsartId Then - cmbDocumentEditorAnhangsart.SelectedIndex = i - Exit For - End If - Next - End Sub - - Private Function GetAnhangsartDisplayTextById(anhangsartId As Integer) As String - If anhangsartId <= 0 Then Return "" - EnsureAnhangsartenOptionsLoaded() - For Each optionItem In _anhangsartenOptions - If optionItem.Id = anhangsartId Then - Return If(optionItem.Text, "").Trim() - End If - Next - Return "" - End Function - - Private Function TryGetCheckboxCodeId(cb As CheckBox, ByRef codeId As Integer) As Boolean - codeId = 0 - If cb Is Nothing OrElse cb.Tag Is Nothing Then Return False - Return Integer.TryParse(cb.Tag.ToString(), codeId) AndAlso codeId > 0 - End Function - - Private Sub ClearDocumentEditor() - _selectedDocumentCodeId = 0 - _isLoadingDocumentEditor = True - txtDocumentEditorName.Text = "" - txtDocumentEditorInfo.Text = "" - If cmbDocumentEditorAnhangsart IsNot Nothing Then - cmbDocumentEditorAnhangsart.SelectedIndex = -1 - End If - _isLoadingDocumentEditor = False - If lblDocumentEditorStatus IsNot Nothing Then - lblDocumentEditorStatus.Text = "Wählen Sie ein Dokument, um Name und Dokument Info anzupassen." - End If - End Sub - - Private Sub SelectDocument(codeId As Integer) - _selectedDocumentCodeId = codeId - - If codeId <= 0 Then - ClearDocumentEditor() - SyncTabs() - Return - End If - - Dim targetCb As CheckBox = Nothing - For Each cb In _anforderungCheckboxes - If cb.Tag IsNot Nothing AndAlso cb.Tag.ToString() = codeId.ToString() Then - targetCb = cb - Exit For - End If - Next - - If targetCb IsNot Nothing Then - Dim anhangsartId = GetEffectiveAnhangsartId(targetCb) - - Dim customName = "" - If _documentCustomNameByCodeId.ContainsKey(codeId) Then - customName = If(_documentCustomNameByCodeId(codeId), "").Trim() - Else - customName = GetAnhangsartDisplayTextById(anhangsartId) - _documentCustomNameByCodeId(codeId) = customName - End If - - Dim baseText = GetDocumentBaseTextByCodeId(codeId) - - _isLoadingDocumentEditor = True - txtDocumentEditorName.Text = customName - txtDocumentEditorInfo.Text = baseText - SelectAnhangsartInEditor(anhangsartId) - _isLoadingDocumentEditor = False - - If anhangsartId > 0 Then - _selectedAnhangsartIdByCodeId(codeId) = anhangsartId - End If - - lblDocumentEditorStatus.ForeColor = Color.FromArgb(0, 102, 153) - lblDocumentEditorStatus.Text = "Ausgewählt: " & If(targetCb.Text, "").Trim() - End If - - SyncTabs() - End Sub - - Private Function CreateTab(codeId As Integer, text As String) As Panel - Dim pnl As New Panel() - pnl.Name = "tab_" & codeId - pnl.Tag = codeId - pnl.Height = 28 - pnl.BackColor = Color.White - pnl.BorderStyle = BorderStyle.FixedSingle - pnl.Margin = New Padding(2, 4, 2, 0) - pnl.Cursor = Cursors.Hand - - Dim lblText As New Label() - lblText.Name = "lblText" - lblText.Text = If(text = "", "Unbenannt", text) - lblText.AutoSize = True - lblText.Location = New Point(5, 5) - lblText.Tag = codeId - lblText.Cursor = Cursors.Hand - AddHandler lblText.Click, AddressOf Tab_Click - pnl.Controls.Add(lblText) - - Dim lblClose As New Label() - lblClose.Name = "lblClose" - lblClose.Text = "X" - lblClose.AutoSize = True - lblClose.ForeColor = Color.Red - lblClose.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold) - lblClose.Cursor = Cursors.Hand - lblClose.Tag = codeId - AddHandler lblClose.Click, AddressOf TabClose_Click - pnl.Controls.Add(lblClose) - - lblText.PerformLayout() - lblClose.Location = New Point(lblText.Right + 5, 5) - pnl.Width = lblClose.Right + 5 - - AddHandler pnl.Click, AddressOf Tab_Click - - Return pnl - End Function - - Private Sub SyncTabs() - If flpDocumentTabs Is Nothing Then Return - - flpDocumentTabs.SuspendLayout() - - Dim requiredCodeIds As New List(Of Integer) - For Each cb In _anforderungCheckboxes - If cb.Checked Then - Dim codeId As Integer = 0 - If Integer.TryParse(cb.Tag.ToString(), codeId) Then - If _bereichByCodeId.ContainsKey(codeId) AndAlso _bereichByCodeId(codeId) = BereichDokumentMain Then - requiredCodeIds.Add(codeId) - End If - End If - End If - Next - - Dim i As Integer = flpDocumentTabs.Controls.Count - 1 - While i >= 0 - Dim pnl = TryCast(flpDocumentTabs.Controls(i), Panel) - If pnl IsNot Nothing Then - Dim codeId = CInt(pnl.Tag) - If Not requiredCodeIds.Contains(codeId) Then - flpDocumentTabs.Controls.RemoveAt(i) - pnl.Dispose() - End If - End If - i -= 1 - End While - - For Each codeId In requiredCodeIds - Dim existingTab = TryCast(flpDocumentTabs.Controls("tab_" & codeId), Panel) - Dim text = "" - If _documentCustomNameByCodeId.ContainsKey(codeId) Then - text = _documentCustomNameByCodeId(codeId) - End If - If text = "" Then - For Each cb In _anforderungCheckboxes - If cb.Tag IsNot Nothing AndAlso cb.Tag.ToString() = codeId.ToString() Then - text = cb.Text - Exit For - End If - Next - End If - - If existingTab Is Nothing Then - existingTab = CreateTab(codeId, text) - flpDocumentTabs.Controls.Add(existingTab) - Else - Dim lblText = TryCast(existingTab.Controls("lblText"), Label) - Dim lblClose = TryCast(existingTab.Controls("lblClose"), Label) - If lblText IsNot Nothing AndAlso lblClose IsNot Nothing Then - lblText.Text = If(text = "", "Unbenannt", text) - lblText.PerformLayout() - lblClose.Location = New Point(lblText.Right + 5, 5) - existingTab.Width = lblClose.Right + 5 - End If - End If - - If codeId = _selectedDocumentCodeId Then - existingTab.BackColor = Color.White - existingTab.BorderStyle = BorderStyle.FixedSingle - existingTab.Height = 28 - existingTab.Margin = New Padding(2, 2, 2, 0) - Dim lblText = TryCast(existingTab.Controls("lblText"), Label) - If lblText IsNot Nothing Then lblText.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold) - Else - existingTab.BackColor = Color.LightGray - existingTab.BorderStyle = BorderStyle.None - existingTab.Height = 25 - existingTab.Margin = New Padding(2, 5, 2, 0) - Dim lblText = TryCast(existingTab.Controls("lblText"), Label) - If lblText IsNot Nothing Then lblText.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Regular) - End If - Next - - flpDocumentTabs.ResumeLayout() - - If _selectedDocumentCodeId > 0 AndAlso Not requiredCodeIds.Contains(_selectedDocumentCodeId) Then - If requiredCodeIds.Count > 0 Then - SelectDocument(requiredCodeIds(0)) - Else - ClearDocumentEditor() - End If - ElseIf _selectedDocumentCodeId = 0 AndAlso requiredCodeIds.Count > 0 Then - SelectDocument(requiredCodeIds(0)) - End If - End Sub - - Private Sub Tab_Click(sender As Object, e As EventArgs) - Dim ctrl = TryCast(sender, Control) - If ctrl IsNot Nothing AndAlso ctrl.Tag IsNot Nothing Then - Dim codeId As Integer = 0 - If Integer.TryParse(ctrl.Tag.ToString(), codeId) Then - SelectDocument(codeId) - End If - End If - End Sub - - Private Sub TabClose_Click(sender As Object, e As EventArgs) - Dim ctrl = TryCast(sender, Control) - If ctrl IsNot Nothing AndAlso ctrl.Tag IsNot Nothing Then - Dim codeId As Integer = 0 - If Integer.TryParse(ctrl.Tag.ToString(), codeId) Then - For Each cb In _anforderungCheckboxes - If cb.Tag IsNot Nothing AndAlso cb.Tag.ToString() = codeId.ToString() Then - cb.Checked = False - Exit For - End If - Next - End If - End If - End Sub - - Private Sub LoadDocumentEditorForCheckbox(cb As CheckBox) - EnsureDocumentEditorControls() - - Dim codeId As Integer = 0 - If Not TryGetCheckboxCodeId(cb, codeId) Then - _selectedDocumentCodeId = 0 - Return - End If - - _selectedDocumentCodeId = codeId - Dim anhangsartId = GetEffectiveAnhangsartId(cb) - - Dim customName = "" - If _documentCustomNameByCodeId.ContainsKey(codeId) Then - customName = If(_documentCustomNameByCodeId(codeId), "").Trim() - Else - customName = GetAnhangsartDisplayTextById(anhangsartId) - _documentCustomNameByCodeId(codeId) = customName - End If - - Dim baseText = GetDocumentBaseTextByCodeId(codeId) - - _isLoadingDocumentEditor = True - txtDocumentEditorName.Text = customName - txtDocumentEditorInfo.Text = baseText - SelectAnhangsartInEditor(anhangsartId) - _isLoadingDocumentEditor = False - - If anhangsartId > 0 Then - _selectedAnhangsartIdByCodeId(codeId) = anhangsartId - End If - - lblDocumentEditorStatus.ForeColor = Color.FromArgb(0, 102, 153) - lblDocumentEditorStatus.Text = "Ausgewählt: " & If(cb.Text, "").Trim() - End Sub - - Private Function GetEffectiveDocumentName(cb As CheckBox) As String - If cb Is Nothing Then Return "" - Dim codeId As Integer = 0 - If TryGetCheckboxCodeId(cb, codeId) Then - If _documentCustomNameByCodeId.ContainsKey(codeId) Then - Dim customName = If(_documentCustomNameByCodeId(codeId), "").Trim() - Return customName - End If - End If - Return "" - End Function - - Private Function GetDocumentBaseText(cb As CheckBox) As String - If cb Is Nothing Then Return "" - Dim codeId As Integer = 0 - If TryGetCheckboxCodeId(cb, codeId) Then - Return GetDocumentBaseTextByCodeId(codeId) - End If - Return DefaultDocumentBaseText - End Function - - Private Function GetDocumentBaseTextByCodeId(codeId As Integer) As String - If codeId > 0 AndAlso _documentBaseTextByCodeId.ContainsKey(codeId) Then - Dim configuredBaseText = If(_documentBaseTextByCodeId(codeId), "").Trim() - If configuredBaseText <> "" Then Return configuredBaseText - End If - Return DefaultDocumentBaseText - End Function - - Private Function GetEffectiveAnhangsartId(cb As CheckBox) As Integer - If cb Is Nothing Then Return 0 - - Dim codeId As Integer = 0 - If TryGetCheckboxCodeId(cb, codeId) Then - If _selectedAnhangsartIdByCodeId.ContainsKey(codeId) Then - Dim selectedId = _selectedAnhangsartIdByCodeId(codeId) - If selectedId > 0 Then Return selectedId - End If - End If - - Dim defaultId As Integer = 0 - If _anhangsartIdByCheckbox.TryGetValue(cb, defaultId) Then - Return defaultId - End If - - Return 0 - End Function - - Private Function BuildUploadCustomText(baseText As String) As String - Dim effectiveBaseText = If(baseText, "").Trim() - If effectiveBaseText = "" Then effectiveBaseText = DefaultDocumentBaseText - Return effectiveBaseText - End Function - - Private Function ValidateDocumentSelectionPayload(documentName As String, baseText As String, anhangsartId As Integer, ByRef validationError As String) As Boolean - validationError = "" - If anhangsartId <= 0 Then - validationError = "ANHANGSART_ID_FEHLT" - Return False - End If - - documentName = If(documentName, "").Trim() - If documentName = "" Then - validationError = "DOKUMENTNAME_FEHLT" - Return False - End If - If documentName.Length > 120 Then - validationError = "DOKUMENTNAME_ZU_LANG" - Return False - End If - - If If(baseText, "").Trim().Length > 500 Then - validationError = "BASETEXT_ZU_LANG" - Return False - End If - - Return True - End Function - - Private Sub DynamicAnforderungCheckboxChanged(sender As Object, e As EventArgs) - Dim cb = TryCast(sender, CheckBox) - If cb Is Nothing Then Return - - Dim bereich As Integer = 0 - Dim codeId As Integer = 0 - If cb.Tag IsNot Nothing Then - If Integer.TryParse(cb.Tag.ToString(), codeId) Then - If _bereichByCodeId.ContainsKey(codeId) Then - bereich = _bereichByCodeId(codeId) - Else - bereich = BereichAngefordert - End If - End If - End If - - If bereich = BereichAngefordert Then - Return - End If - - If cb.Checked Then - SelectDocument(codeId) - Else - SyncTabs() - End If - End Sub ' Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click ' Me.Close() @@ -1027,32 +156,30 @@ Public Class frmAddSendungsvermerkShort insertSendungsVermerk(SendungID, myAviso.AvisoID, txtFreierText.Text.Trim & " - offen", 101) End If - For Each cb In _anforderungCheckboxes - If cb Is Nothing OrElse Not cb.Checked Then Continue For + If cbxAuftrag.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Auftrag für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 1) + If cbxRechnung.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Rechnung für Sendung '" & txtSendung.Text.Trim & "' fehlt / mangelhaft - angefordert", 3) + If cbxLS.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Lieferschein für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 5) + If cbxATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATR für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 7) + If cbxVollmacht.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Vollmacht für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 9) + If cbxCMR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "CMR bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 11) + If cbxPackliste.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Packliste bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 90) + If cbxRgBest.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Rechnungsbestätigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 55) + If optGewPackAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Gewicht/Packstücke bei Sendung '" & txtSendung.Text.Trim & "' mangelhaft - angefordert", 103) + If optZolltarifnummerAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Zolltarifnummer bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 105) + If optKostenbestaetigungAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Kostenbestaetigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 107) - Dim codeId As Integer - Try - codeId = CInt(cb.Tag) - Catch - Continue For - End Try - - Dim text = "" - If _backendBezeichnungByCodeId.ContainsKey(codeId) Then - text = If(_backendBezeichnungByCodeId(codeId), "").Trim() - End If - If text = "" Then text = cb.Text.Trim() - Dim sendText = txtSendung.Text.Trim() - If text <> "" AndAlso sendText <> "" AndAlso InStr(text, "sendung", CompareMethod.Text) = 0 Then - text &= " bei Sendung '" & sendText & "'" - End If - - If text <> "" Then insertSendungsVermerk(SendungID, myAviso.AvisoID, text, codeId) - Next + If optFrachtkostenAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Frachtkosten bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 74) + If optAbsenderbestätigung.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Absenderbestätigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 76) + If optKundeNichtErreichbar.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Kunde bei Sendung '" & txtSendung.Text.Trim & "' nicht erreichbar", 70) + If optFahrerKeinATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Fahrer ohne A.TR bei Sendung '" & txtSendung.Text.Trim & "'", 71) If optFremd_ATB.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATB von Fremdeinsteller erhalten bei Sendung '" & txtSendung.Text.Trim & "' ", 72) If optFremd_SendungAvisiert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' an Fremdeinsteller avisiert", 73) ' If optSndUmmelden.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' umgemeldet", 94) + If optDraft.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "T2 Draft OK bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 118) + + + If optUeberwachungsdok.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Ü-Dok bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 53) If cbxSonstDok.Checked Then If txtSonstigesDokumentFehlt.Text.Trim = "" Then @@ -1064,6 +191,9 @@ Public Class frmAddSendungsvermerkShort If cbxNichtLeserlich.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Dokument(e) nachgefordert, da nicht leserlich.", 42) + If optVorkasseAngefordert.Checked = True Then + insertSendungsVermerk(SendungID, myAviso.AvisoID, "Vorauskasse bei Sendung '" & txtSendung.Text.Trim & "' angefordert", 13) + End If If optSpeditionWeitergeleitet.Checked = True Then If txtSpedition.Text.Trim = "" Then showErr(lblErrSpedition) @@ -1076,6 +206,9 @@ Public Class frmAddSendungsvermerkShort insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' in Vorbereitung.", 31) VermerkeDAL.UpdateSendungVorbereitet(AvisoID, SendungID, VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID, True) End If + If optKontaktdatenAngefordert.Checked = True Then + insertSendungsVermerk(SendungID, myAviso.AvisoID, "Kontaktdaten bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 36) + End If ' If optSendungVorbereitet.Checked = True Then 'insertSendungsVermerk(SendungID,myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' Vorbereitung abgeschlossen.", 32) ' VermerkeDAL.UpdateSendungVorbereitet(AvisoID, SendungID, VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, False) @@ -1166,7 +299,8 @@ Public Class frmAddSendungsvermerkShort ' optDokumente.Checked = True 'End Sub - Private Sub cbxAuftrag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSonstDok.CheckedChanged, cbxNichtLeserlich.CheckedChanged + Private Sub cbxAuftrag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAuftrag.CheckedChanged, cbxRechnung.CheckedChanged, cbxLS.CheckedChanged, + cbxCMR.CheckedChanged, cbxATR.CheckedChanged, cbxVollmacht.CheckedChanged, cbxSonstDok.CheckedChanged, cbxNichtLeserlich.CheckedChanged, cbxPackliste.CheckedChanged ' optDokumente.Checked = True End Sub Private Sub SonstChanged(sender As Object, e As EventArgs) Handles txtSonstigesDokumentFehlt.TextChanged @@ -1198,7 +332,7 @@ Public Class frmAddSendungsvermerkShort If (p.Y + Me.Height) > My.Computer.Screen.WorkingArea.Height Then p.Y = My.Computer.Screen.WorkingArea.Height - Me.Height Me.Location = p '.Me.PointToClient(System.Cursor.Position) txtSendung.SelectionLength = 0 - txtFreierText.Focus() + cbxAuftrag.Focus() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCLose.Click @@ -1213,601 +347,4 @@ Public Class frmAddSendungsvermerkShort Me.Close() End If End Sub - - Private Sub btnCustomerUploadLink_Click(sender As Object, e As EventArgs) Handles btnCustomerUploadLink.Click - Dim validityHours = CInt(nudCustomerUploadValidityHours.Value) - - Dim config = GetCustomerPortalApiConfig() - If config Is Nothing Then Exit Sub - - Dim jwtToken = "" - Dim authErr = "" - If Not TryGetCustomerPortalJwtToken(config, jwtToken, authErr) Then - MsgBox("Fehler bei Authentifizierung: " & authErr, vbExclamation) - Exit Sub - End If - - Dim anhangsartenMap As Dictionary(Of String, Integer) = Nothing - Dim anhangsartenErr = "" - If Not TryGetCustomerPortalAnhangsartenMap(config, jwtToken, anhangsartenMap, anhangsartenErr) Then - MsgBox("Fehler beim Laden der Dokumentarten: " & anhangsartenErr, vbExclamation) - Exit Sub - End If - - Dim requirements = BuildCustomerUploadRequirements(anhangsartenMap) - If requirements Is Nothing Then - Exit Sub - End If - If requirements.Count = 0 Then - MsgBox("Bitte mindestens ein Dokument im Bereich 'Dokument(e) fehlen' auswählen.", vbInformation) - Label20.ForeColor = Color.Red - Label20.Text = "Für den Upload-Link muss mindestens ein Dokument ausgewählt sein." - Exit Sub - End If - Label20.ForeColor = Color.FromArgb(0, 102, 153) - Label20.Text = "Bitte zuerst Dokument(e) oben auswählen." - - Cursor = Cursors.WaitCursor - Try - Dim linkUrl = "" - Dim errorCode = "" - If Not TryCreateCustomerUploadLinkMultiWithoutEmail(config, requirements, validityHours, linkUrl, errorCode) Then - MsgBox("Fehler beim Erzeugen des Upload-Links: " & errorCode, vbExclamation) - Exit Sub - End If - - If linkUrl <> "" Then - Clipboard.SetText(linkUrl) - MsgBox("Upload-Link wurde in die Zwischenablage kopiert.", vbInformation) - Else - MsgBox("Upload-Link konnte nicht aus der Antwort gelesen werden.", vbExclamation) - End If - Finally - Cursor = Cursors.Default - End Try - End Sub - - Private Sub btnCustomerUploadEmail_Click(sender As Object, e As EventArgs) Handles btnCustomerUploadEmail.Click - Dim recipient = If(txtCustomerUploadEmail.Text, "").Trim() - If recipient = "" Then - MsgBox("Bitte eine E-Mail-Adresse eingeben.", vbInformation) - txtCustomerUploadEmail.Focus() - Exit Sub - End If - - Try - Dim addr As New MailAddress(recipient) - recipient = addr.Address - Catch - MsgBox("E-Mail-Adresse ist ungültig.", vbInformation) - txtCustomerUploadEmail.Focus() - Exit Sub - End Try - - Dim emailText = If(txtCustomerUploadEmailText.Text, "").Trim() - If emailText = "" Then - MsgBox("Bitte den Text eintragen.", vbInformation) - txtCustomerUploadEmailText.Focus() - Exit Sub - End If - - Dim validityHours = CInt(nudCustomerUploadValidityHours.Value) - - Dim language = "" - If cmbCustomerUploadLanguage IsNot Nothing Then - language = If(TryCast(cmbCustomerUploadLanguage.SelectedItem, String), "") - If language = "" Then language = If(cmbCustomerUploadLanguage.Text, "").Trim() - End If - language = language.ToLowerInvariant() - If language <> "de" AndAlso language <> "en" AndAlso language <> "tr" AndAlso language <> "sr" AndAlso language <> "bg" Then - language = "de" - End If - - Dim config = GetCustomerPortalApiConfig() - If config Is Nothing Then Exit Sub - - Dim jwtToken = "" - Dim authErr = "" - If Not TryGetCustomerPortalJwtToken(config, jwtToken, authErr) Then - MsgBox("Fehler bei Authentifizierung: " & authErr, vbExclamation) - Exit Sub - End If - - Dim anhangsartenMap As Dictionary(Of String, Integer) = Nothing - Dim anhangsartenErr = "" - If Not TryGetCustomerPortalAnhangsartenMap(config, jwtToken, anhangsartenMap, anhangsartenErr) Then - MsgBox("Fehler beim Laden der Dokumentarten: " & anhangsartenErr, vbExclamation) - Exit Sub - End If - - Dim requirements = BuildCustomerUploadRequirements(anhangsartenMap) - If requirements Is Nothing Then - Exit Sub - End If - If requirements.Count = 0 Then - MsgBox("Bitte mindestens ein Dokument im Bereich 'Dokument(e) fehlen' auswählen.", vbInformation) - Label20.ForeColor = Color.Red - Label20.Text = "Für den Upload-Link muss mindestens ein Dokument ausgewählt sein." - Exit Sub - End If - Label20.ForeColor = Color.FromArgb(0, 102, 153) - Label20.Text = "Bitte zuerst Dokument(e) oben auswählen." - - Cursor = Cursors.WaitCursor - Try - Dim linkUrl = "" - Dim errorCode = "" - If Not TryRequestCustomerUploadLinkMultiWithEmail(config, requirements, recipient, emailText, language, validityHours, linkUrl, errorCode) Then - MsgBox("Fehler beim Versand der E-Mail: " & errorCode, vbExclamation) - Exit Sub - End If - - If linkUrl <> "" Then - Clipboard.SetText(linkUrl) - End If - MsgBox("E-Mail wurde ausgelöst.", vbInformation) - Finally - Cursor = Cursors.Default - End Try - End Sub - - Private Class CustomerPortalApiConfig - Public Property BaseUrl As String - Public Property Username As String - Public Property Password As String - End Class - - Private Shared _customerPortalJwtToken As String = "" - Private Shared _customerPortalJwtExpUtc As DateTime = DateTime.MinValue - Private Shared _customerPortalAnhangsartenMap As Dictionary(Of String, Integer) = Nothing - Private Shared _customerPortalAnhangsartenFetchedUtc As DateTime = DateTime.MinValue - Private Shared _customerPortalCustomFilenameAnhangsartId As Integer = -1 - - Private Function GetCustomerPortalApiConfig() As CustomerPortalApiConfig - Dim baseUrl = If(System.Environment.GetEnvironmentVariable("AVISO_CUSTOMERPORTAL_API_BASEURL"), "").Trim() - If baseUrl = "" Then baseUrl = If(ConfigurationManager.AppSettings("CustomerPortalApiBaseUrl"), "").Trim() - If baseUrl = "" Then baseUrl = "https://login.server.verag.ag" - - Dim username = If(System.Environment.GetEnvironmentVariable("AVISO_CUSTOMERPORTAL_API_USERNAME"), "").Trim() - If username = "" Then username = If(ConfigurationManager.AppSettings("CustomerPortalApiUsername"), "").Trim() - - Dim password = If(System.Environment.GetEnvironmentVariable("AVISO_CUSTOMERPORTAL_API_PASSWORD"), "").Trim() - If password = "" Then password = If(ConfigurationManager.AppSettings("CustomerPortalApiPassword"), "").Trim() - - If username = "" OrElse password = "" Then - MsgBox("CustomerPortalApiUsername/CustomerPortalApiPassword fehlt in App.config (oder ENV: AVISO_CUSTOMERPORTAL_API_USERNAME / AVISO_CUSTOMERPORTAL_API_PASSWORD).", vbExclamation) - Return Nothing - End If - - Return New CustomerPortalApiConfig With {.BaseUrl = baseUrl, .Username = username, .Password = password} - End Function - - Private Function TryGetCustomerPortalJwtToken(ByVal config As CustomerPortalApiConfig, ByRef jwtToken As String, ByRef errorCode As String) As Boolean - jwtToken = "" - errorCode = "" - - If _customerPortalJwtToken <> "" Then - If _customerPortalJwtExpUtc = DateTime.MinValue Then - jwtToken = _customerPortalJwtToken - Return True - End If - - If DateTime.UtcNow < _customerPortalJwtExpUtc.AddMinutes(-1) Then - jwtToken = _customerPortalJwtToken - Return True - End If - End If - - Dim url = config.BaseUrl.TrimEnd("/"c) & "/api/auth/login" - Dim payload As New Dictionary(Of String, Object) From { - {"username", config.Username}, - {"password", config.Password} - } - Dim jsonBody = JsonConvert.SerializeObject(payload) - - Try - ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 - - Dim request = CType(WebRequest.Create(url), HttpWebRequest) - request.Method = "POST" - request.ContentType = "application/json" - request.Accept = "application/json" - request.Timeout = 15000 - - Using requestStream = request.GetRequestStream() - Using writer As New StreamWriter(requestStream, Encoding.UTF8) - writer.Write(jsonBody) - End Using - End Using - - Using response = CType(request.GetResponse(), HttpWebResponse) - Using reader As New StreamReader(response.GetResponseStream(), Encoding.UTF8) - Dim respText = reader.ReadToEnd() - Dim jobj = JObject.Parse(respText) - Dim token = (If(jobj("token"), New JValue(""))).ToString().Trim() - If token = "" Then - errorCode = "TOKEN_MISSING" - Return False - End If - - _customerPortalJwtToken = token - _customerPortalJwtExpUtc = ExtractJwtExpUtcOrMin(token) - - jwtToken = token - Return True - End Using - End Using - - Catch ex As WebException - Dim body = "" - Try - If ex.Response IsNot Nothing Then - Using respStream = ex.Response.GetResponseStream() - If respStream IsNot Nothing Then - Using reader As New StreamReader(respStream, Encoding.UTF8) - body = reader.ReadToEnd() - End Using - End If - End Using - End If - Catch - End Try - - If body <> "" Then - Try - Dim jobj = JObject.Parse(body) - errorCode = (If(jobj("message"), New JValue(ex.Message))).ToString() - Catch - errorCode = ex.Message - End Try - Else - errorCode = ex.Message - End If - Return False - Catch ex As Exception - errorCode = ex.Message - Return False - End Try - End Function - - Private Function ExtractJwtExpUtcOrMin(ByVal jwt As String) As DateTime - Try - If jwt Is Nothing Then Return DateTime.MinValue - Dim parts = jwt.Split("."c) - If parts.Length < 2 Then Return DateTime.MinValue - - Dim payloadJson = Encoding.UTF8.GetString(Base64UrlDecode(parts(1))) - Dim jobj = JObject.Parse(payloadJson) - Dim expToken = jobj("exp") - If expToken Is Nothing Then Return DateTime.MinValue - - Dim expSeconds As Long - If Long.TryParse(expToken.ToString(), expSeconds) Then - Return DateTimeOffset.FromUnixTimeSeconds(expSeconds).UtcDateTime - End If - Catch - End Try - Return DateTime.MinValue - End Function - - Private Function Base64UrlDecode(ByVal input As String) As Byte() - Dim s = If(input, "").Replace("-"c, "+"c).Replace("_"c, "/"c) - Select Case (s.Length Mod 4) - Case 2 - s &= "==" - Case 3 - s &= "=" - End Select - Return Convert.FromBase64String(s) - End Function - - Private Function BuildCustomerUploadRequirements(ByVal anhangsartenMap As Dictionary(Of String, Integer)) As List(Of Object) - Dim requirements As New List(Of Object) - - Dim missing As New List(Of String) - - For Each cb In _anforderungCheckboxes - If cb Is Nothing OrElse Not cb.Checked Then Continue For - - Dim documentType = GetEffectiveDocumentName(cb) - If documentType = "" Then Continue For - Dim baseText = GetDocumentBaseText(cb) - Dim validationError = "" - - Dim anhangsartId = GetEffectiveAnhangsartId(cb) - If anhangsartId <= 0 Then - missing.Add(documentType) - Continue For - End If - If Not ValidateDocumentSelectionPayload(documentType, baseText, anhangsartId, validationError) Then - MsgBox("Ungültige Eingabe für Dokument '" & documentType & "': " & validationError, vbInformation) - Return Nothing - End If - - AddCustomerUploadRequirementByAnhangsartId(requirements, documentType, anhangsartId, BuildUploadCustomText(baseText)) - Next - - If cbxSonstDok.Checked Then - Dim custom = If(txtSonstigesDokumentFehlt.Text, "").Trim() - If custom = "" Then - MsgBox("Bitte den Dokumentnamen eintragen.", vbInformation) - txtSonstigesDokumentFehlt.Focus() - Return Nothing - End If - AddCustomerUploadRequirement(requirements, missing, anhangsartenMap, True, custom, {"SONSTIGES", "DOKUMENT"}, "Bitte " & custom & " hochladen.", True) - End If - - If missing.Count > 0 Then - MsgBox("Anhangsarten nicht gefunden: " & String.Join(", ", missing), vbExclamation) - Return Nothing - End If - - Return requirements - End Function - - Private Sub AddCustomerUploadRequirementByAnhangsartId(ByVal requirements As List(Of Object), ByVal documentType As String, ByVal anhangsartId As Integer, ByVal customText As String) - If requirements Is Nothing Then Exit Sub - If anhangsartId <= 0 Then Exit Sub - - Dim req As New Dictionary(Of String, Object) From { - {"documentType", documentType}, - {"anhangsartId", anhangsartId}, - {"customText", customText} - } - requirements.Add(req) - End Sub - - Private Sub AddCustomerUploadRequirement(ByVal requirements As List(Of Object), ByVal missing As List(Of String), ByVal anhangsartenMap As Dictionary(Of String, Integer), ByVal isSelected As Boolean, ByVal documentType As String, ByVal anhangsartenCandidates As String(), ByVal customText As String, ByVal allowCustomFilename As Boolean) - If Not isSelected Then Exit Sub - - Dim anhangsartId = ResolveAnhangsartId(anhangsartenCandidates, anhangsartenMap) - If anhangsartId <= 0 AndAlso allowCustomFilename AndAlso _customerPortalCustomFilenameAnhangsartId > 0 Then - anhangsartId = _customerPortalCustomFilenameAnhangsartId - End If - If anhangsartId <= 0 Then - missing.Add(documentType) - Exit Sub - End If - - Dim req As New Dictionary(Of String, Object) From { - {"documentType", documentType}, - {"anhangsartId", anhangsartId}, - {"customText", customText} - } - requirements.Add(req) - End Sub - - Private Function ResolveAnhangsartId(ByVal candidates As IEnumerable(Of String), ByVal anhangsartenMap As Dictionary(Of String, Integer)) As Integer - If candidates Is Nothing OrElse anhangsartenMap Is Nothing Then Return -1 - - For Each c In candidates - Dim key = If(c, "").Trim() - If key = "" Then Continue For - - Dim id As Integer - If anhangsartenMap.TryGetValue(key.ToUpperInvariant(), id) Then - Return id - End If - Next - - Return -1 - End Function - - Private Function TryGetCustomerPortalAnhangsartenMap(ByVal config As CustomerPortalApiConfig, ByVal jwtToken As String, ByRef anhangsartenMap As Dictionary(Of String, Integer), ByRef errorCode As String) As Boolean - anhangsartenMap = Nothing - errorCode = "" - - If _customerPortalAnhangsartenMap IsNot Nothing AndAlso _customerPortalAnhangsartenFetchedUtc <> DateTime.MinValue Then - If DateTime.UtcNow < _customerPortalAnhangsartenFetchedUtc.AddMinutes(30) Then - anhangsartenMap = _customerPortalAnhangsartenMap - Return True - End If - End If - - Dim url = config.BaseUrl.TrimEnd("/"c) & "/api/AvisoUpload/anhangsarten/all" - Dim request = CType(WebRequest.Create(url), HttpWebRequest) - request.Method = "GET" - request.Accept = "application/json" - request.Timeout = 15000 - request.Headers(HttpRequestHeader.Authorization) = "Bearer " & jwtToken - - Try - ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 - Using response = CType(request.GetResponse(), HttpWebResponse) - Using reader As New StreamReader(response.GetResponseStream(), Encoding.UTF8) - Dim respText = reader.ReadToEnd() - If respText Is Nothing Then respText = "" - respText = respText.Trim() - - Dim map As New Dictionary(Of String, Integer)(StringComparer.OrdinalIgnoreCase) - Dim customFilenameId As Integer = -1 - - If respText.StartsWith("[") Then - Dim arr = JArray.Parse(respText) - For Each t In arr - Dim id = 0 - If t("id") IsNot Nothing AndAlso Integer.TryParse(t("id").ToString(), id) Then - Dim name = (If(t("name"), New JValue(""))).ToString().Trim() - Dim bez = (If(t("bezeichnung"), New JValue(""))).ToString().Trim() - If name <> "" Then map(name.ToUpperInvariant()) = id - If bez <> "" Then map(bez.ToUpperInvariant()) = id - If id = 24 Then customFilenameId = 24 - End If - Next - ElseIf respText.StartsWith("{") Then - Dim jobj = JObject.Parse(respText) - errorCode = (If(jobj("message"), If(jobj("code"), New JValue("ANHANGSARTEN_LOAD_FAILED")))).ToString() - Return False - Else - errorCode = "ANHANGSARTEN_INVALID_RESPONSE" - Return False - End If - - If map.Count = 0 Then - errorCode = "ANHANGSARTEN_EMPTY" - Return False - End If - - _customerPortalCustomFilenameAnhangsartId = customFilenameId - _customerPortalAnhangsartenMap = map - _customerPortalAnhangsartenFetchedUtc = DateTime.UtcNow - - anhangsartenMap = map - Return True - End Using - End Using - Catch ex As WebException - errorCode = ReadWebExceptionMessage(ex) - Return False - Catch ex As Exception - errorCode = ex.Message - Return False - End Try - End Function - - Private Function TryCreateCustomerUploadLinkMultiWithoutEmail(ByVal config As CustomerPortalApiConfig, ByVal requirements As List(Of Object), ByVal validityHours As Integer, ByRef linkUrl As String, ByRef errorCode As String) As Boolean - linkUrl = "" - errorCode = "" - - Dim url = config.BaseUrl.TrimEnd("/"c) & "/api/PublicCustomerDocuments/create-upload-link-multi" - Dim payload As New Dictionary(Of String, Object) From { - {"avisoId", AvisoID}, - {"validityHours", validityHours}, - {"requirements", requirements} - } - - If SendungID > 0 Then payload("sendungsId") = SendungID - - Dim jsonBody = JsonConvert.SerializeObject(payload) - - Dim jwtToken = "" - Dim authErr = "" - If Not TryGetCustomerPortalJwtToken(config, jwtToken, authErr) Then - errorCode = authErr - Return False - End If - - Try - ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 - Return TryPostCustomerPortalJson(url, jwtToken, jsonBody, linkUrl, errorCode) - - Catch ex As WebException - errorCode = ReadWebExceptionMessage(ex) - Return False - Catch ex As Exception - errorCode = ex.Message - Return False - End Try - End Function - - Private Function TryRequestCustomerUploadLinkMultiWithEmail(ByVal config As CustomerPortalApiConfig, ByVal requirements As List(Of Object), ByVal recipientEmail As String, ByVal emailText As String, ByVal language As String, ByVal validityHours As Integer, ByRef linkUrl As String, ByRef errorCode As String) As Boolean - linkUrl = "" - errorCode = "" - - Dim url = config.BaseUrl.TrimEnd("/"c) & "/api/PublicCustomerDocuments/request-upload-link-multi" - If language Is Nothing OrElse language.Trim() = "" Then language = "de" - - Dim payload As New Dictionary(Of String, Object) From { - {"avisoId", AvisoID}, - {"emailText", emailText}, - {"language", language}, - {"validityHours", validityHours}, - {"requirements", requirements} - } - - If SendungID > 0 Then payload("sendungsId") = SendungID - payload("recipientEmail") = recipientEmail - - Dim jsonBody = JsonConvert.SerializeObject(payload) - - Dim jwtToken = "" - Dim authErr = "" - If Not TryGetCustomerPortalJwtToken(config, jwtToken, authErr) Then - errorCode = authErr - Return False - End If - - Try - ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 - Return TryPostCustomerPortalJson(url, jwtToken, jsonBody, linkUrl, errorCode) - Catch ex As WebException - errorCode = ReadWebExceptionMessage(ex) - Return False - Catch ex As Exception - errorCode = ex.Message - Return False - End Try - End Function - - Private Function TryPostCustomerPortalJson(ByVal url As String, ByVal jwtToken As String, ByVal jsonBody As String, ByRef linkUrl As String, ByRef errorCode As String) As Boolean - Dim request = CType(WebRequest.Create(url), HttpWebRequest) - request.Method = "POST" - request.ContentType = "application/json" - request.Accept = "application/json" - request.Timeout = 15000 - request.Headers(HttpRequestHeader.Authorization) = "Bearer " & jwtToken - - Using requestStream = request.GetRequestStream() - Using writer As New StreamWriter(requestStream, Encoding.UTF8) - writer.Write(jsonBody) - End Using - End Using - - Using response = CType(request.GetResponse(), HttpWebResponse) - Using reader As New StreamReader(response.GetResponseStream(), Encoding.UTF8) - Dim respText = reader.ReadToEnd() - Dim jobj = JObject.Parse(respText) - Dim result = (If(jobj("result"), New JValue(""))).ToString() - If String.Equals(result, "pass", StringComparison.OrdinalIgnoreCase) Then - Dim link = (If(jobj.SelectToken("data.linkUrl"), New JValue(""))).ToString() - If link = "" Then link = (If(jobj.SelectToken("linkUrl"), New JValue(""))).ToString() - linkUrl = link - Return True - End If - errorCode = (If(jobj("message"), New JValue("UNKNOWN_ERROR"))).ToString() - Return False - End Using - End Using - End Function - - Private Function ReadWebExceptionMessage(ByVal ex As WebException) As String - Dim body = "" - Try - If ex.Response IsNot Nothing Then - Using respStream = ex.Response.GetResponseStream() - If respStream IsNot Nothing Then - Using reader As New StreamReader(respStream, Encoding.UTF8) - body = reader.ReadToEnd() - End Using - End If - End Using - End If - Catch - End Try - - If body <> "" Then - Try - Dim jobj = JObject.Parse(body) - Return (If(jobj("message"), New JValue(ex.Message))).ToString() - Catch - Return ex.Message - End Try - End If - - Return ex.Message - End Function - - Private Class AnhangsartOption - Public ReadOnly Id As Integer - Public ReadOnly Text As String - - Public Sub New(id As Integer, text As String) - Me.Id = id - Me.Text = If(text, "").Trim() - End Sub - - Public Overrides Function ToString() As String - Return Text - End Function - End Class End Class diff --git a/Aviso/frmHauptfensterNew.Designer.vb b/Aviso/frmHauptfensterNew.Designer.vb index 5fe109e..9058ce1 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,19 @@ 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.btnVIEW_LKW = New System.Windows.Forms.Button() + Me.btnVIEW_SND = New System.Windows.Forms.Button() + Me.btnVIEW_KOMBI = New System.Windows.Forms.Button() + Me.btnVIEW_Compliance = 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.pnlOptionen = New System.Windows.Forms.Panel() Me.btnKasse_User = New System.Windows.Forms.Button() Me.btnKasse_LG = New System.Windows.Forms.Button() @@ -307,15 +302,26 @@ 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.Panel7 = New System.Windows.Forms.Panel() + Me.cbxInfoChat = New System.Windows.Forms.CheckBox() + Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() + 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.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService() + Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen() + Me.btnVIEW_CustControling = New System.Windows.Forms.Button() + Me.btnDEFAULT_Selected = New System.Windows.Forms.Button() + Me.btnDEFAULT_UnSelected = New System.Windows.Forms.Button() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -332,12 +338,15 @@ 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() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.FlowLayoutPanel2.SuspendLayout() - Me.MyFlowLayoutPanel1.SuspendLayout() Me.pnlOptionen.SuspendLayout() Me.Panel9.SuspendLayout() Me.cntxt.SuspendLayout() @@ -347,6 +356,7 @@ Partial Class frmHauptfensterNew Me.pnlLeft.SuspendLayout() Me.Panel5.SuspendLayout() Me.TabControl1.SuspendLayout() + Me.MyFlowLayoutPanel1.SuspendLayout() Me.SuspendLayout() ' 'mnuInfo @@ -1606,7 +1616,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 +1658,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 +1670,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 +1707,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 +1716,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 +1768,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 +1780,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 +1804,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 +1832,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 +1850,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 +1866,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 +1882,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 +1898,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 +1909,7 @@ Partial Class frmHauptfensterNew ' 'Timer1 ' - Me.Timer1.Interval = 1000 + Me.Timer1.Interval = 5000 ' 'btnMinimieren ' @@ -2032,7 +1931,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 +1947,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 +2015,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 +2044,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 +2054,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 +2071,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 +2085,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 +2098,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 +2112,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 +2125,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 +2139,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,90 +2189,113 @@ 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 ' + Me.FlowLayoutPanel1.AutoScroll = True Me.FlowLayoutPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(100, Byte), Integer)) - Me.FlowLayoutPanel1.Controls.Add(Me.btnWichtigeStandort) - Me.FlowLayoutPanel1.Controls.Add(Me.Button4) - Me.FlowLayoutPanel1.Controls.Add(Me.Button7) + Me.FlowLayoutPanel1.Controls.Add(Me.btnVIEW_LKW) + Me.FlowLayoutPanel1.Controls.Add(Me.btnVIEW_SND) + Me.FlowLayoutPanel1.Controls.Add(Me.btnVIEW_KOMBI) + Me.FlowLayoutPanel1.Controls.Add(Me.btnVIEW_Compliance) + Me.FlowLayoutPanel1.Controls.Add(Me.btnVIEW_CustControling) + Me.FlowLayoutPanel1.Controls.Add(Me.btnDEFAULT_Selected) + Me.FlowLayoutPanel1.Controls.Add(Me.btnDEFAULT_UnSelected) 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 + 'btnVIEW_LKW ' - 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.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.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.ToolTip1.SetToolTip(Me.btnWichtigeStandort, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + Me.btnVIEW_LKW.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnVIEW_LKW.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnVIEW_LKW.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer)) + Me.btnVIEW_LKW.Location = New System.Drawing.Point(3, 16) + Me.btnVIEW_LKW.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) + Me.btnVIEW_LKW.Name = "btnVIEW_LKW" + Me.btnVIEW_LKW.Size = New System.Drawing.Size(158, 47) + Me.btnVIEW_LKW.TabIndex = 4 + Me.btnVIEW_LKW.TabStop = False + Me.btnVIEW_LKW.Text = "LKW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(FrontOffice)" + Me.ToolTip1.SetToolTip(Me.btnVIEW_LKW, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & "d sortiert nach Dauer") - Me.btnWichtigeStandort.UseVisualStyleBackColor = False + Me.btnVIEW_LKW.UseVisualStyleBackColor = False ' - 'Button4 + 'btnVIEW_SND ' - 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.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.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(158, 47) - Me.Button4.TabIndex = 5 - Me.Button4.TabStop = False - Me.Button4.Text = "SENDUNGEN" - Me.ToolTip1.SetToolTip(Me.Button4, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + Me.btnVIEW_SND.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) + Me.btnVIEW_SND.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.btnVIEW_SND.FlatAppearance.BorderSize = 0 + Me.btnVIEW_SND.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnVIEW_SND.ForeColor = System.Drawing.Color.White + Me.btnVIEW_SND.Location = New System.Drawing.Point(167, 16) + Me.btnVIEW_SND.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) + Me.btnVIEW_SND.Name = "btnVIEW_SND" + Me.btnVIEW_SND.Size = New System.Drawing.Size(158, 47) + Me.btnVIEW_SND.TabIndex = 5 + Me.btnVIEW_SND.TabStop = False + Me.btnVIEW_SND.Text = "SENDUNGEN " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(BackOffice)" + Me.ToolTip1.SetToolTip(Me.btnVIEW_SND, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & "d sortiert nach Dauer") - Me.Button4.UseVisualStyleBackColor = False + Me.btnVIEW_SND.UseVisualStyleBackColor = False ' - 'Button7 + 'btnVIEW_KOMBI ' - 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.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.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(158, 47) - Me.Button7.TabIndex = 6 - Me.Button7.TabStop = False - Me.Button7.Text = "BACKOFFICE" - Me.ToolTip1.SetToolTip(Me.Button7, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + Me.btnVIEW_KOMBI.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) + Me.btnVIEW_KOMBI.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.btnVIEW_KOMBI.FlatAppearance.BorderSize = 0 + Me.btnVIEW_KOMBI.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnVIEW_KOMBI.ForeColor = System.Drawing.Color.White + Me.btnVIEW_KOMBI.Location = New System.Drawing.Point(331, 16) + Me.btnVIEW_KOMBI.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) + Me.btnVIEW_KOMBI.Name = "btnVIEW_KOMBI" + Me.btnVIEW_KOMBI.Size = New System.Drawing.Size(158, 47) + Me.btnVIEW_KOMBI.TabIndex = 6 + Me.btnVIEW_KOMBI.TabStop = False + Me.btnVIEW_KOMBI.Text = "Kombiansicht" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "LKW/SENDUNGEN" + Me.ToolTip1.SetToolTip(Me.btnVIEW_KOMBI, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & "d sortiert nach Dauer") - Me.Button7.UseVisualStyleBackColor = False + Me.btnVIEW_KOMBI.UseVisualStyleBackColor = False + ' + 'btnVIEW_Compliance + ' + Me.btnVIEW_Compliance.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) + Me.btnVIEW_Compliance.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.btnVIEW_Compliance.FlatAppearance.BorderSize = 0 + Me.btnVIEW_Compliance.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnVIEW_Compliance.ForeColor = System.Drawing.Color.White + Me.btnVIEW_Compliance.Location = New System.Drawing.Point(495, 16) + Me.btnVIEW_Compliance.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) + Me.btnVIEW_Compliance.Name = "btnVIEW_Compliance" + Me.btnVIEW_Compliance.Size = New System.Drawing.Size(158, 47) + Me.btnVIEW_Compliance.TabIndex = 7 + Me.btnVIEW_Compliance.TabStop = False + Me.btnVIEW_Compliance.Text = "Compliance" + Me.ToolTip1.SetToolTip(Me.btnVIEW_Compliance, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + "d sortiert nach Dauer") + Me.btnVIEW_Compliance.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 +2306,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,24 +2320,9 @@ 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 - ' - Me.MyFlowLayoutPanel1.AutoScroll = True - Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden) - Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung) - Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg) - Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch) - Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch) - Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top - 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.TabIndex = 85 - ' 'pnlOptionen ' Me.pnlOptionen.BackColor = System.Drawing.Color.Black @@ -2461,8 +2383,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 +2549,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 +2557,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 +2577,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,28 +2585,29 @@ 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 @@ -2711,15 +2618,226 @@ Partial Class frmHauptfensterNew 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 ' + '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 + ' + '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 + ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.AutoScroll = True + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top + 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(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 + ' + '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 + ' 'UidAbfrageService1 ' Me.UidAbfrageService1.Credentials = Nothing Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/" Me.UidAbfrageService1.UseDefaultCredentials = False ' + '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 + ' + 'btnVIEW_CustControling + ' + Me.btnVIEW_CustControling.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) + Me.btnVIEW_CustControling.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.btnVIEW_CustControling.FlatAppearance.BorderSize = 0 + Me.btnVIEW_CustControling.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnVIEW_CustControling.ForeColor = System.Drawing.Color.White + Me.btnVIEW_CustControling.Location = New System.Drawing.Point(3, 79) + Me.btnVIEW_CustControling.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) + Me.btnVIEW_CustControling.Name = "btnVIEW_CustControling" + Me.btnVIEW_CustControling.Size = New System.Drawing.Size(158, 47) + Me.btnVIEW_CustControling.TabIndex = 8 + Me.btnVIEW_CustControling.TabStop = False + Me.btnVIEW_CustControling.Text = "Customs Controlling" + Me.ToolTip1.SetToolTip(Me.btnVIEW_CustControling, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + "d sortiert nach Dauer") + Me.btnVIEW_CustControling.UseVisualStyleBackColor = False + ' + 'btnDEFAULT_Selected + ' + Me.btnDEFAULT_Selected.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnDEFAULT_Selected.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnDEFAULT_Selected.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer)) + Me.btnDEFAULT_Selected.Location = New System.Drawing.Point(167, 79) + Me.btnDEFAULT_Selected.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) + Me.btnDEFAULT_Selected.Name = "btnDEFAULT_Selected" + Me.btnDEFAULT_Selected.Size = New System.Drawing.Size(74, 47) + Me.btnDEFAULT_Selected.TabIndex = 9 + Me.btnDEFAULT_Selected.TabStop = False + Me.btnDEFAULT_Selected.Text = "DEFAULT_Selected" + Me.ToolTip1.SetToolTip(Me.btnDEFAULT_Selected, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + "d sortiert nach Dauer") + Me.btnDEFAULT_Selected.UseVisualStyleBackColor = False + Me.btnDEFAULT_Selected.Visible = False + ' + 'btnDEFAULT_UnSelected + ' + Me.btnDEFAULT_UnSelected.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) + Me.btnDEFAULT_UnSelected.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.btnDEFAULT_UnSelected.FlatAppearance.BorderSize = 0 + Me.btnDEFAULT_UnSelected.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.btnDEFAULT_UnSelected.ForeColor = System.Drawing.Color.White + Me.btnDEFAULT_UnSelected.Location = New System.Drawing.Point(247, 79) + Me.btnDEFAULT_UnSelected.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0) + Me.btnDEFAULT_UnSelected.Name = "btnDEFAULT_UnSelected" + Me.btnDEFAULT_UnSelected.Size = New System.Drawing.Size(85, 47) + Me.btnDEFAULT_UnSelected.TabIndex = 10 + Me.btnDEFAULT_UnSelected.TabStop = False + Me.btnDEFAULT_UnSelected.Text = "DEFAULT_UnSelected" + Me.ToolTip1.SetToolTip(Me.btnDEFAULT_UnSelected, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & + "d sortiert nach Dauer") + Me.btnDEFAULT_UnSelected.UseVisualStyleBackColor = False + Me.btnDEFAULT_UnSelected.Visible = False + ' 'frmHauptfensterNew ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2744,7 +2862,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,12 +2876,15 @@ 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) CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.FlowLayoutPanel2.ResumeLayout(False) - Me.MyFlowLayoutPanel1.ResumeLayout(False) Me.pnlOptionen.ResumeLayout(False) Me.Panel9.ResumeLayout(False) Me.cntxt.ResumeLayout(False) @@ -2774,7 +2894,9 @@ Partial Class frmHauptfensterNew Me.cntVerag.ResumeLayout(False) Me.pnlLeft.ResumeLayout(False) Me.Panel5.ResumeLayout(False) + Me.Panel5.PerformLayout() Me.TabControl1.ResumeLayout(False) + Me.MyFlowLayoutPanel1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -2851,7 +2973,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,22 +3174,29 @@ 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 btnVIEW_LKW As Button + Friend WithEvents pnlMain As System.Windows.Forms.Panel Friend WithEvents PictureBox1 As PictureBox Friend WithEvents Panel6 As Panel Friend WithEvents Panel8 As Panel Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel Friend WithEvents FlowLayoutPanel2 As FlowLayoutPanel Friend WithEvents Panel9 As Panel - Friend WithEvents Button4 As Button - Friend WithEvents Button7 As Button + Friend WithEvents btnVIEW_SND As Button + Friend WithEvents btnVIEW_KOMBI As Button + Friend WithEvents btnVIEW_Compliance 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 + Friend WithEvents btnVIEW_CustControling As Button + Friend WithEvents btnDEFAULT_Selected As Button + Friend WithEvents btnDEFAULT_UnSelected As Button 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..34a9db2 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,36 +102,95 @@ Public Class frmHauptfensterNew End Sub Sub SWITCH_SEARCH(switchTO) pnlMain.Controls.Clear() + pnlMain_Bottom.Controls.Clear() SEARCH_AVISO_AKTIV = switchTO + + ' toggle_Buttons_Main(sender) + For Each button In FlowLayoutPanel1.Controls + With button + .BackColor = btnDEFAULT_UnSelected.BackColor + .ForeColor = btnDEFAULT_UnSelected.ForeColor + .Font = btnDEFAULT_UnSelected.Font + End With + Next + + Dim SelectedBtn As Button = Nothing Select Case SEARCH_AVISO_AKTIV Case "SND" - Dim aaaaa As New usrCntlSND_Ausfuhr - pnlMain.Controls.Add(aaaaa) - initsearch("", False) ': Aviso_anzeigen("") - + splitMainWorkingView.Panel2Collapsed = True + SelectedBtn = btnVIEW_SND + 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_SND.PerformLayout() + Application.DoEvents() Case "AVISO" + splitMainWorkingView.Panel2Collapsed = True + SelectedBtn = btnVIEW_LKW 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 - + pnlMain.Controls.Add(SEARCH_AVISO) + SEARCH_AVISO.Dock = DockStyle.Fill pnlMain.PerformLayout() SEARCH_AVISO.PerformLayout() Application.DoEvents() + Case "AVISO_SND_KOMBI" + splitMainWorkingView.Panel2Collapsed = False + SelectedBtn = btnVIEW_KOMBI + 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() + Case "COMPLIANCE" + splitMainWorkingView.Panel2Collapsed = True + SelectedBtn = btnVIEW_Compliance + '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 "CUSTOMS_CONTROLLING" + splitMainWorkingView.Panel2Collapsed = True + SelectedBtn = btnVIEW_CustControling + 'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO + 'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me + 'pnlMain.Controls.Add(SEARCH_AVISO) + 'SEARCH_AVISO.Dock = DockStyle.Fill + pnlMain.PerformLayout() + SEARCH_AVISO.PerformLayout() + Application.DoEvents() - 'MsgBox(pnlMain.Width & " / " & pnlMain.Height) - 'MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height) End Select + initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("") + + + With SelectedBtn + .BackColor = btnDEFAULT_Selected.BackColor + .ForeColor = btnDEFAULT_Selected.ForeColor + .Font = btnDEFAULT_Selected.Font + End With + + End Sub Sub initsearch(hSort As String, Optional showDetails As Boolean = True) @@ -142,6 +202,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 +584,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 +1519,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 +1807,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 +3126,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 @@ -3823,7 +3892,7 @@ ELSE_ATILLA: detailForm.Show() End Sub - Private Sub btnWichtigeStandort_Click(sender As Object, e As EventArgs) Handles btnWichtigeStandort.Click + Private Sub btnWichtigeStandort_Click(sender As Object, e As EventArgs) Handles btnVIEW_LKW.Click Grid_aktiv = False SWITCH_SEARCH("AVISO") @@ -3831,7 +3900,7 @@ ELSE_ATILLA: Grid_aktiv = True End Sub - Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click + Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles btnVIEW_SND.Click Grid_aktiv = False SWITCH_SEARCH("SND") @@ -3858,4 +3927,24 @@ ELSE_ATILLA: End Try End Sub + Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles btnVIEW_KOMBI.Click + Grid_aktiv = False + SWITCH_SEARCH("AVISO_SND_KOMBI") + SEARCH_AVISO.RESET() + Grid_aktiv = True + End Sub + + Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles btnVIEW_Compliance.Click + Grid_aktiv = False + SWITCH_SEARCH("COMPLIANCE") + SEARCH_AVISO.RESET() + Grid_aktiv = True + End Sub + + Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnVIEW_CustControling.Click + Grid_aktiv = False + SWITCH_SEARCH("CUSTOMS_CONTROLLING") + 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