SELE 1
USE CR0A01
SET FILTER TO CODEMP#"   "
GOTO TOP
REPLA ALL EVALUA WITH "003" FOR CODEMP="100100"
REPLA ALL EVALUA WITH "003" FOR CODEMP="100101"
REPLA ALL EVALUA WITH "004" FOR CODEMP#"100101" .AND. CODEMP#"100100"
SELE 2
USE CR0A06
SET FILTER TO CODEMP#"   "
GOTO TOP
REPLA ALL EVALUA WITH "003" FOR CODEMP="100100"
REPLA ALL EVALUA WITH "003" FOR CODEMP="100101"
REPLA ALL EVALUA WITH "004" FOR CODEMP#"100101" .AND. CODEMP#"100100"