edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Design Änderugnen

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-10-14 08:11:50 +02:00
parent d84e99ab06
commit fcc4d95267
3 changed files with 67 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Aviso/frmEintragAviso.vb
View File

@@ -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"})

1
Aviso/frmHauptfenster.vb
View File

@@ -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

89
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -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