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

发布时间:2023年12月25日

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判断即可,此处不再赘述

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

定期更文,欢迎关注

文章来源:https://blog.csdn.net/BinGeneral/article/details/135191259
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。