Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: GPEXINSCR - Atualiza informações da empresa/filial

 

Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

 

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. 
Para que os demais registros sejam atualizados, deve-se usar o seguinte Ponto de Entrada: GPM400INSC http://tdn.totvs.com/x/GMNc
Obs: A partir da versão 12 o ponto de entrada(GPEXINSCR) foi substituído pelo GPM400INSC que está no fonte GPEM400.PRX.
 
Eventos
 
Programa Fonte
GPEXFUN.PRX
Sintaxe

GPEXINSCR - Atualiza informações da empresa/filial ( [ aInfo[] ] )

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 aInfo[]  Array of Record  Array que contém as informações da Empresa/Filial.          

 

Retorno
    ()
Observações
Dentro da função fInfo(), no fonte GPEXFUN.PRX, 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[ 24 ] , onde:

// 01 - Filial
// 02 - Reduz Filial
// 03 - Nome Completo
// 04 - Endereco Cobranca
// 05 - Cidade Cobranca
// 06 - Estado Cobranca
// 07 - Cep Cobranca
// 08 - Cgc Cobranca
// 09 - Insc Cobranca
// 10 - Telefone
// 11 - Fax Char 14
// 12 - Producao Rural Char 01  - "S" ou "N""
// 13 - Bairro Cobranca Char 20
// 14 - Compl. End. Cobranca Char 12
// 15 - Tipo de Inscricao Num 01  -  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 Municipio Char 07
// 20 - Natureza Juridica Char 04
// 21 - Data Base Pgto. RAIS Char 02
// 22 - N§ de Proprietarios Char 02
// 23 - Se Modificou Endere‡o Char 01  - "S" ou "N"
// 24 - Se Modificou INSC/CGC Char 01  - "S" ou "N"
// 25 - Causa da Mudan‡a Char 01
// 26 - INC./CGC Anterior Char 14
Exemplos
#include "rwmake.ch"User Function GPEXINSCR()if  SM0->M0_Codigo == "01" .and. SM0->M0_CODFIL == "01"aInfo[08] := '99999999999999'aInfo[15] := 2endif            Return(aInfo)
Variáveis

 

 Nome  Tipo  Escopo  Pode Alterar  descrição 
    Array of Record  Global  Não