SCAN FOR INDEXSEEK(id_client + dte, .T., "matponde", "cle") lcCle = id_client + dte SELECT matponde COPY TO (m.tcPathDest + "TmpMatPonde.dbf") WHILE m.lcCle = inst + transit + LEFT(DTOS(dt_prod),6) INSERT INTO res SELECT * FROM (m.tcPathDest + "TmpMatPonde.dbf") USE IN (SELECT("tmpmatponde")) SELECT (m.tcCurTransit) ENDSCANIt has been slightly faster than doing something like this
SELECT (m.tcCurTransit) SCAN FOR INDEXSEEK(id_client + dte, .T., "matponde", "cle") lcCle = id_client + dte SELECT matponde SCAN WHILE inst + transit + LEFT(DTOS(dt_prod),6) = m.lcCle SCATTER MEMVAR INSERT INTO res FROM ARRAY MEMVAR ENDSCAN SELECT (m.tcCurTransit) ENDSCANI know the "FROM ARRAY MEMVAR" clause seems weird but "FROM MEMVAR" was leaving the field blank.