frmRoutenBerechnung im frmEintragAvios eingebaut, inkl. Berechnungslogik

This commit is contained in:
2022-10-05 17:07:53 +02:00
parent 01b51759b0
commit ed48c0eaef
9 changed files with 892 additions and 121 deletions

232
Aviso/frmRoutendauerBerechnen.Designer.vb generated Normal file
View File

@@ -0,0 +1,232 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmRoutendauerBerechnen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnMinus = New System.Windows.Forms.Button()
Me.btnPlus = New System.Windows.Forms.Button()
Me.cbxVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblBZS = New System.Windows.Forms.Label()
Me.lblAZS = New System.Windows.Forms.Label()
Me.txtNach = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.txbAbgangsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.datVoraussichtlichesEintreffen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'btnMinus
'
Me.btnMinus.Location = New System.Drawing.Point(234, 105)
Me.btnMinus.Name = "btnMinus"
Me.btnMinus.Size = New System.Drawing.Size(29, 23)
Me.btnMinus.TabIndex = 16
Me.btnMinus.Text = "-"
Me.btnMinus.UseVisualStyleBackColor = True
'
'btnPlus
'
Me.btnPlus.Location = New System.Drawing.Point(163, 105)
Me.btnPlus.Name = "btnPlus"
Me.btnPlus.Size = New System.Drawing.Size(29, 23)
Me.btnPlus.TabIndex = 15
Me.btnPlus.Text = "+"
Me.btnPlus.UseVisualStyleBackColor = True
'
'cbxVon
'
Me.cbxVon._allowedValuesFreiText = Nothing
Me.cbxVon._allowFreiText = False
Me.cbxVon._value = ""
Me.cbxVon.FormattingEnabled = True
Me.cbxVon.Location = New System.Drawing.Point(26, 39)
Me.cbxVon.Name = "cbxVon"
Me.cbxVon.Size = New System.Drawing.Size(121, 21)
Me.cbxVon.TabIndex = 13
'
'lblBZS
'
Me.lblBZS.AutoSize = True
Me.lblBZS.Location = New System.Drawing.Point(160, 23)
Me.lblBZS.Name = "lblBZS"
Me.lblBZS.Size = New System.Drawing.Size(111, 13)
Me.lblBZS.TabIndex = 12
Me.lblBZS.Text = "Bestimmungszollstelle:"
'
'lblAZS
'
Me.lblAZS.AutoSize = True
Me.lblAZS.Location = New System.Drawing.Point(23, 23)
Me.lblAZS.Name = "lblAZS"
Me.lblAZS.Size = New System.Drawing.Size(91, 13)
Me.lblAZS.TabIndex = 11
Me.lblAZS.Text = "Abgangszollstelle:"
'
'txtNach
'
Me.txtNach._DateTimeOnly = False
Me.txtNach._numbersOnly = False
Me.txtNach._numbersOnlyKommastellen = ""
Me.txtNach._numbersOnlyTrennzeichen = True
Me.txtNach._Prozent = False
Me.txtNach._ShortDateNew = False
Me.txtNach._ShortDateOnly = False
Me.txtNach._TimeOnly = False
Me.txtNach._TimeOnly_Seconds = False
Me.txtNach._value = ""
Me.txtNach._Waehrung = False
Me.txtNach._WaehrungZeichen = True
Me.txtNach.ForeColor = System.Drawing.Color.Black
Me.txtNach.Location = New System.Drawing.Point(162, 39)
Me.txtNach.MaxLineLength = -1
Me.txtNach.MaxLines_Warning = ""
Me.txtNach.MaxLines_Warning_Label = Nothing
Me.txtNach.Name = "txtNach"
Me.txtNach.ReadOnly = True
Me.txtNach.Size = New System.Drawing.Size(109, 20)
Me.txtNach.TabIndex = 10
'
'btnOK
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(213, 140)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(71, 23)
Me.btnOK.TabIndex = 17
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(12, 140)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(71, 23)
Me.btnCancel.TabIndex = 18
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True
'
'txbAbgangsdatum
'
Me.txbAbgangsdatum._DateTimeOnly = False
Me.txbAbgangsdatum._numbersOnly = False
Me.txbAbgangsdatum._numbersOnlyKommastellen = ""
Me.txbAbgangsdatum._numbersOnlyTrennzeichen = False
Me.txbAbgangsdatum._Prozent = False
Me.txbAbgangsdatum._ShortDateNew = True
Me.txbAbgangsdatum._ShortDateOnly = True
Me.txbAbgangsdatum._TimeOnly = False
Me.txbAbgangsdatum._TimeOnly_Seconds = False
Me.txbAbgangsdatum._value = ""
Me.txbAbgangsdatum._Waehrung = False
Me.txbAbgangsdatum._WaehrungZeichen = False
Me.txbAbgangsdatum.ForeColor = System.Drawing.Color.Black
Me.txbAbgangsdatum.Location = New System.Drawing.Point(26, 79)
Me.txbAbgangsdatum.MaxLength = 10
Me.txbAbgangsdatum.MaxLineLength = -1
Me.txbAbgangsdatum.MaxLines_Warning = ""
Me.txbAbgangsdatum.MaxLines_Warning_Label = Nothing
Me.txbAbgangsdatum.Name = "txbAbgangsdatum"
Me.txbAbgangsdatum.Size = New System.Drawing.Size(100, 20)
Me.txbAbgangsdatum.TabIndex = 19
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(23, 63)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(81, 13)
Me.Label1.TabIndex = 20
Me.Label1.Text = "Abgangsdatum:"
'
'datVoraussichtlichesEintreffen
'
Me.datVoraussichtlichesEintreffen._DateTimeOnly = False
Me.datVoraussichtlichesEintreffen._numbersOnly = False
Me.datVoraussichtlichesEintreffen._numbersOnlyKommastellen = ""
Me.datVoraussichtlichesEintreffen._numbersOnlyTrennzeichen = False
Me.datVoraussichtlichesEintreffen._Prozent = False
Me.datVoraussichtlichesEintreffen._ShortDateNew = True
Me.datVoraussichtlichesEintreffen._ShortDateOnly = True
Me.datVoraussichtlichesEintreffen._TimeOnly = False
Me.datVoraussichtlichesEintreffen._TimeOnly_Seconds = False
Me.datVoraussichtlichesEintreffen._value = ""
Me.datVoraussichtlichesEintreffen._Waehrung = False
Me.datVoraussichtlichesEintreffen._WaehrungZeichen = False
Me.datVoraussichtlichesEintreffen.ForeColor = System.Drawing.Color.Black
Me.datVoraussichtlichesEintreffen.Location = New System.Drawing.Point(163, 79)
Me.datVoraussichtlichesEintreffen.MaxLength = 10
Me.datVoraussichtlichesEintreffen.MaxLineLength = -1
Me.datVoraussichtlichesEintreffen.MaxLines_Warning = ""
Me.datVoraussichtlichesEintreffen.MaxLines_Warning_Label = Nothing
Me.datVoraussichtlichesEintreffen.Name = "datVoraussichtlichesEintreffen"
Me.datVoraussichtlichesEintreffen.Size = New System.Drawing.Size(100, 20)
Me.datVoraussichtlichesEintreffen.TabIndex = 21
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(160, 63)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(90, 13)
Me.Label2.TabIndex = 22
Me.Label2.Text = "voraus. Eintreffen"
'
'frmRoutendauerBerechnen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(304, 175)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.datVoraussichtlichesEintreffen)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txbAbgangsdatum)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnMinus)
Me.Controls.Add(Me.btnPlus)
Me.Controls.Add(Me.cbxVon)
Me.Controls.Add(Me.lblBZS)
Me.Controls.Add(Me.lblAZS)
Me.Controls.Add(Me.txtNach)
Me.Name = "frmRoutendauerBerechnen"
Me.Text = "frmRoutendauerBerechnen"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnMinus As Button
Friend WithEvents btnPlus As Button
Friend WithEvents cbxVon As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblBZS As Label
Friend WithEvents lblAZS As Label
Friend WithEvents txtNach As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnOK As Button
Friend WithEvents btnCancel As Button
Friend WithEvents txbAbgangsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents datVoraussichtlichesEintreffen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label
End Class