CE PLUS - Nota 011171
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 23/05/2011 00:00:00
Data/Hora Última Alteração: 23/05/2011 15:15:34
Descrição da Nota: NOVA FÓRMULA VALOR ICMS ST.
Sintoma
Favor alterar fórmula para calcular o valor a recolher do ICMS c/ ST. A nova fórmula será:
Valor ICMS/ST = ( ( ( BCI * ( 1 + ( MVA / 100 ) ) ) * ( AI / 100 ) ) ¿ ( BCI * ( AI / 100 ) ) )
sendo:
BCI = base de cálculo do ICMS normal
MVA = alíquota de ICMS ST
AI = alíquota de ICMS normal
Solução
Novo tratamento do cálculo do valor ICMS ST a recolher.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11171 Data: 23/05/2011 Hora: 14:12:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11171
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00072
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11167 - 00001 - 8.0 - 00007 - ERRO NO CÁLCULO DA BASE DA ICMS ST
----------------------------------------------------------------------------------------------------
NOVA FÓRMULA VALOR ICMS ST.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ICMS A RECOLHER ST - SUBSTITUIÇÃO TRIBUTÁRIA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
IF /pws/zycit062-icms_st EQ 'X'.
IF itab_it-edita_st NE 'X' .
t_icmsbs_st = itab_it-baseicms *
( 1 + ( itab_it-aliq_icms_st / 100 ) ).
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 =
* >> Início da exclusão: FORM LOAD_IICMS_ST
t_icmsbs_st * ( itab_it-aliq_icms_st / 100 ) .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS_ST
( ( ( t_icmsbs * ( 1 + ( itab_it-aliq_icms_st / 100 ) ) ) *
v_advicms ) - ( t_icmsbs * v_advicms ) ) .
* << Fim da inclusão
itab_it-baseicms_st = t_icmsbs_st.
s_wstreco = s_wstreco + t_icms_st.
ENDIF.
ENDFORM.