Sintoma

Os itens na Replicação de Taxas não ficavam na mesma ordem dos itens da DI.

Solução

Implementar os campos que os Itens da DI utiliza para ordenar na itab_itc e executar o comando sort

para ordenar pela mesma ordem j_1bnbm, adicao, ebeln e ebelp.

Informações Complementares

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

Nota Número 05359 Data: 30/11/2007 Hora: 14:06:53

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

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

Nota Número              : 05359

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00023

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ORDENAÇÃO DOS ITENS NA REPLICAÇÃO DE TAXA FICA DIFERENTE DA ORDEM DA DI

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

Palavras Chave:

REPLICAÇÃO DE TAXA - ORDENAÇÃO - ITENS - ITAB_ITC

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

Objetos da nota:

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023TOP

REPS /PWS/MZYCI023X01

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

 RETURN.

    WHEN 'B'.

      SUBMIT /pws/zycir030 WITH pa_nrseq = /pws/zycie085-nrseqdi AND

 RETURN.

  ENDCASE.

ENDFORM.

FORM fill_itabitc.

  CLEAR:   itab_itc.

  REFRESH: itab_itc.

  MOVE: itab_it TO wa_itb.

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

  CLEAR: itab_it_AUX1[].

  REFRESH: itab_it_AUX1[].

  FREE: itab_it_AUX1[].

* << Fim da inclusão

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

  LOOP AT itab_it WHERE seq NE v_ip.

    itab_itc-nrseq = itab_it-nrseq.

    itab_itc-ebeln = itab_it-ebeln.

    itab_itc-ebelp = itab_it-ebelp.

* << Fim da exclusão

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

  MOVE: itab_it[] TO itab_it_AUX1[].

  LOOP AT itab_it_AUX1 WHERE seq NE v_ip.

    itab_itc-nrseq = itab_it_AUX1-nrseq.

    itab_itc-ebeln = itab_it_AUX1-ebeln.

    itab_itc-ebelp = itab_it_AUX1-ebelp.

    itab_itc-j_1bnbm = itab_it_AUX1-j_1bnbm.

    itab_itc-adicao = itab_it_AUX1-adicao.

* << Fim da inclusão

    APPEND itab_itc.

  ENDLOOP.

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

  SORT itab_itc BY  ebeln ebelp.

* << Fim da inclusão

  MOVE: wa_itb TO itab_it.

ENDFORM.

FORM fill_mark USING    value(p_mark).

  IF sy-dynnr EQ '0440'.

    LOOP AT itab_itc.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023TOP

...

         ebelp       LIKE /pws/zycie003-ebelp,

        qtd_iten    LIKE /pws/zycie003-qtd_iten,

      END OF it_verbl.

DATA: BEGIN OF itab_zyglt100 OCCURS 10.

        INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

DATA: BEGIN OF itab_itc OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

* >> Início da inclusão:

         j_1bnbm     LIKE /pws/zycie003-j_1bnbm,

         adicao      LIKE /pws/zycie100a-adicao,

* << Fim da inclusão

         mark,

      END OF itab_itc.

DATA: BEGIN OF it_status OCCURS 0,

        fcode LIKE rsmpe-func,

      END OF it_status.

DATA: BEGIN OF it_words OCCURS 0,

        word(50),

      END OF it_words.

DATA: itab_ita       LIKE itab_it       OCCURS 0 WITH HEADER LINE,

      itab_zycit049a LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

...

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

        INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk,

      noinitial,

      mark.

DATA: END   OF itab_zycit003.

DATA: itab_zycit100_temp LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE,

      itab_itb       LIKE itab_it       OCCURS 0 WITH HEADER LINE.

data: itab_it_AUX    LIKE itab_it       OCCURS 0 WITH HEADER LINE.

* >> Início da inclusão:

DATA: itab_it_AUX1    LIKE itab_it       OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

DATA: BEGIN OF  itab_adicao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie116.

DATA: nr_itens TYPE i,

      flag_vltot,

     END OF itab_adicao.

DATA: BEGIN OF  itab_zycit116 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie116.

DATA:

       nr_itens TYPE i,

       flag_vltot,

...