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

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

定期更文，欢迎关注

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back