FORM AUTH_CHECK .

  "工厂

  LOOP AT S_WERKS.

    AUTHORITY-CHECK OBJECT 'M_BANF_WRK'

    ID 'WERKS'     FIELD S_WERKS-LOW

    ID 'ACTVT'     FIELD ''.

    IF SY-SUBRC <> .

      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 ''.

    IF SY-SUBRC <> .

      CONCATENATE '您没有查看采购组织'  S_EKORG-LOW '下采购申请的权限' INTO DATA(LV_MESSAGE1).

      MESSAGE LV_MESSAGE1 TYPE 'E' DISPLAY LIKE 'S'.

      EXIT.

    ENDIF.

  ENDLOOP.