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/frmNCTSRouten.Designer.vb
+++ b/Aviso/frmNCTSRouten.Designer.vb
@@ -25,7 +25,14 @@ Partial Class frmNCTSRouten
        Me.components = New System.ComponentModel.Container()
        Me.btnOK = New System.Windows.Forms.Button()
        Me.btn_Cancel = New System.Windows.Forms.Button()
+        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.btnSave = New System.Windows.Forms.Button()
        Me.pnlNCTSRouten = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.lblWarningTransportmittel = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.cbxTransportmittel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtNach = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.sbxNach = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.lblWarningRoute = New System.Windows.Forms.Label()
@@ -40,17 +47,15 @@ Partial Class frmNCTSRouten
        Me.cbxNach = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtDauer = New System.Windows.Forms.TextBox()
        Me.cbxRoutenart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.btnNeu = New System.Windows.Forms.Button()
        Me.dgvNCTSRouten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.btnSave = New System.Windows.Forms.Button()
-        Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtNach = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVonRegion = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.pnlNCTSRouten.SuspendLayout()
        CType(Me.dgvNCTSRouten, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'btnOK
        '
+        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnOK.Location = New System.Drawing.Point(478, 468)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(75, 23)
@@ -60,6 +65,7 @@ Partial Class frmNCTSRouten
        '
        'btn_Cancel
        '
+        Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btn_Cancel.Location = New System.Drawing.Point(12, 477)
        Me.btn_Cancel.Name = "btn_Cancel"
        Me.btn_Cancel.Size = New System.Drawing.Size(75, 23)
@@ -67,8 +73,31 @@ Partial Class frmNCTSRouten
        Me.btn_Cancel.Text = "Abbrechen"
        Me.btn_Cancel.UseVisualStyleBackColor = True
        '
+        'btnNeu
+        '
+        Me.btnNeu.Image = Global.AVISO.My.Resources.Resources.plus
+        Me.btnNeu.Location = New System.Drawing.Point(509, 170)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(44, 31)
+        Me.btnNeu.TabIndex = 29
+        Me.btnNeu.UseVisualStyleBackColor = True
+        '
+        'btnSave
+        '
+        Me.btnSave.Location = New System.Drawing.Point(478, 468)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(75, 23)
+        Me.btnSave.TabIndex = 31
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        Me.btnSave.Visible = False
+        '
        'pnlNCTSRouten
        '
+        Me.pnlNCTSRouten.Controls.Add(Me.txtVonRegion)
+        Me.pnlNCTSRouten.Controls.Add(Me.lblWarningTransportmittel)
+        Me.pnlNCTSRouten.Controls.Add(Me.Label5)
+        Me.pnlNCTSRouten.Controls.Add(Me.cbxTransportmittel)
        Me.pnlNCTSRouten.Controls.Add(Me.txtNach)
        Me.pnlNCTSRouten.Controls.Add(Me.txtVon)
        Me.pnlNCTSRouten.Controls.Add(Me.cbxVon)
@@ -87,9 +116,91 @@ Partial Class frmNCTSRouten
        Me.pnlNCTSRouten.Controls.Add(Me.cbxRoutenart)
        Me.pnlNCTSRouten.Location = New System.Drawing.Point(12, 4)
        Me.pnlNCTSRouten.Name = "pnlNCTSRouten"
-        Me.pnlNCTSRouten.Size = New System.Drawing.Size(392, 197)
+        Me.pnlNCTSRouten.Size = New System.Drawing.Size(491, 197)
        Me.pnlNCTSRouten.TabIndex = 30
        '
+        'lblWarningTransportmittel
+        '
+        Me.lblWarningTransportmittel.AutoSize = True
+        Me.lblWarningTransportmittel.ForeColor = System.Drawing.Color.Red
+        Me.lblWarningTransportmittel.Location = New System.Drawing.Point(356, 156)
+        Me.lblWarningTransportmittel.Name = "lblWarningTransportmittel"
+        Me.lblWarningTransportmittel.Size = New System.Drawing.Size(105, 13)
+        Me.lblWarningTransportmittel.TabIndex = 42
+        Me.lblWarningTransportmittel.Text = "Bitte Route angeben"
+        Me.lblWarningTransportmittel.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(356, 116)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(79, 13)
+        Me.Label5.TabIndex = 41
+        Me.Label5.Text = "Transportmittel:"
+        '
+        'cbxTransportmittel
+        '
+        Me.cbxTransportmittel._allowedValuesFreiText = Nothing
+        Me.cbxTransportmittel._allowFreiText = False
+        Me.cbxTransportmittel._value = ""
+        Me.cbxTransportmittel.Enabled = False
+        Me.cbxTransportmittel.FormattingEnabled = True
+        Me.cbxTransportmittel.Location = New System.Drawing.Point(356, 132)
+        Me.cbxTransportmittel.Name = "cbxTransportmittel"
+        Me.cbxTransportmittel.Size = New System.Drawing.Size(121, 21)
+        Me.cbxTransportmittel.TabIndex = 40
+        '
+        '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.Enabled = False
+        Me.txtNach.ForeColor = System.Drawing.Color.Black
+        Me.txtNach.Location = New System.Drawing.Point(220, 91)
+        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(100, 20)
+        Me.txtNach.TabIndex = 39
+        '
+        'txtVon
+        '
+        Me.txtVon._DateTimeOnly = False
+        Me.txtVon._numbersOnly = False
+        Me.txtVon._numbersOnlyKommastellen = ""
+        Me.txtVon._numbersOnlyTrennzeichen = True
+        Me.txtVon._Prozent = False
+        Me.txtVon._ShortDateNew = False
+        Me.txtVon._ShortDateOnly = False
+        Me.txtVon._TimeOnly = False
+        Me.txtVon._TimeOnly_Seconds = False
+        Me.txtVon._value = ""
+        Me.txtVon._Waehrung = False
+        Me.txtVon._WaehrungZeichen = True
+        Me.txtVon.Enabled = False
+        Me.txtVon.ForeColor = System.Drawing.Color.Black
+        Me.txtVon.Location = New System.Drawing.Point(10, 91)
+        Me.txtVon.MaxLineLength = -1
+        Me.txtVon.MaxLines_Warning = ""
+        Me.txtVon.MaxLines_Warning_Label = Nothing
+        Me.txtVon.Name = "txtVon"
+        Me.txtVon.ReadOnly = True
+        Me.txtVon.Size = New System.Drawing.Size(88, 20)
+        Me.txtVon.TabIndex = 38
+        '
        'cbxVon
        '
        Me.cbxVon._allowedValuesFreiText = New String() {"Test"}
@@ -269,15 +380,6 @@ Partial Class frmNCTSRouten
        Me.cbxRoutenart.Size = New System.Drawing.Size(121, 21)
        Me.cbxRoutenart.TabIndex = 3
        '
-        'btnNeu
-        '
-        Me.btnNeu.Image = Global.AVISO.My.Resources.Resources.plus
-        Me.btnNeu.Location = New System.Drawing.Point(424, 136)
-        Me.btnNeu.Name = "btnNeu"
-        Me.btnNeu.Size = New System.Drawing.Size(44, 31)
-        Me.btnNeu.TabIndex = 29
-        Me.btnNeu.UseVisualStyleBackColor = True
-        '
        'dgvNCTSRouten
        '
        Me.dgvNCTSRouten.AKTUALISIERUNGS_INTERVALL = -1
@@ -296,63 +398,30 @@ Partial Class frmNCTSRouten
        Me.dgvNCTSRouten.Size = New System.Drawing.Size(541, 243)
        Me.dgvNCTSRouten.TabIndex = 10
        '
-        'btnSave
+        'txtVonRegion
        '
-        Me.btnSave.Location = New System.Drawing.Point(478, 468)
-        Me.btnSave.Name = "btnSave"
-        Me.btnSave.Size = New System.Drawing.Size(75, 23)
-        Me.btnSave.TabIndex = 31
-        Me.btnSave.Text = "Speichern"
-        Me.btnSave.UseVisualStyleBackColor = True
-        Me.btnSave.Visible = False
-        '
-        'txtVon
-        '
-        Me.txtVon._DateTimeOnly = False
-        Me.txtVon._numbersOnly = False
-        Me.txtVon._numbersOnlyKommastellen = ""
-        Me.txtVon._numbersOnlyTrennzeichen = True
-        Me.txtVon._Prozent = False
-        Me.txtVon._ShortDateNew = False
-        Me.txtVon._ShortDateOnly = False
-        Me.txtVon._TimeOnly = False
-        Me.txtVon._TimeOnly_Seconds = False
-        Me.txtVon._value = ""
-        Me.txtVon._Waehrung = False
-        Me.txtVon._WaehrungZeichen = True
-        Me.txtVon.Enabled = False
-        Me.txtVon.ForeColor = System.Drawing.Color.Black
-        Me.txtVon.Location = New System.Drawing.Point(10, 91)
-        Me.txtVon.MaxLineLength = -1
-        Me.txtVon.MaxLines_Warning = ""
-        Me.txtVon.MaxLines_Warning_Label = Nothing
-        Me.txtVon.Name = "txtVon"
-        Me.txtVon.Size = New System.Drawing.Size(100, 20)
-        Me.txtVon.TabIndex = 38
-        '
-        '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.Enabled = False
-        Me.txtNach.ForeColor = System.Drawing.Color.Black
-        Me.txtNach.Location = New System.Drawing.Point(220, 91)
-        Me.txtNach.MaxLineLength = -1
-        Me.txtNach.MaxLines_Warning = ""
-        Me.txtNach.MaxLines_Warning_Label = Nothing
-        Me.txtNach.Name = "txtNach"
-        Me.txtNach.Size = New System.Drawing.Size(100, 20)
-        Me.txtNach.TabIndex = 39
+        Me.txtVonRegion._DateTimeOnly = False
+        Me.txtVonRegion._numbersOnly = False
+        Me.txtVonRegion._numbersOnlyKommastellen = ""
+        Me.txtVonRegion._numbersOnlyTrennzeichen = True
+        Me.txtVonRegion._Prozent = False
+        Me.txtVonRegion._ShortDateNew = False
+        Me.txtVonRegion._ShortDateOnly = False
+        Me.txtVonRegion._TimeOnly = False
+        Me.txtVonRegion._TimeOnly_Seconds = False
+        Me.txtVonRegion._value = ""
+        Me.txtVonRegion._Waehrung = False
+        Me.txtVonRegion._WaehrungZeichen = True
+        Me.txtVonRegion.Enabled = False
+        Me.txtVonRegion.ForeColor = System.Drawing.Color.Black
+        Me.txtVonRegion.Location = New System.Drawing.Point(104, 91)
+        Me.txtVonRegion.MaxLineLength = -1
+        Me.txtVonRegion.MaxLines_Warning = ""
+        Me.txtVonRegion.MaxLines_Warning_Label = Nothing
+        Me.txtVonRegion.Name = "txtVonRegion"
+        Me.txtVonRegion.ReadOnly = True
+        Me.txtVonRegion.Size = New System.Drawing.Size(67, 20)
+        Me.txtVonRegion.TabIndex = 43
        '
        'frmNCTSRouten
        '
@@ -396,4 +465,8 @@ Partial Class frmNCTSRouten
    Friend WithEvents cbxVon As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents txtNach As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents cbxTransportmittel As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents lblWarningTransportmittel As Label
+    Friend WithEvents txtVonRegion As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class