INDEX ON NumDoc TAG TAG1 && ACTIVE SELECT docToRecal SCAN RECALL NEXT 1 WHILE SEEK(docToRecal.NumDoc) IN LinhaFac ENDSCAN* if RECCOUNT(docToRecal)/RECCOUNT(LinhaFac)<1
SELECT docToRecal INDEX ON NumDoc TAG TAG2 RECALL FOR DELETED() AND KEYMATCH(NumDoc,1,'docToRecal') IN LinhaFacFabio