ABAP——工厂，采购组织权限检查

采购组织权限检查

  SELECT ekorg
    FROM T024E
    INTO TABLE @DATA(lt_ekorg)
    WHERE ekorg eq @pa_ekorg.

  LOOP AT lt_ekorg INTO DATA(ls_ekorg).

    AUTHORITY-CHECK OBJECT 'M_EINF_EKO'
           ID 'ACTVT' FIELD '03'
           ID 'EKORG' FIELD ls_ekorg-ekorg.
    IF sy-subrc NE 0.
      MESSAGE: s000 WITH '没有权限查看采购组织' pa_ekorg DISPLAY LIKE 'E'.
      STOP.
    ENDIF.

  ENDLOOP.

工厂权限检查

  SELECT werks
    FROM t001w
    INTO TABLE @DATA(lt_werks)
    WHERE werks IN @so_werks.

  LOOP AT lt_werks INTO DATA(ls_werks).
    AUTHORITY-CHECK OBJECT 'M_MSEG_WWA'
             ID 'ACTVT' FIELD '03'
             ID 'WERKS' FIELD ls_werks-werks.
    IF sy-subrc <> 0.
      MESSAGE s001(zmm) WITH ls_werks-werks DISPLAY LIKE 'E'.
      LEAVE LIST-PROCESSING.
    ENDIF.
  ENDLOOP.

封装的权限检查程序

INCLUDE z_auth_check.

检查工厂

*SELECT-OPTIONS:so_WERKS FOR ZMMT0124-WERKS MODIF ID bl3,"工厂
  PERFORM auth_check_werks2 TABLES so_werks.