calcbalance Method
Object: frmordhistory
Expand/Collapse source code of procedure calcbalance Source Code
LOCAL lnBalance, liSelect, liRecno

liSelect = SELECT()

SELECT history
liRecno = IIF(EOF(),0,RECNO())
SUM history.ord_total FOR !history.paid TO lnBalance
IF m.liRecno # 0
	GO m.liRecno
ENDIF
SELECT (liSelect)

RETURN lnBalance