CE PLUS - Nota 007368
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 29/09/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:43:17
Descrição da Nota: AO ACRESCENTAR DADOS DE ANTIDUMPING E PARÂMETRO NA /PWS/ZYCIT000
Sintoma
Ao acrescentar dados de antidumping e parâmetro na /PWS/ZYCIT000.
Solução
Calcular valor da despesa antidumping se estiver parametrizado código na /PWS/ZYCIT000.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07368 Data: 29/09/2008 Hora: 11:41:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07368
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00067
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO ACRESCENTAR DADOS DE ANTIDUMPING E PARÂMETRO NA /PWS/ZYCIT000
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANTIDUMPING - ZYCIT000 - DESPESAS - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ENDIF.
DESCRIBE TABLE itab_zycit116 LINES v_ipa.
PERFORM fill_taxasiscomex USING v_ipa.
* >> Início da inclusão: FORM REFRESH_ALL
perform fill_antidumping.
* << Fim da inclusão
PERFORM calc_itab.
IF NOT itab_it[] IS INITIAL.
PERFORM adic_list.
CLEAR v_pos.
LOOP AT it_alist.
v_pos = v_pos + 1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
PERFORM: fill_taxasiscomex USING v_line.
v_proc = /pws/zycie085-land.
t_cod = s_ppais.
t_desc = s_pdesc.
* >> Início da inclusão: FORM LOAD_INIT
PERFORM: fill_antidumping.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
* >> Início da inclusão:
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.
a_adreco = a_adreco + ( itab_it-baseantid *
( itab_it-antidrate / 100 ) ) + ( itab_it-vlantid *
itab_it-qtdeantid ).
ENDLOOP.
IF itab_zycit049-vldp IS INITIAL.
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.
ENDIF.
ENDFORM.
* << Fim da inclusão