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.
