Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. DADOS GERAIS

Produto:

Solucoes_totvs_cross
SolucaoCrossTOTVS Backoffice

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoServiços

Módulo:Livros Fiscais - SIGAFIS
Função:

MATA960.PRX

GNREXMLENV.PRW

FISA095.PRW

FISXAPUR.PRX

País:Brasil
Ticket:9452424
Requisito/Story/Issue (informe o requisito relacionado) :DSERFIS1-26054


02. SITUAÇÃO/REQUISITO

Adequar o módulo Fiscal para geração e transmissão da GNRE WS (DUA-Documento Único de Arrecadação) do estado do Espírito Santo-ES.

03. SOLUÇÃO

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
languagedelphi
themeMidnight
firstline1
titleExemplo Ponto de Entrada
linenumberstrue
#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)

Eesefaz DUA

05. ASSUNTOS RELACIONADOS

         Não há.

HTML
<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>