Tempo de leitura: 2 minutos
A função ConPad1 em ADVPL serve para abrir uma tela de consulta padrão(SXB). Ela é uma das Funções de Consultas Padrão(SXB) em ADVPL.
Existem situações em que necessitamos abrir uma tela de consulta padrão sem ter que clicar na lupa. Por exemplo, numa situação onde um determinado campo é preenchido e através de um Gatilho de Campos(SX7) podemos fazer a chamada da consulta padrão para ser mostrado uma tela onde o usuário poderá selecionar um registro da consulta padrão.
Para esse finalidade temos a função ConPad1 em ADVPL. Ao final da execução da função se o usuário tiver confirmado a consulta padrão o retorno será armazenado num array chamado aCpoRet e a quantidade de posições desse array dependerá da quantidade de retorno de campos da função ConPad1.
Sintaxe:
ConPad1(,,,cSXB,cExp,,lVisual,cExpPos)
Parâmetro(s):
Retorno:
Exemplo da função ConPad1 em ADVPL:
/*{Protheus.doc} User Function fConPad1
(Essa função tem por finalidade mostrar a função ConPad1 em ADVPL)
@?type Function
@?author Adilio Costa
@?since 12/04/2024
@?version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do Protheus:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function fConPad1()
Local aArea := FWGetArea()
Local cCodFor := "000001"
Local cLoja := "01"
Private cCodChave := cCodFor+cLoja
DBSelectArea("SA2")
SA2->(DBSetOrder(1)) //Filial + Código + Loja
//Mostra a consulta padrão de nome SA2 - Fornecedores(na SXB)
If (ConPad1(, , , "SA2"))
//Se a consulta foi confirmada, mostra o fornecedor selecionado
MsgInfo("O fornecedor selecionado foi:"+aCpoRet[1], "Função ConPad1")
EndIf
//Mostra a consulta padrão de nome SA2(na SXB) já posicionando no código do fornecedor cCodFor e loja do fornecedor cLoja
If(ConPad1(, , , "SA2", /*cCampoRet*/, /*lGet*/, /*lOnlyView*/,cCodChave))
//Se a consulta foi confirmada, mostra o fornecedor selecionado
MsgInfo("O fornecedor selecionado foi:" + aCpoRet[1], "Função ConPad1")
EndIf
FWRestArea(aArea)
Return
É isso aí, finalizamos aqui mais um post no Blog ProtheusAdvpl. Caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.
Link(s) de referência(s):