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

Feature_Routenberechnung implementiert

Browse Source
This commit is contained in:
d.breimaier
2022-10-07 16:13:36 +02:00
parent ed48c0eaef
commit 2b982ebb9a
8 changed files with 6651 additions and 198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
Aviso/frmNCTSRouten.vb
View File

@@ -19,10 +19,13 @@ Public Class frmNCTSRouten
initDGVRouten()
'Abgangszollstelle
'Abgangszollstelle/Gebiet - woher kommt der LKW
cbxVon.Items.Clear()
cbxVon.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,)
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Istanbul", "TR341300"))
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("München", "DE001526"))
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ankara", "TR061500"))
'cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cbxVon.changeItem("")
@@ -32,9 +35,9 @@ Public Class frmNCTSRouten
" left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
'Bestimmungszollstelle
'Bestimmungszollstelle - an Welcher Zollstelle kommt der LKW
cbxNach.Items.Clear()
cbxNach.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,)
cbxNach.fillWithSQL("SELECT [grz_ZollamtDST],[grz_Grenzstelle] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,)
cbxNach.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cbxNach.changeItem("")
@@ -50,12 +53,16 @@ Public Class frmNCTSRouten
cbxRoutenart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Seeweg", "Seeweg"))
cbxRoutenart.changeItem("")
cbxTransportmittel.Items.Clear()
cbxTransportmittel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKW", "LKW"))
'aktuell nur der Defaultwert "LKW" verfügbar!
cbxTransportmittel.changeItem("LKW")
txtDauer.Text = ""
txtVon.Text = ""
txtVonRegion.Text = ""
txtNach.Text = ""
dgvNCTSRouten.ClearSelection()
@@ -73,13 +80,15 @@ Public Class frmNCTSRouten
.Columns.Clear()
.DataSource = sql.loadDgvBySql("SELECT [nctsr_id],[nctsr_von],[nctsr_nach],[nctsr_dauer_in_tagen],[nctsr_route], [nctsr_tansportmittel] FROM [VERAG].[dbo].[tblNTCSRouten]",
.DataSource = sql.loadDgvBySql("SELECT [nctsr_id],[nctsr_von],[nctsr_von_region],[nctsr_nach],[nctsr_dauer_in_tagen],[nctsr_route], [nctsr_transportmittel] FROM [VERAG].[dbo].[tblNTCSRouten]",
"VERAG")
' .RowTemplate.Height = 30
.Columns("nctsr_id").Visible = False
.Columns("nctsr_von").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("nctsr_von").HeaderText = "Von"
.Columns("nctsr_von_region").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("nctsr_von_region").HeaderText = "Herkunftsregion"
.Columns("nctsr_nach").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("nctsr_nach").HeaderText = "Nach"
.Columns("nctsr_dauer_in_tagen").Visible = True
@@ -89,9 +98,9 @@ Public Class frmNCTSRouten
.Columns("nctsr_route").Visible = True
.Columns("nctsr_route").Width = 100
.Columns("nctsr_route").HeaderText = "Route"
.Columns("nctsr_route").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("nctsr_tansportmittel").HeaderText = "Transportmittel"
.Columns("nctsr_tansportmittel").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
.Columns("nctsr_route").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
.Columns("nctsr_transportmittel").HeaderText = "Transportmittel"
.Columns("nctsr_transportmittel").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
@@ -105,20 +114,22 @@ Public Class frmNCTSRouten
Private Sub saveRoute(curRoute As cNCTSRouten)
curRoute.nctsr_von = IIf(sbxVon._value Is Nothing, cbxVon._value, sbxVon._value)
curRoute.nctsr_nach = IIf(sbxNach._value Is Nothing, cbxNach._value, sbxNach._value)
curRoute.nctsr_von = txtVon._value.ToString 'IIf(sbxVon._value Is Nothing Or sbxVon._value = "", cbxVon._value, sbxVon._value)
curRoute.nctsr_von_region = txtVonRegion._value.ToString
curRoute.nctsr_nach = txtNach._value.ToString 'IIf(sbxNach._value Is Nothing Or sbxNach._value = "", cbxNach._value, sbxNach._value)
curRoute.nctsr_route = cbxRoutenart._value
curRoute.nctsr_dauer_in_tagen = CInt(txtDauer.Text)
curRoute.nctsr_transportmittel = cbxTransportmittel._value
If Not curRoute.SAVE() Then
Me.DialogResult = Windows.Forms.DialogResult.None
End If
dgvNCTSRouten.GetOrder()
initDGVRouten()
dgvNCTSRouten.SetOrder()
setOKButton()
End Sub
@@ -130,10 +141,11 @@ Public Class frmNCTSRouten
currentRoute = New VERAG_PROG_ALLGEMEIN.cNCTSRouten With {
.nctsr_von = "",
.nctsr_von_region = "",
.nctsr_nach = "",
.nctsr_dauer_in_tagen = 0,
.nctsr_route = "",
.nctsr_tansportmittel = "LKW"
.nctsr_transportmittel = ""
}
loadChangedDSToPanel(currentRoute)
EnableUserControl()
@@ -155,9 +167,12 @@ Public Class frmNCTSRouten
txtVon.Text = curRoute.nctsr_von.ToString
txtVonRegion.Text = curRoute.nctsr_von_region.ToString
txtNach.Text = curRoute.nctsr_nach.ToString
cbxRoutenart._value = curRoute.nctsr_route.ToString
txtDauer.Text = curRoute.nctsr_dauer_in_tagen.ToString
cbxTransportmittel._value = curRoute.nctsr_transportmittel.ToString
For Each c As Control In pnlNCTSRouten.Controls
If TypeOf (c) Is CheckBox Then
@@ -210,8 +225,9 @@ Public Class frmNCTSRouten
Dim rowindex = dgvNCTSRouten.SelectedRows(0).Index
currentRoute = New VERAG_PROG_ALLGEMEIN.cNCTSRouten(dgvNCTSRouten.SelectedRows(0).Cells("nctsr_id").Value)
'checkIfValueInComboboxAndAdd(currentRoute)
loadChangedDSToPanel(currentRoute)
cbxVon.changeItem("")
cbxNach.changeItem("")
If dgvNCTSRouten.Enabled = False Then Exit Sub
@@ -225,20 +241,6 @@ Public Class frmNCTSRouten
If sender Is sbxNach Then sbxNach.FireReturn() : e.IsInputKey = True : Me.DialogResult = DialogResult.None
End Sub
'Private Sub checkIfValueInComboboxAndAdd(curRoute As cNCTSRouten)
' Dim index As Integer
' Dim inList As Boolean
' inList = False
' For index = 0 To cbxNach.Items.Count - 1
' If curRoute.nctsr_nach.ToString = cbxNach.Items(index).ToString Then
' inList = True
' Exit For
' End If
' Next index
' If inList = False Then cbxNach.Items.Add(curRoute.nctsr_nach.ToString)
'End Sub
Public Function GetTxtDauer() As TextBox
Return txtDauer
End Function
@@ -251,11 +253,13 @@ Public Class frmNCTSRouten
lblWarningDauer.Visible = False
lblWarningRoute.Visible = False
If (cbxVon._value = "" Or cbxVon._value Is Nothing) Then
'If (cbxVon._value = "" Or cbxVon._value Is Nothing) Then
If (txtVon._value = "") Then
lblWarningAZS.Visible = True
validInputs = False
End If
If (cbxNach._value = "" Or cbxNach._value Is Nothing) Then
'If (cbxNach._value = "" Or cbxNach._value Is Nothing) Then
If (txtNach._value = "") Then
lblWarningBST.Visible = True
validInputs = False
End If
@@ -270,20 +274,21 @@ Public Class frmNCTSRouten
validInputs = False
End If
If (cbxNach._value = "" Or cbxNach._value Is Nothing) Then
lblWarningBST.Visible = True
If (Not IsNumeric(txtDauer.Text) Or txtDauer.Text = "") Then
lblWarningDauer.Visible = True
validInputs = False
End If
If (Not IsNumeric(txtDauer.Text) Or txtDauer.Text = "") Then
lblWarningDauer.Visible = True
validInputs = False
End If
If cbxRoutenart._value = "" Or cbxRoutenart._value Is Nothing Then
If cbxRoutenart._value = "" Or cbxRoutenart._value Is Nothing Then
lblWarningRoute.Visible = True
validInputs = False
End If
If cbxTransportmittel._value = "" Or cbxTransportmittel._value Is Nothing Then
lblWarningTransportmittel.Visible = True
validInputs = False
End If
Return validInputs
End Function
@@ -291,6 +296,7 @@ Public Class frmNCTSRouten
If checkUserInput(GetTxtDauer()) Then saveRoute(currentRoute)
End Sub
Private Sub cbxVon_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxVon.SelectedValueChanged
@@ -299,6 +305,7 @@ Public Class frmNCTSRouten
Else
txtVon.Text = cbxVon._value.ToString
txtVonRegion.Text = cbxVon.Text.ToString
setSearchboxVisible(sbxVon, False)
sbxVon.Clear()
End If
@@ -310,7 +317,7 @@ Public Class frmNCTSRouten
setSearchboxVisible(sbxNach, True)
Else
txtVon.Text = cbxVon._value.ToString
txtNach.Text = cbxNach._value.ToString
setSearchboxVisible(sbxNach, False)
sbxNach.Clear()
End If
@@ -320,5 +327,6 @@ Public Class frmNCTSRouten
Sub setSearchboxVisible(searchbox As VERAG_PROG_ALLGEMEIN.MySearchBox, visible As Boolean)
searchbox.Visible = visible
End Sub
End Class