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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-10-12 14:21:04 +02:00
parent 2ca94dcf78 acf168c72e
commit f4031a36e3
2 changed files with 149 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

168
Aviso/frmFrachtkostenBerechnen.Designer.vb generated
View File

@@ -45,6 +45,10 @@ Partial Class frmFrachtkostenBerechnen
Me.lblWarningBestimmungsort = New System.Windows.Forms.Label()
Me.lblWarningFaktor = New System.Windows.Forms.Label()
Me.lblDistanzNichtEU = New System.Windows.Forms.Label()
Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox()
Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components)
Me.cbxLandNach = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxLandVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txbCalcDistanceNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbNichtEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -58,8 +62,6 @@ Partial Class frmFrachtkostenBerechnen
Me.txbVonPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbNichtEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox()
Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components)
Me.SuspendLayout()
'
'lblVon
@@ -83,10 +85,10 @@ Partial Class frmFrachtkostenBerechnen
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(10, 270)
Me.btnCancel.Location = New System.Drawing.Point(5, 270)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 4
Me.btnCancel.TabIndex = 35
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True
'
@@ -94,56 +96,56 @@ Partial Class frmFrachtkostenBerechnen
'
Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.Cursor
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(297, 270)
Me.btnOK.Location = New System.Drawing.Point(286, 270)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 5
Me.btnOK.TabIndex = 36
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'lblEUAnteil
'
Me.lblEUAnteil.AutoSize = True
Me.lblEUAnteil.Location = New System.Drawing.Point(-1, 195)
Me.lblEUAnteil.Location = New System.Drawing.Point(5, 195)
Me.lblEUAnteil.Name = "lblEUAnteil"
Me.lblEUAnteil.Size = New System.Drawing.Size(51, 13)
Me.lblEUAnteil.TabIndex = 8
Me.lblEUAnteil.TabIndex = 23
Me.lblEUAnteil.Text = "EU Anteil"
'
'lblNichtEUAnteil
'
Me.lblNichtEUAnteil.AutoSize = True
Me.lblNichtEUAnteil.Location = New System.Drawing.Point(-1, 230)
Me.lblNichtEUAnteil.Location = New System.Drawing.Point(5, 230)
Me.lblNichtEUAnteil.Name = "lblNichtEUAnteil"
Me.lblNichtEUAnteil.Size = New System.Drawing.Size(79, 13)
Me.lblNichtEUAnteil.TabIndex = 9
Me.lblNichtEUAnteil.TabIndex = 29
Me.lblNichtEUAnteil.Text = "Nicht EU Anteil"
'
'lblDistanzEU
'
Me.lblDistanzEU.AutoSize = True
Me.lblDistanzEU.Location = New System.Drawing.Point(215, 195)
Me.lblDistanzEU.Location = New System.Drawing.Point(210, 195)
Me.lblDistanzEU.Name = "lblDistanzEU"
Me.lblDistanzEU.Size = New System.Drawing.Size(42, 13)
Me.lblDistanzEU.TabIndex = 12
Me.lblDistanzEU.TabIndex = 26
Me.lblDistanzEU.Text = "Distanz"
'
'lblGewicht
'
Me.lblGewicht.AutoSize = True
Me.lblGewicht.Location = New System.Drawing.Point(1, 99)
Me.lblGewicht.Location = New System.Drawing.Point(5, 99)
Me.lblGewicht.Name = "lblGewicht"
Me.lblGewicht.Size = New System.Drawing.Size(46, 13)
Me.lblGewicht.TabIndex = 13
Me.lblGewicht.TabIndex = 14
Me.lblGewicht.Text = "Gewicht"
'
'btnCalculate
'
Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
Me.btnCalculate.Location = New System.Drawing.Point(10, 160)
Me.btnCalculate.Location = New System.Drawing.Point(5, 160)
Me.btnCalculate.Name = "btnCalculate"
Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
Me.btnCalculate.TabIndex = 14
Me.btnCalculate.TabIndex = 21
Me.btnCalculate.Text = "Berechnen"
Me.btnCalculate.UseVisualStyleBackColor = True
'
@@ -153,7 +155,7 @@ Partial Class frmFrachtkostenBerechnen
Me.Label1.Location = New System.Drawing.Point(5, 30)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(27, 13)
Me.Label1.TabIndex = 17
Me.Label1.TabIndex = 2
Me.Label1.Text = "PLZ"
'
'Label2
@@ -162,16 +164,16 @@ Partial Class frmFrachtkostenBerechnen
Me.Label2.Location = New System.Drawing.Point(5, 52)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(21, 13)
Me.Label2.TabIndex = 18
Me.Label2.TabIndex = 8
Me.Label2.Text = "Ort"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(211, 56)
Me.Label3.Location = New System.Drawing.Point(205, 56)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(21, 13)
Me.Label3.TabIndex = 19
Me.Label3.TabIndex = 10
Me.Label3.Text = "Ort"
'
'Label4
@@ -180,35 +182,35 @@ Partial Class frmFrachtkostenBerechnen
Me.Label4.Location = New System.Drawing.Point(205, 30)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(27, 13)
Me.Label4.TabIndex = 20
Me.Label4.TabIndex = 5
Me.Label4.Text = "PLZ"
'
'lblGesamtfrachkosten
'
Me.lblGesamtfrachkosten.AutoSize = True
Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(157, 125)
Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(205, 125)
Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten"
Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13)
Me.lblGesamtfrachkosten.TabIndex = 13
Me.lblGesamtfrachkosten.TabIndex = 18
Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
'
'lblFaktor
'
Me.lblFaktor.AutoSize = True
Me.lblFaktor.Location = New System.Drawing.Point(1, 125)
Me.lblFaktor.Location = New System.Drawing.Point(5, 125)
Me.lblFaktor.Name = "lblFaktor"
Me.lblFaktor.Size = New System.Drawing.Size(37, 13)
Me.lblFaktor.TabIndex = 24
Me.lblFaktor.TabIndex = 16
Me.lblFaktor.Text = "Faktor"
'
'lblWarningEUAnteil
'
Me.lblWarningEUAnteil.AutoSize = True
Me.lblWarningEUAnteil.ForeColor = System.Drawing.Color.Red
Me.lblWarningEUAnteil.Location = New System.Drawing.Point(-1, 211)
Me.lblWarningEUAnteil.Location = New System.Drawing.Point(5, 211)
Me.lblWarningEUAnteil.Name = "lblWarningEUAnteil"
Me.lblWarningEUAnteil.Size = New System.Drawing.Size(162, 13)
Me.lblWarningEUAnteil.TabIndex = 26
Me.lblWarningEUAnteil.TabIndex = 28
Me.lblWarningEUAnteil.Text = "EU Anteil hinterlegen (in Prozent)"
Me.lblWarningEUAnteil.Visible = False
'
@@ -216,10 +218,10 @@ Partial Class frmFrachtkostenBerechnen
'
Me.lblWarningNichtEUAnteil.AutoSize = True
Me.lblWarningNichtEUAnteil.ForeColor = System.Drawing.Color.Red
Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(-1, 249)
Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(5, 249)
Me.lblWarningNichtEUAnteil.Name = "lblWarningNichtEUAnteil"
Me.lblWarningNichtEUAnteil.Size = New System.Drawing.Size(190, 13)
Me.lblWarningNichtEUAnteil.TabIndex = 27
Me.lblWarningNichtEUAnteil.TabIndex = 34
Me.lblWarningNichtEUAnteil.Text = "Nicht EU Anteil hinterlegen (in Prozent)"
Me.lblWarningNichtEUAnteil.Visible = False
'
@@ -230,7 +232,7 @@ Partial Class frmFrachtkostenBerechnen
Me.lblWarningAbgangort.Location = New System.Drawing.Point(5, 72)
Me.lblWarningAbgangort.Name = "lblWarningAbgangort"
Me.lblWarningAbgangort.Size = New System.Drawing.Size(147, 13)
Me.lblWarningAbgangort.TabIndex = 28
Me.lblWarningAbgangort.TabIndex = 12
Me.lblWarningAbgangort.Text = "PLZ/Ort von Abgangsort fehlt"
Me.lblWarningAbgangort.Visible = False
'
@@ -241,7 +243,7 @@ Partial Class frmFrachtkostenBerechnen
Me.lblWarningBestimmungsort.Location = New System.Drawing.Point(180, 72)
Me.lblWarningBestimmungsort.Name = "lblWarningBestimmungsort"
Me.lblWarningBestimmungsort.Size = New System.Drawing.Size(167, 13)
Me.lblWarningBestimmungsort.TabIndex = 29
Me.lblWarningBestimmungsort.TabIndex = 13
Me.lblWarningBestimmungsort.Text = "PLZ/Ort von Bestimmungsort fehlt"
Me.lblWarningBestimmungsort.Visible = False
'
@@ -249,10 +251,10 @@ Partial Class frmFrachtkostenBerechnen
'
Me.lblWarningFaktor.AutoSize = True
Me.lblWarningFaktor.ForeColor = System.Drawing.Color.Red
Me.lblWarningFaktor.Location = New System.Drawing.Point(1, 144)
Me.lblWarningFaktor.Location = New System.Drawing.Point(5, 144)
Me.lblWarningFaktor.Name = "lblWarningFaktor"
Me.lblWarningFaktor.Size = New System.Drawing.Size(82, 13)
Me.lblWarningFaktor.TabIndex = 30
Me.lblWarningFaktor.TabIndex = 20
Me.lblWarningFaktor.Text = "Faktor angeben"
Me.lblWarningFaktor.Visible = False
'
@@ -262,10 +264,47 @@ Partial Class frmFrachtkostenBerechnen
Me.lblDistanzNichtEU.Location = New System.Drawing.Point(215, 237)
Me.lblDistanzNichtEU.Name = "lblDistanzNichtEU"
Me.lblDistanzNichtEU.Size = New System.Drawing.Size(42, 13)
Me.lblDistanzNichtEU.TabIndex = 34
Me.lblDistanzNichtEU.TabIndex = 33
Me.lblDistanzNichtEU.Text = "Distanz"
Me.lblDistanzNichtEU.Visible = False
'
'ckbManAnteilsermittlung
'
Me.ckbManAnteilsermittlung.AutoSize = True
Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(92, 160)
Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung"
Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(160, 17)
Me.ckbManAnteilsermittlung.TabIndex = 22
Me.ckbManAnteilsermittlung.Text = "Anteile automatisch ermitteln"
Me.ToolTipAutomatischErmitteln.SetToolTip(Me.ckbManAnteilsermittlung, "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anteile werden automatisch ermittelt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Für TR (=Türkei) und SRB (=Serbien) wird" &
" der EU-Anteil des Streckenverlaufs ermittelt, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle weiteren werden mit 60% EU" &
" und 40% nicht EU berechnet." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10))
Me.ckbManAnteilsermittlung.UseVisualStyleBackColor = True
'
'cbxLandNach
'
Me.cbxLandNach._allowedValuesFreiText = Nothing
Me.cbxLandNach._allowFreiText = False
Me.cbxLandNach._value = ""
Me.cbxLandNach.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbxLandNach.FormattingEnabled = True
Me.cbxLandNach.Location = New System.Drawing.Point(255, 23)
Me.cbxLandNach.Name = "cbxLandNach"
Me.cbxLandNach.Size = New System.Drawing.Size(50, 21)
Me.cbxLandNach.TabIndex = 6
'
'cbxLandVon
'
Me.cbxLandVon._allowedValuesFreiText = Nothing
Me.cbxLandVon._allowFreiText = False
Me.cbxLandVon._value = ""
Me.cbxLandVon.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cbxLandVon.FormattingEnabled = True
Me.cbxLandVon.Location = New System.Drawing.Point(75, 22)
Me.cbxLandVon.Name = "cbxLandVon"
Me.cbxLandVon.Size = New System.Drawing.Size(50, 21)
Me.cbxLandVon.TabIndex = 3
'
'txbCalcDistanceNichtEU
'
Me.txbCalcDistanceNichtEU._DateTimeOnly = False
@@ -281,13 +320,13 @@ Partial Class frmFrachtkostenBerechnen
Me.txbCalcDistanceNichtEU._Waehrung = False
Me.txbCalcDistanceNichtEU._WaehrungZeichen = True
Me.txbCalcDistanceNichtEU.ForeColor = System.Drawing.Color.Black
Me.txbCalcDistanceNichtEU.Location = New System.Drawing.Point(285, 230)
Me.txbCalcDistanceNichtEU.Location = New System.Drawing.Point(277, 227)
Me.txbCalcDistanceNichtEU.MaxLineLength = -1
Me.txbCalcDistanceNichtEU.MaxLines_Warning = ""
Me.txbCalcDistanceNichtEU.MaxLines_Warning_Label = Nothing
Me.txbCalcDistanceNichtEU.Name = "txbCalcDistanceNichtEU"
Me.txbCalcDistanceNichtEU.Size = New System.Drawing.Size(84, 20)
Me.txbCalcDistanceNichtEU.TabIndex = 35
Me.txbCalcDistanceNichtEU.TabIndex = 32
Me.txbCalcDistanceNichtEU.Visible = False
'
'tbNichtEUAnteilberechnet
@@ -312,7 +351,7 @@ Partial Class frmFrachtkostenBerechnen
Me.tbNichtEUAnteilberechnet.Name = "tbNichtEUAnteilberechnet"
Me.tbNichtEUAnteilberechnet.ReadOnly = True
Me.tbNichtEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
Me.tbNichtEUAnteilberechnet.TabIndex = 33
Me.tbNichtEUAnteilberechnet.TabIndex = 31
'
'tbEUAnteilberechnet
'
@@ -336,7 +375,7 @@ Partial Class frmFrachtkostenBerechnen
Me.tbEUAnteilberechnet.Name = "tbEUAnteilberechnet"
Me.tbEUAnteilberechnet.ReadOnly = True
Me.tbEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
Me.tbEUAnteilberechnet.TabIndex = 32
Me.tbEUAnteilberechnet.TabIndex = 25
'
'txbFactor
'
@@ -359,7 +398,7 @@ Partial Class frmFrachtkostenBerechnen
Me.txbFactor.MaxLines_Warning_Label = Nothing
Me.txbFactor.Name = "txbFactor"
Me.txbFactor.Size = New System.Drawing.Size(60, 20)
Me.txbFactor.TabIndex = 25
Me.txbFactor.TabIndex = 17
'
'tbxGesamtfrachtkosten
'
@@ -376,14 +415,14 @@ Partial Class frmFrachtkostenBerechnen
Me.tbxGesamtfrachtkosten._Waehrung = True
Me.tbxGesamtfrachtkosten._WaehrungZeichen = True
Me.tbxGesamtfrachtkosten.ForeColor = System.Drawing.Color.Black
Me.tbxGesamtfrachtkosten.Location = New System.Drawing.Point(255, 122)
Me.tbxGesamtfrachtkosten.Location = New System.Drawing.Point(301, 122)
Me.tbxGesamtfrachtkosten.MaxLineLength = -1
Me.tbxGesamtfrachtkosten.MaxLines_Warning = ""
Me.tbxGesamtfrachtkosten.MaxLines_Warning_Label = Nothing
Me.tbxGesamtfrachtkosten.Name = "tbxGesamtfrachtkosten"
Me.tbxGesamtfrachtkosten.ReadOnly = True
Me.tbxGesamtfrachtkosten.Size = New System.Drawing.Size(60, 20)
Me.tbxGesamtfrachtkosten.TabIndex = 23
Me.tbxGesamtfrachtkosten.TabIndex = 19
'
'txbGewicht
'
@@ -407,7 +446,7 @@ Partial Class frmFrachtkostenBerechnen
Me.txbGewicht.Name = "txbGewicht"
Me.txbGewicht.ReadOnly = True
Me.txbGewicht.Size = New System.Drawing.Size(84, 20)
Me.txbGewicht.TabIndex = 22
Me.txbGewicht.TabIndex = 15
'
'txbCalcDistanceEU
'
@@ -424,13 +463,13 @@ Partial Class frmFrachtkostenBerechnen
Me.txbCalcDistanceEU._Waehrung = False
Me.txbCalcDistanceEU._WaehrungZeichen = True
Me.txbCalcDistanceEU.ForeColor = System.Drawing.Color.Black
Me.txbCalcDistanceEU.Location = New System.Drawing.Point(285, 188)
Me.txbCalcDistanceEU.Location = New System.Drawing.Point(277, 188)
Me.txbCalcDistanceEU.MaxLineLength = -1
Me.txbCalcDistanceEU.MaxLines_Warning = ""
Me.txbCalcDistanceEU.MaxLines_Warning_Label = Nothing
Me.txbCalcDistanceEU.Name = "txbCalcDistanceEU"
Me.txbCalcDistanceEU.Size = New System.Drawing.Size(84, 20)
Me.txbCalcDistanceEU.TabIndex = 21
Me.txbCalcDistanceEU.TabIndex = 27
'
'txbNachOrt
'
@@ -452,8 +491,8 @@ Partial Class frmFrachtkostenBerechnen
Me.txbNachOrt.MaxLines_Warning = ""
Me.txbNachOrt.MaxLines_Warning_Label = Nothing
Me.txbNachOrt.Name = "txbNachOrt"
Me.txbNachOrt.Size = New System.Drawing.Size(84, 20)
Me.txbNachOrt.TabIndex = 16
Me.txbNachOrt.Size = New System.Drawing.Size(106, 20)
Me.txbNachOrt.TabIndex = 11
'
'txbVonOrt
'
@@ -475,8 +514,8 @@ Partial Class frmFrachtkostenBerechnen
Me.txbVonOrt.MaxLines_Warning = ""
Me.txbVonOrt.MaxLines_Warning_Label = Nothing
Me.txbVonOrt.Name = "txbVonOrt"
Me.txbVonOrt.Size = New System.Drawing.Size(91, 20)
Me.txbVonOrt.TabIndex = 15
Me.txbVonOrt.Size = New System.Drawing.Size(105, 20)
Me.txbVonOrt.TabIndex = 9
'
'txbNachPLZ
'
@@ -493,13 +532,13 @@ Partial Class frmFrachtkostenBerechnen
Me.txbNachPLZ._Waehrung = False
Me.txbNachPLZ._WaehrungZeichen = True
Me.txbNachPLZ.ForeColor = System.Drawing.Color.Black
Me.txbNachPLZ.Location = New System.Drawing.Point(255, 23)
Me.txbNachPLZ.Location = New System.Drawing.Point(311, 23)
Me.txbNachPLZ.MaxLineLength = -1
Me.txbNachPLZ.MaxLines_Warning = ""
Me.txbNachPLZ.MaxLines_Warning_Label = Nothing
Me.txbNachPLZ.Name = "txbNachPLZ"
Me.txbNachPLZ.Size = New System.Drawing.Size(84, 20)
Me.txbNachPLZ.TabIndex = 11
Me.txbNachPLZ.Size = New System.Drawing.Size(50, 20)
Me.txbNachPLZ.TabIndex = 7
'
'txbVonPLZ
'
@@ -516,13 +555,13 @@ Partial Class frmFrachtkostenBerechnen
Me.txbVonPLZ._Waehrung = False
Me.txbVonPLZ._WaehrungZeichen = True
Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black
Me.txbVonPLZ.Location = New System.Drawing.Point(75, 23)
Me.txbVonPLZ.Location = New System.Drawing.Point(130, 23)
Me.txbVonPLZ.MaxLineLength = -1
Me.txbVonPLZ.MaxLines_Warning = ""
Me.txbVonPLZ.MaxLines_Warning_Label = Nothing
Me.txbVonPLZ.Name = "txbVonPLZ"
Me.txbVonPLZ.Size = New System.Drawing.Size(91, 20)
Me.txbVonPLZ.TabIndex = 10
Me.txbVonPLZ.Size = New System.Drawing.Size(50, 20)
Me.txbVonPLZ.TabIndex = 4
'
'tbNichtEUAnteil
'
@@ -545,7 +584,7 @@ Partial Class frmFrachtkostenBerechnen
Me.tbNichtEUAnteil.MaxLines_Warning_Label = Nothing
Me.tbNichtEUAnteil.Name = "tbNichtEUAnteil"
Me.tbNichtEUAnteil.Size = New System.Drawing.Size(49, 20)
Me.tbNichtEUAnteil.TabIndex = 7
Me.tbNichtEUAnteil.TabIndex = 30
'
'tbEUAnteil
'
@@ -568,26 +607,15 @@ Partial Class frmFrachtkostenBerechnen
Me.tbEUAnteil.MaxLines_Warning_Label = Nothing
Me.tbEUAnteil.Name = "tbEUAnteil"
Me.tbEUAnteil.Size = New System.Drawing.Size(51, 20)
Me.tbEUAnteil.TabIndex = 6
'
'ckbManAnteilsermittlung
'
Me.ckbManAnteilsermittlung.AutoSize = True
Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(113, 160)
Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung"
Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(160, 17)
Me.ckbManAnteilsermittlung.TabIndex = 36
Me.ckbManAnteilsermittlung.Text = "Anteile automatisch ermitteln"
Me.ToolTipAutomatischErmitteln.SetToolTip(Me.ckbManAnteilsermittlung, "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anteile werden automatisch ermittelt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Für TR (=Türkei) und SRB (=Serbien) wird" &
" der EU-Anteil des Streckenverlaufs ermittelt, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle weiteren werden mit 60% EU" &
" und 40% nicht EU berechnet." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10))
Me.ckbManAnteilsermittlung.UseVisualStyleBackColor = True
Me.tbEUAnteil.TabIndex = 24
'
'frmFrachtkostenBerechnen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(381, 305)
Me.Controls.Add(Me.cbxLandNach)
Me.Controls.Add(Me.cbxLandVon)
Me.Controls.Add(Me.ckbManAnteilsermittlung)
Me.Controls.Add(Me.txbCalcDistanceNichtEU)
Me.Controls.Add(Me.lblDistanzNichtEU)
@@ -668,4 +696,6 @@ Partial Class frmFrachtkostenBerechnen
Friend WithEvents lblDistanzNichtEU As Label
Friend WithEvents ckbManAnteilsermittlung As CheckBox
Friend WithEvents ToolTipAutomatischErmitteln As ToolTip
Friend WithEvents cbxLandVon As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxLandNach As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

70
Aviso/frmFrachtkostenBerechnen.vb
View File

@@ -1,37 +1,65 @@
Imports System.Security.Cryptography
Imports System.Linq.Expressions
Imports System.Security.Cryptography
Imports DocumentFormat.OpenXml.Drawing
Imports DocumentFormat.OpenXml.Office.MetaAttributes
Imports VERAG_PROG_ALLGEMEIN
Public Class frmFrachtkostenBerechnen
Dim absenderID As Integer
Dim empfaengerID As Integer
Dim absenderID As Integer = -1
Dim empfaengerID As Integer = -1
Dim origin As String
Dim destination As String
Public EUAnteil As Double
Public nichtEUAnteil As Double
Dim gewicht As Double
Dim gesamtFrachtkosten As Double
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(absID As String, empfID As String, gewichtInput As Double)
InitializeComponent()
absenderID = CInt(absID)
empfaengerID = CInt(empfID)
gewicht = gewichtInput
Try
gewicht = IIf(gewichtInput.ToString <> "", CDbl(gewichtInput), 0)
If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then
absenderID = CInt(absID)
Else
absenderID = -1
End If
If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then
empfaengerID = Int(empfID)
Else
empfaengerID = -1
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txbVonPLZ.fillWithSQL("SELECT ISNULL([LandKz],'') + '-' + ISNULL([PLZ],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
txbNachPLZ.fillWithSQL("SELECT ISNULL([LandKz],'') + '-' + ISNULL([PLZ],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [VERAG].[dbo].[Adressen] order by LandKz asc", False, "FMZOLL", True, True)
cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", ""))
txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'")
cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", ""))
txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")
ckbManAnteilsermittlung.Checked = True
@@ -49,8 +77,8 @@ Public Class frmFrachtkostenBerechnen
'resetInputFields()
setControlEUAnteile()
origin = IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
destination = IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
origin = IIf(cbxLandVon._value <> "", cbxLandVon._value, "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
destination = IIf(cbxLandNach._value <> "", cbxLandNach._value, "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
Dim getValues = True
Dim twoRouteRequest As Boolean = False
@@ -60,14 +88,14 @@ Public Class frmFrachtkostenBerechnen
Dim distanceEU = ""
If txbVonPLZ._value.Substring(0, 2) = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Kapitan Andreevo", duration, distance,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues)
ElseIf txbVonPLZ._value.Substring(0, 3) = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Horgoš ist EU Grenze für Lieferungen aus Serbien
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues)
@@ -124,15 +152,17 @@ Public Class frmFrachtkostenBerechnen
tbEUAnteil._value = 0.6
tbNichtEUAnteil._value = 0.4
If distance = "0" Or distance = "" Then
MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
End If
lblDistanzEU.Text = "Distanz"
txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False
txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False
Else
Else
lblDistanzEU.Text = "Distanz"
lblDistanzEU.Text = "Distanz"
txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False