Como chamar uma Consulta Padrão via código fonte AdvPL

No artigo de hoje, vamos demonstrar como chamar uma tela de Consulta Padrão, diretamente via código AdvPL.

O recurso de consulta padrão é acionado em campos com o ícone de uma lupa na direita, sendo que a tela é aberta ao pressionar o atalho F3 ou clicar nessa lupa.

Porém, às vezes precisamos fazer alguma customização em AdvPL, e há a necessidade de fazer a chamada direto via código fonte, então como podemos proceder?

No caso, basta acionarmos a função ConPad1, passando o nome da consulta padrão (cadastrada no Configurador – tabela SXB).

Abaixo um exemplo, mostrando a consulta de produtos.

//Abre a tabela de produtos, e mostra a consulta padrão de nome SB1
DbSelectArea("SB1")
If ConPad1(, , , "SB1")
	
	//Se a consulta foi confirmada, mostra o produto selecionado
	MsgInfo("Produto selecionado foi " + SB1->B1_COD, "Atenção")
	
EndIf

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan Atilio (Daniel Atilio)
Especialista em Engenharia de Software pela FIB. Entusiasta de soluções Open Source. E blogueiro nas horas vagas.

Deixe uma resposta