diff --git a/Aviso/frmEintragAviso.vb b/Aviso/frmEintragAviso.vb index 4a66f42..a4b70ab 100644 --- a/Aviso/frmEintragAviso.vb +++ b/Aviso/frmEintragAviso.vb @@ -168,6 +168,7 @@ Public Class frmEintragAviso cboImEx.Text = "IMPORT" Case "VERIMEX" cboFirma.Enabled = True + End Select If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then @@ -1704,7 +1705,7 @@ Public Class frmEintragAviso Label1.Visible = (cboGrenzstelle._value = "WAI" Or cboGrenzstelle._value = "DTB" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED") Select Case FIRMA_TMP - Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR" + Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR", "VERIMEX" If cboGrenzstelle._value = "???" Then 'txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"}) diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 2d6ad57..c47af49 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -1422,6 +1422,7 @@ Public Class frmHauptfenster Case "3" ' Ankunft r.DefaultCellStyle.BackColor = Color.IndianRed + 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 diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index bcd0b8a..ecf32d3 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -390,6 +390,8 @@ Partial Class frmSendungsdetailsNEU Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -1491,18 +1493,20 @@ Partial Class frmSendungsdetailsNEU Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Controls.Add(Me.tbVorkosten) Me.tbcntr.Controls.Add(Me.tbBAR) - Me.tbcntr.Location = New System.Drawing.Point(837, 69) + Me.tbcntr.Location = New System.Drawing.Point(773, 69) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(377, 325) + Me.tbcntr.Size = New System.Drawing.Size(441, 325) Me.tbcntr.TabIndex = 2 Me.tbcntr.TabStop = False ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.Button18) + Me.TabPage4.Controls.Add(Me.MyTextBox2) + Me.TabPage4.Controls.Add(Me.Label10) Me.TabPage4.Controls.Add(Me.Label6) Me.TabPage4.Controls.Add(Me.Label1) - Me.TabPage4.Controls.Add(Me.Button18) Me.TabPage4.Controls.Add(Me.txtFrachtkostenNichtEU) Me.TabPage4.Controls.Add(Me.txtFrachtkostenEU) Me.TabPage4.Controls.Add(Me.cbx) @@ -1534,7 +1538,7 @@ Partial Class frmSendungsdetailsNEU Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage4.Size = New System.Drawing.Size(369, 299) + Me.TabPage4.Size = New System.Drawing.Size(433, 299) Me.TabPage4.TabIndex = 0 Me.TabPage4.Text = "Aktendeckel" Me.TabPage4.UseVisualStyleBackColor = True @@ -1543,7 +1547,7 @@ Partial Class frmSendungsdetailsNEU ' Me.Label6.AutoSize = True Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label6.Location = New System.Drawing.Point(293, 43) + Me.Label6.Location = New System.Drawing.Point(302, 43) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(21, 13) Me.Label6.TabIndex = 16 @@ -1552,7 +1556,7 @@ Partial Class frmSendungsdetailsNEU 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(261, 43) + Me.Label1.Location = New System.Drawing.Point(266, 43) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(40, 13) Me.Label1.TabIndex = 13 @@ -1561,9 +1565,9 @@ Partial Class frmSendungsdetailsNEU 'Button18 ' Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button18.Location = New System.Drawing.Point(264, 76) + Me.Button18.Location = New System.Drawing.Point(269, 76) Me.Button18.Name = "Button18" - Me.Button18.Size = New System.Drawing.Size(99, 21) + Me.Button18.Size = New System.Drawing.Size(156, 21) Me.Button18.TabIndex = 60 Me.Button18.Text = "berechnen" Me.Button18.UseVisualStyleBackColor = True @@ -1583,12 +1587,12 @@ Partial Class frmSendungsdetailsNEU Me.txtFrachtkostenNichtEU._Waehrung = True Me.txtFrachtkostenNichtEU._WaehrungZeichen = True Me.txtFrachtkostenNichtEU.ForeColor = System.Drawing.Color.Black - Me.txtFrachtkostenNichtEU.Location = New System.Drawing.Point(313, 57) + Me.txtFrachtkostenNichtEU.Location = New System.Drawing.Point(322, 57) Me.txtFrachtkostenNichtEU.MaxLineLength = -1 Me.txtFrachtkostenNichtEU.MaxLines_Warning = "" Me.txtFrachtkostenNichtEU.MaxLines_Warning_Label = Nothing Me.txtFrachtkostenNichtEU.Name = "txtFrachtkostenNichtEU" - Me.txtFrachtkostenNichtEU.Size = New System.Drawing.Size(50, 20) + Me.txtFrachtkostenNichtEU.Size = New System.Drawing.Size(54, 20) Me.txtFrachtkostenNichtEU.TabIndex = 14 Me.txtFrachtkostenNichtEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' @@ -1607,19 +1611,19 @@ Partial Class frmSendungsdetailsNEU Me.txtFrachtkostenEU._Waehrung = True Me.txtFrachtkostenEU._WaehrungZeichen = True Me.txtFrachtkostenEU.ForeColor = System.Drawing.Color.Black - Me.txtFrachtkostenEU.Location = New System.Drawing.Point(264, 57) + Me.txtFrachtkostenEU.Location = New System.Drawing.Point(269, 57) Me.txtFrachtkostenEU.MaxLineLength = -1 Me.txtFrachtkostenEU.MaxLines_Warning = "" Me.txtFrachtkostenEU.MaxLines_Warning_Label = Nothing Me.txtFrachtkostenEU.Name = "txtFrachtkostenEU" - Me.txtFrachtkostenEU.Size = New System.Drawing.Size(50, 20) + Me.txtFrachtkostenEU.Size = New System.Drawing.Size(54, 20) Me.txtFrachtkostenEU.TabIndex = 12 Me.txtFrachtkostenEU.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'cbx ' Me.cbx.AutoSize = True - Me.cbx.Location = New System.Drawing.Point(310, 168) + Me.cbx.Location = New System.Drawing.Point(373, 168) Me.cbx.Name = "cbx" Me.cbx.Size = New System.Drawing.Size(55, 17) Me.cbx.TabIndex = 23 @@ -1691,7 +1695,7 @@ Partial Class frmSendungsdetailsNEU Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button21.Location = New System.Drawing.Point(233, 269) + Me.Button21.Location = New System.Drawing.Point(296, 269) Me.Button21.Name = "Button21" Me.Button21.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) Me.Button21.Size = New System.Drawing.Size(131, 30) @@ -1713,7 +1717,7 @@ Partial Class frmSendungsdetailsNEU ' Me.rtbAnmerkungDispoliste.Location = New System.Drawing.Point(6, 268) Me.rtbAnmerkungDispoliste.Name = "rtbAnmerkungDispoliste" - Me.rtbAnmerkungDispoliste.Size = New System.Drawing.Size(224, 31) + Me.rtbAnmerkungDispoliste.Size = New System.Drawing.Size(284, 31) Me.rtbAnmerkungDispoliste.TabIndex = 28 Me.rtbAnmerkungDispoliste.Text = "" ' @@ -1724,7 +1728,7 @@ Partial Class frmSendungsdetailsNEU Me.btnImportaviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.btnImportaviso.Image = Global.AVISO.My.Resources.Resources.auftrag3 Me.btnImportaviso.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnImportaviso.Location = New System.Drawing.Point(233, 211) + Me.btnImportaviso.Location = New System.Drawing.Point(296, 211) Me.btnImportaviso.Name = "btnImportaviso" Me.btnImportaviso.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) Me.btnImportaviso.Size = New System.Drawing.Size(131, 30) @@ -1741,7 +1745,7 @@ Partial Class frmSendungsdetailsNEU Me.btnVorauszahlung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.btnVorauszahlung.Image = Global.AVISO.My.Resources.Resources.vorauszahlung3 Me.btnVorauszahlung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVorauszahlung.Location = New System.Drawing.Point(233, 240) + Me.btnVorauszahlung.Location = New System.Drawing.Point(296, 240) Me.btnVorauszahlung.Name = "btnVorauszahlung" Me.btnVorauszahlung.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) Me.btnVorauszahlung.Size = New System.Drawing.Size(131, 30) @@ -1796,7 +1800,7 @@ Partial Class frmSendungsdetailsNEU 'Label35 ' Me.Label35.AutoSize = True - Me.Label35.Location = New System.Drawing.Point(232, 112) + Me.Label35.Location = New System.Drawing.Point(295, 112) Me.Label35.Name = "Label35" Me.Label35.Size = New System.Drawing.Size(131, 13) Me.Label35.TabIndex = 18 @@ -1815,7 +1819,7 @@ Partial Class frmSendungsdetailsNEU ' Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image) - Me.Button3.Location = New System.Drawing.Point(233, 127) + Me.Button3.Location = New System.Drawing.Point(296, 127) Me.Button3.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(78, 60) @@ -1828,7 +1832,7 @@ Partial Class frmSendungsdetailsNEU Me.Button8.BackgroundImage = CType(resources.GetObject("Button8.BackgroundImage"), System.Drawing.Image) Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.Location = New System.Drawing.Point(310, 127) + Me.Button8.Location = New System.Drawing.Point(373, 127) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(54, 60) Me.Button8.TabIndex = 22 @@ -1903,7 +1907,7 @@ Partial Class frmSendungsdetailsNEU Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboPrinter.DropDownWidth = 300 Me.cboPrinter.FormattingEnabled = True - Me.cboPrinter.Location = New System.Drawing.Point(233, 187) + Me.cboPrinter.Location = New System.Drawing.Point(296, 187) Me.cboPrinter.Name = "cboPrinter" Me.cboPrinter.Size = New System.Drawing.Size(131, 21) Me.cboPrinter.TabIndex = 24 @@ -1912,7 +1916,7 @@ Partial Class frmSendungsdetailsNEU ' Me.rtbAnmerkung.Location = New System.Drawing.Point(6, 127) Me.rtbAnmerkung.Name = "rtbAnmerkung" - Me.rtbAnmerkung.Size = New System.Drawing.Size(224, 124) + Me.rtbAnmerkung.Size = New System.Drawing.Size(284, 124) Me.rtbAnmerkung.TabIndex = 19 Me.rtbAnmerkung.Text = "" ' @@ -1922,7 +1926,7 @@ Partial Class frmSendungsdetailsNEU Me.Panel22.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Panel22.Controls.Add(Me.lblZuKass) Me.Panel22.Controls.Add(Me.txtBARzuKassieren) - Me.Panel22.Location = New System.Drawing.Point(260, 0) + Me.Panel22.Location = New System.Drawing.Point(324, 0) Me.Panel22.Name = "Panel22" Me.Panel22.Size = New System.Drawing.Size(108, 41) Me.Panel22.TabIndex = 2 @@ -1965,7 +1969,7 @@ Partial Class frmSendungsdetailsNEU ' Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label7.Location = New System.Drawing.Point(321, 43) + Me.Label7.Location = New System.Drawing.Point(329, 43) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(47, 13) Me.Label7.TabIndex = 15 @@ -4806,7 +4810,6 @@ Partial Class frmSendungsdetailsNEU ' Me.BindingNavigatorPositionItem.AccessibleName = "Position" Me.BindingNavigatorPositionItem.AutoSize = False - Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) Me.BindingNavigatorPositionItem.Text = "0" @@ -5075,6 +5078,40 @@ Partial Class frmSendungsdetailsNEU Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30) Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = True + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(375, 57) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(50, 20) + Me.MyTextBox2.TabIndex = 61 + Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label10.Location = New System.Drawing.Point(383, 43) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(43, 13) + Me.Label10.TabIndex = 62 + Me.Label10.Text = "Gesamt" + ' 'frmSendungsdetailsNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -5534,4 +5571,6 @@ Partial Class frmSendungsdetailsNEU Friend WithEvents Label6 As Label Friend WithEvents Label7 As Label Friend WithEvents Button18 As Button + Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label End Class