'Assigns the Sub total of Accessory price in dynamic footer 1 section
Sub GrpDynamicFooter1_Format
AssignAccessorisedPrice("GrpDynamicFooter1","txtG1NAPrice","txtGrp1Price","txtG1AccessoryPrice")
End Sub
'Assigns the Sub total of Accessory price in dynamic footer 2 section
Sub GrpDynamicFooter2_Format
AssignAccessorisedPrice("GrpDynamicFooter2","txtG2NAPrice","txtGrp2Price","txtG2AccessoryPrice")
End Sub
'Assigns the Sub total of Accessory price in dynamic footer 3 section
Sub GrpDynamicFooter3_Format
AssignAccessorisedPrice("GrpDynamicFooter3","txtNAPrice","txtGrp3Price","txtG3AccessoryPrice")
End Sub
'Assigns the Grant total of accessories price for the project
Sub grpSubTotal_BeforePrint
AssignAccessorisedPrice("grpSubTotal","txtProjectNAPrice","txtProjectPrice","txtprojectAccessoryPrice")
End Sub
'Calculates the Accesories price and assigns it in the correponding textbox control
Sub AssignAccessorisedPrice(groupFooterName As String,NAPriceTextbox As String,PriceTextBox As String, AccessoryPriceTexBox As String)
Dim priceNA As Double = Ctype(ReportUtilities.ReturnTextBoxValue(rpt,groupFooterName,NAPriceTextbox), Double)
Dim price As Double = Ctype(ReportUtilities.ReturnTextBoxValue(rpt,groupFooterName,PriceTextBox),Double)
Dim accesoryPrice As Double = price - priceNA
ReportUtilities.SetTextBoxValue(rpt,groupFooterName,AccessoryPriceTexBox,accesoryPrice.ToString())
End Sub |