CE PLUS - Nota 003113
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 16/02/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:39:34
Descrição da Nota: EM DI VINCULADA COM DRAWBACK LEVA O VALOR A RECOLHER DO ICMS PARA A BASE
Sintoma
quando temos DI vinculada com Drawback leva o valor a recolher do ICMS para a base de ICMS.
Solução
ajustes para cálculo da base de icms quando tiver drawback suspensão vinculado, não acumular o valor
do icms na base.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03113 Data: 16/02/2007 Hora: 15:43:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03113
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02261 - 00002 - 6.0 - 00025 - A NF GLOBAL E COMPLEMENTAR NÃO ESTÁ TRATANDO ICMS DIFERIDO E SUSP
02325 - 00001 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
----------------------------------------------------------------------------------------------------
EM DI VINCULADA COM DRAWBACK LEVA O VALOR A RECOLHER DO ICMS PARA A BASE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - DRAWBACK - VALOR A RECOLHER - ICMS - BASE
SUSPENSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
t_icmsbs_d2 = t_icmsbs = ( t_ivadu + v_vliirec + v_vlipirec +
t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *
( /pws/zycie003-basred / 100 ).
ELSE.
t_icmsbs_d2 = t_icmsbs = ( t_ivadu + v_vliirec + v_vlipirec +
v_sisco3 + t_ivdesp + v_vlpisrec + v_vlcofrec ) *
( /pws/zycie003-basred / 100 ).
ENDIF.
IF NOT /pws/zycit062-flag_icms IS INITIAL AND
/pws/zycie100a-icms_dif NE 'X'.
* >> Início da exclusão: FORM LOAD_IICMS
IF itab_it-nrseqd IS INITIAL AND
v_nratoc IS INITIAL.
* << Fim da exclusão
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.
* >> Início da exclusão: FORM LOAD_IICMS
ELSE.
t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
ENDIF.
* << Fim da exclusão
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
IF /pws/zycie100a-codregtriicms EQ '5'.
CLEAR: t_icmsx, t_icms_d2, t_icms.
endif.
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.
...