VA01  查看凭证流

 

 

 

 

 

 可以看到参考值和数量，参考值就是物料除去销项税后的  净价值 ，参考值 / 数量 = 物料的价格（不含税）

为了隐藏物料的价格，需要隐藏掉参考值这一列，

可以在凭证流显示程序的的子程序里使用隐式增强

 

 

 

 

  FORM enable_variant_saving
        CHANGING lt_docflow          TYPE document_flow_alv_tt
                 lt_exclu_func       TYPE ui_functions
                 lv_eam_cc_processed TYPE xfeld.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form ENABLE_VARIANT_SAVING, Start                                                                                                                 A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZEN_SD_VA01_PZL.    "active version

*针对 P100销售组织，检查权限对象'ZSD_PRC'"有这个权限的时候，隐藏价格列 参考值
  IF SY-MANDT+2(1) = '1'.
    AUTHORITY-CHECK OBJECT 'ZSD_PRC'"有这个权限的时候，隐藏价格
     ID 'ACTVT' FIELD '09'.
    IF sy-subrc = 0.
      READ TABLE GT_DOCFLOW TRANSPORTING NO FIELDS WITH KEY VKORG = 'P100'.
      IF SY-SUBRC EQ 0.
        LOOP AT gt_fieldcat_lvc ASSIGNING FIELD-SYMBOL(<ls_fieldcat>)
             WHERE fieldname = 'RFWRT' "参考值
             OR    fieldname = 'WAERS'."币别
            <ls_fieldcat>-tech = 'X'.
        ENDLOOP.
      ENDIF.
    ENDIF.
  ENDIF.


ENDENHANCEMENT.