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