Sintoma

Função Trata_Ordem Obsoleta

Solução

Substituição da Função /PWS/ZYCE_SEPARA_ITENS_EMB pela /PWS/ZYCE_SEPARA_ITENS_EMB.

Informações Complementares

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

Nota Número 04402 Data: 13/08/2007 Hora: 14:16:25

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

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

Nota Número              : 04402

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00002

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

SUBST. DA FUNÇÃO /PWS/ZYCE_TRATA_ORDEM PELA /PWS/ZYCE_SEPARA_ITENS_EMB

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

Palavras Chave:

SUBSTITUIÇÃO DA FUNÇÃO /PWS/ZYCE_SEPARA_ITENS_EMB PELA

/PWS/ZYCE_SEPARA_ITENS_EMB

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

Objetos da nota:

REPS /PWS/MZYCE038F01

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

Modificações efetuadas em REPS /PWS/MZYCE038F01

FORM seleciona_dados.

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

  DATA: v_nrseq     LIKE /pws/zycee085-nrseq,

        v_flag(4) TYPE c,

        itab_saida        LIKE /pws/zycee085 OCCURS 10 WITH HEADER LINE,

        itab_estorno      LIKE /pws/zycee085 OCCURS 10 WITH HEADER LINE,

        itab_devolucao    LIKE /pws/zycee085 OCCURS 10 WITH HEADER LINE,

        itab_complemento  LIKE /pws/zycee085 OCCURS 10 WITH HEADER LINE,

        itab_zycee085     LIKE /pws/zycee085 OCCURS 10 WITH HEADER LINE.

* << Fim da exclusão

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

  DATA: v_flag(4) TYPE c,

        itab_saida        LIKE /pws/zycet002 OCCURS 10 WITH HEADER LINE,

        itab_estorno      LIKE /pws/zycet002 OCCURS 10 WITH HEADER LINE,

        itab_devolucao    LIKE /pws/zycet002 OCCURS 10 WITH HEADER LINE,

        itab_complemento  LIKE /pws/zycet002 OCCURS 10 WITH HEADER LINE.

* << Fim da inclusão

  DATA: BEGIN OF itab_vbfa OCCURS 0,

         vbelv LIKE vbfa-vbelv,

         posnv LIKE vbfa-posnv,

         vbeln LIKE vbfa-vbeln,

         posnn LIKE vbfa-posnn,

         ntgew LIKE vbfa-ntgew,

        END OF itab_vbfa.

  DATA: BEGIN OF itab_vbap_aux OCCURS 0,

          vbeln  TYPE vbap-vbeln,

          posnr  TYPE vbap-posnr,

...

...

                 posnr = itab_zycet002-aupos.

        SELECT vbeln

               posnr

               netwr

               FROM vbrp

               INTO TABLE itab_vbrp_aux

               FOR ALL ENTRIES IN itab_zycet002

               WHERE vbeln = itab_zycet002-vbeln_vf AND

                     posnr = itab_zycet002-posnr.

      ENDIF.

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

      REFRESH itab_zycee085.

* << Fim da exclusão

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

      CALL FUNCTION '/PWS/ZYCE_SEPARA_ITENS_EMB'

* << Fim da inclusão

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

      LOOP AT itab_zycet002.

        v_nrseq = v_nrseq + 1.

        itab_zycee085-nrseq = v_nrseq.

        SHIFT itab_zycee085-nrseq RIGHT DELETING TRAILING space.

        UNPACK itab_zycee085-nrseq    TO itab_zycee085-nrseq.

        MOVE:  itab_zycet002-mandt    TO itab_zycee085-mandt,

               itab_zycet002-vbeln_va TO itab_zycee085-vbeln_va,

               itab_zycet002-vbeln_vf TO itab_zycee085-vbeln_vf,

               itab_zycet002-vbeln_vl TO itab_zycee085-vbeln_vl,

               itab_zycet002-posnl    TO itab_zycee085-posnl,

               itab_zycet002-posnr    TO itab_zycee085-posnr,

               itab_zycet002-aupos    TO itab_zycee085-aupos,

               itab_zycet002-ntgew    TO itab_zycee085-ntgew,

               itab_zycet002-brgew    TO itab_zycee085-brgew,

               itab_zycet002-shkzg    TO itab_zycee085-shkzg,

               itab_zycet002-nfnum    TO itab_zycee085-nfnum,

               itab_zycet002-auart    TO itab_zycee085-auart,

               itab_zycet002-waers    TO itab_zycee085-waers,

               itab_zycet002-gewei    TO itab_zycee085-gewei,

               itab_zycet002-inco1    TO itab_zycee085-inco1,

               itab_zycet002-fkimg    TO itab_zycee085-fkimg,

               itab_zycet002-vrkme    TO itab_zycee085-vrkme,

               itab_zycet002-fkart    TO itab_zycee085-fkart,

               itab_zycet002-bukrs    TO itab_zycee085-bukrs.

        IF itab_zycee085-vbeln_va IS INITIAL AND

           itab_zycee085-aupos    IS INITIAL.

          MOVE: itab_zycet002-ebeln TO itab_zycee085-vbeln_va,

                itab_zycet002-ebelp TO itab_zycee085-aupos.

        ENDIF.

        READ TABLE itab_vbap_aux

                   WITH KEY vbeln = itab_zycet002-vbeln_va

                            posnr = itab_zycet002-aupos.

        IF sy-subrc = 0.

          IF itab_vbap_aux-kwmeng > 0.

            PERFORM converte_um USING itab_zycet002-fkimg

                                      itab_zycet002-vrkme

                                      itab_vbap_aux-vrkme

                                      itab_vbap_aux-matnr

                             CHANGING itab_zycet002-fkimg.

            itab_zycee085-vlme =

                       ( itab_vbap_aux-netwr / itab_vbap_aux-kwmeng ) *

                         itab_zycet002-fkimg.

          ELSE.

            itab_zycee085-vlme = itab_vbap_aux-netwr.

          ENDIF.

        ENDIF.

       READ TABLE itab_vbrp_aux WITH KEY vbeln = itab_zycet002-vbeln_vf

                                            posnr = itab_zycet002-posnr.

        IF sy-subrc = 0.

          MOVE: itab_vbrp_aux-netwr TO itab_zycee085-vlme.

        ENDIF.

        APPEND itab_zycee085.

      ENDLOOP.

      EXPORT itab_zycee085 TO MEMORY ID 'ODOC'.

      CALL FUNCTION '/PWS/ZYCE_TRATA_ORDEM'

* << Fim da exclusão

           EXPORTING

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

                nrseq         = wa_zycee001-nrseq

* << Fim da exclusão

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

                nrseq           = wa_zycee001-nrseq

* << Fim da inclusão

           TABLES

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

                t_saida       = itab_saida

                t_estorno     = itab_estorno

                t_devolucao   = itab_devolucao

                t_complemento = itab_complemento.

* << Fim da exclusão

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

                tab_saida       = itab_saida

                tab_complemento = itab_complemento

                tab_devolucao   = itab_devolucao

                tab_estorno     = itab_estorno.

* << Fim da inclusão

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

      DELETE itab_saida WHERE ( vlme = space AND vfob = space ) OR

* << Fim da exclusão

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

      DELETE itab_saida WHERE ( vlme = space AND vlfob = space ) OR

* << Fim da inclusão

                              (  ntgew = space AND brgew = space ).

      LOOP AT itab_zycet002.

       READ TABLE itab_saida WITH KEY vbeln_va = itab_zycet002-vbeln_va

                                      vbeln_vf = itab_zycet002-vbeln_vf

                                      vbeln_vl = itab_zycet002-vbeln_vl

                                         posnl    = itab_zycet002-posnl

                                         posnr    = itab_zycet002-posnr

                                         aupos    = itab_zycet002-aupos.

        CHECK sy-subrc EQ 0.

        APPEND itab_zycet002 TO itab_zycet002_102.

...