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

version 2.2.0.8

Browse Source
This commit is contained in:
Jonathan Jenne
2019-03-18 15:52:41 +01:00
parent e970ce1758
commit 884b779057
5 changed files with 262 additions and 227 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SchaumKommiCollo/KommiCollo/reportUebergabe.vb
View File

@@ -44,17 +44,32 @@ Public Class reportUebergabe
''' <summary>
''' Pro Sendungsnummer das Gewicht aufaddieren
''' </summary>
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")
' ' Wenn sich die Sendungsnummer geändert hat
' If sendungsNr <> letzteSendung Then
' gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
' End If
'End Sub
''' <summary>
''' Pro Sendungsnummer das Gewicht aufaddieren
''' </summary>
Private Sub XrLabel3_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles XrLabel3.BeforePrint
Dim sdgStellplaetze As Integer = GetCurrentColumnValue("SDG_STELLPLAETZE")
Dim sendungsNr As Integer = GetCurrentColumnValue("SENDUNGNR")
Dim sdgGewicht As Double = CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
' Wenn sich die Sendungsnummer geändert hat
If sendungsNr <> letzteSendung Then
gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT"))
gewicht = gewicht + sdgGewicht
sendungen = sendungen + 1
kolli = kolli + sdgStellplaetze
End If
End Sub
''' <summary>
''' Summe der Colli ausgeben
''' </summary>
@@ -120,4 +135,5 @@ Public Class reportUebergabe
letzterEmpfänger = empfänger
End Sub
End Class