函数：abap自定义权限检查函数
FORM frm_authority_check.*DATA: l_return_num TYPE i.
CALL FUNCTION 'Z_03FI_AUTH_CHECK'
EXPORTING
i_bukrs =p_code
i_actvt ='03'
*IMPORTING
* E_RETURN =l_return_num .
.
ENDFORM. "frm_authority_check
FUNCTION Z_03FI_AUTH_CHECK .
*"----------------------------------------------------------------------
*"*"Local interface:
*"IMPORTING
*" REFERENCE(I_BUKRS) TYPEBUKRS DEFAULT '1201'
*" REFERENCE(I_ACTVT) TYPEACTIV_AUTH
*"EXPORTING
*" REFERENCE(E_RETURN) TYPESY-SUBRC
*"----------------------------------------------------------------------
DATA: l_mod(10) TYPE c.
CLEAR l_mod.
CASE i_actvt.
WHEN '01'.
l_mod = '创建'.
WHEN '02'.
l_mod = '修改'.
WHEN '03'.
l_mod = '查询'.
WHEN OTHERS.
l_mod = '操作'.
ENDCASE.
AUTHORITY-CHECK OBJECT 'Z03FI001'
ID 'BUKRS' FIELD i_bukrs
ID 'ACTVT' FIELD i_actvt.
e_return = sy-subrc.
IF sy-subrc <> 0.
MESSAGE e114(z03) WITH i_bukrs l_mod.
ENDIF.
ENDFUNCTION.
页:
[1]