Código: Selecionar todos
if cdpar000->dtfsint < date() // a referida variável guarda o último dia do mês
if !ecf_sintegra() // rotina particular que captura os dados da mfd do ecf
alert("Informacoes do Sintegra não foram capturadas !")
else
cdpar000->(rlock())
repl cdpar000->dtfsint with eom(date()) // variável vai guardar o último dia do mês
repl cdpar000->dtisint with bom(date()) // variável vai guardar o primeiro dia do mês
cdpar000->(dbcommit())
cdpar000->(dbunlock())
endif
endif
