Check Role / Kullanıcı Rol Kontrolü

Kullanıcınn role sahip olup olmadığını aşağıdaki form ile görüntüleyebilirsiniz :


form f_check_role using     prm_user type SYUNAME
                            prm_role type AGR_NAME
                  changing yetki_var type c.

 DATA: lt_agr_users TYPE STANDARD TABLE OF agr_users.
    clear yetki_var.

    SELECT FROM agr_users INTO TABLE lt_agr_users
    WHERE AGR_NAME  = prm_role
          AND uname = prm_user
          AND from_dat <= sy-datlo "user`s time zone.
          AND to_dat >= sy-datlo.  "user`s time zone.
"sy-datum SERVER system date.

    if lt_agr_users[] is NOT initial.
        yetki_var = `X`.
    endif.



endform.