CE PLUS - Nota 005131
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 01/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:50:35
Descrição da Nota: SISTEMA NÃO RESPEITA REDUÇÃO NA BASE DO ICMS, AO INFORMAR A REDUÇÃO.
Sintoma
DI - Base reduzida do ICMS: O sistema não está mais respeitado a redução na base do ICMS, ao
informar a redução na base, o valor continua com base de 100 por cento
Solução
Atualização do programa da DI para que o sistema efetue os cálculos da Base de ICMS corretamente
quando for Base Reduzida.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05131 Data: 01/11/2007 Hora: 10:28:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05131
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00019
----------------------------------------------------------------------------------------------------
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
04943 - 00002 - 7.0 - 00003 - ICMS REDUZIDO NA DI PARA MINAS GERAIS
----------------------------------------------------------------------------------------------------
SISTEMA NÃO RESPEITA REDUÇÃO NA BASE DO ICMS, AO INFORMAR A REDUÇÃO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
BASE DO ICMS - REDUÇÃO - REDUZIDA - 100 %
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
t_icmsbs - a_ipidevi.
ENDIF.
IF '56' CA /pws/zycie100a-codregtripiscofi .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - a_piscalc - a_cofcalc.
ENDIF.
ENDIF.
IF /pws/zycie100a-baseicms LT 0.
CLEAR itab_zycit100-baseicms.
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
IF not /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 ) ) .
v_trunc = v_advicms.
v_advicms = v_trunc.
ENDIF.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie003-advalicms IS INITIAL AND
NOT /pws/zycie100a-icms_dif EQ 'X'.
t_icmsbs_d2 = t_icmsbs = t_icmsbs *
( v_advicms * 100 / /pws/zycie003-advalicms ).
ELSEIF NOT /pws/zycie100a-icms_dif EQ 'X'.
t_icmsbs_d2 = t_icmsbs = t_icmsbs *
( /pws/zycie003-basred / 100 ).
ENDIF.
IF NOT /pws/zycit062-flag_icms IS INITIAL AND
/pws/zycie100a-icms_dif NE 'X'.
...