工作中用到的权限检查对象

• 仓库号

  AUTHORITY-CHECK OBJECT 'L_LGNUM'
           ID 'LGNUM' FIELD p_lgnum
           ID 'LGTYP' DUMMY.
  IF sy-subrc <> 0.
    MESSAGE text-006 TYPE 'E'.
  ENDIF.

• 地点

FORM frm_auth_check .
*地点权限检查
  AUTHORITY-CHECK OBJECT 'M_IS_WERKS'
           ID 'MCINF' DUMMY
           ID 'WERKS' FIELD p_werks.
  IF sy-subrc <> 0.
    MESSAGE text-001 TYPE 'E'.
  ENDIF.

ENDFORM.   

• 站点

  AUTHORITY-CHECK OBJECT 'ZWERKS'