97 lines
3.4 KiB
VB.net
97 lines
3.4 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 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 |