SELECT jpanpmov
GOTO TOP
DO WHILE ! Eof()
RecLock()
REPLACE jpanpmov->amAnpNum WITH StrZero( nContador, 6 )
RecUnlock()
Acompanhei pelo debug, está executando essa linha de gravação.
Mas ao olhar o DBF... tá tudo vazio.

Moderador: Moderadores
SELECT jpanpmov
GOTO TOP
DO WHILE ! Eof()
RecLock()
REPLACE jpanpmov->amAnpNum WITH StrZero( nContador, 6 )
RecUnlock()
SELECT jpanpmov
GOTO TOP
WHILE ! Eof()
IF EOF()
APPEND BLANK // Novo registro.
ELSE // Alteracao de registro.
GOTO nRecno
ENDIF
RecLock()
REPLACE jpanpmov->amAnpNum WITH StrZero( nContador, 6 )
Commit
ENDDO
Unlock
jpanpmov->( DbGoTop() )
While jpanpmov->( ! Eof() )
jpanpmov->( RecLock() ) , ;
amAnpNum := StrZero( nContador, 6 ), ;
DbCommit(), ;
RecUnLock(), ;
DbSkip() ;
)
Enddo
// Ou
jpanpmov->( DbGoTop(), DbEval( { ||amAnpNum := StrZero( nContador, 6 ) } ), DbCommit() )
Marcos Kieron escreveu:O nome do campo está complicado demais
Sugiro fazer o seguinte:Usar nomes simples, fáceis e óbvios.
Marcos Kieron escreveu:Deletar o Ãndice, reconstruir o NTX ou CDX ou NDX que estiver usando
Resetar o computador ou melhor ainda, não usar DBF, use SQLite, MySQL, Postgress, etc...
qualquer coisa que não seja DBF vai ser melhor
Kapiaba escreveu:Bom dia Marcos, tens um exemplo simples de uso da SQLite?? Obg. abs.
Kapiaba escreveu:SQLite é para Harbour MiniGUI Lights? Não conheço e não uso. Uso Fivewin. Mesmo assim agradeço Marcos.
Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes