diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index e4b9f4b..7718757 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index 51877c3..824ef24 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -137,7 +137,6 @@ Partial Class frmSendungsdetailsNEU Me.Label25 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke() Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.tbDigicust = New System.Windows.Forms.TabPage() Me.dgvDigicust = New System.Windows.Forms.DataGridView() @@ -264,35 +263,10 @@ Partial Class frmSendungsdetailsNEU Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button4 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() - Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() Me.lblSonstigesKosten = New System.Windows.Forms.Label() Me.btnAufschub_Atr = New System.Windows.Forms.Button() Me.btnAufschub_Empf = New System.Windows.Forms.Button() Me.btnAufschub_VERAG = New System.Windows.Forms.Button() - Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() Me.Panel15 = New System.Windows.Forms.Panel() Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() @@ -305,7 +279,6 @@ Partial Class frmSendungsdetailsNEU Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblFrachtfuehrer = New System.Windows.Forms.Label() Me.pnlT1 = New System.Windows.Forms.Panel() - Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() Me.Label43 = New System.Windows.Forms.Label() Me.lblAbsender = New System.Windows.Forms.Label() Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -511,6 +484,33 @@ Partial Class frmSendungsdetailsNEU Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke() + Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() + Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() + Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() + Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() + Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -674,7 +674,7 @@ Partial Class frmSendungsdetailsNEU Me.tbAnhang.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) Me.tbAnhang.Location = New System.Drawing.Point(4, 29) Me.tbAnhang.Name = "tbAnhang" - Me.tbAnhang.Size = New System.Drawing.Size(1227, 298) + Me.tbAnhang.Size = New System.Drawing.Size(1227, 296) Me.tbAnhang.TabIndex = 4 Me.tbAnhang.Text = "Anhang" Me.tbAnhang.UseVisualStyleBackColor = True @@ -695,7 +695,7 @@ Partial Class frmSendungsdetailsNEU Me.dgvAnhang.RowHeadersWidth = 51 Me.dgvAnhang.RowTemplate.Height = 40 Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhang.Size = New System.Drawing.Size(1227, 235) + Me.dgvAnhang.Size = New System.Drawing.Size(1227, 233) Me.dgvAnhang.TabIndex = 1 ' 'btnDirektAnfuegen @@ -936,7 +936,7 @@ Partial Class frmSendungsdetailsNEU Me.tbZollabfertigung.Controls.Add(Me.Panel16) Me.tbZollabfertigung.Location = New System.Drawing.Point(4, 29) Me.tbZollabfertigung.Name = "tbZollabfertigung" - Me.tbZollabfertigung.Size = New System.Drawing.Size(1227, 298) + Me.tbZollabfertigung.Size = New System.Drawing.Size(1227, 296) Me.tbZollabfertigung.TabIndex = 2 Me.tbZollabfertigung.Text = "Zollabfertigung" Me.tbZollabfertigung.UseVisualStyleBackColor = True @@ -950,7 +950,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) Me.Panel16.Location = New System.Drawing.Point(0, 0) Me.Panel16.Name = "Panel16" - Me.Panel16.Size = New System.Drawing.Size(1227, 298) + Me.Panel16.Size = New System.Drawing.Size(1227, 296) Me.Panel16.TabIndex = 0 ' 'dgvZollAnmeldungen @@ -968,7 +968,7 @@ Partial Class frmSendungsdetailsNEU Me.dgvZollAnmeldungen.RowHeadersWidth = 51 Me.dgvZollAnmeldungen.RowTemplate.Height = 30 Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1227, 228) + Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1227, 226) Me.dgvZollAnmeldungen.TabIndex = 1 ' 'Panel17 @@ -977,7 +977,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel17.Controls.Add(Me.Button6) Me.Panel17.Controls.Add(Me.Button5) Me.Panel17.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel17.Location = New System.Drawing.Point(0, 260) + Me.Panel17.Location = New System.Drawing.Point(0, 258) Me.Panel17.Name = "Panel17" Me.Panel17.Size = New System.Drawing.Size(1227, 38) Me.Panel17.TabIndex = 2 @@ -1042,7 +1042,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" - Me.ToolStripMenuItem8.Size = New System.Drawing.Size(102, 30) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem8.Text = "T1" ' 'ToolStripMenuItem9 @@ -1050,7 +1050,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" - Me.ToolStripMenuItem9.Size = New System.Drawing.Size(102, 30) + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem9.Text = "T2" ' 'ToolStripMenuItem10 @@ -1058,7 +1058,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem10.Enabled = False Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" - Me.ToolStripMenuItem10.Size = New System.Drawing.Size(102, 30) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem10.Text = "Ü-T" Me.ToolStripMenuItem10.Visible = False ' @@ -1103,7 +1103,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" - Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30) + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem20.Text = "EZA" ' 'ToolStripMenuItem18 @@ -1112,7 +1112,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" - Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30) + Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem18.Text = "T1" ' 'ToolStripMenuItem19 @@ -1121,7 +1121,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" - Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30) + Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem19.Text = "T2" ' 'toolSendMIC @@ -1139,7 +1139,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22" - Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30) + Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem22.Text = "MIC Import senden" ' 'ToolStripMenuItem23 @@ -1147,7 +1147,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23" - Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30) + Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem23.Text = "MIC Transit senden" ' 'ToolStripMenuItem24 @@ -1156,7 +1156,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24" - Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30) + Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem24.Text = "MIC Export senden" ' 'toolSendDyModelTrans @@ -1173,21 +1173,21 @@ Partial Class frmSendungsdetailsNEU ' Me.toolModal_Import.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.toolModal_Import.Name = "toolModal_Import" - Me.toolModal_Import.Size = New System.Drawing.Size(153, 30) + Me.toolModal_Import.Size = New System.Drawing.Size(145, 22) Me.toolModal_Import.Text = "IMPORT" ' 'toolModal_Export ' Me.toolModal_Export.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.toolModal_Export.Name = "toolModal_Export" - Me.toolModal_Export.Size = New System.Drawing.Size(153, 30) + Me.toolModal_Export.Size = New System.Drawing.Size(145, 22) Me.toolModal_Export.Text = "EXPORT" ' 'toolModal_Transit ' Me.toolModal_Transit.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.toolModal_Transit.Name = "toolModal_Transit" - Me.toolModal_Transit.Size = New System.Drawing.Size(153, 30) + Me.toolModal_Transit.Size = New System.Drawing.Size(145, 22) Me.toolModal_Transit.Text = "TRANSIT (T1)" ' 'ToolStripMenuItem12 @@ -1213,7 +1213,7 @@ Partial Class frmSendungsdetailsNEU Me.tbATEZ.Location = New System.Drawing.Point(4, 29) Me.tbATEZ.Name = "tbATEZ" Me.tbATEZ.Padding = New System.Windows.Forms.Padding(3) - Me.tbATEZ.Size = New System.Drawing.Size(1227, 298) + Me.tbATEZ.Size = New System.Drawing.Size(1227, 296) Me.tbATEZ.TabIndex = 6 Me.tbATEZ.Text = "ATEZ" Me.tbATEZ.UseVisualStyleBackColor = True @@ -1253,7 +1253,7 @@ Partial Class frmSendungsdetailsNEU Me.dgvATEZNCTS.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvATEZNCTS.ShowCellErrors = False Me.dgvATEZNCTS.ShowRowErrors = False - Me.dgvATEZNCTS.Size = New System.Drawing.Size(1221, 222) + Me.dgvATEZNCTS.Size = New System.Drawing.Size(1221, 220) Me.dgvATEZNCTS.TabIndex = 105 Me.dgvATEZNCTS.TabStop = False ' @@ -1329,7 +1329,7 @@ Partial Class frmSendungsdetailsNEU Me.TabPage1.Location = New System.Drawing.Point(4, 29) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(1227, 298) + Me.TabPage1.Size = New System.Drawing.Size(1227, 296) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Kunden - Zolltarif" Me.TabPage1.UseVisualStyleBackColor = True @@ -1345,7 +1345,7 @@ Partial Class frmSendungsdetailsNEU Me.pnlKundenZolltarif.Location = New System.Drawing.Point(3, 36) Me.pnlKundenZolltarif.MinimumSize = New System.Drawing.Size(2, 103) Me.pnlKundenZolltarif.Name = "pnlKundenZolltarif" - Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1221, 259) + Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1221, 257) Me.pnlKundenZolltarif.TabIndex = 1 Me.pnlKundenZolltarif.TabStop = True ' @@ -1354,7 +1354,7 @@ Partial Class frmSendungsdetailsNEU Me.Label22.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(4, 218) + Me.Label22.Location = New System.Drawing.Point(4, 216) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(209, 13) Me.Label22.TabIndex = 0 @@ -1366,7 +1366,7 @@ Partial Class frmSendungsdetailsNEU Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.AutoSize = True - Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 233) + Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 231) Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Name = "lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden" Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Size = New System.Drawing.Size(338, 13) Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.TabIndex = 1 @@ -1412,7 +1412,7 @@ Partial Class frmSendungsdetailsNEU Me.TabPage2.Location = New System.Drawing.Point(4, 29) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(1227, 298) + Me.TabPage2.Size = New System.Drawing.Size(1227, 296) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Speditionsbuch" Me.TabPage2.UseVisualStyleBackColor = True @@ -1430,7 +1430,7 @@ Partial Class frmSendungsdetailsNEU Me.DataGridView.Location = New System.Drawing.Point(3, 94) Me.DataGridView.Name = "DataGridView" Me.DataGridView.RowHeadersWidth = 51 - Me.DataGridView.Size = New System.Drawing.Size(1221, 201) + Me.DataGridView.Size = New System.Drawing.Size(1221, 199) Me.DataGridView.TabIndex = 1 ' 'pnlSpedBuchNacherfassung @@ -1745,19 +1745,11 @@ Partial Class frmSendungsdetailsNEU Me.TabPage3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) Me.TabPage3.Location = New System.Drawing.Point(4, 29) Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Size = New System.Drawing.Size(1227, 298) + Me.TabPage3.Size = New System.Drawing.Size(1227, 296) Me.TabPage3.TabIndex = 3 Me.TabPage3.Text = "Vermerke" Me.TabPage3.UseVisualStyleBackColor = True ' - 'RCntrlVermerke1 - ' - Me.RCntrlVermerke1.Dock = System.Windows.Forms.DockStyle.Fill - Me.RCntrlVermerke1.Location = New System.Drawing.Point(0, 0) - Me.RCntrlVermerke1.Name = "RCntrlVermerke1" - Me.RCntrlVermerke1.Size = New System.Drawing.Size(1227, 298) - Me.RCntrlVermerke1.TabIndex = 1 - ' 'gridVermerke ' Me.gridVermerke.AllowUserToAddRows = False @@ -1793,7 +1785,7 @@ Partial Class frmSendungsdetailsNEU Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridVermerke.ShowCellErrors = False Me.gridVermerke.ShowRowErrors = False - Me.gridVermerke.Size = New System.Drawing.Size(1227, 298) + Me.gridVermerke.Size = New System.Drawing.Size(1227, 296) Me.gridVermerke.TabIndex = 0 Me.gridVermerke.TabStop = False ' @@ -1803,7 +1795,7 @@ Partial Class frmSendungsdetailsNEU Me.tbDigicust.Controls.Add(Me.Panel24) Me.tbDigicust.Location = New System.Drawing.Point(4, 29) Me.tbDigicust.Name = "tbDigicust" - Me.tbDigicust.Size = New System.Drawing.Size(1227, 298) + Me.tbDigicust.Size = New System.Drawing.Size(1227, 296) Me.tbDigicust.TabIndex = 7 Me.tbDigicust.Text = "Digicust" Me.tbDigicust.UseVisualStyleBackColor = True @@ -1843,7 +1835,7 @@ Partial Class frmSendungsdetailsNEU Me.dgvDigicust.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvDigicust.ShowCellErrors = False Me.dgvDigicust.ShowRowErrors = False - Me.dgvDigicust.Size = New System.Drawing.Size(1227, 253) + Me.dgvDigicust.Size = New System.Drawing.Size(1227, 251) Me.dgvDigicust.TabIndex = 107 Me.dgvDigicust.TabStop = False ' @@ -1878,7 +1870,7 @@ Partial Class frmSendungsdetailsNEU Me.tbMail.Location = New System.Drawing.Point(4, 29) Me.tbMail.Name = "tbMail" Me.tbMail.Padding = New System.Windows.Forms.Padding(3) - Me.tbMail.Size = New System.Drawing.Size(1227, 298) + Me.tbMail.Size = New System.Drawing.Size(1227, 296) Me.tbMail.TabIndex = 8 Me.tbMail.Text = "Mail" Me.tbMail.UseVisualStyleBackColor = True @@ -1919,7 +1911,7 @@ Partial Class frmSendungsdetailsNEU Me.dgvMail.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvMail.ShowCellErrors = False Me.dgvMail.ShowRowErrors = False - Me.dgvMail.Size = New System.Drawing.Size(1221, 247) + Me.dgvMail.Size = New System.Drawing.Size(1221, 245) Me.dgvMail.TabIndex = 109 Me.dgvMail.TabStop = False ' @@ -3694,66 +3686,6 @@ Partial Class frmSendungsdetailsNEU Me.Button1.Text = "BAR - Beleg" Me.Button1.UseVisualStyleBackColor = False ' - 'cntlFrachtfuehrer_Sonst - ' - Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST" - Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF" - Me.cntlFrachtfuehrer_Sonst._readOnly = True - Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168) - Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst" - Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtfuehrer_Sonst.TabIndex = 82 - Me.cntlFrachtfuehrer_Sonst.TabStop = False - Me.cntlFrachtfuehrer_Sonst.value = "" - ' - 'cntlAbsender_Sonst - ' - Me.cntlAbsender_Sonst._abrArt = "SONST" - Me.cntlAbsender_Sonst._beteiligter = "ABS" - Me.cntlAbsender_Sonst._readOnly = True - Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133) - Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst" - Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Sonst.TabIndex = 68 - Me.cntlAbsender_Sonst.TabStop = False - Me.cntlAbsender_Sonst.value = "" - ' - 'cntlEmpfaenger_Sonst - ' - Me.cntlEmpfaenger_Sonst._abrArt = "SONST" - Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF" - Me.cntlEmpfaenger_Sonst._readOnly = True - Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94) - Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst" - Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpfaenger_Sonst.TabIndex = 53 - Me.cntlEmpfaenger_Sonst.TabStop = False - Me.cntlEmpfaenger_Sonst.value = "" - ' - 'cntlAuftraggeber_Sonst - ' - Me.cntlAuftraggeber_Sonst._abrArt = "SONST" - Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR" - Me.cntlAuftraggeber_Sonst._readOnly = True - Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57) - Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst" - Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftraggeber_Sonst.TabIndex = 36 - Me.cntlAuftraggeber_Sonst.TabStop = False - Me.cntlAuftraggeber_Sonst.value = "" - ' - 'cntlAvisierer_Sonst - ' - Me.cntlAvisierer_Sonst._abrArt = "SONST" - Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER" - Me.cntlAvisierer_Sonst._readOnly = True - Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20) - Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst" - Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Sonst.TabIndex = 21 - Me.cntlAvisierer_Sonst.TabStop = False - Me.cntlAvisierer_Sonst.value = "" - ' 'lblSonstigesKosten ' Me.lblSonstigesKosten.AutoSize = True @@ -3821,246 +3753,6 @@ Partial Class frmSendungsdetailsNEU Me.btnAufschub_VERAG.UseVisualStyleBackColor = False Me.btnAufschub_VERAG.Visible = False ' - 'cntlFrachtf_Clear - ' - Me.cntlFrachtf_Clear._abrArt = "CLEARING" - Me.cntlFrachtf_Clear._beteiligter = "FRACHTF" - Me.cntlFrachtf_Clear._readOnly = False - Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168) - Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear" - Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Clear.TabIndex = 81 - Me.cntlFrachtf_Clear.TabStop = False - Me.cntlFrachtf_Clear.value = "" - ' - 'cntlFrachtf_Abf - ' - Me.cntlFrachtf_Abf._abrArt = "ABFKOST" - Me.cntlFrachtf_Abf._beteiligter = "FRACHTF" - Me.cntlFrachtf_Abf._readOnly = False - Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168) - Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf" - Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Abf.TabIndex = 80 - Me.cntlFrachtf_Abf.TabStop = False - Me.cntlFrachtf_Abf.value = "" - ' - 'cntlFrachtf_Eust - ' - Me.cntlFrachtf_Eust._abrArt = "EUST" - Me.cntlFrachtf_Eust._beteiligter = "FRACHTF" - Me.cntlFrachtf_Eust._readOnly = False - Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168) - Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust" - Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Eust.TabIndex = 79 - Me.cntlFrachtf_Eust.TabStop = False - Me.cntlFrachtf_Eust.value = "" - ' - 'cntlFrachtf_Zoll - ' - Me.cntlFrachtf_Zoll._abrArt = "ZOLL" - Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF" - Me.cntlFrachtf_Zoll._readOnly = False - Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168) - Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll" - Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Zoll.TabIndex = 78 - Me.cntlFrachtf_Zoll.TabStop = False - Me.cntlFrachtf_Zoll.value = "" - ' - 'cntlAbsender_Clear - ' - Me.cntlAbsender_Clear._abrArt = "CLEARING" - Me.cntlAbsender_Clear._beteiligter = "ABS" - Me.cntlAbsender_Clear._readOnly = False - Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133) - Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear" - Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Clear.TabIndex = 67 - Me.cntlAbsender_Clear.TabStop = False - Me.cntlAbsender_Clear.value = "" - ' - 'cntlAbsender_Abf - ' - Me.cntlAbsender_Abf._abrArt = "ABFKOST" - Me.cntlAbsender_Abf._beteiligter = "ABS" - Me.cntlAbsender_Abf._readOnly = False - Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133) - Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf" - Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Abf.TabIndex = 66 - Me.cntlAbsender_Abf.TabStop = False - Me.cntlAbsender_Abf.value = "" - ' - 'cntlAbsender_Eust - ' - Me.cntlAbsender_Eust._abrArt = "EUST" - Me.cntlAbsender_Eust._beteiligter = "ABS" - Me.cntlAbsender_Eust._readOnly = False - Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133) - Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust" - Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Eust.TabIndex = 65 - Me.cntlAbsender_Eust.TabStop = False - Me.cntlAbsender_Eust.value = "" - ' - 'cntlAbsender_Zoll - ' - Me.cntlAbsender_Zoll._abrArt = "ZOLL" - Me.cntlAbsender_Zoll._beteiligter = "ABS" - Me.cntlAbsender_Zoll._readOnly = False - Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133) - Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll" - Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Zoll.TabIndex = 64 - Me.cntlAbsender_Zoll.TabStop = False - Me.cntlAbsender_Zoll.value = "" - ' - 'cntlEmpf_Clear - ' - Me.cntlEmpf_Clear._abrArt = "CLEARING" - Me.cntlEmpf_Clear._beteiligter = "EMPF" - Me.cntlEmpf_Clear._readOnly = False - Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94) - Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear" - Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Clear.TabIndex = 52 - Me.cntlEmpf_Clear.TabStop = False - Me.cntlEmpf_Clear.value = "" - ' - 'cntlEmpf_Abf - ' - Me.cntlEmpf_Abf._abrArt = "ABFKOST" - Me.cntlEmpf_Abf._beteiligter = "EMPF" - Me.cntlEmpf_Abf._readOnly = False - Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94) - Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf" - Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Abf.TabIndex = 51 - Me.cntlEmpf_Abf.TabStop = False - Me.cntlEmpf_Abf.value = "" - ' - 'cntlEmpf_Eust - ' - Me.cntlEmpf_Eust._abrArt = "EUST" - Me.cntlEmpf_Eust._beteiligter = "EMPF" - Me.cntlEmpf_Eust._readOnly = False - Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94) - Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust" - Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Eust.TabIndex = 50 - Me.cntlEmpf_Eust.TabStop = False - Me.cntlEmpf_Eust.value = "" - ' - 'cntlEmpf_Zoll - ' - Me.cntlEmpf_Zoll._abrArt = "ZOLL" - Me.cntlEmpf_Zoll._beteiligter = "EMPF" - Me.cntlEmpf_Zoll._readOnly = False - Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94) - Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll" - Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Zoll.TabIndex = 49 - Me.cntlEmpf_Zoll.TabStop = False - Me.cntlEmpf_Zoll.value = "" - ' - 'cntlAuftr_Clear - ' - Me.cntlAuftr_Clear._abrArt = "CLEARING" - Me.cntlAuftr_Clear._beteiligter = "AUFTR" - Me.cntlAuftr_Clear._readOnly = False - Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57) - Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear" - Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Clear.TabIndex = 35 - Me.cntlAuftr_Clear.TabStop = False - Me.cntlAuftr_Clear.value = "" - ' - 'cntlAuftr_Abf - ' - Me.cntlAuftr_Abf._abrArt = "ABFKOST" - Me.cntlAuftr_Abf._beteiligter = "AUFTR" - Me.cntlAuftr_Abf._readOnly = False - Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57) - Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf" - Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Abf.TabIndex = 34 - Me.cntlAuftr_Abf.TabStop = False - Me.cntlAuftr_Abf.value = "" - ' - 'cntlAuftr_Eust - ' - Me.cntlAuftr_Eust._abrArt = "EUST" - Me.cntlAuftr_Eust._beteiligter = "AUFTR" - Me.cntlAuftr_Eust._readOnly = False - Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57) - Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust" - Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Eust.TabIndex = 33 - Me.cntlAuftr_Eust.TabStop = False - Me.cntlAuftr_Eust.value = "" - ' - 'cntlAuftr_Zoll - ' - Me.cntlAuftr_Zoll._abrArt = "ZOLL" - Me.cntlAuftr_Zoll._beteiligter = "AUFTR" - Me.cntlAuftr_Zoll._readOnly = False - Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57) - Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll" - Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Zoll.TabIndex = 32 - Me.cntlAuftr_Zoll.TabStop = False - Me.cntlAuftr_Zoll.value = "" - ' - 'cntlAvisierer_Clear - ' - Me.cntlAvisierer_Clear._abrArt = "CLEARING" - Me.cntlAvisierer_Clear._beteiligter = "AVISIERER" - Me.cntlAvisierer_Clear._readOnly = False - Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20) - Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear" - Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Clear.TabIndex = 20 - Me.cntlAvisierer_Clear.TabStop = False - Me.cntlAvisierer_Clear.value = "" - ' - 'cntlAvisierer_Abf - ' - Me.cntlAvisierer_Abf._abrArt = "ABFKOST" - Me.cntlAvisierer_Abf._beteiligter = "AVISIERER" - Me.cntlAvisierer_Abf._readOnly = False - Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20) - Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf" - Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Abf.TabIndex = 19 - Me.cntlAvisierer_Abf.TabStop = False - Me.cntlAvisierer_Abf.value = "" - ' - 'cntlAvisierer_Eust - ' - Me.cntlAvisierer_Eust._abrArt = "EUST" - Me.cntlAvisierer_Eust._beteiligter = "AVISIERER" - Me.cntlAvisierer_Eust._readOnly = False - Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20) - Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust" - Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Eust.TabIndex = 18 - Me.cntlAvisierer_Eust.TabStop = False - Me.cntlAvisierer_Eust.value = "" - ' - 'cntlAvisierer_Zoll - ' - Me.cntlAvisierer_Zoll._abrArt = "ZOLL" - Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER" - Me.cntlAvisierer_Zoll._readOnly = False - Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20) - Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll" - Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Zoll.TabIndex = 17 - Me.cntlAvisierer_Zoll.TabStop = False - Me.cntlAvisierer_Zoll.value = "" - ' 'Panel15 ' Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) @@ -4251,14 +3943,6 @@ Partial Class frmSendungsdetailsNEU Me.pnlT1.Size = New System.Drawing.Size(549, 118) Me.pnlT1.TabIndex = 86 ' - 'UsrCntlSND_NCTSGestellungsadresse1 - ' - Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1" - Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 118) - Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 - ' 'Label43 ' Me.Label43.AutoSize = True @@ -5375,7 +5059,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.MaximumSize = New System.Drawing.Size(0, 510) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(1235, 65) + Me.Panel2.Size = New System.Drawing.Size(0, 65) Me.Panel2.TabIndex = 0 ' 'FlowLayoutPanel @@ -5386,7 +5070,7 @@ Partial Class frmSendungsdetailsNEU Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 0) Me.FlowLayoutPanel.MaximumSize = New System.Drawing.Size(0, 550) Me.FlowLayoutPanel.Name = "FlowLayoutPanel" - Me.FlowLayoutPanel.Size = New System.Drawing.Size(1123, 65) + Me.FlowLayoutPanel.Size = New System.Drawing.Size(0, 65) Me.FlowLayoutPanel.TabIndex = 0 ' 'FlatButton2 @@ -5504,9 +5188,9 @@ Partial Class frmSendungsdetailsNEU Me.pnlValidation.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer)) Me.pnlValidation.Controls.Add(Me.rtbValidierung) Me.pnlValidation.Controls.Add(Me.Label15) - Me.pnlValidation.Location = New System.Drawing.Point(775, 1) + Me.pnlValidation.Location = New System.Drawing.Point(754, 1) Me.pnlValidation.Name = "pnlValidation" - Me.pnlValidation.Size = New System.Drawing.Size(165, 83) + Me.pnlValidation.Size = New System.Drawing.Size(186, 83) Me.pnlValidation.TabIndex = 16 Me.pnlValidation.TabStop = True Me.pnlValidation.Visible = False @@ -5518,12 +5202,12 @@ Partial Class frmSendungsdetailsNEU Me.rtbValidierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer)) Me.rtbValidierung.BorderStyle = System.Windows.Forms.BorderStyle.None Me.rtbValidierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.rtbValidierung.Location = New System.Drawing.Point(0, 14) + Me.rtbValidierung.Location = New System.Drawing.Point(-2, 14) Me.rtbValidierung.MaxLineLength = -1 Me.rtbValidierung.MaxLines_Warning = "" Me.rtbValidierung.MaxLines_Warning_Label = Nothing Me.rtbValidierung.Name = "rtbValidierung" - Me.rtbValidierung.Size = New System.Drawing.Size(165, 69) + Me.rtbValidierung.Size = New System.Drawing.Size(188, 69) Me.rtbValidierung.TabIndex = 3 Me.rtbValidierung.Text = "" ' @@ -5531,7 +5215,7 @@ Partial Class frmSendungsdetailsNEU ' Me.Label15.AutoSize = True Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.Location = New System.Drawing.Point(0, 0) + Me.Label15.Location = New System.Drawing.Point(1, 2) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(93, 13) Me.Label15.TabIndex = 2 @@ -5678,7 +5362,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel3.Controls.Add(Me.lblAktMA) Me.Panel3.Location = New System.Drawing.Point(541, -1) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(228, 87) + Me.Panel3.Size = New System.Drawing.Size(213, 87) Me.Panel3.TabIndex = 13 ' 'Button18 @@ -5688,9 +5372,9 @@ Partial Class frmSendungsdetailsNEU Me.Button18.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button18.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button18.Location = New System.Drawing.Point(121, 14) + Me.Button18.Location = New System.Drawing.Point(103, 14) Me.Button18.Name = "Button18" - Me.Button18.Size = New System.Drawing.Size(107, 48) + Me.Button18.Size = New System.Drawing.Size(104, 48) Me.Button18.TabIndex = 4 Me.Button18.Text = "Sendung weiterleiten" Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -5706,7 +5390,7 @@ Partial Class frmSendungsdetailsNEU Me.btnDelQS.FlatAppearance.BorderSize = 0 Me.btnDelQS.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDelQS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnDelQS.Location = New System.Drawing.Point(107, 0) + Me.btnDelQS.Location = New System.Drawing.Point(92, 0) Me.btnDelQS.Name = "btnDelQS" Me.btnDelQS.Size = New System.Drawing.Size(12, 13) Me.btnDelQS.TabIndex = 1 @@ -5720,9 +5404,9 @@ Partial Class frmSendungsdetailsNEU Me.btnQS_MA.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnQS_MA.Image = Global.AVISO.My.Resources.Resources.personCheck_small Me.btnQS_MA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnQS_MA.Location = New System.Drawing.Point(4, 14) + Me.btnQS_MA.Location = New System.Drawing.Point(0, 14) Me.btnQS_MA.Name = "btnQS_MA" - Me.btnQS_MA.Size = New System.Drawing.Size(115, 48) + Me.btnQS_MA.Size = New System.Drawing.Size(99, 48) Me.btnQS_MA.TabIndex = 2 Me.btnQS_MA.Text = "Sendung übernehmen" Me.btnQS_MA.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -6488,6 +6172,322 @@ Partial Class frmSendungsdetailsNEU Me.DataGridViewTextBoxColumn5.ReadOnly = True Me.DataGridViewTextBoxColumn5.Width = 200 ' + 'RCntrlVermerke1 + ' + Me.RCntrlVermerke1.Dock = System.Windows.Forms.DockStyle.Fill + Me.RCntrlVermerke1.Location = New System.Drawing.Point(0, 0) + Me.RCntrlVermerke1.Name = "RCntrlVermerke1" + Me.RCntrlVermerke1.Size = New System.Drawing.Size(1227, 296) + Me.RCntrlVermerke1.TabIndex = 1 + ' + 'cntlFrachtfuehrer_Sonst + ' + Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST" + Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF" + Me.cntlFrachtfuehrer_Sonst._readOnly = True + Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168) + Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst" + Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtfuehrer_Sonst.TabIndex = 82 + Me.cntlFrachtfuehrer_Sonst.TabStop = False + Me.cntlFrachtfuehrer_Sonst.value = "" + ' + 'cntlAbsender_Sonst + ' + Me.cntlAbsender_Sonst._abrArt = "SONST" + Me.cntlAbsender_Sonst._beteiligter = "ABS" + Me.cntlAbsender_Sonst._readOnly = True + Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133) + Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst" + Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Sonst.TabIndex = 68 + Me.cntlAbsender_Sonst.TabStop = False + Me.cntlAbsender_Sonst.value = "" + ' + 'cntlEmpfaenger_Sonst + ' + Me.cntlEmpfaenger_Sonst._abrArt = "SONST" + Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF" + Me.cntlEmpfaenger_Sonst._readOnly = True + Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94) + Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst" + Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpfaenger_Sonst.TabIndex = 53 + Me.cntlEmpfaenger_Sonst.TabStop = False + Me.cntlEmpfaenger_Sonst.value = "" + ' + 'cntlAuftraggeber_Sonst + ' + Me.cntlAuftraggeber_Sonst._abrArt = "SONST" + Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR" + Me.cntlAuftraggeber_Sonst._readOnly = True + Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57) + Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst" + Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftraggeber_Sonst.TabIndex = 36 + Me.cntlAuftraggeber_Sonst.TabStop = False + Me.cntlAuftraggeber_Sonst.value = "" + ' + 'cntlAvisierer_Sonst + ' + Me.cntlAvisierer_Sonst._abrArt = "SONST" + Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER" + Me.cntlAvisierer_Sonst._readOnly = True + Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20) + Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst" + Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Sonst.TabIndex = 21 + Me.cntlAvisierer_Sonst.TabStop = False + Me.cntlAvisierer_Sonst.value = "" + ' + 'cntlFrachtf_Clear + ' + Me.cntlFrachtf_Clear._abrArt = "CLEARING" + Me.cntlFrachtf_Clear._beteiligter = "FRACHTF" + Me.cntlFrachtf_Clear._readOnly = False + Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168) + Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear" + Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Clear.TabIndex = 81 + Me.cntlFrachtf_Clear.TabStop = False + Me.cntlFrachtf_Clear.value = "" + ' + 'cntlFrachtf_Abf + ' + Me.cntlFrachtf_Abf._abrArt = "ABFKOST" + Me.cntlFrachtf_Abf._beteiligter = "FRACHTF" + Me.cntlFrachtf_Abf._readOnly = False + Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168) + Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf" + Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Abf.TabIndex = 80 + Me.cntlFrachtf_Abf.TabStop = False + Me.cntlFrachtf_Abf.value = "" + ' + 'cntlFrachtf_Eust + ' + Me.cntlFrachtf_Eust._abrArt = "EUST" + Me.cntlFrachtf_Eust._beteiligter = "FRACHTF" + Me.cntlFrachtf_Eust._readOnly = False + Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168) + Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust" + Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Eust.TabIndex = 79 + Me.cntlFrachtf_Eust.TabStop = False + Me.cntlFrachtf_Eust.value = "" + ' + 'cntlFrachtf_Zoll + ' + Me.cntlFrachtf_Zoll._abrArt = "ZOLL" + Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF" + Me.cntlFrachtf_Zoll._readOnly = False + Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168) + Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll" + Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlFrachtf_Zoll.TabIndex = 78 + Me.cntlFrachtf_Zoll.TabStop = False + Me.cntlFrachtf_Zoll.value = "" + ' + 'cntlAbsender_Clear + ' + Me.cntlAbsender_Clear._abrArt = "CLEARING" + Me.cntlAbsender_Clear._beteiligter = "ABS" + Me.cntlAbsender_Clear._readOnly = False + Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133) + Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear" + Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Clear.TabIndex = 67 + Me.cntlAbsender_Clear.TabStop = False + Me.cntlAbsender_Clear.value = "" + ' + 'cntlAbsender_Abf + ' + Me.cntlAbsender_Abf._abrArt = "ABFKOST" + Me.cntlAbsender_Abf._beteiligter = "ABS" + Me.cntlAbsender_Abf._readOnly = False + Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133) + Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf" + Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Abf.TabIndex = 66 + Me.cntlAbsender_Abf.TabStop = False + Me.cntlAbsender_Abf.value = "" + ' + 'cntlAbsender_Eust + ' + Me.cntlAbsender_Eust._abrArt = "EUST" + Me.cntlAbsender_Eust._beteiligter = "ABS" + Me.cntlAbsender_Eust._readOnly = False + Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133) + Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust" + Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Eust.TabIndex = 65 + Me.cntlAbsender_Eust.TabStop = False + Me.cntlAbsender_Eust.value = "" + ' + 'cntlAbsender_Zoll + ' + Me.cntlAbsender_Zoll._abrArt = "ZOLL" + Me.cntlAbsender_Zoll._beteiligter = "ABS" + Me.cntlAbsender_Zoll._readOnly = False + Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133) + Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll" + Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAbsender_Zoll.TabIndex = 64 + Me.cntlAbsender_Zoll.TabStop = False + Me.cntlAbsender_Zoll.value = "" + ' + 'cntlEmpf_Clear + ' + Me.cntlEmpf_Clear._abrArt = "CLEARING" + Me.cntlEmpf_Clear._beteiligter = "EMPF" + Me.cntlEmpf_Clear._readOnly = False + Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94) + Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear" + Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Clear.TabIndex = 52 + Me.cntlEmpf_Clear.TabStop = False + Me.cntlEmpf_Clear.value = "" + ' + 'cntlEmpf_Abf + ' + Me.cntlEmpf_Abf._abrArt = "ABFKOST" + Me.cntlEmpf_Abf._beteiligter = "EMPF" + Me.cntlEmpf_Abf._readOnly = False + Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94) + Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf" + Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Abf.TabIndex = 51 + Me.cntlEmpf_Abf.TabStop = False + Me.cntlEmpf_Abf.value = "" + ' + 'cntlEmpf_Eust + ' + Me.cntlEmpf_Eust._abrArt = "EUST" + Me.cntlEmpf_Eust._beteiligter = "EMPF" + Me.cntlEmpf_Eust._readOnly = False + Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94) + Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust" + Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Eust.TabIndex = 50 + Me.cntlEmpf_Eust.TabStop = False + Me.cntlEmpf_Eust.value = "" + ' + 'cntlEmpf_Zoll + ' + Me.cntlEmpf_Zoll._abrArt = "ZOLL" + Me.cntlEmpf_Zoll._beteiligter = "EMPF" + Me.cntlEmpf_Zoll._readOnly = False + Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94) + Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll" + Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlEmpf_Zoll.TabIndex = 49 + Me.cntlEmpf_Zoll.TabStop = False + Me.cntlEmpf_Zoll.value = "" + ' + 'cntlAuftr_Clear + ' + Me.cntlAuftr_Clear._abrArt = "CLEARING" + Me.cntlAuftr_Clear._beteiligter = "AUFTR" + Me.cntlAuftr_Clear._readOnly = False + Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57) + Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear" + Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Clear.TabIndex = 35 + Me.cntlAuftr_Clear.TabStop = False + Me.cntlAuftr_Clear.value = "" + ' + 'cntlAuftr_Abf + ' + Me.cntlAuftr_Abf._abrArt = "ABFKOST" + Me.cntlAuftr_Abf._beteiligter = "AUFTR" + Me.cntlAuftr_Abf._readOnly = False + Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57) + Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf" + Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Abf.TabIndex = 34 + Me.cntlAuftr_Abf.TabStop = False + Me.cntlAuftr_Abf.value = "" + ' + 'cntlAuftr_Eust + ' + Me.cntlAuftr_Eust._abrArt = "EUST" + Me.cntlAuftr_Eust._beteiligter = "AUFTR" + Me.cntlAuftr_Eust._readOnly = False + Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57) + Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust" + Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Eust.TabIndex = 33 + Me.cntlAuftr_Eust.TabStop = False + Me.cntlAuftr_Eust.value = "" + ' + 'cntlAuftr_Zoll + ' + Me.cntlAuftr_Zoll._abrArt = "ZOLL" + Me.cntlAuftr_Zoll._beteiligter = "AUFTR" + Me.cntlAuftr_Zoll._readOnly = False + Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57) + Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll" + Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAuftr_Zoll.TabIndex = 32 + Me.cntlAuftr_Zoll.TabStop = False + Me.cntlAuftr_Zoll.value = "" + ' + 'cntlAvisierer_Clear + ' + Me.cntlAvisierer_Clear._abrArt = "CLEARING" + Me.cntlAvisierer_Clear._beteiligter = "AVISIERER" + Me.cntlAvisierer_Clear._readOnly = False + Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20) + Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear" + Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Clear.TabIndex = 20 + Me.cntlAvisierer_Clear.TabStop = False + Me.cntlAvisierer_Clear.value = "" + ' + 'cntlAvisierer_Abf + ' + Me.cntlAvisierer_Abf._abrArt = "ABFKOST" + Me.cntlAvisierer_Abf._beteiligter = "AVISIERER" + Me.cntlAvisierer_Abf._readOnly = False + Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20) + Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf" + Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Abf.TabIndex = 19 + Me.cntlAvisierer_Abf.TabStop = False + Me.cntlAvisierer_Abf.value = "" + ' + 'cntlAvisierer_Eust + ' + Me.cntlAvisierer_Eust._abrArt = "EUST" + Me.cntlAvisierer_Eust._beteiligter = "AVISIERER" + Me.cntlAvisierer_Eust._readOnly = False + Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20) + Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust" + Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Eust.TabIndex = 18 + Me.cntlAvisierer_Eust.TabStop = False + Me.cntlAvisierer_Eust.value = "" + ' + 'cntlAvisierer_Zoll + ' + Me.cntlAvisierer_Zoll._abrArt = "ZOLL" + Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER" + Me.cntlAvisierer_Zoll._readOnly = False + Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20) + Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll" + Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20) + Me.cntlAvisierer_Zoll.TabIndex = 17 + Me.cntlAvisierer_Zoll.TabStop = False + Me.cntlAvisierer_Zoll.value = "" + ' + 'UsrCntlSND_NCTSGestellungsadresse1 + ' + Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1" + Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 118) + Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 + ' 'frmSendungsdetailsNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 74b7bdf..75b54b7 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -384,32 +384,30 @@ Public Class frmSendungsdetailsNEU rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True End If - 'Dim isATB = SENDUNG_LIST.Any(Function(r) r.tblSnd_Abfertigungsart_ID = 44) + Dim isATB = SENDUNG_LIST.Any(Function(r) r.tblSnd_Abfertigungsart_ID = 44) - 'If isATB Then + If isATB Then + + Dim invalidSendung = SENDUNG_LIST.FirstOrDefault(Function(r) r.tblSnd_Abfertigungsart_ID <> 44 AndAlso ((String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier) OrElse + String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier_Pos)) OrElse + ((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse + Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos)) AndAlso + (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse + String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos))) OrElse + ((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse + Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)) AndAlso + (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse + String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos))))) + + If invalidSendung IsNot Nothing Then + Dim err = "Sendung " & invalidSendung.tblSnd_PosUnterNr & " Vorp-Nr/PosNr fehlt/ist falsch." + rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True + End If + + End If - ' Dim invalidSendung = SENDUNG_LIST.FirstOrDefault(Function(r) r.tblSnd_Abfertigungsart_ID <> 44 AndAlso ((String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier) OrElse - ' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier_Pos)) OrElse - '((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse - ' Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos)) AndAlso - ' (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse - ' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos))) OrElse - '((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse - ' Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)) AndAlso - ' (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse - ' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos))))) - ' If invalidSendung IsNot Nothing Then - ' If MsgBox("Sendung-ID: " & invalidSendung.tblSnd_SendungID & vbCrLf & - ' "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig." & - ' vbCrLf & vbCrLf & - ' "Möchten Sie trotzdem fortfahren?", - ' MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation) = MsgBoxResult.No Then - ' Return False - ' End If - ' End If - 'End If