sap-abap 權限控制

FORM AUTH_CHECK .

  "工廠
  LOOP AT S_WERKS.
    AUTHORITY-CHECK OBJECT 'M_BANF_WRK'
    ID 'WERKS'     FIELD S_WERKS-LOW
    ID 'ACTVT'     FIELD '03'.

    IF SY-SUBRC <> 0.
      CONCATENATE '您沒有查看公司代碼'  S_WERKS-LOW '下采購申請的權限' INTO DATA(LV_MESSAGE).
      MESSAGE LV_MESSAGE TYPE 'E' DISPLAY LIKE 'S'.
    ENDIF.
  ENDLOOP.

  "采購組織
  LOOP AT S_EKORG.
    AUTHORITY-CHECK OBJECT 'M_BANF_EKO'
    ID 'EKORG'     FIELD S_EKORG-LOW
    ID 'ACTVT'     FIELD '03'.

    IF SY-SUBRC <> 0.
      CONCATENATE '您沒有查看采購組織'  S_EKORG-LOW '下采購申請的權限' INTO DATA(LV_MESSAGE1).
      MESSAGE LV_MESSAGE1 TYPE 'E' DISPLAY LIKE 'S'.
      EXIT.
    ENDIF.
  ENDLOOP.