01. DADOS GERAIS

Linha de Produto:Linha Protheus
Segmento:SIGAFIS - Livros Fiscais
Módulo:Livros Fiscais - SIGAFIS


02. DESCRIÇÃO

Inclusão do ponto de entrada GDEBESP, no fonte MATA953.prx, para possibilitar a Geração de Títulos e Guias separadas para o mesmo Código de Ajuste da Apuração de ICMS.

03. ESPECIFICAÇÃO

Pré-requisitos:

No cadastro de lançamentos manuais da apuração de ICMS (MATA964) deve ser informado "1 - Sim" para o código de ajuste correspondente:

O tamanho do campo CDH_GNREF3, da tabela CDH deve ser configurado para 18 caracteres.

Parâmetros do ponto de entrada:

NomeTipoDescrição
PARAMIXB[1]Carácter

Linha de referência da apuração

PARAMIXB[2]CarácterDescrição do Débito especial
PARAMIXB[3]NúmeroValor total apurado para o código de lançamento
PARAMIXB[4]CarácterCódigo de lançamento

Retorno:

O ponto de entrada deve retornar um array bidimensional, ou um array vazio caso não tenha códigos a serem separados.

NomeTipoDescrição
aGuias[1,1]CarácterCódigo de lançamento
aGuias[1,2]NúmeroValor da guia



O sistema espera um array bidimensional com todas as referências de guia que devem ser geradas separadas. 

Sempre a primeira posição deve ser o Código de lançamento e a segunda o valor da guia.
Caso algum código de lançamento não seja tratado no ponto de entrada gerando um retorno vazio, o ponto de entrada será ignorado.

Abaixo segue exemplo simples de utilização do Ponto de Entrada.

04. EXEMPLO DE UTILIZAÇÃO


#INCLUDE "PROTHEUS.CH"

user Function GDEBESP()

Local cLinha    := PARAMIXB[1] // linha de referência
Local cDescDEsp := PARAMIXB[2] // Descrição do Débito Especial
Local nValTot   := PARAMIXB[3] // Valor total do Débito Especial
Local cCodLan   := PARAMIXB[4] // Código de lançamento
Local nValGuia  := 0
Local nX         := 0
Local aGuias    := {}

    if AllTrim(cCodLan) == "AM051002"
        for nX := 1 to 2
            nValGuia := nValTot / 2
            aAdd(aGuias,{ cCodLan, nValGuia})
        next
    elseif AllTrim(cCodLan) == "AM159999"
        for nX := 1 to 2
            nValGuia := nValTot / 2
            aAdd(aGuias,{ cCodLan, nValGuia})
        next
    endif    
Return aGuias
// O Sistema espera um array bidimensional com a informação do codigo de lançamento e do valor para cada guia. Caso o Codigo de lançamento não seja tratado no ponto de entrada
// o sistema faz o tratamento comum.



05. DEMAIS INFORMAÇÕES

Não se Aplica.

06. ASSUNTOS RELACIONADOS

Apuração ICMS

https://tdn.totvs.com/x/NIUlE



<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;
}
</style>