CE PLUS - Nota 007474
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 23/10/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:01:46
Descrição da Nota: NÃO ATUALIZA A PASTA DESPESAS APÓS ALTERAR ANTIDUMPING
Sintoma
Não atualiza a pasta despesas após alterar antidumping
Solução
Recalcular valores da pasta despesa ao alterar valor de antidumping.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07474 Data: 23/10/2008 Hora: 14:13:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07474
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00070
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07456 - 00001 - 7.0 - 00007 - AO VISUALIZAR RELATÓRIO DE RATEIO, DESPESA ANTIDUMP ESTÁ INCORRET
----------------------------------------------------------------------------------------------------
NÃO ATUALIZA A PASTA DESPESAS APÓS ALTERAR ANTIDUMPING
----------------------------------------------------------------------------------------------------
Palavras Chave:
PASTA DESPESAS - ANTIDUMPING - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
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.
IF NOT itab_it-baseantid IS INITIAL.
a_adreco = a_adreco + ( itab_it-baseantid * (
itab_it-antidrate / 100 ) ) .
* >> Início da exclusão: FORM FILL_ANTIDUMPING
ELSEIF NOT itab_itb-qtdeantid IS INITIAL.
a_adreco = a_adreco + ( itab_itb-vlantid *
itab_itb-qtdeantid ).
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ANTIDUMPING
ELSEIF NOT itab_it-qtdeantid IS INITIAL.
a_adreco = a_adreco + ( itab_it-vlantid *
itab_it-qtdeantid ).
* << Fim da inclusão
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.
ENDIF.
ENDFORM.
...