权限检查

  AUTHORITY-CHECK OBJECT 'ZMM_PPBM'  "权限对象名
           ID 'WERKS' FIELD P_WERKS. 
  IF SY-SUBRC <> 0.
    MESSAGE '你没有该工厂的权限！'  TYPE 'E'.
    RETURN.
  ENDIF.