Tempo de leitura: 1 minuto
Olá, no post de hoje iremos falar de uma das Funções de Gatilhos(SX7)em ADVPL, a função ExistTrigger. Essa função tem por objetivo verificar se existe um gatilho(SX7) para o campo que informamos no parâmetro.
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 em ADVPL:
#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"
#include "tbiconn.ch"
#DEFINE CRLF Chr(13)+Chr(10)
/*{Protheus.doc} User Function fExisTrig
(Essa função tem por finalidade mostrar a função ExistTrigger em ADVPL/TL++ do TOTVS Protheus)
@type Function
@author Adilio Costa
@since 27/09/2022
@version Protheus 12.1.2210
@site https://www.protheusadvpl.com.br
@canal https://www.youtube.com/protheusadvpl
@instagram https://www.instagram.com/protheusadvpl
@Portal ProtheusAdvpl:https://hotmart.com/pt-br/marketplace/produtos/portal-protheusadvpl/O10336806O
@Post:ExistTrigger
*/
User Function fExisTrig()
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 ta SX7
If(ExistTrigger(cCampo))
MsgAlert("O campo "+cCampo+" possui gatilho na SX7")
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:
