Projektdateien hinzufügen.

2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
--- a/Aviso/rptLKWBericht.vb
+++ b/Aviso/rptLKWBericht.vb
@@ -0,0 +1,91 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class rptLKWBericht
+    Dim cProgramFunctions As New cProgramFunctions
+    Public AvisoID As Integer = -1
+    Dim dummycount As Integer = 0
+    Public erstelltVon As String = ""
+
+    Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
+        lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
+
+    End Sub
+
+
+    Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
+
+        dummycount = dummycount + 1
+
+        lblSB.Text = Fields.Item("Mitarbeiter").Value
+        lblDat.Text = Fields.Item("Datum").Value
+        lblEreignis.Text = Fields.Item("Ereignis").Value
+        ' MsgBox(Fields.Item("Ereignis").Value)
+        'Abwechselnd grauen und wei<65>en Hintergrund
+        If (dummycount Mod 2) = 0 Then
+            Detail.BackColor = Drawing.Color.White
+        Else
+            Detail.BackColor = Drawing.Color.WhiteSmoke
+        End If
+
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+
+        Dim AVISO As cAviso = (New cAvisoDAL).LesenAviso(AvisoID, "")
+        ' MsgBox(AvisoID)
+        Me.Name = "LKW Bericht"
+        Me.lblLKW.Text = AVISO.LKW_Nr
+        Me.txtLKWKz.Text = AVISO.LKW_Nr
+        Me.txtFraechter.Text = AVISO.Fr<EFBFBD>chter
+        Me.txtAvisierer.Text = AVISO.Auftraggeber
+        If AVISO.Dauer = 0 Then
+            Me.txtDauer.Text = "-"
+        Else
+            Me.txtDauer.Text = cProgramFunctions.MinToTime(AVISO.Dauer) 'toFormat(AVISO.Dauer * 60 / 86400, "HH Std. mm min") & " (" & AVISO.Dauer & " min)"
+        End If
+       
+
+        Me.txtAnkunft.Text = AVISO.Ankunft
+        If AVISO.Freigabe = cMeineFunktionenAVISO.LeerDatum Then
+            Me.txtFreigabe.Text = "-"
+        Else
+            Me.txtFreigabe.Text = AVISO.Freigabe 'toFormat(AVISO.Dauer * 60 / 86400, "HH Std. mm min") & " (" & AVISO.Dauer & " min)"
+        End If
+        Me.txtGrenzstelle.Text = AVISO.Grenzstelle
+        Dim sqlStr As String = " SELECT " &
+                                    " 'A' as Art, " &
+                                    " [Datum] " &
+                                    " ,[Mitarbeiter] " &
+                                    " ,[MitarbeiterId] " &
+                                    " ,[Aenderung_Text] as Ereignis " &
+                                " FROM [Aenderungen] " &
+                                        " WHERE AvisoID = '" & AvisoID & "' " &
+                                " union " &
+                                " SELECT " &
+                                    " 'V' as Art,  " &
+                                    " [Datum] " &
+                                    " ,[Mitarbeiter] " &
+                                    " ,[MitarbeiterId] " &
+                                    "   ,[Hinweis_Vermerk] as Ereignis " &
+                                " FROM [Vermerke] " &
+                                        " WHERE AvisoID='" & AvisoID & "' " &
+                                " ORDER By Datum "
+
+        Dim cAvisoDAL As New cAvisoDAL
+        Me.DataSource = cAvisoDAL.loadDataTableBySQL(sqlStr)
+
+
+        'Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
+        ' Label7.Text = "" '"B<>rgschaft: " & brg
+
+
+
+
+    End Sub
+
+   
+
+End Class