Bom dia comunidade!

Quando ocorre pique de energia meu sistema perde todos os registros incluídos deste sua execução. Ele trabalha com tabelas livres (.dbf) que são abertas ao iniciar e fechadas ao sair do sistema e o buffermode nos formulários é 0. Vejam um pedacinho de código:

SELECT ItemLoc
SEEK cCodMov + curItens.CodItem ORDER CodMovItem
IF !FOUND()
APPEND BLANK
ENDIF
TravaReg()
REPLACE CodMov WITH cCodMov, CodItem WITH curItens.CodItem,;
codprod WITH curItens.codprod, Retirada WITH dData,;
Devolucao WITH curItens.Devolucao
UNLOCK

Sei que neste caso é praticamente impossível que não se perca nenhum registro, mas perder o trabalho de um dia inteiro não dá. Alguém sabe o que pode ser feito para pelo menos diminuir a perda de registros.

Grato,

Leandro.