CE PLUS - Nota 010229
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 01/06/2010 00:00:00
Data/Hora Última Alteração: 14/06/2010 13:24:49
Descrição da Nota: DI ESTA CALCULANDO A DESPESA ANTIDUMPING INCORRETAMENTE
Sintoma
Ao criar uma DI com antidumping, quando preenchemos na pasta tributos - Antidumping, ambos os campos
(alíquota e específicas), o sistema faz o cálculo corretamente e soma os dois valores, levando
corretamente para as pastas Carga 3 e Pagamentos da DI. Porém na pasta despesa, está levando somente
o valor calculado no campo Alíquotas.
Solução
Realizar o mesmo calculo para Aba Despesas
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10229 Data: 01/06/2010 Hora: 14:23:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10229
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00026
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DI ESTA CALCULANDO A DESPESA ANTIDUMPING INCORRETAMENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - ANTIDUMPING - CALCULO - DESPESA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
tc_mercosul-top_line = tc_mercosul-top_line + 10.
ENDCASE.
ENDFORM.
FORM fill_antidumping.
CLEAR a_adreco.
READ TABLE itab_zycit049 WITH KEY tpdesp =
/pws/zycit000-cod_antidump.
IF sy-subrc EQ 0.
v_tabix = sy-tabix.
LOOP AT itab_it.
* >> Início da exclusão: FORM FILL_ANTIDUMPING
IF NOT itab_it-baseantid IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ANTIDUMPING
IF NOT itab_it-baseantid IS INITIAL AND
NOT itab_it-qtdeantid IS INITIAL.
a_adreco = a_adreco + ( itab_it-baseantid *
( itab_it-antidrate / 100 ) ) +
( itab_it-vlantid * itab_it-qtdeantid ).
ELSEIF NOT itab_it-baseantid IS INITIAL.
* << Fim da inclusão
a_adreco = a_adreco + ( itab_it-baseantid * (
itab_it-antidrate / 100 ) ) .
ELSEIF NOT itab_it-qtdeantid IS INITIAL.
a_adreco = a_adreco + ( itab_it-vlantid *
itab_it-qtdeantid ).
ENDIF.
ENDLOOP.
itab_zycit049-vlreal = itab_zycit049-vldp = a_adreco .
itab_zycit049-waers = wa_zycbt007-waersb.
MODIFY itab_zycit049 INDEX v_tabix TRANSPORTING vldp vlreal waers.
...