CE PLUS - Nota 001733
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:50:45
Descrição da Nota: DI DEVE LIMPAR VALOR A RECOLHER IMPOSTOS QUANDO ISENÇAO SEM DRAWBACK
Sintoma
Quando crio a DI e coloco para os tributos o regime tributário "Isenção", o programa está calculando
valor a recolher para PIS e COFINS. Não deveria destacar valor a recolher de PIS e COFINS. Deve
destacar apenas o valor de ICMS para recolhimento
Solução
Atualização do programa da DI para tratamento do regime de Isenção.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01733 Data: 13/07/2006 Hora: 16:32:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01733
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00122
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01602 - 00001 - 6.0 - 00023 - AJUSTES HOMOLOGAÇÃO DI - CÁLCULOS, DESPESAS, REGIMES
----------------------------------------------------------------------------------------------------
DI DEVE LIMPAR VALOR A RECOLHER IMPOSTOS QUANDO ISENÇAO SEM DRAWBACK
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - ICMS - ISENÇÃO - DRAWBACK - VALOR A RECOLHER.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ENDIF.
ENDIF.
v_divisor = ( 1 - v_advicms - v_advpis - v_advcof ).
IF /pws/zycie003-nrseqd IS INITIAL AND
v_nratoc IS INITIAL.
* >> Início da inclusão: FORM LOAD_IICMS
IF '35' ca /pws/zycie100a-codregtri.
CLEAR: t_pis, t_cofins, t_icms.
* << Fim da inclusão
* >> Início da exclusão: FORM LOAD_IICMS
IF /pws/zycie100a-codregtri EQ '5'.
CLEAR: t_pis, t_cofins.
* << Fim da exclusão
ELSE.
CASE /pws/zycie100a-codregtripiscofi.
WHEN '4'.
IF /pws/zycie100a-basredpis IS INITIAL.
t_pis = ( itab_it-basepis * ( /pws/zycie100a-advalpis / 100 ) ).
...
...
IF itab_it-nrseqd IS INITIAL AND
v_nratoc IS INITIAL.
t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
* >> Início da exclusão: FORM LOAD_IICMS
IF /pws/zycie100a-codregtri EQ '5'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
IF '35' ca /pws/zycie100a-codregtri .
* << Fim da inclusão
CLEAR: t_icmsx, t_icms_d2, t_icms, t_pis, t_cofins.
ENDIF.
ELSE.
IF /pws/zycie100a-codregtri EQ '5'.
CLEAR: t_icmsx, t_icms_d2, t_icms, t_pis, t_cofins.
...