1、文档说明
1.1、内容回顾
之前发表过相关文章《VA01/VA02/VA03 销售订单根据定价和步骤校验权限隐藏价格（一）》，本篇文章对上一篇文章做补充说明。
第一篇文章是通过拥有权限，则隐藏价格的模式，即对需要隐藏价格的用户，配置权限对象，使其通过权限校验，然后隐藏价格；没有配置权限对象的用户，权限校验不通过，则不隐藏价格。
1.2、问题说明
此处存在两个问题：（如果项目忽略这两个问题，则还可以参照第一篇文章的方式实现）
1.对于自定义权限对象，如果将其添加到SAP_ALL中，会导致拥有SAP_ALL权限的用户，也校验通过，并且看不到价格。（主要问题）
2.该方法较反常规，属于拥有权限，但是不能查看价格的反向控制（当然这点不是关键问题）
因此，在实际项目中，为了防止正式机拥有ALL权限的用户无法查看价格，则实施没有权限，隐藏价格，有权限，则查看价格的方式，如此也更能符合思维习惯。
2、实现方式
2.1、权限分配
可以查看所有价格的用户，配置定价过程字段为ZK01，配置步骤编号字段为 *
只能查看部分价格的用户，配置定价过程字段为ZK01，配置步骤编号字段为401 - 800，0-400步骤编号的价格则看不到
2.2、仅修改权限判断（存在问题）
想要实现没有权限，则隐藏价格，可能直接更改权限的IF判断就可以实现，本来是IF = 0（有权限）隐藏，更改为IF <> 0（无权限）隐藏。
2.2.1、存在的问题
在原文中，关于条件页签里面的价格控制可以这么实现，但是对于抬头和条件页签上部的这几个价格字段（步骤编号属于0-400）的控制，是只校验了定价过程，
因为此增强点处没有步骤编号字段，按照原逻辑，此处校验成功了，就可以隐藏价格了。
但是改成当前逻辑，校验成功了，就可以显示价格了，那么只要配置定价过程的用户，就都可以看到，其中也包括配置了定价过程但限制查看价格的用户
因此，只修改IF判断，抬头价格控制不住。
2.3、根据用户权限值判断
针对以上两处增强点的修改，通过用户权限值进行判断，因为只会存在两种情况：
1.用户维护了定价过程ZK01，步骤编号为*
2.用户维护了定价过程ZK01，步骤编号为401-800
所以只用判断步骤编号是*，则抬头这些价格要显示。如果是范围值，则肯定不显示。
2.3.1、获取用户维护的权限对象值
通过函数GET_AUTH_VALUES获取当前用户已经配置的权限对象Z_KONH_KLS维护的值
"--------------------@斌将军--------------------"获取用户权限对象的值CALL FUNCTION 'GET_AUTH_VALUES'EXPORTINGobject1 = 'Z_KONH_KLS'user = sy-unametcode = sy-tcode
* optimize =TABLESvalues = gt_us335EXCEPTIONSuser_doesnt_exist = 1OTHERS = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.
"--------------------@斌将军--------------------2.3.2、参考代码
因为这些增强点是会反复调用，所以定义全局内表gt_us335，如果已经获取过权限值，就不再重复获取，提高代码效率
程序MV45AFZZ→USEREXIT_FIELD_MODIFICATION
"--------------------@斌将军--------------------
FORM userexit_field_modification.
ENHANCEMENT 1 ZSD007_VA01_PRICE. "active version
IF sy-tcode = 'VA01' OR sy-tcode = 'VA02' OR sy-tcode = 'VA03'.
IF screen-name = 'KOMV-KBETR'OR screen-name = 'VBAK-NETWR'"抬头 净值OR screen-name = 'VBAK-WAERK'"抬头 货币OR screen-name = 'VBAP-NETPR'"项目 净价OR screen-name = 'VBAP-NETWR'."项目 净值IF gt_us335 IS INITIAL."获取用户权限对象的值CALL FUNCTION 'GET_AUTH_VALUES'EXPORTINGobject1 = 'Z_KONH_KLS'user = sy-unametcode = sy-tcode
* optimize =TABLESvalues = gt_us335EXCEPTIONSuser_doesnt_exist = 1OTHERS = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.SORT gt_us335 BY object field lowval highval.DELETE ADJACENT DUPLICATES FROM gt_us335 COMPARING object field lowval highval."抛内存到LV69AF01FREE zcl_sd_memory_id=>sd005.CLEAR:gv_sd007_hide_price.READ TABLE gt_us335 WITH KEY field = 'ZSTUNR' lowval = '*' TRANSPORTING NO FIELDS.IF sy-subrc NE 0.gv_sd007_hide_price = 'X'."不显示EXPORT gv_sd007_hide_price TO MEMORY ID zcl_sd_memory_id=>sd005.ENDIF.ENDIF.IF gv_sd007_hide_price = 'X'.screen-active = 0.MODIFY SCREEN.ENDIF.ENDIF.
ENDIF.
ENDENHANCEMENT.
"--------------------@斌将军--------------------程序LV69AF01→TCTRL_KONDITIONEN_INIT
"--------------------@斌将军--------------------
FORM tctrl_konditionen_init.DATA: da_tfill LIKE sy-tabix.* Refresh table control if screen number has changedSTATICS: last_dynnr TYPE dynnr.IF sy-dynnr NE last_dynnr AND gf_called_by_lord IS INITIAL.last_dynnr = sy-dynnr.REFRESH CONTROL 'tctrl_konditionen' FROM SCREEN sy-dynnr.ENDIF.DESCRIBE TABLE xkomv LINES da_tfill......."""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1)
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 6 ZSD007_SALES_PRICE. "active version
IF sy-tcode = 'VA01' OR sy-tcode = 'VA02' OR sy-tcode = 'VA03'.DATA:gv_sd007_hide_price TYPE char1."X 不显示LOOP AT SCREEN.IF screen-name = 'KOMP-NETWR' "净值OR screen-name = 'KOMK-WAERK' "货币OR screen-name = 'KOMP-MWSBP'. "税收.IMPORT gv_sd007_hide_price FROM MEMORY ID zcl_sd_memory_id=>sd005.IF gv_sd007_hide_price = 'X'."不显示screen-active = 0.MODIFY SCREEN.ENDIF.ENDIF.ENDLOOP.
ENDIF.
ENDENHANCEMENT.
ENDFORM. "tctrl_konditionen_init
"--------------------@斌将军--------------------条件页签列表里面的价格控制，和第一篇文章的一致，只用更改权限的IF判断即可，此处不再赘述
到此，通过权限配置，正向控制隐藏部分价格的增强就完成了
定期更文，欢迎关注
