function hrbmain()
set excl on

sele 1
use sf_fatf
index on pfnum to xEnts
sele 2
use se_movnf
set relation to mfnum into sf_fatf
repl all mdata with sf_fatf->pfdatache for mfges="E".and.sf_fatf->pfnum=mfnum
repl all pcfop with "1403" for pcfop="1401"
repl all pcfop with "1403" for pcfop="1402"
repl all pcfop with "1102" for pcfop="1103"
repl all pcfop with "1656" for pcfop="1652"
repl all pcfop with "2403" for pcfop="2401"
repl all pcfop with "1102" for pcfop="1106"
repl all pcfop with "2102" for pcfop="2106"
repl all pcfop with "2102" for pcfop="2105"
repl all pcfop with "2102" for pcfop="2108"
close all
use sf_fatf
repl all fcodop with "2.403" for fcodop="2.401"
repl all fcodop with "2.403" for fcodop="2.402"
repl all fcodop with "1.656" for fcodop="1.652"
repl all fcodop with "1.403" for fcodop="1.401"
repl all fcodop with "2.102" for fcodop="2.105"
repl all fcodop with "2.102" for fcodop="2.106"
repl all fcodop with "2.102" for fcodop="2.108"
repl all fcodop with "1.102" for fcodop="1.106"
repl all fcodop with "1.102" for fcodop="1.103"
close all

alert("Concluido")

return