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 letzteSendung As Integer = 0
    Private letzteNve As String = String.Empty
    Private letzerCode As String = String.Empty

    Private Sub labelAnzahlSendungen_SummaryReset(sender As Object, e As EventArgs) Handles labelAnzahlSendungen.SummaryReset
        sendungen = 0
        kolli = 0
        gewicht = 0.00

        letzteSendung = 0

    End Sub

    Private Sub labelSendungNr_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelSendungNr.BeforePrint
        Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
        Dim sdgStellplaetze As Integer = GetCurrentColumnValue("SDG_STELLPLAETZE")

        If sendungsNr <> letzteSendung Then
            sendungen = sendungen + 1
            kolli = kolli + sdgStellplaetze
        End If
    End Sub

    Private Sub labelGewicht_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelGewicht.BeforePrint
        Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")

        If sendungsNr <> letzteSendung Then
            gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
            letzteSendung = sendungsNr
        End If
    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

    Private Sub labelPalettenanzahl_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelPalettenanzahl.BeforePrint
        Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
        Dim nve As String = GetCurrentColumnValue("NVE")
        Dim code As String = GetCurrentColumnValue("CODE")

        If sendungsNr = letzteSendung Then

            If Not (nve <> letzteNve And code <> letzerCode) Then
                e.Cancel = True
            End If

            letzteNve = nve
            letzerCode = code


            'gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
            'letzteSendung = sendungsNr

        End If
    End Sub

    Private Sub XrLabel42_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles XrLabel42.BeforePrint
        Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
        Dim nve As String = GetCurrentColumnValue("NVE")
        Dim code As String = GetCurrentColumnValue("CODE")

        If sendungsNr = letzteSendung Then

            If Not (nve <> letzteNve And code <> letzerCode) Then
                e.Cancel = True
            End If

        End If
    End Sub
End Class