CE PLUS - Nota 008111
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 27/02/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:19:06
Descrição da Nota: VALOR ANTIDUMPING DUPLICADO NAS DESPESAS DA NOTA FISCAL.
Sintoma
Valor antidumping está duplicado no campo de despesas da nota fiscal.
Solução
Ajustada montagem para que não seja realizado os dois tratamentos para a despesa.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08111 Data: 27/02/2009 Hora: 11:47:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08111
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00087
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07574 - 00001 - 7.0 - 00007 - NOTA FISCAL ESTA DUPLICANDO A TX. SISCOMEX PARAMETRO FLAG_TXSISC
----------------------------------------------------------------------------------------------------
VALOR ANTIDUMPING DUPLICADO NAS DESPESAS DA NOTA FISCAL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANTIDUMPING - DUPLICADO - NOTA - FISCAL - DESPESA
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
CHANGING itab_zycit049_aux_r-vldp.
PERFORM taxa_converte USING itab_zycit049_aux_r-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
itab_zycit049_aux_r-vldp = itab_zycit049_aux_r-vldp *
v_taxa_desp.
ENDIF.
v_vldp_aux = itab_zycit049_aux_r-vldp.
LOOP AT itab_zycit003_mark.
v_idx = sy-tabix.
* >> Início da exclusão: FORM MENSAGENS_NF
IF itab_zycit049_aux_r-tpdesp EQ /pws/zycit000-cod_antidump.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
IF itab_zycit049_aux_r-tpdesp EQ /pws/zycit000-cod_antidump
AND /pws/zycit001-tpdecl NE 'DSI'.
* << Fim da inclusão
READ TABLE itab_zycit100 WITH KEY
ebeln = itab_zycit003_mark-ebeln
ebelp = itab_zycit003_mark-ebelp.
IF sy-subrc EQ '0' AND
( NOT itab_zycit100-baseantid IS INITIAL OR
NOT itab_zycit100-vlantid IS INITIAL ).
IF NOT itab_zycit100-baseantid IS INITIAL.
v_vldp = v_vldp + ( ( itab_zycit100-baseantid *
( itab_zycit100-antidrate / 100 ) ) / v_vlantid ) *
itab_zycit049_aux_r-vldp.
...
...
v_tot_plan = v_tot_plan +
( itab_zycit003-netpr * itab_zycit003-qtd_iten ).
v_tot_real = v_tot_real +
( itab_zycit003-vlreal * itab_zycit003-qtd_iten ).
ENDLOOP.
LOOP AT itab_zycit049_a.
IF ( itab_zycit049_a-tpdesp NE /pws/zycit000-cod_sisc AND
itab_zycit049_a-tpdesp NE /pws/zycit000-cod_antidump ) OR
/pws/zycit000-flag_txsisc IS INITIAL OR
/pws/zycit001-tpdecl = 'DSI'.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF itab_zycit049_a-tpdesp EQ /pws/zycit000-cod_antidump AND
/pws/zycit001-tpdecl NE 'DSI'.
CONTINUE.
ENDIF.
* << Fim da inclusão
CLEAR: v_tot_vldp, v_vldp.
LOOP AT itab_zycit042_d.
MOVE sy-tabix TO v_tabix.
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_zycit042_d-nrseq
ebeln = itab_zycit042_d-ebeln
ebelp = itab_zycit042_d-ebelp.
IF itab_zycit085-waersfob NE itab_zycit003-waers.
PERFORM taxa_converte USING itab_zycit003-waers
itab_zycit085-dttax
...
...
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.
itab_zycit042_d-vldp = itab_zycit042_d-vldp +
itab_zycit100-vl_sisco.
MODIFY itab_zycit042_d.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DESPESAS
IF NOT /pws/zycit000-cod_antidump IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF NOT /pws/zycit000-cod_antidump IS INITIAL
AND /pws/zycit001-tpdecl NE 'DSI'.
* << Fim da inclusão
LOOP AT itab_zycit049_a
WHERE tpdesp = /pws/zycit000-cod_antidump.
IF itab_zycit049_a-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049_a-waers
/pws/zycit085-dttax
CHANGING v_taxa_desp.
itab_zycit049_a-vldp = itab_zycit049_a-vldp * v_taxa_desp.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit042_d.
...