AT
SELECTION-SCREEN
OUTPUT
.
PERFORM modify_screen .
PERFORM check_authority .
PERFORM modify_screen .
PERFORM check_authority .
INITIALIZATION.
FORM check_authority.
AUTHORITY-CHECK OBJECT 'ZM049' ID 'ACTVT' FIELD '02'.
IF sy-subrc = 0.
is_edit = 'X'.
ELSE.
Is_EDIT = ''.
ENDIF.
ENDFORM.
新建权限对象
然后在PFCG里手动添加OBJECT ZM049,如果可以编辑则赋值为02,否则为03就可以了。