<< Click to Display Table of Contents >> Navigation:  Quoting > Quote Calculations > Discounts and Markups > Quote Reports: How to show Charges

Freight Charge is straightforward as it is not discounted or marked up.

 

For both Other Charges and Programming Charge, use a label with an OnGetText Calculation that looks like:

 

 

procedure lblProgrammingChargeOnGetText(var Text: String);

var

  prog :  double;

begin

  prog := (1.0 - tblWorkorder['TotalDiscount']) * tblWorkorder['ProgrammingCharge'] ;

  Text := formatFloat('$#,0.00;-$#,0.00', prog);

end;  

 

 

procedure lblOtherChargesOnGetText(var Text: String);

var

  prog :  double;

begin

  prog := (1.0 - tblWorkorder['TotalDiscount']) * tblWorkorder['OtherCharges'] ;

  Text := formatFloat('$#,0.00;-$#,0.00', prog);

end;