Tempo de leitura: 2 minutos
A função ExistTrigger em ADVPL verifica se existe um gatilho(SX7) de um determinado campo(SX3) informado no parâmetro. Ela é uma das Funções de Manipulação de Gatilhos de Campos(SX7) em ADVPL.
Esse processo de verificar a existência de um gatilho(SX7) ajuda em certos tipos de customizações que fazemos no TOTVS Protheus, como por exemplo numa importação de uma planilha(.csv) onde preenchemos um array aCols de uma tela de grid, nesse caso como os processo de inserção das informações não é de forma padrão pelo Protheus e sim de uma planilha, os gatilhos dos campos não serão disparados, sendo necessário utilizar a função ExistTrigger para verificar a existência do gatilho e a função RunTrigger para execução desse gatilho.
Sintaxe:
ExistTrigger(cCampo)
Parâmetro(s):
Retorno:
Exemplo da função ExistTrigger em ADVPL:
/*{Protheus.doc} User Function fExisTri
(Essa função tem por finalidade mostrar a função ExistTrigger em ADVPL)
@?type Function
@?author Adilio Costa
@?since 27/09/2022
@?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 fExisTri()
Local cCampo := 'A1_CGC'
//Abro o ambiente
//RpcSetType(3)
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT"
//Verifica se o campo A1_CGC possui gatilho na está SX7
If(ExistTrigger(cCampo))
FWAlertInfo("O campo "+cCampo+" possui gatilho na SX7","Função ExistTrigger")
Else
MsgAlert("O campo "+cCampo+" não possui gatilho na SX7")
EndIf
Return
Bem, finalizamos mais um post aqui no blog. Espero que tenha entendido, se tiver ficado alguma dúvida deixe seu comentário ou nos mandar um e-mail para adiliocosta@protheusadvpl.com.br. Grande abraço e fica com Deus.
Link de referência:
