Como verificar se existe gatilho para um campo – ExistTrigger

Olá pessoal

Algumas vezes precisamos verificar se um determinado campo possui gatinho, já sabemos que realizar um seek nas tabelas de dicionário deve ser evitado, então como realizar essa consulta?

Para isso existe a função ExistTrigger , ela verificar se para determinado campo possui gatilhos no SX7e devolve True quando possuir ou False quando não possuir

Sintaxe

ExistTrigger( <cCampo> )

Parâmetros

Necessário informar somente o nome do campo.

Exemplo

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"

#Define ENTER Chr(13)+Chr(10)

/*/{Protheus.doc} SPEXISTG
Função SPEXISTG, para exemplificar o uso da Função ExistTrigger().
@param Não recebe 
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Dez|2020
/*/
User Function SPEXISTG()
Local cCampo := 'A1_CGC'

If ExistTrigger( cCampo )
    MsgInfo( 'Campo: ' + cCampo + ENTER + "Possui Gatilho.", 'SemPreju' )
else
    MsgInfo( 'Campo: ' + cCampo + ENTER + "Não Possui Gatilho.", 'SemPreju' )
Endif
Return

Returno deverá ser semelhante a imagem abaixo:

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!