CE PLUS - Nota 008541
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 15/06/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:17:30
Descrição da Nota: VALOR ANTIDUMPING NA BASE DE IPI
Sintoma
O valor da despesa antidumping está duplicada na base de IPI.
Solução
Ajustado calculo para que o valor não seja duplicado.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08541 Data: 15/06/2009 Hora: 16:30:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08541
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00103
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08538 - 00001 - 7.0 - 00009 - VALOR ANTIDUMPING DUPLICADO NAS DESPESAS DA NOTA FISCAL.
----------------------------------------------------------------------------------------------------
VALOR ANTIDUMPING NA BASE DE IPI
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR - ANTIDUMPING - BASE - IPI - DUPLICADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FOR ALL ENTRIES IN itab_zycit019
WHERE nrseq = /pws/zycie041-nrseq
AND vldp > 0
AND tpdesp = itab_zycit019-tpdesp.
IF NOT itab_zycit049[] IS INITIAL.
LOOP AT itab_zycit049.
IF itab_zycit049-tpdesp NE /pws/zycit000-cod_sisc OR
/pws/zycit000-flag_txsisc IS INITIAL OR
/pws/zycit001-tpdecl = 'DSI'.
CLEAR: v_tot_vldp, v_vldp.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF itab_zycit049-tpdesp EQ /pws/zycit000-cod_antidump
AND /pws/zycit001-tpdecl NE 'DSI'.
CONTINUE.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit042.
MOVE sy-tabix TO v_tabix.
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF itab_zycit085-waersfob NE itab_zycit003-waers.
PERFORM taxa_converte USING itab_zycit003-waers
itab_zycit085-dttax
CHANGING v_taxa.
...
...
IF sy-subrc = 0.
itab_zycit042-vldp = itab_zycit042-vldp +
itab_zycit100-vl_sisco.
MODIFY itab_zycit042.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDIF.
LOOP AT itab_zycit049
WHERE tpdesp = /pws/zycit000-cod_antidump.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF /pws/zycit001-tpdecl EQ 'DSI'.
EXIT.
ENDIF.
* << Fim da inclusão
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.
LOOP AT itab_zycit042.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
...
...
INTO TABLE itab_zycit049
FOR ALL ENTRIES IN itab_zycit019
WHERE nrseq = /pws/zycie041-nrseq
AND vldp > 0
AND tpdesp = itab_zycit019-tpdesp.
IF NOT itab_zycit049[] IS INITIAL.
LOOP AT itab_zycit049.
IF itab_zycit049-tpdesp NE /pws/zycit000-cod_sisc OR
/pws/zycit000-flag_txsisc IS INITIAL OR
/pws/zycit001-tpdecl = 'DSI'.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF itab_zycit049-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
...
...
IF sy-subrc = 0.
itab_zycit042_d-vldpii = itab_zycit042_d-vldpii +
itab_zycit100-vl_sisco.
MODIFY itab_zycit042_d.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDIF.
LOOP AT itab_zycit049
WHERE tpdesp = /pws/zycit000-cod_antidump.
* >> Início da inclusão: FORM SELECIONA_DESPESAS
IF /pws/zycit001-tpdecl EQ 'DSI'.
EXIT.
ENDIF.
* << Fim da inclusão
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.
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.
...