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.
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas