49 lines
2.2 KiB
VB.net
49 lines
2.2 KiB
VB.net
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
|