Sintoma

Problema de Performance

Solução

Adicionado desenvolvimento para filtrar os dados selecionados.

Informações Complementares

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

Nota Número 04560 Data: 29/08/2007 Hora: 14:30:12

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

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

Nota Número              : 04560

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00010

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

TRATAMENTO PARA MELHORAR PERFORMANCE NA VARIAÇÃO CAMBIAL

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

Palavras Chave:

VARIAÇÃO CAMBIAL PERFORMANCE

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

Objetos da nota:

REPS /PWS/ZYCER007

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

Modificações efetuadas em REPS /PWS/ZYCER007

...

           WHERE nrseq IN s_emb.

  ENDIF.

  PERFORM trata_emb.

  IF NOT it_zycet001[] IS INITIAL.

    LOOP AT it_zycet001.

      ON CHANGE OF it_zycet001-bukrs.

        PERFORM verifica_autorizacao USING it_zycet001-bukrs

                                           '01'.

      ENDON.

    ENDLOOP.

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

    IF p_reimp EQ 'X'.

* << Fim da inclusão

    SELECT nrseq

           vbeln_va

           vbeln_vf

           posnr

           vbeln_vl

           posnl

           docnum

           auart

           waers

           kurrf

...

...

           inco1

           fkimg

           ntgew

           brgew

           st_vd

           st_rm

           FROM /pws/zycet002

           INTO TABLE it_zycet002

           FOR ALL ENTRIES IN it_zycet001

           WHERE nrseq  EQ it_zycet001-nrseq.

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

    ELSE.

      SELECT nrseq

             vbeln_va

             vbeln_vf

             posnr

             vbeln_vl

             posnl

             docnum

             auart

             waers

             kurrf

             zterm

             ktgrd

             bukrs

             kunag

             gsber

             matnr

             werks

             ktgrm

             prctr

             vkorg_auft

             vlemb

             nfnum

             dtcont

             dtnf

             belnr5

             shkzg

             vrkme

             vtweg_auft

             spara

             fkdat

             aupos

             fkart

             vlfob

             inco1

             fkimg

             ntgew

             brgew

             st_vd

             st_rm

             FROM /pws/zycet002

             INTO TABLE it_zycet002

             FOR ALL ENTRIES IN it_zycet001

             WHERE nrseq  EQ it_zycet001-nrseq

             AND dtnf EQ '00000000'

             AND dtcont EQ '00000000'.

    ENDIF.

* << Fim da inclusão

    IF NOT it_zycet002[] IS INITIAL.

      SELECT * FROM /pws/zycet012 INTO TABLE it_zycet012

        FOR ALL ENTRIES IN it_zycet002

        WHERE nrseq  =  it_zycet002-nrseq

        AND   belnr5 NE space

        AND   belnr8 EQ space.

      IF NOT it_zycet012[] IS INITIAL AND p_reimp IS INITIAL.

        LOOP AT it_zycet012.

          READ TABLE it_zycet002 WITH KEY nrseq = it_zycet012-nrseq.

          IF sy-subrc = 0.

...