程序目的说明:
1、
SAP标准程序不能在销售订单(va01 va02 va03)中根据权限显示或不显示有些订单定价过程的敏感数据。
2、
由于公司需要对销售订单定价过程的敏感数据(如成本数据)进行控制,因此需要增强系统功能,使系统能根据用户权限和定价敏感数据的设置来决定显示或不显示定价过程中的订单定价过程的敏感数据。
3、
修改了
LV69AFZZ
的userexit_field_modific_leer
userexit_field_modific_kzwi
userexit_field_modific_kopf
userexit_field_modification
四个
用户出口。
|
程序代码:
源程序:红色为新增代码
*----------------------------------------------------------------------*
***INCLUDE LV69AFZZ .
*----------------------------------------------------------------------*
*{ INSERT DEVK901084 1
data: OLD_KOMV like komv.
data: OLD_KOMk like komk.
data: z_auth_subrc like sy-subrc.
DATA : i_zauthprice TYPE STANDARD TABLE OF zauthprice
WITH HEADER LINE.
data: Z_S(60) type c,
z_s1(10) type c.
*} INSERT
*&---------------------------------------------------------------------*
*& Form USEREXIT_FIELD_MODIFIC_LEER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_field_modific_leer.
*{ INSERT DEVK901084 1
z_auth_subrc = 4.
IF screen-name = 'FCODE'.
CLEAR old_komk.
ENDIF.
AUTHORITY-CHECK OBJECT 'K_ZKALSM'
ID 'KALSM' FIELD komk-kalsm
ID 'ACTVT' DUMMY.
z_auth_subr