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