function hrbmain()
set excl on

use sf_fatnf
repl all fdataref with fdataemi for day(fdataref)=0
repl all fcodop with "1904" for fcodop="1657"
repl all fcodop with "1656" for fcodop="1652"
close all

use se_movnf
repl all pcfop with "1904" for pcfop="1657"
repl all pcfop with "1656" for pcfop="1652"
close all

alert("Concluido")

return