Public Class usrcntlTrips

    Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL

    Dim dgvselect As String = "SELECT trip_tripnr, trip_Datum, trip_FilNr, trip_Transporter, trip_start, trip_end from dbo.tblTrips WHERE trip_FilNr LIKE '%{0}%' ORDER BY trip_tripnr DESC"
    Property Auftrag As cDispoAuftraege = Nothing

    Private Sub usrcntlTrips_Load(sender As Object, e As EventArgs) Handles Me.Load
        Button1.Visible = frmLogin.TESTSYSTEM

        cboFiliale.Items.Clear()
        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
            Case "NEU" : cboFiliale.changeItem("4819") ' : Niederlassung = "4819"
            Case Else : cboFiliale.changeItem("4807") ' : Niederlassung = "4807"
        End Select

        LoadDGV()
    End Sub

    Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
        Dim neu As New cTrips
        neu.CreateNewTripNr()
        neu.trip_Datum = Date.Now
        frmtrip(neu)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim neu As New cTrips
        neu.tripNr = 4
        neu.LoadTrip()
        frmtrip(neu)
    End Sub

    Function frmtrip(trip As cTrips)
        Dim frm As New frmLeer
        frm.Text = "Trip-Details"
        Dim usrcntrl As New usrcntlTripDetail
        usrcntrl.Trip = trip
        usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
        AddHandler frm.Disposed, AddressOf meEnabledTrue
        Me.Enabled = False
        frm.Show()
    End Function

    Function LoadDGV()
        Dim dt As New DataTable
        dt = vpasql.loadDgvBySql(String.Format(dgvselect, cboFiliale._value), "DISPO")
        With dgvTrips
            .DataSource = dt

            .Columns("trip_tripNr").HeaderText = "Tripnummer"

            .Columns("trip_Datum").HeaderText = "Datum"

            .Columns("trip_FilNr").HeaderText = "FilalNr."
            .Columns("trip_FilNr").Visible = False

            .Columns("trip_Transporter").HeaderText = "Frächter"
            .Columns("trip_Transporter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

            .Columns("trip_start").HeaderText = "Startpunkt"

            .Columns("trip_end").HeaderText = "Endpunkt"
        End With
    End Function

    Private Sub dgvTrips_CellContentClick(sender As Object, e As EventArgs) Handles dgvTrips.CellDoubleClick, btnChange.Click
        Dim Trip As New cTrips
        Trip.tripNr = dgvTrips.CurrentRow.Cells("trip_tripNr").Value
        Trip.LoadTrip()

        frmtrip(Trip)
    End Sub
    Private Sub meEnabledTrue()
        Me.Enabled = True
        LoadDGV()
        Me.BringToFront()
    End Sub

    Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
        LoadDGV()
    End Sub

    Private Sub btnAddTo_Click(sender As Object, e As EventArgs) Handles btnAddTo.Click
        Dim Trip As New cTrips
        Trip.tripNr = dgvTrips.CurrentRow.Cells("trip_tripNr").Value
        Trip.LoadTrip()
        If Not Trip.trip_Transporter = Auftrag.Return_TransportauftragArt() Then
            If MsgBox("Trip-Frächter und Auftrag-Frächter stimmen nicht überein: " & vbCrLf &
                   "Trip: " & Trip.trip_Transporter & vbCrLf &
                   "Auftrag: " & Auftrag.Return_TransportauftragArt() & vbCrLf &
                   "Trotzdem fortfahren?", MsgBoxStyle.OkCancel, "Unterschiedliche Frächter") = MsgBoxResult.Cancel Then Exit Sub
        End If
        Auftrag.atr_tripNr = Trip.tripNr
        Auftrag.atr_tripStopNr = Trip.CreateNextStop
        Auftrag.SAVE()
        ParentForm.Close()
    End Sub

    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        Dim Trip As New cTrips
        Trip.tripNr = dgvTrips.CurrentRow.Cells("trip_tripNr").Value
        Trip.LoadTrip()
        Trip.DeleteTrip()
        meEnabledTrue()
    End Sub
End Class