Linha Microsiga Protheus

Árvore de páginas

 

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:


 1 - Filial
 2 - Reduz Filial
 3 - Nome Completo
 4 - Endereço Cobrança
 5 - Cidade Cobrança
 6 - Estado Cobrança
 7 - CEP Cobrança
 8 - CGC Cobrança
 9 - Insc Cobrança
10 - Telefone
11 - Fax Char 14
12 - Produção Rural  ( S" ou "N" )
13 - Bairro Cobrança - Char 20
14 - Compl. End. Cobrança - Char 12
15 - Tipo de Inscrição  ( 1-CEI, 2-CGC, 3-CPF, 4-INCRA )
16 - CNAE - Char 05
17 - FPAS - Char 04
18 - Acid. de Trabalho - Char 08
19 - Código Município - Char 07
20 - Natureza Jurídica - Char 04
21 - Data Base Pgto. RAIS - Char 02
22 - N§ de Proprietários - Char 02
23 - Se Modificou Endereço ( "S" ou "N" )
24 - Se Modificou INSC/CGC ( "S" ou "N" )
25 - Causa da Mudança - Char 01
26 - INC./CGC Anterior - Char 14
27 - CEI
28 -  Tipo de Inscrição (1 = CEI, 2 = CGC) 

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