Perguntas Dúvida while

Bom dia pessoal, estou fazendo um relatório e num determinado trecho do código, o while está dando loop infinito. Já quebrei a cabeça e não consigo ver o erro. Alguém pode me ajudar?

Obrigado,


DO WHILE _cARQTMP3->(!Eof())
DBSELECTAREA("TEMPO")
DBAPPEND()
IF !EMPTY(_cARQTMP3->D2_DOC)
_FIELD->DTSAIDA :=_cARQTMP3->D2_EMISSAO
_FIELD->SERIESAID :=_cARQTMP3->D2_SERIE
_FIELD->NFSAIDA :=_cARQTMP3->D2_DOC
_FIELD->QTDESAIDA :=_cARQTMP3->D2_QUANT
_FIELD->VUNITSAID :=_cARQTMP3->D2_PRCVEN
_FIELD->TESSAIDA :=_cARQTMP3->D2_TES
_FIELD->SUBLOTESA :=_cARQTMP3->D2_NUMLOTE
ENDIF

DBSELECTAREA("_cARQTMP3")
DBSKIP()
ENDDO

Quando você executa esse comando:
DBSELECTAREA("_cARQTMP3")
Ele volta para o inicio do arquivo.

O ideal seria gravar o Recno do registro corrente antes de mudar a área para o append, e após o DBSELECTAREA("_cARQTMP3") utilizar uma dbgoto(recno) para posicionar a tabela no lugar certo.
Abraço!

Olá Kanaãm.

Desculpe a ignorância, mas não trabalho com programação frequentemente e me perco nesses detalhes, mas poderia me explicar melhor?

Leandro,
Dei uma olhada melhor no seu código e dá para resolver de uma forma bem mais simples.

Deveria ficar mais ou menos assim:

dessa forma você não precisa setar a área antiga, pois toda vez que você dá um selectarea, o arquivo é posicionado no inicio, portanto o que estava acontecendo era:
faz append
volta o _cARQTMP3 para o 1º registro
da um skip e vai para o 2º e entra no loop
depois faz tudo de novo, por isso estava em loop infinito.
tenta dessa forma que eu coloquei e veja se dá certo
Abraço!

Ainda continua em loop.