Sintoma

Erros/Warnings no Code Inspector e na Verificação Ampliada  e não há bloqueio nos Programas

/PWS/SAPMZYCE037 e /PWS/SAPMZYCE312 .

Solução

Correção dos Erros e Warnings Apresentados no Code Inspector e na Verificação Ampliada e

Criação objetos de bloqueio /PWS/EZYCET037 e /PWS/EZYCET312 .

Funções de bloqueio: DEQUEUE_/PWS/EZYCET037 e ENQUEUE_/PWS/EZYCET037

                     DEQUEUE_/PWS/EZYCET312 e ENQUEUE_/PWS/EZYCET312.

Substituidas funções obsoletas no programa  '/PWS/SAPMZYCET037' e '/PWS/SAPMZYCET312'.

Informações Complementares

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

Nota Número 05749 Data: 24/01/2008 Hora: 11:21:38

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

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

Nota Número              : 05749

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

CODE INSPECTOR E OBJETO DE BLOQUEIO PARAMENTROS GERAIS

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

Palavras Chave:

CODE INSPECTOR, OBJETO DE BLOQUEIO, PARAMETROS GERAIS, ZYCET312,ZYCET037

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

Objetos da nota:

DYNP /PWS/SAPMZYCE037                        1110

ENQU /PWS/EZYCET037

ENQU /PWS/EZYCET312

REPS /PWS/MZYCE037F01

REPS /PWS/MZYCE037TOP

REPS /PWS/MZYCE312F01

REPT /PWS/SAPMZYCE037

REPT /PWS/SAPMZYCE312

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE037                        1110

LISTA DE ELEMENTO

ALTERAR ATRIBUTOS GERAIS:

NOME: /PWS/ZYCET037-BUKRS

TIPO: Texto

DICT. MODIFICADO: F - Texto: texto fixo, modificado; sem transferência de texto

ALTERAR LOG. PROCESS:

PROCESS BEFORE OUTPUT.

  MODULE: set_screen_standard.

PROCESS AFTER INPUT.

  FIELD /pws/zycet037-bukrs      MODULE loadbukrs ON REQUEST.

  FIELD /pws/zycet037-gsber      MODULE loadgsber ON REQUEST.

  FIELD /pws/zycet037-werks      MODULE loadwerks ON REQUEST.

PROCESS ON HELP-REQUEST.

  FIELD /pws/zycet037-bukrs      MODULE help_campos. " Empresa

  FIELD /pws/zycet037-gsber      MODULE help_campos. " Divisão

  FIELD /pws/zycet037-werks      MODULE help_campos. " Centro

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

Modificações efetuadas em ENQU /PWS/EZYCET037

CRIAR OBJETO DE BLOQUEIO : /PWS/EZYCET037

CLASSE DE DESENVOLVIMENTO:  /PWS/ZYCE

DESCRIÇÃO BREVE: Bloqueio para tabela /pws/zycet037

TABELA PRIMARIA: /PWS/ZYCET037

MODO BLOQUEIO: Bloqueio de escrita

PARAMETRO DE BLOQUEIO: Marcar  MANDT e BUKRS

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

Modificações efetuadas em ENQU /PWS/EZYCET312

CRIAR OBJETO DE BLOQUEIO : /PWS/EZYCET312

CLASSE DE DESENVOLVIMENTO:  /PWS/ZYCE

DESCRIÇÃO BREVE: Bloqueio para tabela /pws/zycet312

TABELA PRIMARIA: /PWS/ZYCET312

MODO BLOQUEIO: Bloqueio de escrita

PARAMETRO DE BLOQUEIO: Marcar  MANDT

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

Modificações efetuadas em REPS /PWS/MZYCE037F01

...

         spras EQ glangu AND

         ktokk EQ /pws/zycet037-ktokk.

ENDFORM.

FORM loadkappl.

  CLEAR skappl.

  SELECT SINGLE vtext FROM t681b INTO skappl WHERE

         spras EQ glangu AND

         kappl EQ /pws/zycet037-kappl.

ENDFORM.

FORM datalock.

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

  DATA v_user LIKE sy-uname.

* << Fim da exclusão

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

  CALL FUNCTION 'ENQUEUE_/PWS/EZYCET037'

* << Fim da inclusão

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

  CALL FUNCTION '/PWS/ZYCE_ENQUEUE_ZYCET037'

* << Fim da exclusão

       EXPORTING

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

            mode_zycet037  = 'E'

* << Fim da exclusão

            mandt          = sy-mandt

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

       IMPORTING

            user           = v_user

* << Fim da exclusão

       EXCEPTIONS

            foreign_lock   = 1

            system_failure = 2

            OTHERS         = 3.

  IF sy-subrc <> 0.

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

    MESSAGE w001 WITH text-015 v_user text-007.

* << Fim da exclusão

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

    MESSAGE ID sy-msgid TYPE 'W' NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

* << Fim da inclusão

    gmodify = 'N'.

  ENDIF.

ENDFORM.

FORM dataunlock.

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

  CALL FUNCTION '/PWS/ZYCE_DEQUEUE_ZYCET037'

* << Fim da exclusão

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

  CALL FUNCTION 'DEQUEUE_/PWS/EZYCET037'

* << Fim da inclusão

       EXPORTING

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

            mode_zycet037 = 'E'

            mandt         = sy-mandt

       EXCEPTIONS

            OTHERS        = 1.

* << Fim da exclusão

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

            mandt = sy-mandt.

* << Fim da inclusão

ENDFORM.

FORM modelo.

  CLEAR: sy-ucomm.

  v_bukrs_modelo = /pws/zycet037-bukrs.

  SELECT SINGLE * FROM /pws/zycet037

           WHERE bukrs EQ v_bukrs.

  IF sy-subrc NE 0.

    CLEAR: v_bukrs, ginit.

    MESSAGE i016 WITH text-008.

    CALL SCREEN '0001' STARTING AT 50 8.

...

...

            icon_button_1         = 'ICON_OKAY'

            text_button_2         = text-012

            icon_button_2         = 'ICON_CANCEL'

            default_button        = '1'

            display_cancel_button = ' '

       IMPORTING

            answer                = v_exclui

       EXCEPTIONS

            text_not_found        = 1

            OTHERS                = 2.

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

  CHECK sy-subrc IS INITIAL.

* << Fim da inclusão

  IF v_exclui EQ '1'.

    DELETE FROM /pws/zycet037

           WHERE bukrs EQ v_bukrs.

    CLEAR: /pws/zycet037, wa_zycet037, v_bukrs, ginit.

    MESSAGE i016 WITH text-013.

    CALL SCREEN '1000'.

  ENDIF.

ENDFORM.

FORM ativa.

  IF sy-dynnr = '1150'.

...

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

Modificações efetuadas em REPS /PWS/MZYCE037TOP

PROGRAM /pws/sapmzyce037 MESSAGE-ID /pws/zycem.

TABLES: /pws/zycet037,

* >> Início da exclusão:

        /pws/zycet282,

        /pws/zyglt320.

* << Fim da exclusão

* >> Início da inclusão:

        /pws/zycet282.

* << Fim da inclusão

DATA: wa_zycet037 LIKE /pws/zycet037.

DATA:  BEGIN OF itab_botao OCCURS 10,

        fcode LIKE rsmpe-func,

       END OF itab_botao.

DATA: gmodify,

      ginit,

      gresp,

      glangu            LIKE sy-langu,

* >> Início da exclusão:

      gdyn1(4)          TYPE c VALUE '1100',

* << Fim da exclusão

* >> Início da inclusão:

      gdyn1(4)          TYPE c VALUE '1100',                "#EC NEEDED

* << Fim da inclusão

      gtab1             LIKE sy-ucomm VALUE 'FEXP',

* >> Início da exclusão:

      gdyn2(4)          TYPE c VALUE '1110',

* << Fim da exclusão

* >> Início da inclusão:

      gdyn2(4)          TYPE c VALUE '1110',                "#EC NEEDED

* << Fim da inclusão

      gtab2             LIKE sy-ucomm VALUE 'FEMP',

* >> Início da exclusão:

      gdyn3(4)          TYPE c VALUE '1151',

* << Fim da exclusão

* >> Início da inclusão:

      gdyn3(4)          TYPE c VALUE '1151',                "#EC NEEDED

* << Fim da inclusão

      gtab3             LIKE sy-ucomm VALUE 'TAB_GEL',

      gtab4             LIKE sy-ucomm VALUE 'FCONG'.

DATA: sbukrs            LIKE t001-butxt,

      sgsber            LIKE tgsbt-gtext,

      swerks            LIKE t001w-name1,

      sktokk            LIKE t077y-txt30,

      splcontas         LIKE t004t-ktplt,

      skappl            LIKE t681b-vtext.

DATA: v_bukrs           LIKE /pws/zycet037-bukrs,

      v_bukrs_modelo    LIKE /pws/zycet037-bukrs,

      v_copy(1)         TYPE n,

      v_name(100)       TYPE c,

      v_campo(100)     TYPE c,

      v_exclui(1)       TYPE c.

* >> Início da exclusão:

CONTROLS: tsmain  TYPE TABSTRIP,

          tsexpo  TYPE TABSTRIP,

          ts_emb  TYPE TABSTRIP,

          ts_cont TYPE TABSTRIP.

* << Fim da exclusão

* >> Início da inclusão:

CONTROLS: tsmain  TYPE TABSTRIP,                            "#EC NEEDED

          tsexpo  TYPE TABSTRIP,                            "#EC NEEDED

          ts_emb  TYPE TABSTRIP,                            "#EC NEEDED

          ts_cont TYPE TABSTRIP.                            "#EC NEEDED

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCE312F01

...

  IF v_answer IS INITIAL.

    READ TABLE itab_campos INDEX 1 TRANSPORTING value.

    p_empresa = itab_campos-value.

    PERFORM selecionar_parametros.

  ELSE.

    CLEAR p_empresa.

    reg_emp-activetab = 'PAR_GER'.

  ENDIF.

ENDFORM.

FORM trancar_tabela.

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

  DATA v_user LIKE sy-uname.

* << Fim da exclusão

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

  IF v_trancar IS INITIAL.

* << Fim da inclusão

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

  IF v_trancar IS INITIAL.

    CALL FUNCTION '/PWS/ZYCE_ENQUEUE_ZYCET312'

* << Fim da exclusão

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

    CALL FUNCTION 'ENQUEUE_/PWS/EZYCET312'

* << Fim da inclusão

         EXPORTING

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

              mode_zycet312  = 'E'

* << Fim da exclusão

              mandt          = sy-mandt

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

         IMPORTING

              user           = v_user

* << Fim da exclusão

         EXCEPTIONS

              foreign_lock   = 1

              system_failure = 2

              OTHERS         = 3.

    IF sy-subrc NE 0.

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

      MESSAGE w001 WITH text-001 v_user text-002.

* << Fim da exclusão

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

      MESSAGE ID sy-msgid TYPE 'W' NUMBER sy-msgno

              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

* << Fim da inclusão

      v_trancar = 'X'.

      EXIT.

    ELSE.

      CLEAR v_trancar.

    ENDIF.

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

    CALL FUNCTION '/PWS/ZYCE_ENQUEUE_ZYCET037'

* << Fim da exclusão

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

    CALL FUNCTION 'ENQUEUE_/PWS/EZYCET037'

* << Fim da inclusão

         EXPORTING

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

              mode_zycet037  = 'E'

* << Fim da exclusão

              mandt          = sy-mandt

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

         IMPORTING

              user           = v_user

* << Fim da exclusão

         EXCEPTIONS

              foreign_lock   = 1

              system_failure = 2

              OTHERS         = 3.

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

    IF sy-subrc NE 0.

      MESSAGE w001 WITH text-001 v_user text-007.

* << Fim da exclusão

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

    IF sy-subrc <> 0.

      MESSAGE ID sy-msgid TYPE 'W' NUMBER sy-msgno

              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

* << Fim da inclusão

      v_trancar = 'X'.

    ELSE.

      CLEAR v_trancar.

    ENDIF.

  ENDIF.

ENDFORM.

FORM destravar_tabela.

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

  CALL FUNCTION '/PWS/ZYCE_DEQUEUE_ZYCET037'

* << Fim da exclusão

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

  CALL FUNCTION 'DEQUEUE_/PWS/EZYCET037'

* << Fim da inclusão

       EXPORTING

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

            mode_zycet037 = 'E'

            mandt         = sy-mandt.

* << Fim da exclusão

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

            mandt = sy-mandt.

* << Fim da inclusão

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

  CALL FUNCTION '/PWS/ZYCE_DEQUEUE_ZYCET312'

* << Fim da exclusão

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

  CALL FUNCTION 'DEQUEUE_/PWS/EZYCET312'

* << Fim da inclusão

       EXPORTING

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

            mode_zycet312 = 'E'

            mandt         = sy-mandt.

* << Fim da exclusão

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

            mandt = sy-mandt.

* << Fim da inclusão

ENDFORM.

FORM habilitar_linhas.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCE037

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 007

Texto: (34 caracteres)

"está modificando estes parâmetros!"

Comprimento máximo: 48

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 015

Texto: (7 caracteres)

"Usuário"

Comprimento máximo: 7

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

Modificações efetuadas em REPT /PWS/SAPMZYCE312

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 001

Texto: (7 caracteres)

"Usuário"

Comprimento máximo: 7

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 002

Texto: (26 caracteres)

"já modifica os parâmetros!"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 007

Texto: (49 caracteres)

"está modificando os Parâm. Gerais! (/PWS/ZYCE037)"

Comprimento máximo: 53