Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/09/2013 00:00:00
Data/Hora Última Alteração: 24/09/2013 10:05:09
Descrição da Nota: A BASE DO PIS E COFINS É RECALCULADA AO INFORMAR BASE REDUZIDA NO ICMS
Sintoma
A base do pis e cofins é recalculada ao informar base reduzida no icms
Solução
Atualizado programa para verificar parâmetro na /PWS/ZYCIT062 para reduzir a aliquota do icms na
base do Pis ou Cofins em casos de ICMS reduzido.
9.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13237 Data: 11/09/2013 Hora: 09:39:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13237
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00005
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04557 - 00001 - 7.0 - 00003 - REDUÇÃO DE BASE DE IMPOSTO NOTA FISCAL
08356 - 00002 - 7.0 - 00009 - ADMISSÃO TEMPORÁRIA ARTIGO 373
12853 - 00003 - 9.0 - 00004 - ERRO NO CÁLCULO DE ICMS REDUZIDO NA NF E DI
----------------------------------------------------------------------------------------------------
A BASE DO PIS E COFINS É RECALCULADA AO INFORMAR BASE REDUZIDA NO ICMS
----------------------------------------------------------------------------------------------------
Palavras Chave:
PIS - COFINS - BASE - REDUÇÃO - REDUZIDA - ICMS - DI -
ZYCIT062
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ELSE.
v_advii = ( /pws/zycie003-advalii / 100 ).
ENDIF.
ENDIF.
ENDIF.
IF NOT /pws/zycie100a-reduzidaipi IS INITIAL.
v_advipi = ( /pws/zycie100a-reduzidaipi / 100 ).
ELSE.
v_advipi = ( /pws/zycie003-advalipi / 100 ).
ENDIF.
* >> Início da exclusão: FORM LOAD_IICMS
IF /pws/zycit062-bs_pis_cof IS INITIAL.
IF NOT /pws/zycie003-basred IS INITIAL AND
NOT /pws/zycie003-basred EQ '100'.
v_advicms = ( ( /pws/zycie003-advalicms / 100 ) *
( /pws/zycie003-basred / 100 ) ) .
IF /pws/zycit062-icms_base_red_ar = 'X'.
v_trunc = v_advicms.
v_advicms = v_trunc.
ENDIF.
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
IF not /pws/zycit062-bs_pis_cof IS INITIAL.
* << Fim da inclusão
v_advicms = ( /pws/zycie003-advalicms / 100 ).
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da exclusão
ELSE.
IF NOT /pws/zycie003-basred IS INITIAL AND
NOT /pws/zycie003-basred EQ '100'.
v_advicms = ( ( /pws/zycie003-advalicms / 100 ) *
( /pws/zycie003-basred / 100 ) ) .
ELSE.
v_advicms = ( /pws/zycie003-advalicms / 100 ).
* >> Início da inclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da inclusão
ENDIF.
IF /pws/zycit062-icms_base_red_ar = 'X'.
v_trunc = v_advicms.
v_advicms = v_trunc.
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da exclusão
ENDIF.
v_advpis = ( /pws/zycie100a-advalpis / 100 ).
v_advcof = ( /pws/zycie100a-advalcofins / 100 ).
...