如何根据用户权限屏蔽或显示SAP的订单中的成本显示
2018-02-07 11:48
483 查看
程序目的说明:
程序代码:
源程序：红色为新增代码
*----------------------------------------------------------------------*
***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_subrc = sy-subrc.
if sy-TCODE ='VA03'.
z_auth_subrc = 4.
endif.
old_komk = komk.
old_komv = komv.
REFRESH i_zauthprice.
CLEAR i_zauthprice.
SELECT * FROM zauthprice
INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
WHERE zauthprice~kalsm = komk-kalsm.
IF z_auth_subrc NE 0.
READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
IF sy-subrc = 0.
IF ( 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' ).
screen-active = 0.
ENDIF.
ENDIF.
ENDIF.
move z_auth_subrc to Z_S1.
CONCATENATE 'userexit_field_modific_leer Control:' z_s1 into Z_S.
MESSAGE Z_S TYPE 'W'.
MODIFY SCREEN.
*} INSERT
endform. " USEREXIT_FIELD_MODIFIC_LEER
*&---------------------------------------------------------------------*
*& Form USEREXIT_FIELD_MODIFIC_KZWI
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_field_modific_kzwi.
*{ 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_subrc = sy-subrc.
if sy-TCODE ='VA03'.
z_auth_subrc = 4.
endif.
old_komk = komk.
old_komv = komv.
REFRESH i_zauthprice.
CLEAR i_zauthprice.
SELECT * FROM zauthprice
INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
WHERE zauthprice~kalsm = komk-kalsm.
IF z_auth_subrc NE 0.
READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
IF sy-subrc = 0.
IF ( 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' ).
screen-active = 0.
ENDIF.
ENDIF.
ENDIF.
move z_auth_subrc to Z_S1.
CONCATENATE 'userexit_field_modific_kzwi Control:' z_s1 into Z_S.
MESSAGE Z_S TYPE 'W'.
MODIFY SCREEN.
*} INSERT
endform. " USEREXIT_FIELD_MODIFIC_KZWI
*&---------------------------------------------------------------------*
*& Form USEREXIT_FIELD_MODIFIC_KOPF
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_field_modific_kopf.
*{ 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_subrc = sy-subrc.
if sy-TCODE ='VA03'.
z_auth_subrc = 4.
endif.
old_komk = komk.
old_komv = komv.
REFRESH i_zauthprice.
CLEAR i_zauthprice.
SELECT * FROM zauthprice
INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
WHERE zauthprice~kalsm = komk-kalsm.
IF z_auth_subrc NE 0.
READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
IF sy-subrc = 0.
IF ( 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' ).
screen-active = 0.
ENDIF.
ENDIF.
ENDIF.
move z_auth_subrc to Z_S1.
CONCATENATE 'userexit_field_modific_kopf Control:' z_s1 into Z_S.
MESSAGE Z_S TYPE 'W'.
MODIFY SCREEN.
*} INSERT
endform. " USEREXIT_FIELD_MODIFIC_KOPF
*&---------------------------------------------------------------------*
*& Form USEREXIT_FIELD_MODIFICATION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_field_modification.
*{ 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_subrc = sy-subrc.
if sy-TCODE ='VA03'.
z_auth_subrc = 4.
endif.
old_komk = komk.
old_komv = komv.
REFRESH i_zauthprice.
CLEAR i_zauthprice.
SELECT * FROM zauthprice
INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
WHERE zauthprice~kalsm = komk-kalsm.
IF z_auth_subrc NE 0.
READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
IF sy-subrc = 0.
IF ( 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' ).
screen-active = 0.
ENDIF.
ENDIF.
ENDIF.
move z_auth_subrc to Z_S1.
CONCATENATE 'userexit_field_modification Control:' z_s1 into Z_S.
MESSAGE Z_S TYPE 'W'.
MODIFY SCREEN.
*} INSERT
endform. " USEREXIT_FIELD_MODIFICATION
*&---------------------------------------------------------------------*
*& Form USEREXIT_PRICING_CHECK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_pricing_check.
*{ INSERT DEVK901084 1
include zsde0002.
*} INSERT
endform. " USEREXIT_PRICING_CHECK
*&---------------------------------------------------------------------*
*& Form USEREXIT_CHANGE_PRICING_RULE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_RV61A_KSTEU text
*----------------------------------------------------------------------*
form userexit_change_pricing_rule using p_rv61a_ksteu.
endform. " USEREXIT_CHANGE_PRICING_RULE
| 1、 ＳＡＰ标准程序不能在销售订单（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_subrc = sy-subrc.
if sy-TCODE ='VA03'.
z_auth_subrc = 4.
endif.
old_komk = komk.
old_komv = komv.
REFRESH i_zauthprice.
CLEAR i_zauthprice.
SELECT * FROM zauthprice
INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
WHERE zauthprice~kalsm = komk-kalsm.
IF z_auth_subrc NE 0.
READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
IF sy-subrc = 0.
IF ( 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' ).
screen-active = 0.
ENDIF.
ENDIF.
ENDIF.
move z_auth_subrc to Z_S1.
CONCATENATE 'userexit_field_modific_leer Control:' z_s1 into Z_S.
MESSAGE Z_S TYPE 'W'.
MODIFY SCREEN.
*} INSERT
endform. " USEREXIT_FIELD_MODIFIC_LEER
*&---------------------------------------------------------------------*
*& Form USEREXIT_FIELD_MODIFIC_KZWI
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_field_modific_kzwi.
*{ 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_subrc = sy-subrc.
if sy-TCODE ='VA03'.
z_auth_subrc = 4.
endif.
old_komk = komk.
old_komv = komv.
REFRESH i_zauthprice.
CLEAR i_zauthprice.
SELECT * FROM zauthprice
INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
WHERE zauthprice~kalsm = komk-kalsm.
IF z_auth_subrc NE 0.
READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
IF sy-subrc = 0.
IF ( 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' ).
screen-active = 0.
ENDIF.
ENDIF.
ENDIF.
move z_auth_subrc to Z_S1.
CONCATENATE 'userexit_field_modific_kzwi Control:' z_s1 into Z_S.
MESSAGE Z_S TYPE 'W'.
MODIFY SCREEN.
*} INSERT
endform. " USEREXIT_FIELD_MODIFIC_KZWI
*&---------------------------------------------------------------------*
*& Form USEREXIT_FIELD_MODIFIC_KOPF
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_field_modific_kopf.
*{ 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_subrc = sy-subrc.
if sy-TCODE ='VA03'.
z_auth_subrc = 4.
endif.
old_komk = komk.
old_komv = komv.
REFRESH i_zauthprice.
CLEAR i_zauthprice.
SELECT * FROM zauthprice
INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
WHERE zauthprice~kalsm = komk-kalsm.
IF z_auth_subrc NE 0.
READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
IF sy-subrc = 0.
IF ( 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' ).
screen-active = 0.
ENDIF.
ENDIF.
ENDIF.
move z_auth_subrc to Z_S1.
CONCATENATE 'userexit_field_modific_kopf Control:' z_s1 into Z_S.
MESSAGE Z_S TYPE 'W'.
MODIFY SCREEN.
*} INSERT
endform. " USEREXIT_FIELD_MODIFIC_KOPF
*&---------------------------------------------------------------------*
*& Form USEREXIT_FIELD_MODIFICATION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_field_modification.
*{ 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_subrc = sy-subrc.
if sy-TCODE ='VA03'.
z_auth_subrc = 4.
endif.
old_komk = komk.
old_komv = komv.
REFRESH i_zauthprice.
CLEAR i_zauthprice.
SELECT * FROM zauthprice
INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
WHERE zauthprice~kalsm = komk-kalsm.
IF z_auth_subrc NE 0.
READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
IF sy-subrc = 0.
IF ( 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' ).
screen-active = 0.
ENDIF.
ENDIF.
ENDIF.
move z_auth_subrc to Z_S1.
CONCATENATE 'userexit_field_modification Control:' z_s1 into Z_S.
MESSAGE Z_S TYPE 'W'.
MODIFY SCREEN.
*} INSERT
endform. " USEREXIT_FIELD_MODIFICATION
*&---------------------------------------------------------------------*
*& Form USEREXIT_PRICING_CHECK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form userexit_pricing_check.
*{ INSERT DEVK901084 1
include zsde0002.
*} INSERT
endform. " USEREXIT_PRICING_CHECK
*&---------------------------------------------------------------------*
*& Form USEREXIT_CHANGE_PRICING_RULE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_RV61A_KSTEU text
*----------------------------------------------------------------------*
form userexit_change_pricing_rule using p_rv61a_ksteu.
endform. " USEREXIT_CHANGE_PRICING_RULE
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 如何根据用户权限屏蔽或显示SAP的订单中的成本显示
- 如何根据用户权限屏蔽或显示SAP的订单中的成本显示
- 如何根据用户权限屏蔽或显示SAP的订单中的成本显示
- 如何根据用户权限屏蔽或显示SAP的订单中的成本显示
- 如何根据用户权限屏蔽或显示SAP的订单中的成本显示
- 如何根据用户权限屏蔽或显示SAP的订单中的成本显示
- 如何根据用户权限屏蔽或显示SAP的订单中的成本显示
- OA权限模块根据用户权限显示不同的操作按钮
- SharePoint 如何根据用户权限在NewForm页面允许用户编辑某字段或者只读某字段
- ASP根据用户权限判断显示的列标题
- SharePoint 2010 根据不同的用户权限显示不同的导航
- SAP ABAP编程 ABAP选择屏幕：根据用户选择动态显示屏幕
- 如何快速创建拥有全部权限的SAP用户
- Windows server 2008 根据用户权限显示共享文件夹
- 如何将SAP的SCREEN显示到其他用户的机器上,接受其他用户控制
- 如何建立用户、权限和角色，以及如何根据日志调试用户的报表权限
- SharePoint 2010根据不同的用户权限显示不同的导航
- Dynamics CRM 根据用户权限不同来进行按钮的显示和隐藏的功能
- 如何将SAP的SCREEN显示到其他用户的机器上,接受其他用户控制
- 根据用户权限显示共享文件夹-windows 2003, Access-based Enumeration