Linha Microsiga Protheus

Árvore de páginas

CRIAÇÃO DE UM NOVO PARÂMETRO NO PONTO DE ENTRADA (TITICMST) PARA VERIFICAR SE O TITULO A SER GRAVADO É REFERENTE AO DIFAL.

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços

Módulo:

SIGAFIS - Livros Fiscais

Função:

FISXAPUR.PRW

Situação/Requisito:

Atualmente no sistema através do ponto de entrada (TITICMST) executado na fonte FISXAPUR.PRW, é possível realizar a alteração do número e do vencimento
do título a pagar para quase todos os impostos, menos para títulos do DIFAL-EC87. Será necessário adequar o ponto de entrada (TITICMST) para realizar
o mesmo tratamento para títulos com impostos DIFAL-EC87.

Solução/Implementação:

Implementado um novo parâmetro lógico (lDifal) no ponto de entrada (TITICMST), para identificar se o título a ser gravado no momento é referente ao DIFAL-EC87. Dessa forma é possível fazer uma validação no ponto de entrada em cima da variável (lDifal), caso seja verdadeira então se trata de um título DIFAL, e prosseguir com as alterações do código e data de vencimento do título normalmente.

Exemplo de uso do Ponto de Entrada (TITICMST):

User Function TITICMST

Local cOrigem := PARAMIXB[1]
Local cTipoImp := PARAMIXB[2]
Local lDifal := PARAMIXB[3]

If AllTrim(cOrigem)='MATA954' //Apuracao de ISS
SE2->E2_NUM := SE2->(Soma1(E2_NUM,Len(E2_NUM)))
SE2->E2_VENCTO := DataValida(dDataBase+30,.T.)
SE2->E2_VENCREA := DataValida(dDataBase+30,.T.)
EndIf

//EXEMPLO 2 (cTipoImp)

If AllTrim(cTipoImp)='1' // ICMS ST
SE2->E2_NUM := SE2->(Soma1(E2_NUM,Len(E2_NUM)))
SE2->E2_VENCTO := DataValida(dDataBase+30,.T.)
SE2->E2_VENCREA := DataValida(dDataBase+30,.T.)
EndIf

//EXEMPLO 3 (lDifal)
If lDifal // DIFAL
SE2->E2_NUM := SE2->(Soma1(E2_NUM,Len(E2_NUM)))
SE2->E2_VENCTO := DataValida(dDataBase+30,.T.)
SE2->E2_VENCREA := DataValida(dDataBase+30,.T.)
EndIf

Return {SE2->E2_NUM,SE2->E2_VENCTO}


Base de Conhecimento da rotina: http://tdn.totvs.com.br/display/PROT/Ponto+de+Entrada+TITICMST+-+GravaTit+do+programa+FISXAPUR

Chamados relacionados:

TUS483

 Requisito (ISSUE):11.80