Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 e F6_CODPROD de acordo com o código de receita e sigla da UF da guia atualDETRECE, 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 e F6_CODPROD de acordo com o código de receita e sigla da UF da guia atualDETRECE, F6_CODPROD e F6_CODAREA de acordo com o código de receita e sigla da UF da guia atual. EndIf Return aParam |
Informações | ||
---|---|---|
| ||
O campo F6_CODAREA deve ser alimentado com valor apenas quando emissão de GNRE para o estado do Espirito Santo, pois este tem a particularidade de ser um ambiente a parte(especifico para o Estado do Espirito Santo) do ambiente nacional, que neste caso, exige a informação do código da área do serviço, de acordo com o código do serviço informado(Codigo da Receita). |
03. PRINCIPAIS CAMPOS E PARÂMETROS
Entrada:
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas