CE PLUS - Nota 008538
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 12/06/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:20:03
Descrição da Nota: VALOR ANTIDUMPING DUPLICADO NAS DESPESAS DA NOTA FISCAL.
Sintoma
Valor antidumping está duplicado nas despesas na nota fiscal.
Solução
Ajustado calculo para calcular o valor antidumping conforme parametrizado.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08538 Data: 12/06/2009 Hora: 14:03:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08538
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07414 - 00001 - 7.0 - 00007 - ESTÁ RATEANDO A DESPESA ANTIDUMPING POR ITENS SEM O ANTIDUMP.
----------------------------------------------------------------------------------------------------
VALOR ANTIDUMPING DUPLICADO NAS DESPESAS DA NOTA FISCAL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR - ANTIDUMPING - DUPLICADO - DESPESAS NOTA - FISCAL
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDLOOP.
ENDIF.
LOOP AT itab_zycit049
WHERE tpdesp = /pws/zycit000-cod_antidump.
IF itab_zycit049-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
itab_zycit049-vldp = itab_zycit049-vldp * v_taxa_desp.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
ENDLOOP.
* << Fim da exclusão
LOOP AT itab_zycit042.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF sy-subrc = 0 AND ( NOT itab_zycit100-baseantid IS INITIAL OR
NOT itab_zycit100-vlantid IS INITIAL ).
IF NOT itab_zycit100-baseantid IS INITIAL.
itab_zycit042-vldp = itab_zycit042-vldp +
( itab_zycit100-baseantid * ( itab_zycit100-antidrate / 100 ) ) .
ELSEIF NOT itab_zycit100-qtdeantid IS INITIAL.
itab_zycit042-vldp = itab_zycit042-vldp +
( itab_zycit100-vlantid * itab_zycit100-qtdeantid ).
ENDIF.
MODIFY itab_zycit042.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
ENDLOOP.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
CLEAR: itab_zycit019, itab_zycit049.
REFRESH: itab_zycit019, itab_zycit049.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020
WHERE regio = adrc-region AND baseii = 'X' AND
land1 = t001-land1.
...
...
ENDLOOP.
ENDIF.
LOOP AT itab_zycit049
WHERE tpdesp = /pws/zycit000-cod_antidump.
IF itab_zycit049-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
itab_zycit049-vldp = itab_zycit049-vldp * v_taxa_desp.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
ENDLOOP.
* << Fim da exclusão
LOOP AT itab_zycit042_d.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit042_d-nrseq
ebeln = itab_zycit042_d-ebeln
ebelp = itab_zycit042_d-ebelp.
IF sy-subrc = 0 AND ( NOT itab_zycit100-baseantid IS INITIAL OR
NOT itab_zycit100-vlantid IS INITIAL ).
IF NOT itab_zycit100-baseantid IS INITIAL.
itab_zycit042_d-vldp = itab_zycit042_d-vldp +
( itab_zycit100-baseantid * ( itab_zycit100-antidrate / 100 ) ) .
ELSEIF NOT itab_zycit100-qtdeantid IS INITIAL.
itab_zycit042_d-vldp = itab_zycit042_d-vldp +
( itab_zycit100-vlantid * itab_zycit100-qtdeantid ).
ENDIF.
MODIFY itab_zycit042_d.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
ENDLOOP.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM carrega_zycie042_c.
DATA: t_fields(20) TYPE c VALUE 'J_1BNFDOC-NFENUM',
t_fields2(20) TYPE c VALUE 'J_1BNFDOC-NFE'.
FIELD-SYMBOLS: <nfenum> TYPE ANY,
<nfe> TYPE ANY.
IF itab_zycit042_c-ebeln IS INITIAL.
...