Algumas vezes precisamos executar o gatilho de um determinado campo, já aprendemos a verificar se um gatilho existe aqui, vamos agora aprender a executar o gatilho

Para isso existe a função RunTrigger, ela é responsável por executar os gatilhos de um determinado campo. A documentação oficial pode ser encontrada aqui.

Sintaxe

RunTrigger( <nTipo>, <nLin>, <cMacro>, <oObj>, <cField> )

Parâmetros

Exemplo

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

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

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

//Para Enchoice
 If ExistTrigger(cCampo) // verifica se existe trigger para este campo
	RunTrigger(1,Nil,Nil,,cCampo)
Endif

//Para aCols
If ExistTrigger(cCampo) // verifica se existe trigger para este campo
    RunTrigger(2,n,nil,,cCampo)
Endif

Return( Nil )

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

Post interessantes:

Como verificar se campo possui gatilho 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!

O post Como executar o gatilho de um campo – RunTrigger apareceu primeiro em Sem Preju.

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!

O post Como verificar se existe gatilho para um campo – ExistTrigger apareceu primeiro em Sem Preju.

Documentação oficial aqui.

Conhecendo as novas tabelas quando temos o dicionário no banco:

• SIGAPSS – Se transformou nas tabelas com prefixo SYS_GRP (grupos), SYS_POL (políticas), SYS_RULES (regras de acesso) e SYS_USR (usuários);
• Menus xnu – Tabelas com prefixo MPMENU
• SIGAMAT.emp – Tabela SYS_COMPANY
• XX8 – Tabela SYS_COMPANY_CFG
• XX9 – Tabela SYS_COMPANY_CFGIT
• SIGAHLP – Tabela XB4
• Tabelas de Metadado – Mesmo nome no SQL
• Profile – MP_SYSTEM_PROFILE
• Workrole – MP_SYSTEM_WORKROLE
• Layouts do TOTVS Report – XB5

Tabelas relacionadas ao cadastro de Usuários:

• SYS_USR
• SYS_ACCESS
• SYS_ACCRESTRIC
• SYS_ACESSIB
• SYS_FILIAL
• SYS_GROUPS
• SYS_LOGCFG
• SYS_MODULE
• SYS_PANEIS
• SYS_PAPER
• SYS_PRINTER
• SYS_SSIGNON
• SYS_SUPER
• SYS_VINCFUNC

Não deixe de assinar a nossa newsletter e fica por dentro de todos os post.

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

Post interessantes:

Aprenda a instalar o Protheus aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

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

Obrigado e até a próxima!

O post Protheus nome novas tabelas ao migrar dicionário para banco apareceu primeiro em Sem Preju.