Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document

Public Class subrptEinzelStat

    Dim t As Integer = 0
    Dim h As Integer = 0
    Dim c As Integer = 0

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
        txtPosNr.Text = Fields.Item("atr_frachtpos").Value
        txtDatum.Text = Fields.Item("atr_datum").Value
        txtAuftraggeber.Text = Fields.Item("atr_auftr_firma").Value
        txtFraechter.Text = Fields.Item("Transportunternehmen").Value
        txtLeistung.Text = Fields.Item("atr_AuftragsArt").Value
        If txtLeistung.Text = "HANDLING" Then
            h = h + 1
        ElseIf txtLeistung.Text = "TRANSPORT" Then
            t = t + 1
        End If
        c = c + 1

        If c Mod 2 = 0 Then
            txtPosNr.BackColor = Color.White
            txtDatum.BackColor = Color.White
            txtAuftraggeber.BackColor = Color.White
            txtFraechter.BackColor = Color.White
            txtLeistung.BackColor = Color.White
        Else
            txtPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
            txtDatum.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
            txtAuftraggeber.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
            txtFraechter.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
            txtLeistung.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))

        End If
    End Sub

    Private Sub subrptEinzelStat_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
        DataSource = frmAuswertung.dt
    End Sub

    Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
        txtSummeAuftraege.Text = h + t
        txtSummeTransporte.Text = t
        txtSummeHandlings.Text = h
    End Sub
End Class