Perguntas Dúvida com o DbSeek

Bom dia,

Sou iniciante em advpl e estou tentando realizar uma busca de dados em uma tabela teste.dbf que criei.
Criei uma tela onde o usuário digita um código e depois gostaria de realizar a pesquisa nessa tabela para localizar esse código.

Quando usei o dbseek passando o parâmetro diretamente, funcionou!
Agora quando tento passar o parâmetro "nValor" recebido na função, não está retornando nada.
O que pode estar errado?
Dessa forma não funcionou.

Antecipadamente Agradeço!

Bom dia Alex,

verifique se o conteúdo da variável nValor está vindo.
Depois utilize o comando cValToChar() para converter para string e o Alltrim() para retirar os espaços em branco.

Ficando assim:

User Function pesBD(nValor, cMensagem)
dbSelectArea("XXX")
dbSetOrder(1)
dbGoTop()

msgAlert(nValor)

IF dbSeek(AllTrim(cValToChar(nValor)))
cMensagem = XXX->DS_PRODUTO
ELSE
cMensagem = "Produto não encontrado!"
ENDIF
Return

Att
Thales

Thales,

Funcionou certinho!
Valeu pela ajuda!

e um Feliz Natal!