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

frmRoutenBerechnung im frmEintragAvios eingebaut, inkl. Berechnungslogik

Browse Source
This commit is contained in:
d.breimaier
2022-10-05 17:07:53 +02:00
parent 01b51759b0
commit ed48c0eaef
9 changed files with 892 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

237
Aviso/frmNCTSRouten.Designer.vb generated
View File

@@ -23,35 +23,44 @@ Partial Class frmNCTSRouten
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.btn_OK = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.btn_Cancel = New System.Windows.Forms.Button()
Me.pnlNCTSRouten = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.cbxVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.sbxNach = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblWarningRoute = New System.Windows.Forms.Label()
Me.lblWarningAZS = New System.Windows.Forms.Label()
Me.lblWarningDauer = New System.Windows.Forms.Label()
Me.lblWarningBST = New System.Windows.Forms.Label()
Me.sbxVon = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnNeu = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
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.pnlNCTSRouten.SuspendLayout()
CType(Me.dgvNCTSRouten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btn_OK
'btnOK
'
Me.btn_OK.Location = New System.Drawing.Point(376, 379)
Me.btn_OK.Name = "btn_OK"
Me.btn_OK.Size = New System.Drawing.Size(75, 23)
Me.btn_OK.TabIndex = 1
Me.btn_OK.Text = "OK"
Me.btn_OK.UseVisualStyleBackColor = True
Me.btnOK.Location = New System.Drawing.Point(478, 468)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 1
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btn_Cancel
'
Me.btn_Cancel.Location = New System.Drawing.Point(12, 379)
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)
Me.btn_Cancel.TabIndex = 2
@@ -60,20 +69,110 @@ Partial Class frmNCTSRouten
'
'pnlNCTSRouten
'
Me.pnlNCTSRouten.Controls.Add(Me.txtNach)
Me.pnlNCTSRouten.Controls.Add(Me.txtVon)
Me.pnlNCTSRouten.Controls.Add(Me.cbxVon)
Me.pnlNCTSRouten.Controls.Add(Me.sbxNach)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningRoute)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningAZS)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningDauer)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningBST)
Me.pnlNCTSRouten.Controls.Add(Me.sbxVon)
Me.pnlNCTSRouten.Controls.Add(Me.Label2)
Me.pnlNCTSRouten.Controls.Add(Me.btnNeu)
Me.pnlNCTSRouten.Controls.Add(Me.Label1)
Me.pnlNCTSRouten.Controls.Add(Me.Label3)
Me.pnlNCTSRouten.Controls.Add(Me.Label4)
Me.pnlNCTSRouten.Controls.Add(Me.cbxNach)
Me.pnlNCTSRouten.Controls.Add(Me.txtDauer)
Me.pnlNCTSRouten.Controls.Add(Me.cbxRoutenart)
Me.pnlNCTSRouten.Location = New System.Drawing.Point(12, 12)
Me.pnlNCTSRouten.Location = New System.Drawing.Point(12, 4)
Me.pnlNCTSRouten.Name = "pnlNCTSRouten"
Me.pnlNCTSRouten.Size = New System.Drawing.Size(439, 127)
Me.pnlNCTSRouten.Size = New System.Drawing.Size(392, 197)
Me.pnlNCTSRouten.TabIndex = 30
'
'cbxVon
'
Me.cbxVon._allowedValuesFreiText = New String() {"Test"}
Me.cbxVon._allowFreiText = False
Me.cbxVon._value = ""
Me.cbxVon.Enabled = False
Me.cbxVon.FormattingEnabled = True
Me.cbxVon.Location = New System.Drawing.Point(10, 25)
Me.cbxVon.Name = "cbxVon"
Me.cbxVon.Size = New System.Drawing.Size(121, 21)
Me.cbxVon.TabIndex = 37
'
'sbxNach
'
Me.sbxNach._allowFreitext = True
Me.sbxNach._AllowSetValue = False
Me.sbxNach._allowSpaceAsSplitter = False
Me.sbxNach._autoSizeGross = False
Me.sbxNach._hideIfListEmpty = True
Me.sbxNach._value = Nothing
Me.sbxNach.conn_art = "FMZOLL"
Me.sbxNach.dgvpos = "LEFT"
Me.sbxNach.DISPLAY_PARAM = Nothing
Me.sbxNach.Enabled = False
Me.sbxNach.INVISIBLE_COLUMNS = Nothing
Me.sbxNach.key_visible = False
Me.sbxNach.KEYPARAM = Nothing
Me.sbxNach.Location = New System.Drawing.Point(221, 65)
Me.sbxNach.Name = "sbxNach"
Me.sbxNach.searchActive = True
Me.sbxNach.Size = New System.Drawing.Size(161, 20)
Me.sbxNach.SQL_ORDER_BY = Nothing
Me.sbxNach.SQL_SELECT = Nothing
Me.sbxNach.SQL_WHERE = Nothing
Me.sbxNach.SQL_WhereParamList = Nothing
Me.sbxNach.TabIndex = 36
Me.sbxNach.usrcntl = Nothing
Me.sbxNach.Visible = False
'
'lblWarningRoute
'
Me.lblWarningRoute.AutoSize = True
Me.lblWarningRoute.ForeColor = System.Drawing.Color.Red
Me.lblWarningRoute.Location = New System.Drawing.Point(10, 156)
Me.lblWarningRoute.Name = "lblWarningRoute"
Me.lblWarningRoute.Size = New System.Drawing.Size(105, 13)
Me.lblWarningRoute.TabIndex = 35
Me.lblWarningRoute.Text = "Bitte Route angeben"
Me.lblWarningRoute.Visible = False
'
'lblWarningAZS
'
Me.lblWarningAZS.AutoSize = True
Me.lblWarningAZS.ForeColor = System.Drawing.Color.Red
Me.lblWarningAZS.Location = New System.Drawing.Point(10, 49)
Me.lblWarningAZS.Name = "lblWarningAZS"
Me.lblWarningAZS.Size = New System.Drawing.Size(135, 13)
Me.lblWarningAZS.TabIndex = 34
Me.lblWarningAZS.Text = "Bitte Abgangs-ZS angeben"
Me.lblWarningAZS.Visible = False
'
'lblWarningDauer
'
Me.lblWarningDauer.AutoSize = True
Me.lblWarningDauer.ForeColor = System.Drawing.Color.Red
Me.lblWarningDauer.Location = New System.Drawing.Point(218, 156)
Me.lblWarningDauer.Name = "lblWarningDauer"
Me.lblWarningDauer.Size = New System.Drawing.Size(90, 13)
Me.lblWarningDauer.TabIndex = 33
Me.lblWarningDauer.Text = "Dauer nicht gültig"
Me.lblWarningDauer.Visible = False
'
'lblWarningBST
'
Me.lblWarningBST.AutoSize = True
Me.lblWarningBST.ForeColor = System.Drawing.Color.Red
Me.lblWarningBST.Location = New System.Drawing.Point(217, 49)
Me.lblWarningBST.Name = "lblWarningBST"
Me.lblWarningBST.Size = New System.Drawing.Size(155, 13)
Me.lblWarningBST.TabIndex = 32
Me.lblWarningBST.Text = "Bitte Bestimmungs-ZS angeben"
Me.lblWarningBST.Visible = False
'
'sbxVon
'
Me.sbxVon._allowFreitext = True
@@ -89,7 +188,7 @@ Partial Class frmNCTSRouten
Me.sbxVon.INVISIBLE_COLUMNS = Nothing
Me.sbxVon.key_visible = False
Me.sbxVon.KEYPARAM = Nothing
Me.sbxVon.Location = New System.Drawing.Point(10, 26)
Me.sbxVon.Location = New System.Drawing.Point(10, 65)
Me.sbxVon.Name = "sbxVon"
Me.sbxVon.searchActive = True
Me.sbxVon.Size = New System.Drawing.Size(161, 20)
@@ -99,6 +198,7 @@ Partial Class frmNCTSRouten
Me.sbxVon.SQL_WhereParamList = Nothing
Me.sbxVon.TabIndex = 30
Me.sbxVon.usrcntl = Nothing
Me.sbxVon.Visible = False
'
'Label2
'
@@ -110,15 +210,6 @@ Partial Class frmNCTSRouten
Me.Label2.Text = "Bestimmungszollstelle:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btnNeu
'
Me.btnNeu.Image = Global.AVISO.My.Resources.Resources.plus
Me.btnNeu.Location = New System.Drawing.Point(379, 78)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(44, 31)
Me.btnNeu.TabIndex = 29
Me.btnNeu.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
@@ -131,7 +222,7 @@ Partial Class frmNCTSRouten
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(10, 61)
Me.Label3.Location = New System.Drawing.Point(10, 116)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 4
@@ -140,7 +231,7 @@ Partial Class frmNCTSRouten
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(217, 62)
Me.Label4.Location = New System.Drawing.Point(217, 117)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(90, 13)
Me.Label4.TabIndex = 5
@@ -149,11 +240,11 @@ Partial Class frmNCTSRouten
'cbxNach
'
Me.cbxNach._allowedValuesFreiText = New String() {"Test"}
Me.cbxNach._allowFreiText = True
Me.cbxNach._allowFreiText = False
Me.cbxNach._value = ""
Me.cbxNach.Enabled = False
Me.cbxNach.FormattingEnabled = True
Me.cbxNach.Location = New System.Drawing.Point(220, 26)
Me.cbxNach.Location = New System.Drawing.Point(221, 26)
Me.cbxNach.Name = "cbxNach"
Me.cbxNach.Size = New System.Drawing.Size(121, 21)
Me.cbxNach.TabIndex = 2
@@ -161,7 +252,7 @@ Partial Class frmNCTSRouten
'txtDauer
'
Me.txtDauer.Enabled = False
Me.txtDauer.Location = New System.Drawing.Point(220, 78)
Me.txtDauer.Location = New System.Drawing.Point(220, 133)
Me.txtDauer.Name = "txtDauer"
Me.txtDauer.Size = New System.Drawing.Size(100, 20)
Me.txtDauer.TabIndex = 4
@@ -173,11 +264,20 @@ Partial Class frmNCTSRouten
Me.cbxRoutenart._value = ""
Me.cbxRoutenart.Enabled = False
Me.cbxRoutenart.FormattingEnabled = True
Me.cbxRoutenart.Location = New System.Drawing.Point(10, 77)
Me.cbxRoutenart.Location = New System.Drawing.Point(10, 132)
Me.cbxRoutenart.Name = "cbxRoutenart"
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
@@ -187,24 +287,84 @@ Partial Class frmNCTSRouten
Me.dgvNCTSRouten.AllowUserToResizeRows = False
Me.dgvNCTSRouten.BackgroundColor = System.Drawing.Color.White
Me.dgvNCTSRouten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvNCTSRouten.Location = New System.Drawing.Point(12, 145)
Me.dgvNCTSRouten.Location = New System.Drawing.Point(12, 217)
Me.dgvNCTSRouten.MultiSelect = False
Me.dgvNCTSRouten.Name = "dgvNCTSRouten"
Me.dgvNCTSRouten.ReadOnly = True
Me.dgvNCTSRouten.RowHeadersVisible = False
Me.dgvNCTSRouten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvNCTSRouten.Size = New System.Drawing.Size(437, 217)
Me.dgvNCTSRouten.Size = New System.Drawing.Size(541, 243)
Me.dgvNCTSRouten.TabIndex = 10
'
'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
'
'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
'
'frmNCTSRouten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(480, 415)
Me.ClientSize = New System.Drawing.Size(565, 503)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.pnlNCTSRouten)
Me.Controls.Add(Me.dgvNCTSRouten)
Me.Controls.Add(Me.btn_Cancel)
Me.Controls.Add(Me.btn_OK)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnNeu)
Me.Name = "frmNCTSRouten"
Me.Text = "frmNCTSRouten"
Me.pnlNCTSRouten.ResumeLayout(False)
@@ -215,7 +375,7 @@ Partial Class frmNCTSRouten
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents btn_OK As Button
Friend WithEvents btnOK As Button
Friend WithEvents btn_Cancel As Button
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
@@ -227,4 +387,13 @@ Partial Class frmNCTSRouten
Friend WithEvents btnNeu As Button
Friend WithEvents pnlNCTSRouten As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents sbxVon As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents lblWarningRoute As Label
Friend WithEvents lblWarningAZS As Label
Friend WithEvents lblWarningDauer As Label
Friend WithEvents lblWarningBST As Label
Friend WithEvents btnSave As Button
Friend WithEvents sbxNach As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents cbxVon As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtNach As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class