frmRoutenBerechnung im frmEintragAvios eingebaut, inkl. Berechnungslogik

2022-10-05 17:07:53 +02:00
parent 01b51759b0
commit ed48c0eaef
9 changed files with 892 additions and 121 deletions
--- a/Aviso/frmEintragAviso.designer.vb
+++ b/Aviso/frmEintragAviso.designer.vb
@@ -75,6 +75,7 @@ Partial Class frmEintragAviso
        Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.lblAktenuebersicht = New System.Windows.Forms.Label()
        Me.grpAviso = New System.Windows.Forms.GroupBox()
+        Me.cbxEintreffenAus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.lblTeamFraechter = New System.Windows.Forms.Label()
        Me.lblTeamAvisierer = New System.Windows.Forms.Label()
        Me.cboTransportmittelart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -82,7 +83,7 @@ Partial Class frmEintragAviso
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.lblErr_KdNr = New System.Windows.Forms.Label()
-        Me.Button5 = New System.Windows.Forms.Button()
+        Me.btnStreckendauerBerechnen = New System.Windows.Forms.Button()
        Me.lblErrVorraussuchtlEintreffen = New System.Windows.Forms.Label()
        Me.txtAvisiererAuftragsNr = New System.Windows.Forms.TextBox()
        Me.lblAvisiererAtrNr = New System.Windows.Forms.Label()
@@ -153,7 +154,6 @@ Partial Class frmEintragAviso
        Me.Label2 = New System.Windows.Forms.Label()
        Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
        Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
-        Me.cbxEintreffenAus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.panAdmin.SuspendLayout()
        Me.grpAviso.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -737,7 +737,7 @@ Partial Class frmEintragAviso
        Me.grpAviso.Controls.Add(Me.PictureBox1)
        Me.grpAviso.Controls.Add(Me.Button1)
        Me.grpAviso.Controls.Add(Me.lblErr_KdNr)
-        Me.grpAviso.Controls.Add(Me.Button5)
+        Me.grpAviso.Controls.Add(Me.btnStreckendauerBerechnen)
        Me.grpAviso.Controls.Add(Me.lblErrVorraussuchtlEintreffen)
        Me.grpAviso.Controls.Add(Me.txtAvisiererAuftragsNr)
        Me.grpAviso.Controls.Add(Me.lblAvisiererAtrNr)
@@ -790,6 +790,17 @@ Partial Class frmEintragAviso
        Me.grpAviso.TabStop = False
        Me.grpAviso.Text = "Aviso"
        '
+        'cbxEintreffenAus
+        '
+        Me.cbxEintreffenAus._allowedValuesFreiText = Nothing
+        Me.cbxEintreffenAus._allowFreiText = True
+        Me.cbxEintreffenAus._value = ""
+        Me.cbxEintreffenAus.FormattingEnabled = True
+        Me.cbxEintreffenAus.Location = New System.Drawing.Point(218, 99)
+        Me.cbxEintreffenAus.Name = "cbxEintreffenAus"
+        Me.cbxEintreffenAus.Size = New System.Drawing.Size(81, 21)
+        Me.cbxEintreffenAus.TabIndex = 51
+        '
        'lblTeamFraechter
        '
        Me.lblTeamFraechter.BackColor = System.Drawing.Color.Transparent
@@ -880,17 +891,16 @@ Partial Class frmEintragAviso
        Me.lblErr_KdNr.Text = "Kunden-Nummer eingeben!"
        Me.lblErr_KdNr.Visible = False
        '
-        'Button5
+        'btnStreckendauerBerechnen
        '
-        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.Button5.Location = New System.Drawing.Point(279, 27)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(118, 21)
-        Me.Button5.TabIndex = 7
-        Me.Button5.Text = "Berechnen"
-        Me.Button5.UseVisualStyleBackColor = True
-        Me.Button5.Visible = False
+        Me.btnStreckendauerBerechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnStreckendauerBerechnen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnStreckendauerBerechnen.Location = New System.Drawing.Point(171, 48)
+        Me.btnStreckendauerBerechnen.Name = "btnStreckendauerBerechnen"
+        Me.btnStreckendauerBerechnen.Size = New System.Drawing.Size(118, 21)
+        Me.btnStreckendauerBerechnen.TabIndex = 7
+        Me.btnStreckendauerBerechnen.Text = "Berechnen"
+        Me.btnStreckendauerBerechnen.UseVisualStyleBackColor = True
        '
        'lblErrVorraussuchtlEintreffen
        '
@@ -898,9 +908,9 @@ Partial Class frmEintragAviso
        Me.lblErrVorraussuchtlEintreffen.ForeColor = System.Drawing.Color.Red
        Me.lblErrVorraussuchtlEintreffen.Location = New System.Drawing.Point(147, 69)
        Me.lblErrVorraussuchtlEintreffen.Name = "lblErrVorraussuchtlEintreffen"
-        Me.lblErrVorraussuchtlEintreffen.Size = New System.Drawing.Size(244, 13)
+        Me.lblErrVorraussuchtlEintreffen.Size = New System.Drawing.Size(250, 13)
        Me.lblErrVorraussuchtlEintreffen.TabIndex = 8
-        Me.lblErrVorraussuchtlEintreffen.Text = "Datum kann icht kleiner als Erfassungsdatum sein!"
+        Me.lblErrVorraussuchtlEintreffen.Text = "Datum kann nicht kleiner als Erfassungsdatum sein!"
        Me.lblErrVorraussuchtlEintreffen.Visible = False
        '
        'txtAvisiererAuftragsNr
@@ -1316,9 +1326,9 @@ Partial Class frmEintragAviso
        Me.lblVoraussEintreff.AutoSize = True
        Me.lblVoraussEintreff.Location = New System.Drawing.Point(25, 51)
        Me.lblVoraussEintreff.Name = "lblVoraussEintreff"
-        Me.lblVoraussEintreff.Size = New System.Drawing.Size(160, 13)
+        Me.lblVoraussEintreff.Size = New System.Drawing.Size(140, 13)
        Me.lblVoraussEintreff.TabIndex = 5
-        Me.lblVoraussEintreff.Text = "Voraussichtliches Eintreffen aus:"
+        Me.lblVoraussEintreff.Text = "Voraussichtliches Eintreffen:"
        Me.lblVoraussEintreff.Visible = False
        '
        'datVoraussichtlichesEintreffen
@@ -1327,7 +1337,6 @@ Partial Class frmEintragAviso
        Me.datVoraussichtlichesEintreffen.Format = System.Windows.Forms.DateTimePickerFormat.Custom
        Me.datVoraussichtlichesEintreffen.Location = New System.Drawing.Point(319, 49)
        Me.datVoraussichtlichesEintreffen.Name = "datVoraussichtlichesEintreffen"
-        Me.datVoraussichtlichesEintreffen.ShowUpDown = True
        Me.datVoraussichtlichesEintreffen.Size = New System.Drawing.Size(76, 20)
        Me.datVoraussichtlichesEintreffen.TabIndex = 6
        Me.datVoraussichtlichesEintreffen.Value = New Date(2020, 1, 23, 0, 0, 0, 0)
@@ -1832,17 +1841,6 @@ Partial Class frmEintragAviso
        Me.UsrCntlEintragAvisoAtilla.TabIndex = 8
        Me.UsrCntlEintragAvisoAtilla.Visible = False
        '
-        'cbxEintreffenAus
-        '
-        Me.cbxEintreffenAus._allowedValuesFreiText = Nothing
-        Me.cbxEintreffenAus._allowFreiText = False
-        Me.cbxEintreffenAus._value = ""
-        Me.cbxEintreffenAus.FormattingEnabled = True
-        Me.cbxEintreffenAus.Location = New System.Drawing.Point(186, 48)
-        Me.cbxEintreffenAus.Name = "cbxEintreffenAus"
-        Me.cbxEintreffenAus.Size = New System.Drawing.Size(81, 21)
-        Me.cbxEintreffenAus.TabIndex = 51
-        '
        'frmEintragAviso
        '
        Me.AcceptButton = Me.btnOK
@@ -2023,7 +2021,7 @@ Partial Class frmEintragAviso
    Friend WithEvents txtAvisiererAuftragsNr As TextBox
    Friend WithEvents lblAvisiererAtrNr As Label
    Friend WithEvents lblErrVorraussuchtlEintreffen As Label
-    Friend WithEvents Button5 As Button
+    Friend WithEvents btnStreckendauerBerechnen As Button
    Friend WithEvents lblVoraussEintreff As Label
    Friend WithEvents datVoraussichtlichesEintreffen As DateTimePicker
    Friend WithEvents columnName As DataGridViewTextBoxColumn