公式:FootRet
whileprintingrecords;global numbervar rtotal;
公式:Header
whileprintingrecords;
numbervar rtotal:=0;
公式:Detail
whileprintingrecords;
numbervar rtotal := rtotal +({命令.DrugNum}*{命令.RetailPrice});
公式:PrintRetailTotalPrice
WhilePrintingRecords;
Global numbervar rtotal;