PC Toledo

Boa Tarde
Amigos

Fiz esta rotina, mas não consigo mostar a mensagem de que é final de arquivo, ou o cogido solicitado não foi encontrado, por favor onde estar o erro?

Desde ja agradeço mais uma vez
Gde abraço

Case LastKey() = -2
* Localizar
Mensagem('Codigo Os :')
Set Curs On
wNroOrd:=Space(08)
@ 23,15 Get wNroOrd Pict '99999999'
Read
Clea Gets
Set SoftSeek On
wChave:=wNroOrd
Seek wChave
Set SoftSeek Off
If Eof()
Alert('Os Nao localizada...Tecle [ENTER]')
Inkey(0)
Mensagem('Selecione Opcao')
Return(2)
Endif
Mensagem('Selecione Opcao')
Return(2)

Amigo, quando SET SOFTSEEK ON o sistema fara a busca com o que tiver em wNroOrd, se não encontrar, para no próximo registro e não em EOF(), a não ser que não haja mais nada no banco.

EXEMPLO: veja os registros do campo no banco de dados
001
002
004
Caso seja feita uma procura por 003 (nao existe no banco) o ponteiro ficara posicionado em 004 e não em EOF().

Para que a busca pare em EOF() caso nao encontre o que deseja, use SET SOFTSEEK OFF.

Ate+

Apenas complementando,

Se por alguma razão for necessário usar o SoftSeek ON no seu caso, troque o If Eof() por If !Found().

Bom Dia!
Amigos


Endendi e fiz as mudanças, deu certo, resolvi o meu problema.

Atenciosamente.