50 lines
1.8 KiB
VB.net
50 lines
1.8 KiB
VB.net
|
|
Imports DevExpress.XtraReports.Parameters
|
|
|
|
|
|
''' <summary>
|
|
''' Hier werden die Summen von
|
|
''' - Anzahl Sendungen
|
|
''' - Anzahl Kolli
|
|
''' - Gesamtgewicht
|
|
''' berechnet.
|
|
''' </summary>
|
|
Public Class reportUebergabe
|
|
Private sendungen As Integer = 0
|
|
Private kolli As Integer = 0
|
|
Private gewicht As Double = 0.00
|
|
|
|
|
|
Private Sub labelAnzahlSendungen_SummaryReset(sender As Object, e As EventArgs) Handles labelAnzahlSendungen.SummaryReset
|
|
sendungen = 0
|
|
kolli = 0
|
|
gewicht = 0.00
|
|
End Sub
|
|
|
|
Private Sub labelSendungNr_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelSendungNr.BeforePrint
|
|
sendungen = sendungen + 1
|
|
End Sub
|
|
|
|
Private Sub labelPalettenanzahl_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelPalettenanzahl.BeforePrint
|
|
kolli = kolli + GetCurrentColumnValue("PALETTENANZAHL")
|
|
End Sub
|
|
|
|
Private Sub labelGewicht_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelGewicht.BeforePrint
|
|
gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
|
|
End Sub
|
|
|
|
Private Sub labelSummeKolli_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeKolli.SummaryGetResult
|
|
e.Result = kolli
|
|
e.Handled = True
|
|
End Sub
|
|
|
|
Private Sub labelSummeGewicht_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeGewicht.SummaryGetResult
|
|
e.Result = gewicht
|
|
e.Handled = True
|
|
End Sub
|
|
|
|
Private Sub labelAnzahlSendungen_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelAnzahlSendungen.SummaryGetResult
|
|
e.Result = sendungen
|
|
e.Handled = True
|
|
End Sub
|
|
End Class |