Histórico da Página

...

Linha de Produto:	Microsiga Protheus®
Segmento:	Serviços
Módulo:	Fiscal

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:

Image Added

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

Image Added

Parâmetros do ponto de entrada:

Nome	Tipo	Descrição
PARAMIXB[1]	Carácter	Linha de referência da apuração
PARAMIXB[2]	Carácter	Descrição do Débito especial
PARAMIXB[3]	Número	Valor total apurado para o código de lançamento
PARAMIXB[4]	Carácter	Código de lançamento

Retorno:

O ponto de entrada retorna um array bidimensional:

Nome	Tipo	Descrição
aGuias[1,1]	Carácter	Código de lançamento
aGuias[1,2]	Número	Valor da guia

Aviso

title	Importante

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, o sistema aplicará o tratamento comum.

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

04. EXEMPLO DE UTILIZAÇÃO

...

Bloco de código

language	java
theme	Midnight
title	GDEBESP
linenumbers	true

#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

Templatedocumentos

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

...

Árvore de páginas

Versões comparadas

Versão antiga 7

Nova versão 8

Chave