Ponto de entrada GPEXINSCR
Ponto de entrada na Função fInfo para alterar as informações da Empresa e Filial
Linha de Produto: | Microsiga Protheus |
Segmento: | Recursos Humanos |
Módulo: | SIGAGPE |
Tickets relacionados | 731542 |
Requisito/Story/Issue (informe o requisito relacionado): | DRHPAG-2883 |
Pacotes: | 12.1.7: https://suporte.totvs.com/portal/p/10098/download?e=596686 12.1.14: https://suporte.totvs.com/portal/p/10098/download?e=581330 12.1.16: https://suporte.totvs.com/portal/p/10098/download?e=581331 |
Descrição
Ponto de Entrada criado após a criação do array com os dados da empresa/filial, que permite a alteração das informações da empresa/filial.
Dentro da função fInfo() foi adicionado um Ponto de Entrada que permite alterar os dados que estão dentro do array da Empresa/Filial.
A alteração efetuada será válida todas as vezes em que for utilizada a rotina FINFO(), que carrega as informações da Empresa/Filial.
O array modificado é o aInfo[ 28 ] , onde:
Ponto de Entrada
Exemplo:
#include 'protheus.ch'
#include 'parmtype.ch'
User Function GPEXINSCR()
If SM0->M0_Codigo == "T1" .and. AllTrim(SM0->M0_CODFIL) == "D MG 01"
aInfo[28] := 1 // CEI
aInfo[27] := '99999999999999' // Nº CEI
ElseIf SM0->M0_Codigo == "T1" .and. AllTrim(SM0->M0_CODFIL) == "D RJ 01"
aInfo[28] := 2 // CGC
aInfo[08] := '88888888888888' // Nº CGC
Endif
Return