CE PLUS - Nota 011167
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 20/05/2011 00:00:00
Data/Hora Última Alteração: 17/06/2011 14:03:41
Descrição da Nota: ERRO NO CÁLCULO DA BASE DA ICMS ST
Sintoma
Erro no cálculo da base da ICMS ST
Solução
Dividir alíquota por 100.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11167 Data: 20/05/2011 Hora: 10:26:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11167
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00071
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11157 - 00001 - 8.0 - 00007 - LEGISLAÇÃO PARA DESENVOLVIMENTO DE ICMS ST NA DI E NF.
11171 - 00002 - 8.0 - 00007 - NOVA FÓRMULA VALOR ICMS ST.
----------------------------------------------------------------------------------------------------
ERRO NO CÁLCULO DA BASE DA ICMS ST
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÁLCULO - ICMS - ST - BASE DE CÁLCULO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
FORM load_iicms_st.
t_icmsbs_st = itab_it-baseicms_st.
IF /pws/zycit062-icms_st EQ 'X'.
IF itab_it-edita_st NE 'X' .
t_icmsbs_st = itab_it-baseicms *
* >> Início da exclusão: FORM LOAD_IICMS_ST
( 1 + itab_it-aliq_icms_st ).
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS_ST
( 1 + ( itab_it-aliq_icms_st / 100 ) ).
* << Fim da inclusão
IF NOT itab_it-basred_st IS INITIAL.
t_icmsbs_st = t_icmsbs_st *
( itab_it-basred_st / 100 ).
ENDIF.
ENDIF.
itab_it-vlicms_st = t_icms_st =
t_icmsbs_st * ( itab_it-aliq_icms_st / 100 ) .
itab_it-baseicms_st = t_icmsbs_st.
s_wstreco = s_wstreco + t_icms_st.
ENDIF.
...