× ABAP

Chequear los objetos de autorización sin contar SAP_ALL

Más
1 año 11 meses antes #104 por raulete
* NOTA: Authority check no bloquea usuarios con SAP_ALL
*  AUTHORITY-CHECK OBJECT 'ZOBJ'
*           ID 'ZOBJ' FIELD 'X'.
* Obtenemos los objetos de autorización, y nos aseguramos que el permiso
* lo otorga el perfil T-Dxxxxxxx del rol ZROL
  CLEAR: it_autorizaciones, wa_autoriza.
  REFRESH it_autorizaciones.
  CALL FUNCTION 'GET_AUTH_VALUES'
    EXPORTING
      object1           = 'ZOBJ'
      user                = sy-uname
      tcode              = sy-tcode
    TABLES
      values             = it_autorizaciones
    EXCEPTIONS
      user_doesnt_exist = 1
      OTHERS                = 2.
  IF sy-subrc NE 0.
    MESSAGE e368(zses) WITH 'No tiene autorización'.
  ELSE.
    READ TABLE it_autorizaciones INTO wa_autoriza
                                 WITH KEY field  = 'ZOBJ'
                                          auth   = 'T-Dxxxxxxx'
                                          lowval = 'X'.
    IF sy-subrc NE 0.
      MESSAGE e368(zses) WITH 'No tiene autorización'.
    ENDIF.
  ENDIF.

Por favor, Iniciar sesión o Crear cuenta para unirse a la conversación.

Tiempo de carga de la página: 0.090 segundos
Gracias a Foro Kunena