CE PLUS - Nota 007683
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 01/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:59:53
Descrição da Nota: BASE DE ICMS DSI
Sintoma
O valor base de ICMS está incorreto.
Solução
Corrigir calculo da base de ICMS quando este não for suspenso.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07683 Data: 01/12/2008 Hora: 15:53:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07683
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07427 - 00001 - 7.0 - 00007 - DSI ESTÁ CALCULANDO ERRADO VALOR DE IMPOSTOS QUANDO É NÃO INCIDÊN
----------------------------------------------------------------------------------------------------
BASE DE ICMS DSI
----------------------------------------------------------------------------------------------------
Palavras Chave:
BASE - ICMS - DSI - SUSPENSO
/PWS/SAPMZYCI058
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
t_icmsbs = ( t_icmsbs / t_icmsx ).
ELSE.
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ENDIF.
IF /pws/zycit062-susp_nf EQ 'S'.
IF '5' CA /pws/zycie100a-codregtriicms .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - t_icms.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM LOAD_IICMS
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - t_icms.
* << Fim da exclusão
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.
...