VA01/VA02/VA03 销售订单根据定价和步骤校验权限隐藏价格（二）

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'
        EXPORTING
          object1           = 'Z_KONH_KLS'
          user              = sy-uname
          tcode             = sy-tcode
*         optimize          =
        TABLES
          values            = gt_us335
        EXCEPTIONS
          user_doesnt_exist = 1
          OTHERS            = 2.
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.
"--------------------@斌将军--------------------

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'
        EXPORTING
          object1           = 'Z_KONH_KLS'
          user              = sy-uname
          tcode             = sy-tcode
*         optimize          =
        TABLES
          values            = gt_us335
        EXCEPTIONS
          user_doesnt_exist = 1
          OTHERS            = 2.
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.

      SORT gt_us335 BY object field lowval highval.
      DELETE ADJACENT DUPLICATES FROM gt_us335 COMPARING object field lowval highval.
      "抛内存到LV69AF01
      FREE 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 changed
  STATICS: 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判断即可，此处不再赘述

到此，通过权限配置，正向控制隐藏部分价格的增强就完成了

定期更文，欢迎关注