29. Mai 2013 11:21
=Code.BlankZero(Fields!Sum.Value)
="Übertrag = " & Code.GetRunningTotal(Globals!PageNumber-1)
=IIF(Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber) = 1,true,false)
="Übertrag = " & Code.SetRunningTotal(Sum(ReportItems!txtLineSum.Value), Globals!PageNumber)
=IIF(Globals!PageNumber < Globals!TotalPages, False, True)
=Code.IsNewPage(Fields!Sales_Header_Document_Type.Value,Fields!Sales_Header_No_.Value,Fields!OutputNo.Value)
Public Function GetGroupPageNumber(NewPage as Boolean, pagenumber as Integer) as Object
If NewPage
offset = pagenumber - 1
RunningTotals.Clear()
End If
Return pagenumber - offset
End Function
Public Function IsNewPage(group1 as Object, group2 as Object, group3 as Object) As Boolean
newPage = FALSE
If Not (group1 = currentgroup1)
newPage = TRUE
currentgroup1 = group1
currentgroup2 = group2
currentgroup3 = group3
ELSE
If Not (group2 = currentgroup2)
newPage = TRUE
currentgroup2 = group2
currentgroup3 = group3
ELSE
If Not (group3 = currentgroup3)
newPage = TRUE
currentgroup3 = group3
End If
End If
End If
Return newPage
End Function
Shared RunningTotals As New System.Collections.Hashtable
Public Function GetRunningTotal(ByVal CurrentPageNumber)
Return IIF(CurrentPageNumber > 0, RunningTotals(CurrentPageNumber), 0)
End Function
Public Function SetRunningTotal(ByVal CurrentPageTotal, ByVal CurrentPageNumber)
RunningTotals(CurrentPageNumber) = CurrentPageTotal + GetRunningTotal(CurrentPageNumber - 1)
Return RunningTotals(CurrentPageNumber)
End Function
29. Mai 2013 11:31
=Not IsNothing(ReportItems!InvoiceTotalTextBox.Value)
29. Mai 2013 14:39
SilverX hat geschrieben:Hi,
in einer meiner Lösungen habe ich die folgende Hidden-Eigenschaft für die Seitensumme unten verwendet:
- Code:
=Not IsNothing(ReportItems!InvoiceTotalTextBox.Value)
Wobei ReportItems!InvoiceTotalTextBox die TextBox ist, in der die Gesamtsumme der Rechnung angedruckt wird, was ja nur auf der jeweils letzten Seite passiert.
29. Mai 2013 15:14