CONTEÚDO

1. Visão Geral
2. Exemplo de utilização
3. Variáveis

01. VISÃO GERAL

Criação do ponto de entrada GPM610TP20, para alterar dados do registro tipo 20 do arquivo SEFIP.RE, de acordo com o tomador de serviço.

Poderá utilizar em conjunto o ponto de entrada GPM610TOM, que retorna o tipo e numero de inscrição do tomador.

Eventos

Gravação do Registro do Tomador, registro tipo 20.

Programa Fonte

GPEM610.PRX

Sintaxe

GPM610TP20 - Alteração de dados do registro tipo 20 ( ) --> Nill

Retorno

Nill

(qualquer)

Observações

Procedimento para implementação:
 

1) Criar no cadastro de centro d e custo (CTT),  via Configurador, campos para armazenar o FPAS, Outras Entidades, Simples, Alíquota Rat e C NAE-FISCAL. Criar também um campo que in forme que aquele tomador é o tomador que terá seus dados utilizados no registro tipo 20.

2) No ponto de entrada GPM610TP20, testar se existe o campo de usuário que informa que aquele centro de custo é o que tem que ser usado como filial.

3) Se e xistir este campo, colocar as informações correspondentes ao item 1, nas variáveis:

cFPAS_Tom   => FPAS do tomador; Caracter de 3             

cTerc_Tom      => Código de outras entidades; Caracter de 4           

cSimp_Tom     = > Simples; Caracter de 1; opções: 1= não optante; 2= optante

nRAT_TOM     = > Alíquota RAT do tomador;  Numérico de 7 e 3 decimais

cCnae_Tom     => CNAE do tomador; Caracter de 7

cNome_Tom   => Nome do Tomador; Caracter de 40

cEnder_Tom    => Endereço do Tomador; Caracter de 40

cBairro_Tom   => Nome do Tomador; Caracter de 20

cCep_Tom      => Nome do Tomador; Caracter de 8

cMunic_Tom    => Nome do Tomador; Caracter de 20

cEstado_Tom  => Nome do Tomador; Caracter de 2

02. EXEMPLO DE UTILIZAÇÃO

user function gpm610tp20()
If cFilial == "  " .Or. (cFil == "  "  .And. cFilial # "  ") .or. empty(cFil)
     cFil := cFilial
Endif
//posiciona o CTT 
CTT->( dbSeek( cFil+cCusto ) )
If CTT->CTT_USAFP A == "S" 		//Tipo caracter;  tamanho 1
    cFPAS_Tom	:= CTT->CTT_FPAS 	//Tipo caracter; Tamanho 3
    cTerc_Tom	:= CTT->CTT_TERC 	//Tipo caracter; Tamanho 4
    cSimp_Tom	:= CTT->CTT_SIMPLE 	//Tipo caracter; T amanho 1( 1= nao optante;2= optante)
    nRAT_TOM	:= CTT->CTT_ALQRAT	//Tipo numerico; 7 iteiros e 3 decimais
    cCnae_Tom	:= CTT->CTT_CNAE	//Tipo caracter; Tamanho 7
    cNome_Tom	:= CTT->CTT_NOME	//Tipo Caracter de 40
    cEnder_Tom	:= CTT->CTT_ENDER	//Tipo Caracter de 40
    cBairro_Tom	:= CTT->CTT_BAIRRO	//Tipo Caracter de 20
    cCep_Tom	:= CTT->CTT_CEP		//Tipo Caracter de 8
    cMunic_Tom 	:= CTT->CTT_MUNIC	//Tipo Caracter de 20
    cEstado_Tom	:= CTT->CTT_ESTADO	//Tipo Caracter de 2
EndIf
Return

No exemplo, 
o campo CTT->CTT_USAFPA é o campo que indica se aquele tomador é o que terá suas informações utilizadas no registro 10;
O campo CTT->CTT_FPAS corresponde ao FPAS;
O campo CTT->CTT_TERC corresponde ao código de outras entidades;
O campo CTT->CTT_SIMPLE corresponde ao Simples;
O campo CTT->CTT_ALQRAT corresponde a alíquota RAT;
O campo CTT->CTT_CNAE corresponde ao código CNAE;
O campo CTT->CTT_NOME corresponde ao Nome;
O campo CTT->CTT_ENDER corresponde ao Endereço;
O campo CTT->CTT_BAIRRO corresponde ao Bairro;
O campo CTT->CTT_CEP corresponde ao CEP;
O campo CTT->CTT_MUNIC corresponde ao Município;
O campo CTT->CTT_ESTADO corresponde ao Estado.

03. VARIÁVEIS

Outras Ações / Ações relacionadas