112 lines
4.1 KiB
VB.net
112 lines
4.1 KiB
VB.net
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
|