Projektdateien hinzufügen.

2019-08-07 12:29:10 +02:00
parent 4008832285
commit 1e9039b6ea
251 changed files with 90001 additions and 0 deletions
--- a/UID/frmLeer/usrcntlTrips.vb
+++ b/UID/frmLeer/usrcntlTrips.vb
@@ -0,0 +1,111 @@
+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