CE PLUS - Nota 002794
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/01/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:39:50
Descrição da Nota: ERRO NA BASE DE CALCULO DE ICMS
Sintoma
verificar a base de calculo do ICMS vinculados ao Drawback Suspensão
Solução
Atualizada a base de calculo do ICMS nos processos vinculados ao Drawback Suspensão
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02794 Data: 02/01/2007 Hora: 10:01:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02794
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00185 - 00001 - 6.0 - 00021 - INCLUIR PERDA DA VALIDADE DA MP252 NA TABELA DE PARÂMETROS /PWS/Z
02034 - 00002 - 6.0 - 00024 - CRIAÇÃO DE UMA DI,IMPORTAÇÃO É SUSPENSO,PIS E O COFINS ESTÃO ZERA
02304 - 00003 - 6.0 - 00025 - AO ESTORNAR VARIAÇÃO DE FATURA PARCELADA DÁ DUMP POR DATA NÃO ENC
----------------------------------------------------------------------------------------------------
ERRO NA BASE DE CALCULO DE ICMS
----------------------------------------------------------------------------------------------------
Palavras Chave:
FORM LOAD_IICMS, T_ICMSX, T_ICMS_D2, T_ICMS
/PWS/ZYCIE100A-CODREGTRIICMS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
/pws/zycie100a-icms_dif NE 'X'.
IF itab_it-nrseqd IS INITIAL AND
v_nratoc IS INITIAL.
t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
IF '35' CA /pws/zycie100a-codregtriicms .
CLEAR: t_icmsx, t_icms_d2, t_icms.
ENDIF.
ELSE.
* >> Início da exclusão: FORM LOAD_IICMS
IF /pws/zycie100a-codregtriicms EQ '5'.
CLEAR: t_icmsx, t_icms_d2, t_icms.
ELSE.
* << Fim da exclusão
t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
IF /pws/zycie100a-codregtriicms EQ '5'.
CLEAR: t_icmsx, t_icms_d2, t_icms.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM LOAD_IICMS
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
* << Fim da exclusão
ELSE.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
t_icmsbs.
IF /pws/zycie100a-codregtriicms EQ '5'.
CLEAR: t_icmsx, t_icms_d2, t_icms.
ENDIF.
ENDIF.
IF p_tipo = 'I' OR p_tipo = 'T' .
s_wicdevi = s_wicdevi + t_icms .
s_wpisreco = s_wpisreco + t_pis .
...