Sintoma

Ao visualizar relatório de rateio, despesa antidump está incorreta.

Solução

Corrigir rateio de valores.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 07456 Data: 21/10/2008 Hora: 17:17:51

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 07456

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

07414  - 00001 - 7.0    - 00007  - ESTÁ RATEANDO A DESPESA ANTIDUMPING POR ITENS SEM O ANTIDUMP.

----------------------------------------------------------------------------------------------------

AO VISUALIZAR RELATÓRIO DE RATEIO, DESPESA ANTIDUMP ESTÁ INCORRETA.

----------------------------------------------------------------------------------------------------

Palavras Chave:

 RELATÓRIO - RATEIO - ANTIDUMP

----------------------------------------------------------------------------------------------------

Objetos da nota:

FUNC /PWS/ZYCI_RATEIO_CUSTO

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F02

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023F04

REPS /PWS/MZYCI023F05

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023O01

REPS /PWS/MZYCI023OO

REPS /PWS/MZYCI023TOP

REPS /PWS/MZYCI023X01

TABD /PWS/ZYCIE100A

TABD /PWS/ZYCIT100

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

  CLEAR: v_waersdif.

  IF /pws/zycie085-mdadicao EQ 'N'.

    v_waersdif = itab_it-waersbem.

    MOVE-CORRESPONDING /pws/zycie003  TO itab_it.

    MOVE-CORRESPONDING /pws/zycie100a TO itab_it.

    itab_it-waersbem = v_waersdif.

  ELSE.

    MOVE-CORRESPONDING /pws/zycie003  TO itab_it.

    MOVE-CORRESPONDING /pws/zycie100a TO itab_it.

  ENDIF.

* >> Início da inclusão: FORM SAVE_DATA_ITEM

  READ TABLE itab_zycit100_temp WITH KEY

  ebeln = itab_it-ebeln

  ebelp = itab_it-ebelp.

  IF sy-subrc = 0 AND NOT itab_zycit100_temp-adicao IS INITIAL.

    itab_it-adicao = itab_zycit100_temp-adicao .

  ENDIF.

* << Fim da inclusão

  IF NOT /pws/zycie003-qtd_itend IS INITIAL.

    MOVE /pws/zycie003-qtd_itend TO itab_it-qtd_iten.

  ENDIF.

  MOVE t_pisbs    TO itab_it-basepis.

  MOVE t_cofinsbs TO itab_it-basecofins.

...

...

    IF v_flag_quebra IS INITIAL AND v_cont > 80.

      PERFORM adic_next.

    ENDIF.

* >> Início da inclusão: FORM ADIC_LIST

    itab_it-adicao = itab_it_aux-adicao = v_adic.

* << Fim da inclusão

* >> Início da exclusão: FORM ADIC_LIST

    itab_it-adicao = itab_it_aux-adicao = v_adic.

* << Fim da exclusão

    MODIFY itab_it TRANSPORTING adicao

           WHERE ebeln EQ itab_it_aux-ebeln

           AND   ebelp EQ itab_it_aux-ebelp.

    MODIFY itab_it_aux INDEX v_tabix TRANSPORTING adicao.

    it_adi-adicao = v_adic.

    it_adi-nrseqdi       = /pws/zycie085-nrseqdi.

    it_adi-nrseq         = itab_it_aux-nrseq    .

    it_adi-ebeln         = itab_it_aux-ebeln    .

    it_adi-ebelp         = itab_it_aux-ebelp    .

    it_adi-nrseqli       = itab_it_aux-nrseqli  .

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023I01

MODULE fill_advl INPUT.

* >> Início da inclusão: MODULE FILL_ADVL

  itab_zycit100-vlantid = itab_it-vlantid =

* << Fim da inclusão

  /pws/zycie100a-vlantid = s_advl.

ENDMODULE.

MODULE fill_adbs INPUT.

* >> Início da inclusão: MODULE FILL_ADBS

 itab_zycit100-baseantid = itab_it-baseantid =

* << Fim da inclusão

  /pws/zycie100a-baseantid = s_adbs.

ENDMODULE.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO

...

  IMPORT v_vinserv FROM MEMORY ID 'VINSERV'.

  IF v_programa = 'DI' AND itab_zycit100a[] IS INITIAL.

    LOOP AT itab_zycit100.

      MOVE itab_zycit100 TO itab_zycit100a.

      CLEAR itab_zycit100a-vl_sisco.

      append itab_zycit100a.

    ENDLOOP.

* >> Início da inclusão

  ELSEIF v_programa = 'DI' .

    LOOP AT itab_zycit100.

      READ TABLE itab_zycit100a WITH KEY nrseq = itab_zycit100-nrseq

      ebeln = itab_zycit100-ebeln

      ebelp = itab_zycit100-ebelp .

      IF sy-subrc = '0'.

        move-corresponding itab_zycit100 to itab_zycit100a.

        CLEAR itab_zycit100a-vl_sisco.

        MODIFY itab_zycit100a INDEX sy-tabix.

      ENDIF.

    ENDLOOP.

* << Fim da inclusão

  ENDIF.

  CLEAR: v_tfrete,

        v_ori.

  SELECT SINGLE land1 FROM t001 INTO t001-land1

     WHERE bukrs EQ /pws/zycbt007-bukrs.

  SELECT * FROM /pws/zycit140

          INTO TABLE itab_zycit140_aux

           WHERE codmod EQ 'D'

              AND codigo EQ 'FRETEI'

              AND custo  EQ 'X'

...