CE PLUS - Nota 000378
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 01/12/2005 00:00:00
Data/Hora Última Alteração: 17/02/2011 12:36:33
Descrição da Nota: ALTERAÇÃO NOS JUROS DE MORA DO ICMS
Sintoma
O sistema assume 1% em juros de mora quando zerado ``Multa`` e ``Juros de mora``.
Solução
Ajuste para, ao zerar o campo juros de mora do icms zerar o valor referente a este.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00378 Data: 01/12/2005 Hora: 16:48:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00378
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00090
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ALTERAÇÃO NOS JUROS DE MORA DO ICMS
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO - JUROS DE MORA - NACIONALIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
/pws/zycie246d-multaipi ) / 100.
/pws/zycie246d-i_jurosii =
( itab_zycit246-i_vlii * /pws/zycie246d-jurosii ) / 100.
/pws/zycie246d-i_jurosipi =
( itab_zycit246-i_vlipi * /pws/zycie246d-jurosipi ) / 100.
* >> Início da inclusão: FORM APURA_TOTAIS_0211
IF /pws/zycie246d-jurosicms IS INITIAL.
CLEAR: /pws/zycie246d-i_jurosmor.
ELSE.
* << Fim da inclusão
/pws/zycie246d-i_jurosmor = ( /pws/zycie246d-i_vlicms *
( /pws/zycie246d-jurosicms + 1 ) ) / 100.
* >> Início da inclusão: FORM APURA_TOTAIS_0211
ENDIF.
* << Fim da inclusão
itab_zycit246 = /pws/zycie246d.
MODIFY itab_zycit246 TRANSPORTING i_multaicms i_txselic
i_tottrib i_multaii
i_multaipi i_jurosii
multaipi jurosipi
...
...
itab_zycit246_final-i_txselic ) / 100.
itab_zycit246_final-i_totmult = itab_zycit246_final-i_multaii +
itab_zycit246_final-i_multaipi +
itab_zycit246_final-i_jurosii +
itab_zycit246_final-i_jurosipi.
* >> Início da inclusão: FORM TRATA_QTD_COMPROV
IF itab_zycit246_final-jurosicms IS INITIAL.
CLEAR: itab_zycit246_final-i_jurosmor.
ELSE.
* << Fim da inclusão
itab_zycit246_final-i_jurosmor =
( itab_zycit246_final-i_multaicms *
( itab_zycit246_final-i_txselic + 1 ) ) / 100.
* >> Início da inclusão: FORM TRATA_QTD_COMPROV
ENDIF.
* << Fim da inclusão
itab_zycit246_final-i_totmultic =
itab_zycit246_final-i_jurosmor +
itab_zycit246_final-i_multaicms.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
( itab_zycit246-i_vlipi * itab_zycit246-i_txselic ) / 100.
itab_zycit246-i_totmult = itab_zycit246-i_multaii +
itab_zycit246-i_multaipi +
itab_zycit246-i_jurosii +
itab_zycit246-i_jurosipi.
* >> Início da inclusão: MODULE TRATA_QTDE_NACIONALIZADA
IF itab_zycit246-jurosicms IS INITIAL.
CLEAR: itab_zycit246-i_jurosmor.
ELSE.
* << Fim da inclusão
itab_zycit246-i_jurosmor = ( itab_zycit246-i_vlicms *
( itab_zycit246-i_txselic + 1 ) ) / 100.
* >> Início da inclusão: MODULE TRATA_QTDE_NACIONALIZADA
ENDIF.
* << Fim da inclusão
itab_zycit246-i_totmultic =
itab_zycit246-i_jurosmor + itab_zycit246-i_multaicms.
ENDIF.
IF /pws/zycie246c-qtd_nacion = 0
OR itab_zycit246-i_txselic IS INITIAL.
...
...
( itab_zycit246-i_vlipi * itab_zycit246-i_txselic ) / 100.
itab_zycit246-i_totmult = itab_zycit246-i_multaii +
itab_zycit246-i_multaipi +
itab_zycit246-i_jurosii +
itab_zycit246-i_jurosipi.
* >> Início da inclusão: MODULE TRATA_QTDE_COMPROVADA
IF itab_zycit246-jurosicms IS INITIAL.
CLEAR: itab_zycit246-i_jurosmor.
ELSE.
* << Fim da inclusão
itab_zycit246-i_jurosmor = ( itab_zycit246-i_multaicms *
( itab_zycit246-i_txselic + 1 ) ) / 100.
* >> Início da inclusão: MODULE TRATA_QTDE_COMPROVADA
ENDIF.
* << Fim da inclusão
itab_zycit246-i_totmultic =
itab_zycit246-i_jurosmor + itab_zycit246-i_multaicms.
ENDIF.
IF /pws/zycie246c-qtd_nacion = 0.
CLEAR: itab_zycit246-qtd_nacion ,
...