Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Criando gatilho com User Function para validar a execução em rotina especifica

Tempo aproximado para leitura:00:03:00 min

Dúvida
Como criar um gatilho para que seja executado apenas em uma rotina especifica?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80

Solução
As vezes existe a necessidade de um gatilho só poder ser executado em uma rotina especifica, para isso é necessário a criação de um gatilho chamando uma User Function e posteriormente validar se é exatamente a rotina que deverá ser executado.

Exemplo - Gatilho:

Fonte

#include 'protheus.ch'
#include 'parmtype.ch'

user function e5debito()

Local cConta := ''
Local n := 0

While ALLTRIM(PROCNAME(n)) <> ""

  If PROCNAME(n) == "FA100REC"

    cConta := '3.1.1 '

  ENDIF

  n+=1 

EndDo

return cConta 

Ou seja, neste exemplo, estamos utilizando a função ProcName para sabermos a origem da chamada. 

Saiba Mais
Procname
Gatilhos