CREATE cursor acmast (accode n(6), acname c(50),opamt n(10,2))
SELECT acmast
INSERT INTO acmast (accode,acname,opamt) VALUES (1, 'party name 1', 54200)
INSERT INTO acmast (accode,acname,opamt) VALUES (2, 'party name 2', 54200)

CREATE cursor sales (idno n(6), billno c(6), billdt d, accode n(6), qty n(7,2), amt n(10,2))
INSERT INTO sales (idno, billno , billdt , accode , qty , amt ) VALUES (1, 'aa/101', DATE(2011,4,04),1,22,509)
INSERT INTO sales (idno, billno , billdt , accode , qty , amt ) VALUES (2, 'aa/102', DATE(2011,4,04),2,22,509)
INSERT INTO sales (idno, billno , billdt , accode , qty , amt ) VALUES (3, 'aa/103', DATE(2011,4,14),1,28,852)
INSERT INTO sales (idno, billno , billdt , accode , qty , amt ) VALUES (4, 'aa/104', DATE(2011,4,04),2,22,509)
INSERT INTO sales (idno, billno , billdt , accode , qty , amt ) VALUES (5, 'aa/105', DATE(2011,4,24),1,18,654)


SELECT sales.billno,sales.billdt, sales.accode, acmast.acname, acmast.opamt, sales.qty, sales.amt ;
FROM sales ;
LEFT JOIN acmast ON sales.accode=acmast.accode INTO CURSOR tempcurs READWRITE 

SELECT T1.BillNo, T1.BillDt, T1.AcCode, AcName, ;
IIF(T1.BillDt = T2.BillDt, CAST(T1.OpAmt as C(12)), SPACE(12)) as OpAmt, ;
T1.Qty, T1.Amt ;
from TempCurs T1 INNER JOIN (select AcCode, MIN(BillDt) as BillDt ;
from TempCurs GROUP BY AcCode) T2 on T1.AcCode = T2.AcCode ;
into cursor TempCurs ReadWrite 

BROWSE