SELE 1
USE CR0A01
SET FILTER TO SALCRE>0.02
GOTO TOP
SELE 2
USE CR0A06
INDEX ON CODOFI+CODIDE+NUMCRE TO CR06
SELE 3
USE \GENESIS\BASIDE\GE0A01
INDEX ON LIBELE TO GE01
SELE 1
GOTO TOP
DO WHILE .NOT. EOF()
   KEY=CODOFI+CODIDE+NUMCRE
   SELE 3
   SEEK A->LIBELE
   CODE=CODEMP
   SELE 2
   SEEK KEY
   DO WHILE .NOT. EOF() .AND. CODOFI+CODIDE+NUMCRE=KEY
      REPLA CODEMP WITH CODE
      SKIP +1
   ENDD
   SELE 1
   REPLA CODEMP WITH CODE
   SKIP +1
ENDD
CLOSE ALL
RETURN