105 lines
3.0 KiB
VB.net
105 lines
3.0 KiB
VB.net
Imports DocumentFormat.OpenXml.Drawing
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class frmFrachtkostenBerechnen
|
|
|
|
Dim absenderID As Integer
|
|
Dim empfaengerID As Integer
|
|
Dim origin As String
|
|
Dim destination As String
|
|
Dim EUAnteil As Integer
|
|
Dim nichtEUAnteil As Integer
|
|
Dim gewicht As Double
|
|
Dim gesamtFrachtkosten As Double
|
|
|
|
|
|
Sub New(absID As String, empfID As String, gewichtInput As Double)
|
|
|
|
InitializeComponent()
|
|
absenderID = CInt(absID)
|
|
empfaengerID = CInt(empfID)
|
|
gewicht = gewichtInput
|
|
|
|
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 & "'")
|
|
|
|
|
|
'tbEUAnteil._value = EUAnteil.ToString
|
|
'tbNichtEUAnteil._value = nichtEUAnteil.ToString
|
|
txbGewicht._value = gewicht.ToString
|
|
txbFactor._value = 0.15
|
|
|
|
|
|
End Sub
|
|
|
|
Sub calculateFreight()
|
|
|
|
origin = IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
|
|
destination = IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
|
|
|
|
Dim duration = ""
|
|
Dim distance = ""
|
|
|
|
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance)
|
|
|
|
txbCalcDistance._value = distance
|
|
|
|
|
|
End Sub
|
|
|
|
Sub calculateFreightCosts()
|
|
|
|
Try
|
|
gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
|
|
tbxGesamtfrachtkosten._value = gesamtFrachtkosten
|
|
EUAnteil = gesamtFrachtkosten * tbEUAnteil._value / 100
|
|
nichtEUAnteil = gesamtFrachtkosten * tbNichtEUAnteil._value / 100
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Sub checkInputFields()
|
|
If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then
|
|
'Hinweis INPUT false
|
|
End If
|
|
|
|
If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
|
|
'Hinweis INPUT false
|
|
End If
|
|
|
|
If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then
|
|
'Hinweis INPUT false
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
|
|
resetInputFIeld()
|
|
calculateFreight()
|
|
calculateFreightCosts()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub resetInputFIeld()
|
|
txbCalcDistance._value = ""
|
|
End Sub
|
|
|
|
|
|
End Class |