Imports System.CodeDom
Imports DocumentFormat.OpenXml.Bibliography
Imports Org.BouncyCastle.Utilities

Public Class frmRoutendauerBerechnen

    Public calculatedDate As New DateTime
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim destination As String = ""
    Dim departure As String
    Dim transportmittel As String = "LKW"
    Dim days As Integer = -1


    Sub New(dest As String)

        InitializeComponent()
        destination = dest

    End Sub


    Private Sub frmRoutendauerBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        txtNach.Text = destination.ToString
        txbAbgangsdatum._value = CStr(Date.Today())
        initCheckBoxDepartment()


    End Sub

    Sub initCheckBoxDepartment()

        cbxVon.Items.Clear()
        cbxVon.fillWithSQL("SELECT [nctsr_dauer_in_tagen], [nctsr_von] FROM [tblNTCSRouten] WHERE [nctsr_nach] = '" & destination & "'", False, "FMZOLL", False)
        cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cbxVon.changeItem("")

    End Sub

    Private Sub btnPlus_Click(sender As Object, e As EventArgs) Handles btnPlus.Click
        'addDaysToGivenDate(1)
        addDaysToGivenDate2(datVoraussichtlichesEintreffen, 1)
    End Sub

    Private Sub btnMinus_Click(sender As Object, e As EventArgs) Handles btnMinus.Click
        addDaysToGivenDate2(datVoraussichtlichesEintreffen, -1)
        'addDaysToGivenDate(-1)
    End Sub

    Function calculateTripDuration() As Integer

        Dim destination As String
        Dim departure As String

        departure = cbxVon.Text
        destination = txtNach.Text


        Try
            days = CInt(SQL.DLookup("nctsr_dauer_in_tagen", "tblNTCSRouten", "[nctsr_von]='" & departure & "' AND [nctsr_nach]= '" & destination & "' AND [nctsr_route]= 'Landweg' AND [nctsr_tansportmittel]= '" & transportmittel & "'", "VERAG", -1))
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

        Return days

    End Function

    Private Sub cbxVon_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxVon.SelectedValueChanged

        departure = cbxVon.Text
        Dim calculatedDuration = calculateTripDuration()

        If calculatedDuration > 0 Then
            addDaysToGivenDate2(txbAbgangsdatum, calculatedDuration)
        End If


    End Sub

    Private Sub addDaysTocurrentDate(days As Integer)

        datVoraussichtlichesEintreffen._value = Convert.ToDateTime(txbAbgangsdatum._value).AddDays(days)
        datVoraussichtlichesEintreffen.Show()

    End Sub

    Private Sub addDaysToGivenDate(days As Integer)

        datVoraussichtlichesEintreffen._value = Convert.ToDateTime(datVoraussichtlichesEintreffen._value).AddDays(days)
        datVoraussichtlichesEintreffen.Show()

    End Sub

    Private Sub addDaysToGivenDate2(givenDate As VERAG_PROG_ALLGEMEIN.MyTextBox, days As Integer)

        datVoraussichtlichesEintreffen._value = Convert.ToDateTime(givenDate._value).AddDays(days)
        datVoraussichtlichesEintreffen.Show()

    End Sub


    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click

        calculatedDate = CDate(datVoraussichtlichesEintreffen._value)
        Close()
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Close()
    End Sub

    Private Sub txbAbgangsdatum_TextChanged(sender As Object, e As EventArgs) Handles txbAbgangsdatum.TextChanged
        If days > 0 Then
            addDaysToGivenDate2(txbAbgangsdatum, days)
        End If
    End Sub
End Class