Histórico da Página

...

Produto:

Solucoes_totvs_cross

SolucaoCross	TOTVS Backoffice

Linha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Serviços

Módulo:

Livros Fiscais - SIGAFIS

Função:

MATA960.PRX

GNREXMLENV.PRW

FISA095SPEDFISCAL.PRW

FISXAPUR.PRX

País:

Brasil

Ticket:

9452424

Requisito/Story/Issue (informe o requisito relacionado) :

DSERFIS1-26054

...

Foram implementados os seguintes pontos:

Criação de campo F6_CODAREA, para que o cliente possa informar o Codigo da Area referente ao Codigo de Receita(F6_CODREC) no caso especifico da geração do XML para o metodo de envio para a SEFAZ do Espirito Santo;

Adequação do Ponto de Entrada MA960GREC, para que o mesmo tenha

...

também a possibilidade de carregar o campo F6_CODAREA automaticamente a Geração de GUIA tanto via operação quanto apuração.

Bloco de código

language	delphi
theme	Midnight
firstline	1
title	Exemplo Ponto de Entrada
linenumbers	true

#include "protheus.ch" 
 
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MA960GREC
Ponto de Entrada para preenchimento dos campos F6_TIPOGNU, F6_DOCORIG, F6_DETRECE e F6_CODPROD de acordo com o código de receita e UF.
 
@author 
@since 
/*/
//-------------------------------------------------------------------
User Function MA960GREC()
 
    Local aParam   := {0, '', '', 0, ''} //Parâmetros de retorno default
    Local cReceita := PARAMIXB[1]    //Código de Receita da guia atual
    Local cUF      := PARAMIXB[2]    //Sigla da UF da guia atual
 
    If Alltrim(cReceita) $ '100099' .And. cUF $ 'RJ' //Valida o Código de Receita e sigla da UF da guia atual
        aParam := {24, '2', '', 7, ''}          //Retorna os campos F6_TIPOGNU, F6_DOCORIG, F6_DETRECE, F6_CODPROD e F6_CODAREA de acordo com o código de receita e sigla da UF da guia atual.
    EndIf
 
    If Alltrim(cReceita) $ '1260' .And. cUF $ 'ES' //Valida o Código de Receita e sigla da UF da guia atual
        aParam := {24, '2', '', 7, '5'}          //Retorna os campos F6_TIPOGNU, F6_DOCORIG, F6_DETRECE, F6_CODPROD e F6_CODAREA de acordo com o código de receita e sigla da UF da guia atual.
    EndIf
Return aParam

Criação de Tabela Genérica WH - Amarração Cod. Area X Cod. Serviço, para que o usuário também tenha a possibilidade de carregar o campo F6_CODAREA automaticamente a Geração de GUIA tanto via operação quanto apuração.

Adequação quanto a códigos de municípios do Espirito Santo, por serem especifico para aquela estado e no caso diferentes do código de municípios do IBGE.

04. DEMAIS INFORMAÇÕES

DT PE MA960GREC para Configuracoes da UF GNRE - Linha Microsiga Protheus - TDN (totvs.com)

...

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão 3

Chave

04. DEMAIS INFORMAÇÕES