Problema com DBF danificado apos queda de energia!

[rochinha]

Amiguinho

O campo que vc esta gravando o novo codigo é um campo usado em chave de indice?

Se for é por isto que da este erro.

Faça assim:

-faça um SEEK do cupom como vce ja vem fazendo
-guarde o RECNO e o INDEXORD em variaveis:
MyRECNO := recno()
MyORDER := indexord()
-De um ORDSETFOCUS(0)
-De um GO MyRECNO
-De um REPLACE do novo numero de cupom
-Retorne a ordem anterior com ORDSETFOCUS(MyORDER)

Veja se resolve.

@braços :?)