LOCAL lnCount, lnSum

STORE 0 TO lnCount, lnSum

SELECT d.InvDate, d.InvNo, d.INo, d.CPU, d.Qty, d.LocCode ;
FROM tblP_InvDetails d ;
ORDER BY InvDate DESC ;
INTO CURSOR csrInvoice
BROW

SELECT * FROM CSRINVOICE

SELECT p.InvNo, p.InvDate, p.INo, p.CPU, p.Qty, v.Qty AS StockQty ;
FROM csrValuation v, csrInvoice p ;
WHERE v.INo == p.INo AND v.LocCode == p.LocCode ;
ORDER BY InvDate DESC ;
INTO CURSOR csrInvoice

SELECT * FROM csrInvoice ;
GROUP BY InvDate, INo ;
HAVING THIS.Include(Qty, StockQty, @lnCount, @lnSum) ;
ORDER BY InvDate, INo desc;
INTO CURSOR csrInvoice


PROCEDURE Include
LPARAMETER tnPQty, tnQty, tnCount, tnSum

tnSum = tnSum + tnPQty

IF tnSum > tnQty
	tnCount = tnCount + 1
	IF tnCount > 1
		RETURN .F.
	ENDIF
ENDIF

RETURN .T.

ENDPROC