AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj: fix report

Browse Source
This commit is contained in:
Jonathan Jenne
2018-06-22 11:30:57 +02:00
parent 9af16f4bfd
commit 5de6817422
1 changed files with 40 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
SchaumKommiCollo/KommiCollo/reportUebergabe.vb
View File

@@ -14,6 +14,8 @@ Public Class reportUebergabe
Private kolli As Integer = 0 Private kolli As Integer = 0
Private gewicht As Double = 0.00 Private gewicht As Double = 0.00
Private letzteSendung As Integer = 0 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 Private Sub labelAnzahlSendungen_SummaryReset(sender As Object, e As EventArgs) Handles labelAnzahlSendungen.SummaryReset
sendungen = 0 sendungen = 0
@@ -21,20 +23,19 @@ Public Class reportUebergabe
gewicht = 0.00 gewicht = 0.00
letzteSendung = 0 letzteSendung = 0
End Sub End Sub
Private Sub labelSendungNr_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelSendungNr.BeforePrint Private Sub labelSendungNr_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelSendungNr.BeforePrint
Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR") Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
Dim sdgStellplaetze As Integer = GetCurrentColumnValue("SDG_STELLPLAETZE")
If sendungsNr <> letzteSendung Then If sendungsNr <> letzteSendung Then
sendungen = sendungen + 1 sendungen = sendungen + 1
kolli = kolli + sdgStellplaetze
End If End If
End Sub 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 Private Sub labelGewicht_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelGewicht.BeforePrint
Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR") Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
@@ -58,4 +59,39 @@ Public Class reportUebergabe
e.Result = sendungen e.Result = sendungen
e.Handled = True e.Handled = True
End Sub 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 End Class