CE PLUS - Nota 002607
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 06/12/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:45:40
Descrição da Nota: ERRO AO CALCULAR VALOR RECOLHER DO ICMS NA PASTA CARGA 3.
Sintoma
Erro ao calcular o valor a recolher do icms na pasta carga 3 da DI.
valor icms recolher + drawback
Quando temos Embarques com 02 itens, sendo que um desses itens esta vinculado ao Drawback, o sistema
não esta atualizando o valor de ICMS na pasta Carga 2 da DI, ou seja, o sistema mantém como valor a
recolher apenas o valor de ICMS do 1º item, não faz a somatória do valor a recolher dos 02 itens.
Solução
ajustar calculos
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02607 Data: 06/12/2006 Hora: 14:29:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02607
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02325 - 00001 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
----------------------------------------------------------------------------------------------------
ERRO AO CALCULAR VALOR RECOLHER DO ICMS NA PASTA CARGA 3.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO - VALOR A RECOLHER - ICMS - DI - PASTA CARGA 3
DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
CLEAR: t_icmsx, t_icms_d2, t_icms.
ENDIF.
ENDIF.
IF p_tipo = 'I' OR p_tipo = 'T' .
s_wicdevi = s_wicdevi + t_icms .
* >> Início da exclusão: FORM LOAD_IICMS
s_wicreco = s_wicdevi .
* << Fim da exclusão
s_wpisreco = s_wpisreco + t_pis .
s_wcofreco = s_wcofreco + t_cofins.
IF NOT /pws/zycie003-nrseqd IS INITIAL OR
NOT v_nratoc IS INITIAL.
IF /pws/zycie100a-codregtriicms EQ '5'.
CLEAR: t_icms.
screen-input = '0'.
ELSE.
* >> Início da exclusão: FORM LOAD_IICMS
s_wicreco = s_wicdevi.
* << Fim da exclusão
ENDIF.
ELSEIF /pws/zycie003-nrseqd IS INITIAL.
* >> Início da exclusão: FORM LOAD_IICMS
s_wicreco = s_wicdevi.
* << Fim da exclusão
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
s_wicreco = s_wicreco + t_icms .
* << Fim da inclusão
ELSEIF p_tipo = 'A'.
a_icdevi = a_icdevi + t_icms.
* >> Início da exclusão: FORM LOAD_IICMS
a_icreco = a_icdevi.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
a_icreco = a_icreco + a_icdevi.
* << Fim da inclusão
ENDIF.
itab_it-baseicms = t_icmsbs.
itab_it-vlicms = t_icms.
itab_it-vlpis = v_vlpisrec .
itab_it-vlcofins = v_vlcofrec.
...