Abre a tela de pesquisar registro

Exemplo da Rotina:

AxPesqui()

Exemplo 1- Pegando a quantidade de uma tabela:

//Abre o cadastro de produtos, e chama a pesquisa
DbSelectArea("SB1")
nPesq := AxPesqui()

//Se a Pesquisa foi confirmada, mostra o produto escolhido
If nPesq == 1

	Alert("Produto escolhido foi " + SB1->B1_COD)
	
EndIf

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN