我们可以定义一个授权对象,名为F_BKPF_BUK(用于财务总账文档的访问控制)。该授权对象可能包括以下字段: BUKRS:公司代码 ACTVT:活动(例如,显示或修改) 在这种情况下,如果一个用户尝试访问公司代码为1000的财务数据,并执行修改操作,系统将检查该用户是否有F_BKPF_BUK授权对象中BUKRS=1000和ACTVT=02的权限。 如果权限...
DATA:ZBKPF like bkpf occurs 0 , zwa_bkpf like bkpf. CONSTANTS:P_variant(2) TYPE c VALUE 'WL'. ***下面这些屏幕参数和事件没有关系,只是参数集而已. SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE Cond1. SELECT-OPTIONS S_bukrs FOR bkpf-bukrs MEMORY ID BUK. SELECT-OPTIONS ...
我们可以定义一个授权对象,名为 F_BKPF_BUK(用于财务总账文档的访问控制)。该授权对象可能包括以下字段: BUKRS:公司代码 ACTVT:活动(例如,显示或修改) 在这种情况下,如果一个用户尝试访问公司代码为 1000 的财务数据,并执行修改操作,系统将检查该用户是否有 F_BKPF_BUK 授权对象中 BUKRS=1000 和ACTVT=02 的权限...
SELECT *FROM T001INTOTABLE @DATA(LT_T001)WHERE BUKRSIN @S_BUKRS. LOOPAT LT_T001INTODATA(LS_T001). AUTHORITY-CHECK OBJECT'F_BKPF_BUK' ID'BUKRS'FIELD LS_T001-BUKRS. IF SY-SUBRC <>0. MESSAGE'你没有' && LS_T001-BUKRS &&'公司 的操作权限!'TYPE'S' DISPLAYLIKE'E'. RETURN. ENDIF. EN...
'F_BKPF_BUK' ID 'ACTVT' FIELD 03' ID 'BUKRS' FIELD gs_bukrs-bukrs IF sy-subrc <> 0. MESSAGE'你没有公司' && gs_bukrs-bukrs&& '的权限!' TYPE'S' DISPLAY LIKE 'E'. LEAVE LIST-PROCESSING. ENDIF. ENDLOOP. ENDFORM. Text elements *--- * 001 选择条件 ...
AUTHORITY-CHECK obxxxxject 'F_BKPF_BUK' ID 'BUKRS' FIELD p_bukrs. IF sy-subrc NE 0. CLEAR l_mess. CONCATENATE '你无权查看公司代码' p_bukrs '的数据' INTO l_mess. MESSAGE l_mess TYPE 'E'. ENDIF. ENDFORM. " CHECK_BUKRS *&---* *& Form GET_DATA *&---* ...
PARAMETERS: p_BUKRS LIKE ZFIE003_ACT-BUKRS OBLIGATORY MEMORY ID buk ," CHAR 4 0公司代码 p_SAKNR LIKE ZFIE003_ACT-SAKNR OBLIGATORY." CHAR 10 0总帐科目编号 "### CLASS lcl_event_receiver DEFINITION DEFERRED. DATA:i_ZFIE003_ACT LIKE TABLE OF ZFIE003...
DATA:ZBKPF like bkpf occurs 0 ,zwa_bkpf like bkpf.CONSTANTS:P_variant(2) TYPE c VALUE 'WL'.***下⾯这些屏幕参数和事件没有关系,只是参数集⽽已.SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE Cond1.SELECT-OPTIONS S_bukrs FOR bkpf-bukrs MEMORY ID BUK.SELECT-OPTIONS S_blart FOR ...
ELSE.* AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'* ID 'BUKRS' FIELD ls_upload-bukrs.* IF sy-subrc <> 0.* ls_upload-light = c_icon_red.* CONCATENATE ls_upload-ztext '您没有该公司权限' INTO ls_upload-ztext SEPARATED BY ','.* ENDIF. ...
BKTXTTYPEBKPF-BKTXT, GJAHRTYPEBKPF-GJAHR, BLARTTYPEBKPF-BLART, WAERSTYPEBKPF-WAERS, USNAMTYPEBKPF-USNAM, AWKEYTYPEBKPF-AWKEY, HKONTTYPEBSEG-HKONT, KUNNRTYPEBSEG-KUNNR, LIFNRTYPEBSEG-LIFNR, KOSTLTYPEBSEG-KOSTL, FKBERTYPEBSEG-FKBER, ...