一权限对象增强
SU20维护字段
ZKALSM 过程 KALSM_D ZFX T683
ZSTUNR 步骤 STUNR ZFX T683S
su21维护权限对象并分配字段
Z_KONH_KLS
ZKALSM 过程(定价、输出控制、科目、细节、成本...)
ZSTUNR 步骤编号
ACTVT 作业
二 程序ZZAUTH01添加控制
IF KOMK-KALSM NE OLD_KOMK-KALSM OR KOMV-STUNR NE OLD_KOMV-STUNR.
AUTHORITY-CHECK OBJECT 'Z_KONH_KLS'
ID 'ZKALSM' FIELD KOMK-KALSM
ID 'ZSTUNR' FIELD KOMV-STUNR
ID 'ACTVT' DUMMY.
AUTH_SUBRC = SY-SUBRC.
OLD_KOMK = KOMK.
OLD_KOMV = KOMV.
ENDIF.
IF AUTH_SUBRC NE 0 AND ( SCREEN-NAME = 'RV61A-SELKZ'
OR SCREEN-NAME = 'KOMV-KAWRT'
OR SCREEN-NAME = 'RV61A-AWEIN'
OR SCREEN-NAME = 'KOMV-KBETR'
OR SCREEN-NAME = 'RV61A-KOEIN'
OR SCREEN-NAME = 'KOMV-KPEIN'
OR SCREEN-NAME = 'KOMV-KMEIN'
OR SCREEN-NAME = 'KOMV-KWERT'
OR SCREEN-NAME = 'KOMV-KWERT_K'
OR SCREEN-NAME = 'KOMV-KUMZA'
OR SCREEN-NAME = 'RV61A-MEINS'
OR SCREEN-NAME = 'KOMV-KUMNE'
OR SCREEN-NAME = 'RV61A-KMEI1').
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
* Ende Berechtigungsprüfung
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/31407245/viewspace-2129004/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/31407245/viewspace-2129004/