Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagejava
themeMidnight
titleTMF60GAT
#INCLUDE "PROTHEUS.CH"

User Function TMF60GAT()
Local oStru := ParamIXB[1]
Local aRet  := {}
Local aAux  := {}

If oStru:aTable[1] == "SDG"
	aAux := (FwStruTrigger("DG_CODDES",; // Campo de DominioDomínio
						"DG_BANCO" ,; // Campo de ContraDominioContradomínio
						"'CX1'",; // Regra de Preenchimento
						,; // Se posicionara ou não antes da execução do gatilhos (Opcional)
						,; // Alias da tabela a ser posicionada (ObrigatorioObrigatório se lSeek = .T.)
						,; // Ordem da tabela a ser posicionada (ObrigatorioObrigatório se lSeek = .T.)
						,; // Chave de busca da tabela a ser posicionada (Obrigatorio se lSeek = .T)
						)) // Condição para execução do gatilho (Opcional)
	Aadd(aRet,aAux)

	aAux := (FwStruTrigger("DG_CODDES" ,; // Campo de DominioDomínio
						"DG_AGENCIA",; // Campo de ContraDominioContradomínio
						"'00001'",; // Regra de Preenchimento
						,; // Se posicionara ou não antes da execução do gatilhos (Opcional)
						,; // Alias da tabela a ser posicionada (ObrigatorioObrigatório se lSeek = .T.)
						,; // Ordem da tabela a ser posicionada (ObrigatorioObrigatório se lSeek = .T.)
						,; // Chave de busca da tabela a ser posicionada (ObrigatorioObrigatório se lSeek = .T)
						)) // Condição para execução do gatilho (Opcional)
	Aadd(aRet,aAux)
Endif

Return aRet
   

...