Sintoma

Necessário ordenar itens da DI de acordo com NCM x Adição.

Solução

ao entrar no detalhe do item, ordenar itens por NCM.

Informações Complementares

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

Nota Número 02971 Data: 26/01/2007 Hora: 09:46:23

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

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

Nota Número              : 02971

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00150

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

02413  - 00001 - 6.0    - 00025  - VALORES DE IMPOSTOS AO CARREGAR DI ESTÃO ZERADOS. APÓS REFRESH FI

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

NECESSÁRIO ORDENAR ITENS DA DI DE ACORDO COM NCM X ADIÇÃO.

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

Palavras Chave:

ITENS DA DI - NCM X ADIÇÃO - INDEXAÇÃO - SISCOMEX

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F02

REPS /PWS/MZYCI023O01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

      IF itab_it-dttaxbem NE /pws/zycie085-ukursfob OR

         itab_it-waersbem NE /pws/zycie085-waersfob.

        itab_it-dttaxbem = /pws/zycie085-ukursfob.

        itab_it-waersbem = /pws/zycie085-waersfob.

        MODIFY itab_it INDEX sy-tabix TRANSPORTING dttaxbem waersbem.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM call_item.

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

      SORT itab_it BY j_1bnbm  adicao ebeln ebelp .

* << Fim da inclusão

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

  SORT itab_it BY nrseq ebeln ebelp.

* << Fim da exclusão

  PERFORM: calc_itab.

  CLEAR:  wa_it, v_msg.

  CLEAR: t_fundes_reducao, t_fundes_regtri.

  IF NOT /pws/zycie100a-codredpiscofi IS INITIAL.

    PERFORM seleciona_fund_legal

         USING /pws/zycie100a-codredpiscofi

         CHANGING t_fundes_reducao /pws/zycie100a-codredpiscofi.

  ELSE.

    CLEAR t_fundes_reducao.

  ENDIF.

...

...

               load_coll.

    ENDIF.

    IF NOT /pws/zycie085-waersseg IS INITIAL.

      PERFORM: taxa_converte USING    /pws/zycie085-waersseg

 /pws/zycie085-dttax

                             CHANGING /pws/zycie085-ukursseg,

               load_sevl.

    ENDIF.

    DESCRIBE TABLE itab_zycit116 LINES v_ipa.

    PERFORM fill_taxasiscomex USING v_ipa.

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

    SORT itab_it BY nrseq ebeln ebelp.

* << Fim da exclusão

    PERFORM calc_itab.

    IF NOT itab_it[] IS INITIAL.

      PERFORM adic_list.

      CLEAR v_pos.

      LOOP AT it_alist.

        v_pos = v_pos + 1.

        PERFORM: adic_change,

                 adic_load,

                 calc_itab_adic,

                 save_adic.

...

...

                             CHANGING /pws/zycie085-ukursseg,

               load_sgvl.

    ENDIF.

    LOOP AT itab_it WHERE NOT waersbem IS initial AND

                              waersbem NE wa_zycbt007-waersb.

      PERFORM: taxa_converte USING itab_it-waersbem /pws/zycie085-dttax

                             CHANGING itab_it-dttaxbem.

      MODIFY itab_it INDEX sy-tabix TRANSPORTING dttaxbem.

    ENDLOOP.

    PERFORM calc_itab.

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

    SORT itab_it BY nrseq ebeln ebelp.

* << Fim da exclusão

  ENDIF.

  PERFORM propoe_banco.

ENDFORM.

FORM update_item.

  CLEAR:   itab_zycit003.

  REFRESH: itab_zycit003.

  IF NOT itab_it[] IS INITIAL.

    SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

             FOR ALL ENTRIES IN itab_it

             WHERE nrseq = itab_it-nrseq AND

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

           load_sewa,

           load_pais USING /pws/zycie085-land CHANGING s_ppais s_pdesc,

           load_urf,

           load_tra,

           load_reca,

           load_seto,

           load_tdo,

           load_uti,

           load_con,

           load_para.

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

  SORT itab_it BY nrseq ebeln ebelp.

* << Fim da exclusão

  MOVE-CORRESPONDING: itab_it TO /pws/zycie100a,

                      itab_it TO /pws/zycie003 .

  PERFORM: load_typeview,

           load_cana,

           load_reg,

           load_lfa,

           load_blag,

           load_ban,

           load_fbwa,

           load_fbvl,

...