>select Lit_LosFK, Lit_Date ; > from LOSSITEM ; > where str(Lit_LosFK, 6) + dtos(Lit_Date) in ; > (select PADR(str(Lit_LosFK, 6),6) + min(dtos(Lit_Date)) from LOSSITEM group by Lit_LosFK) ; > group by 1, 2 ; > into cursor curFIRSTLOSSPAYMENT1 nofilter > >>
CREATE CURSOR CONTDB (cField C(10),iField I,lField L, dField D) INSERT INTO CONTDB VALUES ('',1,.t.,DATE()) INSERT INTO CONTDB VALUES ('',0,.f.,DATE()) INSERT INTO CONTDB VALUES ('VOSS',3,.t.,DATE()) INSERT INTO CONTDB VALUES ('VOSS1',2,.f.,DATE()) INDEX ON STR(iField,iField) TAG TT SET EXACT OFF CLEAR COUNT FOR STR(iField,iField)='VOSS' ? _TALLY SET ORDER TO COUNT FOR STR(iField,iField)='VOSS' ? _TALLY COUNT NOOPTIMIZE FOR 'VOSS'=STR(iField,iField) ? _TALLY SET ANSI OFF =SYS(3054,11) SELECT COUNT(*) FROM CONTDB WHERE 'VOSS' = STR(iField,iField) INTO ARRAY xxx ? xxx SELECT COUNT(*) FROM CONTDB WHERE STR(iField,iField) = 'VOSS' INTO ARRAY xxx ? xxxFabio