一权限对象增强


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