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