CE PLUS - Nota 005382
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 04/12/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:51:03
Descrição da Nota: DI - ICMS ISENTO POR DENTRO - ZYCIT062-FLAG_REG_SUSP
Sintoma
Quando o ICMS é ISENTO, ele está sendo calculado por dentro da base de ICMS.
Solução
Foi colocado o tratamento tanto para Suspenção quanto para ISenção utilizando o mesmo parâmetro.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05382 Data: 04/12/2007 Hora: 16:17:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05382
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04943 - 00001 - 7.0 - 00003 - ICMS REDUZIDO NA DI PARA MINAS GERAIS
----------------------------------------------------------------------------------------------------
DI - ICMS ISENTO POR DENTRO - ZYCIT062-FLAG_REG_SUSP
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - ICMS ISENTO POR DENTRO - ZYCIT062-FLAG_REG_SUSP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ).
itab_it-vlicms = t_icms.
IF NOT /pws/zycie003-basred IS INITIAL AND
NOT /pws/zycie003-basred EQ '100'.
t_icmsbs = ( t_icmsbs / t_icmsx ).
ELSE.
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ENDIF.
IF /pws/zycit062-susp_nf EQ 'S'.
* >> Início da exclusão: FORM LOAD_IICMS
IF '56' CA /pws/zycie100a-codregtriicms .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
IF '356' CA /pws/zycie100a-codregtriicms .
* << Fim da inclusão
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - t_icms.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycit062-flag_icms IS INITIAL.
IF /pws/zycit062-bs_cheia_dif EQ 'X'.
t_icmsx = 1 - ( /pws/zycie003-advalicms / 100 ) .
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ELSE.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) * t_icmsbs.
ENDIF.
IF /pws/zycit062-susp_nf EQ 'S' AND
NOT /pws/zycit062-flag_icms IS INITIAL.
* >> Início da exclusão: FORM LOAD_IICMS
IF '56' CA /pws/zycie100a-codregtriicms .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
IF '356' CA /pws/zycie100a-codregtriicms .
* << Fim da inclusão
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - t_icms.
ENDIF.
ENDIF.
ELSE.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs ) .
t_icmsbs_d2 = t_icmsbs .
ENDIF.
ENDIF.
...