Feature_Routenberechnung implementiert

2022-10-07 16:13:36 +02:00
parent ed48c0eaef
commit 2b982ebb9a
8 changed files with 6651 additions and 198 deletions
--- a/Aviso/frmRoutendauerBerechnen.Designer.vb
+++ b/Aviso/frmRoutendauerBerechnen.Designer.vb
@@ -22,6 +22,7 @@ Partial Class frmRoutendauerBerechnen
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRoutendauerBerechnen))
        Me.btnMinus = New System.Windows.Forms.Button()
        Me.btnPlus = New System.Windows.Forms.Button()
        Me.cbxVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -32,13 +33,18 @@ Partial Class frmRoutendauerBerechnen
        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.txbVoraussichtlichesEintreffen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.lblDauer = New System.Windows.Forms.Label()
+        Me.lblberechneteDauer = New System.Windows.Forms.Label()
+        Me.lbWarningDateIsPast = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'btnMinus
        '
-        Me.btnMinus.Location = New System.Drawing.Point(234, 105)
+        Me.btnMinus.Location = New System.Drawing.Point(192, 102)
        Me.btnMinus.Name = "btnMinus"
        Me.btnMinus.Size = New System.Drawing.Size(29, 23)
        Me.btnMinus.TabIndex = 16
@@ -47,7 +53,7 @@ Partial Class frmRoutendauerBerechnen
        '
        'btnPlus
        '
-        Me.btnPlus.Location = New System.Drawing.Point(163, 105)
+        Me.btnPlus.Location = New System.Drawing.Point(263, 102)
        Me.btnPlus.Name = "btnPlus"
        Me.btnPlus.Size = New System.Drawing.Size(29, 23)
        Me.btnPlus.TabIndex = 15
@@ -60,7 +66,7 @@ Partial Class frmRoutendauerBerechnen
        Me.cbxVon._allowFreiText = False
        Me.cbxVon._value = ""
        Me.cbxVon.FormattingEnabled = True
-        Me.cbxVon.Location = New System.Drawing.Point(26, 39)
+        Me.cbxVon.Location = New System.Drawing.Point(11, 39)
        Me.cbxVon.Name = "cbxVon"
        Me.cbxVon.Size = New System.Drawing.Size(121, 21)
        Me.cbxVon.TabIndex = 13
@@ -68,7 +74,7 @@ Partial Class frmRoutendauerBerechnen
        'lblBZS
        '
        Me.lblBZS.AutoSize = True
-        Me.lblBZS.Location = New System.Drawing.Point(160, 23)
+        Me.lblBZS.Location = New System.Drawing.Point(189, 23)
        Me.lblBZS.Name = "lblBZS"
        Me.lblBZS.Size = New System.Drawing.Size(111, 13)
        Me.lblBZS.TabIndex = 12
@@ -77,7 +83,7 @@ Partial Class frmRoutendauerBerechnen
        'lblAZS
        '
        Me.lblAZS.AutoSize = True
-        Me.lblAZS.Location = New System.Drawing.Point(23, 23)
+        Me.lblAZS.Location = New System.Drawing.Point(8, 23)
        Me.lblAZS.Name = "lblAZS"
        Me.lblAZS.Size = New System.Drawing.Size(91, 13)
        Me.lblAZS.TabIndex = 11
@@ -98,7 +104,7 @@ Partial Class frmRoutendauerBerechnen
        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.Location = New System.Drawing.Point(192, 39)
        Me.txtNach.MaxLineLength = -1
        Me.txtNach.MaxLines_Warning = ""
        Me.txtNach.MaxLines_Warning_Label = Nothing
@@ -110,7 +116,7 @@ Partial Class frmRoutendauerBerechnen
        'btnOK
        '
        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnOK.Location = New System.Drawing.Point(213, 140)
+        Me.btnOK.Location = New System.Drawing.Point(223, 173)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(71, 23)
        Me.btnOK.TabIndex = 17
@@ -120,7 +126,7 @@ Partial Class frmRoutendauerBerechnen
        'btnCancel
        '
        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancel.Location = New System.Drawing.Point(12, 140)
+        Me.btnCancel.Location = New System.Drawing.Point(8, 173)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(71, 23)
        Me.btnCancel.TabIndex = 18
@@ -142,7 +148,7 @@ Partial Class frmRoutendauerBerechnen
        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.Location = New System.Drawing.Point(11, 79)
        Me.txbAbgangsdatum.MaxLength = 10
        Me.txbAbgangsdatum.MaxLineLength = -1
        Me.txbAbgangsdatum.MaxLines_Warning = ""
@@ -154,52 +160,108 @@ Partial Class frmRoutendauerBerechnen
        'Label1
        '
        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(23, 63)
+        Me.Label1.Location = New System.Drawing.Point(8, 63)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(81, 13)
        Me.Label1.TabIndex = 20
        Me.Label1.Text = "Abgangsdatum:"
        '
-        'datVoraussichtlichesEintreffen
+        'txbVoraussichtlichesEintreffen
        '
-        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
+        Me.txbVoraussichtlichesEintreffen._DateTimeOnly = False
+        Me.txbVoraussichtlichesEintreffen._numbersOnly = False
+        Me.txbVoraussichtlichesEintreffen._numbersOnlyKommastellen = ""
+        Me.txbVoraussichtlichesEintreffen._numbersOnlyTrennzeichen = False
+        Me.txbVoraussichtlichesEintreffen._Prozent = False
+        Me.txbVoraussichtlichesEintreffen._ShortDateNew = True
+        Me.txbVoraussichtlichesEintreffen._ShortDateOnly = True
+        Me.txbVoraussichtlichesEintreffen._TimeOnly = False
+        Me.txbVoraussichtlichesEintreffen._TimeOnly_Seconds = False
+        Me.txbVoraussichtlichesEintreffen._value = ""
+        Me.txbVoraussichtlichesEintreffen._Waehrung = False
+        Me.txbVoraussichtlichesEintreffen._WaehrungZeichen = False
+        Me.txbVoraussichtlichesEintreffen.ForeColor = System.Drawing.Color.Black
+        Me.txbVoraussichtlichesEintreffen.Location = New System.Drawing.Point(192, 79)
+        Me.txbVoraussichtlichesEintreffen.MaxLength = 10
+        Me.txbVoraussichtlichesEintreffen.MaxLineLength = -1
+        Me.txbVoraussichtlichesEintreffen.MaxLines_Warning = ""
+        Me.txbVoraussichtlichesEintreffen.MaxLines_Warning_Label = Nothing
+        Me.txbVoraussichtlichesEintreffen.Name = "txbVoraussichtlichesEintreffen"
+        Me.txbVoraussichtlichesEintreffen.ReadOnly = True
+        Me.txbVoraussichtlichesEintreffen.Size = New System.Drawing.Size(100, 20)
+        Me.txbVoraussichtlichesEintreffen.TabIndex = 21
        '
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(160, 63)
+        Me.Label2.Location = New System.Drawing.Point(189, 63)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(90, 13)
        Me.Label2.TabIndex = 22
        Me.Label2.Text = "voraus. Eintreffen"
        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(5, 102)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(152, 13)
+        Me.lblWarning.TabIndex = 23
+        Me.lblWarning.Text = "Bitte Abgangsdatum eingeben!"
+        Me.lblWarning.Visible = False
+        '
+        'lblDauer
+        '
+        Me.lblDauer.AutoSize = True
+        Me.lblDauer.Location = New System.Drawing.Point(5, 128)
+        Me.lblDauer.Name = "lblDauer"
+        Me.lblDauer.Size = New System.Drawing.Size(84, 13)
+        Me.lblDauer.TabIndex = 24
+        Me.lblDauer.Text = "Dauer in Tagen:"
+        Me.lblDauer.Visible = False
+        '
+        'lblberechneteDauer
+        '
+        Me.lblberechneteDauer.AutoSize = True
+        Me.lblberechneteDauer.Location = New System.Drawing.Point(95, 128)
+        Me.lblberechneteDauer.Name = "lblberechneteDauer"
+        Me.lblberechneteDauer.Size = New System.Drawing.Size(0, 13)
+        Me.lblberechneteDauer.TabIndex = 25
+        Me.lblberechneteDauer.Visible = False
+        '
+        'lbWarningDateIsPast
+        '
+        Me.lbWarningDateIsPast.AutoSize = True
+        Me.lbWarningDateIsPast.ForeColor = System.Drawing.Color.Red
+        Me.lbWarningDateIsPast.Location = New System.Drawing.Point(5, 141)
+        Me.lbWarningDateIsPast.Name = "lbWarningDateIsPast"
+        Me.lbWarningDateIsPast.Size = New System.Drawing.Size(231, 13)
+        Me.lbWarningDateIsPast.TabIndex = 26
+        Me.lbWarningDateIsPast.Text = "Datum des Eintreffens liegt in der Verangenheit!"
+        Me.lbWarningDateIsPast.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(144, 13)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(29, 23)
+        Me.Button1.TabIndex = 27
+        Me.Button1.Text = "-"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
        '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.ClientSize = New System.Drawing.Size(317, 208)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.lbWarningDateIsPast)
+        Me.Controls.Add(Me.lblberechneteDauer)
+        Me.Controls.Add(Me.lblDauer)
+        Me.Controls.Add(Me.lblWarning)
        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.datVoraussichtlichesEintreffen)
+        Me.Controls.Add(Me.txbVoraussichtlichesEintreffen)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.txbAbgangsdatum)
        Me.Controls.Add(Me.btnCancel)
@@ -210,8 +272,10 @@ Partial Class frmRoutendauerBerechnen
        Me.Controls.Add(Me.lblBZS)
        Me.Controls.Add(Me.lblAZS)
        Me.Controls.Add(Me.txtNach)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmRoutendauerBerechnen"
-        Me.Text = "frmRoutendauerBerechnen"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = " Routendauer berechnen"
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -227,6 +291,11 @@ Partial Class frmRoutendauerBerechnen
    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 txbVoraussichtlichesEintreffen As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label2 As Label
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents lblDauer As Label
+    Friend WithEvents lblberechneteDauer As Label
+    Friend WithEvents lbWarningDateIsPast As Label
+    Friend WithEvents Button1 As Button
 End Class