Sintoma

Desenvolvimento Adicional

Solução

Inclusão do Parâmetro Setor de Atividade para definir o Range do Embarque. Tabela /PWS/ZYGLT006.

Informações Complementares

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

Nota Número 05009 Data: 17/10/2007 Hora: 13:46:22

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

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

Nota Número              : 05009

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00017

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

INCLUSÃO DO PARÂMETRO SETOR DE ATIVIDADE PARA DEFINIR RANGE DO EMBARQUE

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

Palavras Chave:

SETOR DE ATIVIDADE EMBARQUE RANGE PARAMETRO

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

Objetos da nota:

DYNP /PWS/SAPMZYGL001                        0100

DYNP /PWS/SAPMZYGL001                        0200

REPS /PWS/MZYCE003F01

REPS /PWS/MZYCE003F02

REPS /PWS/MZYCE003TCP

REPS /PWS/MZYGL001F01

REPS /PWS/MZYGL001I01

REPS /PWS/MZYGL001O01

TABD /PWS/ZYGLE006

TABD /PWS/ZYGLT006

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

Modificações efetuadas em DYNP /PWS/SAPMZYGL001                        0100

INCLUIR CAMPO: /PWS/ZYGLE006-SPART EM TC_LISTA

NOME : /PWS/ZYGLE006-SPART

LINHA: 1          COLUNA: 5

COMPR.VIS.: 10     COMPR.DEF.: 2      ALTURA: 1

DICIONÁRIO:

FORMATO: NUMC

(X) - DO DICT.                         MODIFIC.: _______

PROGRAMA:

(X) - CAMPO DE ENTRADA

(X) - CAMPO DE SAÍDA

EXIBIÇÃO:

(X) - FONTE EQUIDISTANTE

( ) - VISÍVEL

INCLUIR TEXTO: /PWS/ZYGLT006-SPART EM TC_LISTA

NOME : /PWS/ZYGLT006-SPART

TEXTO: S.atividade

LINHA: 1           COLUNA: 5

COMPR.VIS.: 10     COMPR.DEF.: 11      ALTURA: 1

DICIONÁRIO:

FORMATO: CHAR

(X) - DO DICT.                         MODIFIC.: F

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

Modificações efetuadas em DYNP /PWS/SAPMZYGL001                        0200

INCLUIR CAMPO: /PWS/ZYGLE006-SPART EM TC_LISTA2

NOME : /PWS/ZYGLE006-SPART

LINHA: 1          COLUNA: 5

COMPR.VIS.: 10     COMPR.DEF.: 2      ALTURA: 1

DICIONÁRIO:

FORMATO: NUMC

(X) - DO DICT.                         MODIFIC.: _______

PROGRAMA:

(X) - CAMPO DE ENTRADA

(X) - CAMPO DE SAÍDA

EXIBIÇÃO:

(X) - FONTE EQUIDISTANTE

( ) - VISÍVEL

INCLUIR TEXTO: /PWS/ZYGLT006-SPART EM TC_LISTA2

NOME : /PWS/ZYGLT006-SPART

TEXTO: S.atividade

LINHA: 1           COLUNA: 5

COMPR.VIS.: 10     COMPR.DEF.: 11      ALTURA: 1

DICIONÁRIO:

FORMATO: CHAR

(X) - DO DICT.                         MODIFIC.: F

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

Modificações efetuadas em REPS /PWS/MZYCE003F01

...

         FROM /pws/zycit054

         INTO TABLE itab_zycit054.

  SELECT uname

         lifnr

         FROM /pws/zycit417

         INTO TABLE itab_zycit417.

  SELECT codmod

         bukrs

         vkorg

         vtweg

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

         spart

* << Fim da inclusão

         gsber

         werks

         j_1bbranch

         range

         FROM /pws/zyglt006

         INTO TABLE itab_zyglt006.

  SELECT arbgb

         msgnr

         text

         msgtp

...

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

Modificações efetuadas em REPS /PWS/MZYCE003F02

...

                'E'

                sy-datum+2(2)

                INTO /pws/zycee001-nrseq.

  ELSE.

    CLEAR itab_zyglt006.

    CLEAR v_range.

    READ TABLE itab_zyglt006 WITH KEY codmod = 'X'

                                      bukrs  = /pws/zycee001-bukrs

                                      vkorg  = /pws/zycee001-vkorg

                                      vtweg  = /pws/zycee001-vtweg

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

                                      spart  = itab_vbak-spart

* << Fim da inclusão

                                      gsber  = /pws/zycee001-gsber

                                      werks  = /pws/zycee001-werks.

    IF sy-subrc EQ 0.

      v_range = itab_zyglt006-range.

    ELSE.

      READ TABLE itab_zyglt006 WITH KEY codmod = 'X'

                                        bukrs  = /pws/zycee001-bukrs.

      IF sy-subrc EQ 0.

        v_range = itab_zyglt006-range.

      ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCE003TCP

...

DATA: END OF itab_zycet317.

DATA: BEGIN OF itab_zycit417 OCCURS 0,

        uname TYPE /pws/zycit417-uname,

        lifnr TYPE /pws/zycit417-lifnr,

      END OF itab_zycit417.

DATA: BEGIN OF itab_zyglt006 OCCURS 0,

        codmod     TYPE /pws/zyglt006-codmod,

        bukrs      TYPE /pws/zyglt006-bukrs,

        vkorg      TYPE /pws/zyglt006-vkorg,

        vtweg      TYPE /pws/zyglt006-vtweg,

* >> Início da inclusão:

        spart      TYPE /pws/zyglt006-spart,

* << Fim da inclusão

        gsber      TYPE /pws/zyglt006-gsber,

        werks      TYPE /pws/zyglt006-werks,

        j_1bbranch TYPE /pws/zyglt006-j_1bbranch,

        range      TYPE /pws/zyglt006-range,

      END OF itab_zyglt006.

DATA: BEGIN OF itab_zyglt100 OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

DATA: BEGIN OF itab_zyglt217 OCCURS 0,

        arbgb   TYPE /pws/zyglt217-arbgb,

...

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

Modificações efetuadas em REPS /PWS/MZYGL001F01

...

endform.

.

FORM SALVA_DADOS.

  LOOP AT ITAB_ZYGLT006.

    MOVE SY-TABIX TO V_TABIX.

    READ TABLE ITAB_ZYGLT006_AUX  WITH KEY

           CODMOD     = ITAB_ZYGLT006-CODMOD

           BUKRS      = ITAB_ZYGLT006-BUKRS

           VKORG      = ITAB_ZYGLT006-VKORG

           VTWEG      = ITAB_ZYGLT006-VTWEG

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

           spart      = itab_zyglt006-spart

* << Fim da inclusão

           GSBER      = ITAB_ZYGLT006-GSBER

           WERKS      = ITAB_ZYGLT006-WERKS

           J_1BBRANCH = ITAB_ZYGLT006-J_1BBRANCH.

    IF SY-SUBRC = 0.

      IF ITAB_ZYGLT006-RANGE <> ITAB_ZYGLT006_AUX-RANGE.

        CONCATENATE ITAB_ZYGLT006_AUX-RANGE '%' INTO V_RANGE.

        IF ITAB_ZYGLT006-CODMOD EQ 'X'.

          SELECT SINGLE * INTO WA_ZYCET001

            FROM /PWS/ZYCET001

            WHERE NRSEQ LIKE V_RANGE.

...

...

        ENDIF.

      ENDIF.

    ENDIF.

  ENDLOOP.

  LOOP AT ITAB_ZYGLT006_AUX.

    READ TABLE ITAB_ZYGLT006_DEL WITH KEY

           CODMOD     = ITAB_ZYGLT006_AUX-CODMOD

            BUKRS      = ITAB_ZYGLT006_AUX-BUKRS

            VKORG      = ITAB_ZYGLT006_AUX-VKORG

            VTWEG      = ITAB_ZYGLT006_AUX-VTWEG

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

            spart      = itab_zyglt006_aux-spart

* << Fim da inclusão

            GSBER      = ITAB_ZYGLT006_AUX-GSBER

            WERKS      = ITAB_ZYGLT006_AUX-WERKS

            J_1BBRANCH = ITAB_ZYGLT006_AUX-J_1BBRANCH

            RANGE      = ITAB_ZYGLT006_AUX-RANGE.

    IF SY-SUBRC = 0.

      CONCATENATE ITAB_ZYGLT006_AUX-RANGE '%' INTO V_RANGE.

      IF ITAB_ZYGLT006_AUX-CODMOD EQ 'X'.

        SELECT SINGLE * INTO WA_ZYCET001

             FROM /PWS/ZYCET001

         WHERE NRSEQ LIKE V_RANGE.

...

...

   MESSAGE I001 WITH TEXT-013.

   EXIT.

  ENDIF.

  MOVE-CORRESPONDING ITAB_ZYGLT006_AUX1 TO ITAB_ZYGLT006_AUX2.

  APPEND ITAB_ZYGLT006_AUX2.

  READ TABLE ITAB_ZYGLT006_AUX2  WITH KEY

          CODMOD     = ITAB_ZYGLT006_AUX1-CODMOD

          BUKRS      = ITAB_ZYGLT006_AUX1-BUKRS

          VKORG      = ITAB_ZYGLT006_AUX1-VKORG

          VTWEG      = ITAB_ZYGLT006_AUX1-VTWEG

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

          spart      = itab_zyglt006_aux1-spart

* << Fim da inclusão

          GSBER      = ITAB_ZYGLT006_AUX1-GSBER

          WERKS      = ITAB_ZYGLT006_AUX1-WERKS

          J_1BBRANCH = ITAB_ZYGLT006_AUX1-J_1BBRANCH.

  IF SY-SUBRC = 0.

    IF ITAB_ZYGLT006_AUX1-RANGE <> ITAB_ZYGLT006_AUX2-RANGE.

      CONCATENATE ITAB_ZYGLT006_AUX2-RANGE '%' INTO V_RANGE.

      IF ITAB_ZYGLT006_AUX1-CODMOD EQ 'X'.

        SELECT SINGLE * INTO WA_ZYCET001

          FROM /PWS/ZYCET001

          WHERE NRSEQ LIKE V_RANGE.

...

...

        V_ERRO = 1.

      ENDIF.

    ENDIF.

  ENDIF.

  LOOP AT ITAB_ZYGLT006_AUX2.

    READ TABLE ITAB_ZYGLT006_DEL WITH KEY

           CODMOD     = ITAB_ZYGLT006_AUX-CODMOD

            BUKRS      = ITAB_ZYGLT006_AUX-BUKRS

            VKORG      = ITAB_ZYGLT006_AUX-VKORG

            VTWEG      = ITAB_ZYGLT006_AUX-VTWEG

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

            spart      = itab_zyglt006_aux-spart

* << Fim da inclusão

            GSBER      = ITAB_ZYGLT006_AUX-GSBER

            WERKS      = ITAB_ZYGLT006_AUX-WERKS

            J_1BBRANCH = ITAB_ZYGLT006_AUX-J_1BBRANCH

            RANGE      = ITAB_ZYGLT006_AUX-RANGE.

    IF SY-SUBRC = 0.

      CONCATENATE ITAB_ZYGLT006_AUX2-RANGE '%' INTO V_RANGE.

      IF ITAB_ZYGLT006_AUX2-CODMOD EQ 'X'.

        SELECT SINGLE * INTO WA_ZYCET001

             FROM /PWS/ZYCET001

             WHERE NRSEQ LIKE V_RANGE.

...

...

FORM ATUALIZA_TELA.

  LOOP AT ITAB_ZYGLT006_AUX1.

    IF NOT ITAB_ZYGLT006_AUX1 IS INITIAL.

     IF NOT ITAB_ZYGLT006_AUX1-RANGE IS INITIAL.

      MOVE-CORRESPONDING ITAB_ZYGLT006_AUX1 TO ITAB_ZYGLT006.

      READ TABLE ITAB_ZYGLT006 WITH KEY

          CODMOD     = ITAB_ZYGLT006_AUX1-CODMOD

          BUKRS      = ITAB_ZYGLT006_AUX1-BUKRS

          VKORG      = ITAB_ZYGLT006_AUX1-VKORG

          VTWEG      = ITAB_ZYGLT006_AUX1-VTWEG

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

            spart      = itab_zyglt006_aux1-spart

* << Fim da inclusão

          GSBER      = ITAB_ZYGLT006_AUX1-GSBER

          WERKS      = ITAB_ZYGLT006_AUX1-WERKS

          J_1BBRANCH = ITAB_ZYGLT006_AUX1-J_1BBRANCH.

       IF SY-SUBRC = 0.

        MODIFY ITAB_ZYGLT006 INDEX SY-TABIX.

      ELSE.

        APPEND ITAB_ZYGLT006.

      ENDIF.

     ENDIF.

    ENDIF.

...

...

  ENDIF.

endform.

form verifica_registros.

  loop at itab_zyglt006_aux1.

    read table itab_zyglt006     with key

                                  mandt = itab_zyglt006_aux1-mandt

                                  codmod = itab_zyglt006_aux1-codmod

                                  bukrs = itab_zyglt006_aux1-bukrs

                                  vkorg = itab_zyglt006_aux1-vkorg

                                  vtweg = itab_zyglt006_aux1-vtweg

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

                                  spart = itab_zyglt006_aux1-spart

* << Fim da inclusão

                                  gsber = itab_zyglt006_aux1-gsber

                                  werks = itab_zyglt006_aux1-werks

                              j_1bbranch = itab_zyglt006_aux1-j_1bbranch

                                   range = itab_zyglt006_aux1-range.

    if sy-subrc eq '0'.

      message i001 with text-014 itab_zyglt006_aux-range.

      v_doble = '1'.

    else.

      v_mod = 'F'.

      v_doble = '0'.

...

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

Modificações efetuadas em REPS /PWS/MZYGL001I01

MODULE modify_itab INPUT.

  MOVE /pws/zygle006-codmod     TO itab_zyglt006-codmod.

  MOVE /pws/zygle006-bukrs      TO itab_zyglt006-bukrs.

  MOVE /pws/zygle006-vkorg      TO itab_zyglt006-vkorg.

  MOVE /pws/zygle006-vtweg      TO itab_zyglt006-vtweg.

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

  MOVE /pws/zygle006-spart      TO itab_zyglt006-spart.

* << Fim da inclusão

  MOVE /pws/zygle006-gsber      TO itab_zyglt006-gsber.

  MOVE /pws/zygle006-werks      TO itab_zyglt006-werks.

  MOVE /pws/zygle006-j_1bbranch TO itab_zyglt006-j_1bbranch.

  READ TABLE itab_zyglt006 WITH KEY

             codmod     = /pws/zygle006-codmod

             bukrs      = /pws/zygle006-bukrs

             vkorg      = /pws/zygle006-vkorg

             vtweg      = /pws/zygle006-vtweg

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

             spart      = /pws/zygle006-spart

* << Fim da inclusão

             gsber      = /pws/zygle006-gsber

             werks      = /pws/zygle006-werks

             j_1bbranch = /pws/zygle006-j_1bbranch.

  IF sy-subrc = 4.

    APPEND itab_zyglt006.

  ENDIF.

  MOVE mark                TO itab_zyglt006-mark.

  MOVE /pws/zygle006-range      TO itab_zyglt006-range.

  MODIFY itab_zyglt006 INDEX tc_lista-current_line .

ENDMODULE.

...

...

    ENDIF.

    IF NOT v_flag IS INITIAL.

      EXIT.

    ENDIF.

    READ TABLE itab_zyglt006_aux1 INDEX tc_lista2-current_line.

    IF sy-subrc NE 0.

      MOVE /pws/zygle006-codmod     TO itab_zyglt006_aux1-codmod.

      MOVE /pws/zygle006-bukrs      TO itab_zyglt006_aux1-bukrs.

      MOVE /pws/zygle006-vkorg      TO itab_zyglt006_aux1-vkorg.

      MOVE /pws/zygle006-vtweg      TO itab_zyglt006_aux1-vtweg.

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

      MOVE /pws/zygle006-spart      TO itab_zyglt006_aux1-spart.

* << Fim da inclusão

      MOVE /pws/zygle006-gsber      TO itab_zyglt006_aux1-gsber.

      MOVE /pws/zygle006-werks      TO itab_zyglt006_aux1-werks.

      MOVE /pws/zygle006-j_1bbranch TO itab_zyglt006_aux1-j_1bbranch.

      MOVE mark                     TO itab_zyglt006_aux1-mark.

      MOVE /pws/zygle006-range      TO itab_zyglt006_aux1-range.

      APPEND itab_zyglt006_aux1.

    ELSE.

      MOVE /pws/zygle006-codmod     TO itab_zyglt006_aux1-codmod.

      MOVE /pws/zygle006-bukrs      TO itab_zyglt006_aux1-bukrs.

      MOVE /pws/zygle006-vkorg      TO itab_zyglt006_aux1-vkorg.

      MOVE /pws/zygle006-vtweg      TO itab_zyglt006_aux1-vtweg.

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

      MOVE /pws/zygle006-spart      TO itab_zyglt006_aux1-spart.

* << Fim da inclusão

      MOVE /pws/zygle006-gsber      TO itab_zyglt006_aux1-gsber.

      MOVE /pws/zygle006-werks      TO itab_zyglt006_aux1-werks.

      MOVE /pws/zygle006-j_1bbranch TO itab_zyglt006_aux1-j_1bbranch.

      MOVE mark                     TO itab_zyglt006_aux1-mark.

      MOVE /pws/zygle006-range      TO itab_zyglt006_aux1-range.

      MODIFY itab_zyglt006_aux1 INDEX tc_lista2-current_line .

    ENDIF.

  ELSE.

    IF v_mod EQ 'X'.

      MESSAGE w001 WITH text-006 text-007.

...

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

Modificações efetuadas em REPS /PWS/MZYGL001O01

module status_0100 output.

  set pf-status '101'.

  perform seleciona_dados.

endmodule.

module modify_tela output.

  move: itab_zyglt006-codmod     to /pws/zygle006-codmod.

  move  itab_zyglt006-bukrs      to /pws/zygle006-bukrs.

  move  itab_zyglt006-vkorg      to /pws/zygle006-vkorg.

  move  itab_zyglt006-vtweg      to /pws/zygle006-vtweg.

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

  MOVE  itab_zyglt006-spart      TO /pws/zygle006-spart.

* << Fim da inclusão

  move  itab_zyglt006-gsber      to /pws/zygle006-gsber.

  move  itab_zyglt006-werks      to /pws/zygle006-werks.

  move  itab_zyglt006-j_1bbranch to /pws/zygle006-j_1bbranch.

  move  itab_zyglt006-range      to /pws/zygle006-range.

  move itab_zyglt006-mark       to mark.

  tc_lista-lines = tc_lista-lines + 8.

endmodule.

module set_screen output.

  if v_status = 0.

    loop at tc_lista-cols into wa_cols.

...

...

  endif.

endmodule.

module status_0200 output.

  set pf-status '200'.

endmodule.

module modify_tela2 output.

  move: itab_zyglt006_aux1-codmod     to /pws/zygle006-codmod    ,

        itab_zyglt006_aux1-bukrs      to /pws/zygle006-bukrs     ,

        itab_zyglt006_aux1-vkorg      to /pws/zygle006-vkorg     ,

        itab_zyglt006_aux1-vtweg      to /pws/zygle006-vtweg     ,

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

        itab_zyglt006_aux1-spart      TO /pws/zygle006-spart     ,

* << Fim da inclusão

        itab_zyglt006_aux1-gsber      to /pws/zygle006-gsber     ,

        itab_zyglt006_aux1-werks      to /pws/zygle006-werks     ,

        itab_zyglt006_aux1-j_1bbranch to /pws/zygle006-j_1bbranch,

        itab_zyglt006_aux1-range      to /pws/zygle006-range     .

  tc_lista2-lines = tc_lista2-lines + 8.

endmodule.

module set_screen_table output.

  if v_status eq 0.

    loop at screen.

      if v_mod eq 'D'.

        if screen-name eq '/PWS/ZYGLE006-VKORG' or

           screen-name eq '/PWS/ZYGLE006-VTWEG' or

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

           screen-name EQ '/PWS/ZYGLE006-SPART' OR

* << Fim da inclusão

           screen-name eq '/PWS/ZYGLE006-GSBER' or

           screen-name eq '/PWS/ZYGLE006-WERKS'.

          clear: itab_zyglt006_aux1-vkorg,

                 itab_zyglt006_aux1-vtweg,

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

                 itab_zyglt006_aux1-spart,

* << Fim da inclusão

                 itab_zyglt006_aux1-gsber,

                 itab_zyglt006_aux1-werks.

          screen-input = '0'.

...

...

        screen-input = '1'.

      endif.

      modify screen.

    endloop.

  endif.

  if v_mod eq 'F'.

    loop at screen.

      case screen-name.

        when '/PWS/ZYGLE006-VKORG'  or

             '/PWS/ZYGLE006-VTWEG'  or

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

             '/PWS/ZYGLE006-SPART'  OR

* << Fim da inclusão

             '/PWS/ZYGLE006-GSBER'  or

             '/PWS/ZYGLE006-WERKS'  or

             '/PWS/ZYGLE006-BUKRS'  or

             '/PWS/ZYGLE006-CODMOD' or

             '/PWS/ZYGLE006-J_1BBRANCH'.

          if itab_zyglt006_aux1-vkorg      = ' ' and

             itab_zyglt006_aux1-vtweg      = ' ' and

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

             itab_zyglt006_aux1-spart      = ' ' AND

* << Fim da inclusão

             itab_zyglt006_aux1-gsber      = ' ' and

             itab_zyglt006_aux1-werks      = ' ' and

             itab_zyglt006_aux1-bukrs      = ' ' and

             itab_zyglt006_aux1-codmod     = ' ' and

             itab_zyglt006_aux1-j_1bbranch = ' '   .

            clear v_mod.

            screen-input = '1'.

          else.

            if v_doble <> '1'.

              screen-input = '0'.

...

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

Modificações efetuadas em TABD /PWS/ZYGLE006

MODIFICAR ESTRUTURA: /PWS/ZYGLE006

CAMPOS:         TP. CAMPO   CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

VKORG

VTWEG

*>>Início da Inclusão

SPART            SPART                TSPA

* << Fim da inclusão

GSBER

WERKS

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

Modificações efetuadas em TABD /PWS/ZYGLT006

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYGLT006

CAMPOS:         TP. CAMPO   CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

VKORG

VTWEG

*>>Início da Inclusão

SPART            SPART       X   X     TSPA

* << Fim da inclusão

GSBER

WERKS