Sintoma

O sistema não verificava a permissão do usuário para execução da transação

Solução

Foi incluída a verificação de permissão para as transações no perfil do usuário

Informações Complementares

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

Nota Número 11064 Data: 04/04/2011 Hora: 14:40:20

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

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

Nota Número              : 11064

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00007

Agrupamento              : 00065

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

Referência às notas relacionadas:

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

06017  - 00001 - 7.0    - 00004 - CB - 442639 - CODE INSPECTOR

06029  - 00002 - 7.0    - 00004 - CB - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA

10752  - 00003 - 8.0    - 00005 - PARÂMETROS - PARÂMETROS GERAIS - GRAVAÇÃO EM REQUEST

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

Texto Rápido:

DOWNLOAD - UPLOAD - PARAMETRIZAÇÃO APROVAÇÃO AUTOM.

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

Palavras Chave:

DOWNLOAD - UPLOAD - PARAMETRIZAÇÃO APROVAÇÃO AUTOM.

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

Objetos da nota:

DYNP /PWS/SAPMZYCBT133                       0100

REPS /PWS/MZYCB251O01

REPS /PWS/MZYCB251TOP

REPS /PWS/MZYCBT133O01

REPS /PWS/MZYCBT133TOP

REPS /PWS/MZYGL032O01

REPS /PWS/MZYGL032TOP

REPT /PWS/SAPMZYCB032

REPT /PWS/SAPMZYCB251

REPT /PWS/SAPMZYCBT133

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

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

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100

PROCESS BEFORE OUTPUT.

* >> Início da exclusão:

 MODULE: STATUS_0100,

* << Fim da exclusão

* >> Início da inclusão:

  module: verifica_autorizacao,

          status_0100,

* << Fim da inclusão

         SELECIONA,

         LINHA_TC.

loop at itab_zycbt133 with control tc_param

                           cursor  tc_param-current_line.

   MODULE: ITAB_TO_TC,

           CURRENT,

           ABRE_FECHA.

endloop.

module set_cursor.

PROCESS AFTER INPUT.

...

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

Modificações efetuadas em REPS /PWS/MZYCB251O01

...

  ELSE.

    LOOP AT SCREEN.

      IF screen-name = 'TAB_ARQ'.

        screen-invisible = 1.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDMODULE.

MODULE verifica_perfil OUTPUT.

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

  if not v_transacao is initial.

    authority-check object 'S_TCODE' id 'TCD' field  v_transacao.

    if sy-subrc ne 0.

      message e061 with text-036 text-037 v_transacao.

    endif.

    clear v_transacao.

  endif.

* << Fim da inclusão

  PERFORM load_dominio USING    '/PWS/ZYCBD004'

                                /pws/zygle205-perfil

                       CHANGING perfil.

  IF dir IS INITIAL.

    SELECT  path FROM /pws/zycbt007 INTO dir

    UP TO 1 ROWS.

    ENDSELECT.

  ENDIF.

ENDMODULE.

MODULE load_tables_transp OUTPUT.

...

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

Modificações efetuadas em REPS /PWS/MZYCB251TOP

...

      v_sort(30),

      v_sort2(30),"#EC *

      aux(30),

      v_flag_table,

      mark,

      mark1,

      v_transaction LIKE sy-tcode,

      v_backup(03),

      v_flag_lock,

      v_mensagem(100).

* >> Início da inclusão:

data: v_transacao type sy-ucomm value '/PWS/ZYCB251'.

* << Fim da inclusão

DATA: rangetab TYPE TABLE OF vimsellist INITIAL SIZE 50

         WITH HEADER LINE.

DATA: BEGIN OF it_fields OCCURS 0,

            fieldname LIKE dd03l-fieldname,

            position  LIKE dd03l-position,

            keyflag   LIKE dd03l-keyflag,

            intlen    LIKE dd03l-intlen,

            app,

      END   OF it_fields.

DATA: BEGIN OF it100 OCCURS 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCBT133O01

...

endmodule.

module CURRENT output.

  perform current.

endmodule.

module ABRE_FECHA output.

  perform abre_fecha.

endmodule.

module set_cursor output.

  perform set_cursor.

endmodule.

* >> Início da inclusão:

module verifica_autorizacao output.

  if not v_transacao is initial.

    authority-check object 'S_TCODE' id 'TCD' field  v_transacao.

    if sy-subrc ne 0.

      message e000 with text-026 text-027 v_transacao.

    endif.

    clear v_transacao.

  endif.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCBT133TOP

...

      v_lines        TYPE i,

      v_alt          TYPE i,

      v_resposta(1)  TYPE c,

      v_marca        LIKE sy-tabix,

      v_marca_ult    LIKE sy-tabix.

DATA: v_field(40)    TYPE c,

      v_linha        TYPE i,  "#EC *

      v_offset       TYPE i.

DATA: v_task  TYPE trkorr,

      v_order TYPE trkorr.

* >> Início da inclusão:

data: v_transacao type sy-ucomm value '/PWS/ZYCBT133'.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYGL032O01

...

  FREE it_botoes.

  IF dynpronr = '0002'.

    it_botoes-nome = 'SELE'.

    APPEND it_botoes.

  ENDIF.

  SET PF-STATUS '0001'.

  SET TITLEBAR  '001'  WITH text-001.

  IF v_status_s IS INITIAL.

    v_status_s = '0'.

  ENDIF.

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

  if not v_transacao is initial.

    authority-check object 'S_TCODE' id 'TCD' field  v_transacao.

    if sy-subrc ne 0.

      message e000 with text-020 text-021 v_transacao.

    endif.

    clear v_transacao.

  endif.

* << Fim da inclusão

ENDMODULE.

MODULE set_objects OUTPUT.

  PERFORM load_tree_control.

  if sy-ucomm ne 'ENTE'.

  MOVE-corresponding  /pws/zycbe214 TO wa_zycbt214.

  endif.

ENDMODULE.

MODULE status_0003 OUTPUT.

  PERFORM trata_campos.

  v_tela = 'X'.

ENDMODULE.

MODULE carrega_campos OUTPUT. "#EC *

  READ TABLE itab_zycbt214 WITH KEY tpcontr = node-node_key.

  MOVE itab_zycbt214 TO /pws/zycbt214.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYGL032TOP

...

  okcode             LIKE sy-ucomm                      ,

  okcode_aux         LIKE sy-ucomm                      ,

  dynpronr           LIKE sy-dynnr VALUE '0002'         ,

  v_linha            TYPE i                       ,"#EC *

  v_pos              TYPE i                       ,"#EC *

  v_visivel                                       ,"#EC *

  v_status_s                                            ,

  v_answer                                              ,

  v_tela                                                ,

  v_novo                                                .

* >> Início da inclusão:

data: v_transacao type sy-ucomm value '/PWS/ZYCB032'.

* << Fim da inclusão

CLASS lcl_event_click DEFINITION.

  PUBLIC SECTION.

    CLASS-METHODS:

          select_item FOR EVENT selection_changed OF cl_gui_simple_tree

                                                     IMPORTING node_key.

ENDCLASS.

CLASS lcl_event_click IMPLEMENTATION.

  METHOD: select_item.

    CLEAR node.

    CALL METHOD g_tree->get_selected_node IMPORTING

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB032

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 020

Texto: (30 caracteres)

"Usuário não possui autorização"

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 021

Texto: (16 caracteres)

"para a transação"

Comprimento máximo: 17

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

Modificações efetuadas em REPT /PWS/SAPMZYCB251

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 036

Texto: (30 caracteres)

"Usuário não possui autorização"

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 037

Texto: (16 caracteres)

"para a transação"

Comprimento máximo: 17

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

Modificações efetuadas em REPT /PWS/SAPMZYCBT133

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 026

Texto: (30 caracteres)

"Usuário não possui autorização"

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 027

Texto: (16 caracteres)

"para a transação"

Comprimento máximo: 17