92 lines
3.4 KiB
VB.net
92 lines
3.4 KiB
VB.net
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ß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ä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
|