`
Jack Wu
  • 浏览: 878064 次
  • 来自: ...
社区版块
存档分类
最新评论

如何根据用户权限屏蔽或显示SAP的订单中的成本显示

 
阅读更多

程序目的说明:

1、   ＳＡＰ标准程序不能在销售订单（va01 va02  va03）中根据权限显示或不显示有些订单定价过程的敏感数据。
2、   由于公司需要对销售订单定价过程的敏感数据（如成本数据）进行控制，因此需要增强系统功能，使系统能根据用户权限和定价敏感数据的设置来决定显示或不显示定价过程中的订单定价过程的敏感数据。
3、   修改了LV69AFZZ的userexit_field_modific_leer
userexit_field_modific_kzwi
userexit_field_modific_kopf
userexit_field_modification
四个用户出口。

程序代码: 

 

源程序：红色为新增代码
*----------------------------------------------------------------------*
***INCLUDE LV69AFZZ .
*----------------------------------------------------------------------*
*{   INSERT         DEVK901084                                        1
data: OLD_KOMV like komv.
data: OLD_KOMk like komk.
data: z_auth_subrc like sy-subrc.
DATA : i_zauthprice TYPE STANDARD TABLE OF zauthprice
   WITH HEADER LINE.
data: Z_S(60) type c,
      z_s1(10) type c.
*}   INSERT
*&---------------------------------------------------------------------*
*&      Form USEREXIT_FIELD_MODIFIC_LEER
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2       text
*----------------------------------------------------------------------*
form userexit_field_modific_leer.
*{   INSERT         DEVK901084                                        1
 z_auth_subrc = 4.
 IF screen-name = 'FCODE'.
    CLEAR old_komk.
 ENDIF.
 AUTHORITY-CHECK OBJECT 'K_ZKALSM'
               ID 'KALSM' FIELD komk-kalsm
               ID 'ACTVT' DUMMY.
 z_auth_subrc = sy-subrc.
 if sy-TCODE ='VA03'.
    z_auth_subrc = 4.
 endif.
 old_komk = komk.
 old_komv = komv.
 REFRESH i_zauthprice.
 CLEAR i_zauthprice.
 SELECT * FROM zauthprice
    INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
   WHERE zauthprice~kalsm = komk-kalsm.
 
 IF z_auth_subrc NE 0.
    READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
    IF sy-subrc = 0.
      IF ( screen-name = 'RV61A-SELKZ'
        OR   screen-name = 'KOMV-KAWRT'
            OR   screen-name = 'RV61A-AWEIN'
            OR   screen-name = 'KOMV-KBETR'
            OR   screen-name = 'RV61A-KOEIN'
            OR   screen-name = 'KOMV-KPEIN'
            OR   screen-name = 'KOMV-KMEIN'
            OR   screen-name = 'KOMV-KWERT' ).
        screen-active = 0.
      ENDIF.
    ENDIF.
 ENDIF.
 move z_auth_subrc to Z_S1.
 CONCATENATE 'userexit_field_modific_leer Control:' z_s1 into Z_S.
 MESSAGE Z_S TYPE 'W'.
 MODIFY SCREEN.
*}   INSERT
 
endform.                               " USEREXIT_FIELD_MODIFIC_LEER
*&---------------------------------------------------------------------*
*&      Form USEREXIT_FIELD_MODIFIC_KZWI
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form userexit_field_modific_kzwi.
*{   INSERT         DEVK901084                                        1
 z_auth_subrc = 4.
 IF screen-name = 'FCODE'.
    CLEAR old_komk.
 ENDIF.
 AUTHORITY-CHECK OBJECT 'K_ZKALSM'
               ID 'KALSM' FIELD komk-kalsm
               ID 'ACTVT' DUMMY.
 z_auth_subrc = sy-subrc.
 if sy-TCODE ='VA03'.
    z_auth_subrc = 4.
 endif.
 old_komk = komk.
 old_komv = komv.
 REFRESH i_zauthprice.
 CLEAR i_zauthprice.
 SELECT * FROM zauthprice
    INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
   WHERE zauthprice~kalsm = komk-kalsm.
 
 IF z_auth_subrc NE 0.
    READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
    IF sy-subrc = 0.
      IF ( screen-name = 'RV61A-SELKZ'
        OR   screen-name = 'KOMV-KAWRT'
            OR   screen-name = 'RV61A-AWEIN'
            OR   screen-name = 'KOMV-KBETR'
            OR   screen-name = 'RV61A-KOEIN'
            OR   screen-name = 'KOMV-KPEIN'
            OR   screen-name = 'KOMV-KMEIN'
            OR   screen-name = 'KOMV-KWERT' ).
        screen-active = 0.
      ENDIF.
    ENDIF.
 ENDIF.
 move z_auth_subrc to Z_S1.
 CONCATENATE 'userexit_field_modific_kzwi Control:' z_s1 into Z_S.
 MESSAGE Z_S TYPE 'W'.
 MODIFY SCREEN.
*}   INSERT
 
endform.                               " USEREXIT_FIELD_MODIFIC_KZWI
*&---------------------------------------------------------------------*
*&      Form USEREXIT_FIELD_MODIFIC_KOPF
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form userexit_field_modific_kopf.
*{   INSERT         DEVK901084                                        1
 z_auth_subrc = 4.
 IF screen-name = 'FCODE'.
    CLEAR old_komk.
 ENDIF.
 AUTHORITY-CHECK OBJECT 'K_ZKALSM'
               ID 'KALSM' FIELD komk-kalsm
               ID 'ACTVT' DUMMY.
 z_auth_subrc = sy-subrc.
 if sy-TCODE ='VA03'.
    z_auth_subrc = 4.
 endif.
 old_komk = komk.
 old_komv = komv.
 REFRESH i_zauthprice.
 CLEAR i_zauthprice.
 SELECT * FROM zauthprice
    INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
   WHERE zauthprice~kalsm = komk-kalsm.
 
 IF z_auth_subrc NE 0.
    READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
    IF sy-subrc = 0.
      IF ( screen-name = 'RV61A-SELKZ'
        OR   screen-name = 'KOMV-KAWRT'
            OR   screen-name = 'RV61A-AWEIN'
            OR   screen-name = 'KOMV-KBETR'
            OR   screen-name = 'RV61A-KOEIN'
            OR   screen-name = 'KOMV-KPEIN'
            OR   screen-name = 'KOMV-KMEIN'
            OR   screen-name = 'KOMV-KWERT' ).
        screen-active = 0.
      ENDIF.
    ENDIF.
 ENDIF.
 move z_auth_subrc to Z_S1.
 CONCATENATE 'userexit_field_modific_kopf Control:' z_s1 into Z_S.
 MESSAGE Z_S TYPE 'W'.
 MODIFY SCREEN.
*}   INSERT
 
endform.                               " USEREXIT_FIELD_MODIFIC_KOPF
*&---------------------------------------------------------------------*
*&      Form USEREXIT_FIELD_MODIFICATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form userexit_field_modification.
 
*{   INSERT         DEVK901084                                        1
 z_auth_subrc = 4.
 IF screen-name = 'FCODE'.
    CLEAR old_komk.
 ENDIF.
 AUTHORITY-CHECK OBJECT 'K_ZKALSM'
               ID 'KALSM' FIELD komk-kalsm
               ID 'ACTVT' DUMMY.
 z_auth_subrc = sy-subrc.
 if sy-TCODE ='VA03'.
    z_auth_subrc = 4.
 endif.
 old_komk = komk.
 old_komv = komv.
 REFRESH i_zauthprice.
 CLEAR i_zauthprice.
 SELECT * FROM zauthprice
    INTO CORRESPONDING FIELDS OF TABLE i_zauthprice
   WHERE zauthprice~kalsm = komk-kalsm.
 
 IF z_auth_subrc NE 0.
    READ TABLE i_zauthprice WITH KEY stunr = komv-stunr BINARY SEARCH.
    IF sy-subrc = 0.
      IF ( screen-name = 'RV61A-SELKZ'
        OR   screen-name = 'KOMV-KAWRT'
            OR   screen-name = 'RV61A-AWEIN'
            OR   screen-name = 'KOMV-KBETR'
            OR   screen-name = 'RV61A-KOEIN'
            OR   screen-name = 'KOMV-KPEIN'
            OR   screen-name = 'KOMV-KMEIN'
            OR   screen-name = 'KOMV-KWERT' ).
        screen-active = 0.
      ENDIF.
    ENDIF.
 ENDIF.
 move z_auth_subrc to Z_S1.
 CONCATENATE 'userexit_field_modification Control:' z_s1 into Z_S.
 MESSAGE Z_S TYPE 'W'.
 MODIFY SCREEN.
*}   INSERT
endform.                               " USEREXIT_FIELD_MODIFICATION
*&---------------------------------------------------------------------*
*&      Form USEREXIT_PRICING_CHECK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
form userexit_pricing_check.
*{   INSERT         DEVK901084                                        1
include zsde0002.
*}   INSERT
 
endform.                               " USEREXIT_PRICING_CHECK
*&---------------------------------------------------------------------*
*&      Form USEREXIT_CHANGE_PRICING_RULE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_RV61A_KSTEU text
*----------------------------------------------------------------------*
form userexit_change_pricing_rule using    p_rv61a_ksteu.
 
endform.                               " USEREXIT_CHANGE_PRICING_RULE
 
 
分享到：
| 调用CALL TRANSACTION的三种方法
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    在SAP系统中输入中文会显示成问号的解决办法.rar_SAP_sap 740出现问号_sap打字问号_sap有问号_中文显示

    在SAP系统中，字符编码不匹配是导致中文显示为问号的常见原因。SAP系统默认使用的是Unicode编码，而某些环境或配置可能未正确设置以支持中文字符集，如GBK或UTF-8。因此，当输入中文时，系统无法识别这些字符，从而...

    SAP销售订单中各种状态的说明

    首先，SAP销售订单的抬头中会显示订单的总览状态，这个状态反映了订单的整体进度和处理情况。在凭证流中也能够看到这些总览状态，但通常只会显示一个汇总的概览。 1. 总览状态：销售订单建立后，在系统中通常会显示...

    sap按生产订单成本核算_实践篇

    sap 按生产订单成本核算 实践篇

    SAP-CO成本对象控制：按生产订单控制(MTO)实战指南Guide.doc

    该指南旨在帮助用户快速掌握SAP-CO系统中的成本对象控制功能，并应用于实际生产订单控制中。 一、SAP-CO成本对象控制概述 SAP-CO成本对象控制是SAP系统中的一种功能模块，旨在帮助企业更好地管理和控制成本。该...

    SAP维护权限对象.doc

    SAP权限维护是一种非常重要的机制，它可以控制用户对SAP系统的访问权限，保护敏感数据和功能不被非法访问。本文将详细介绍SAP权限维护的相关知识点。 一、维护权限字段 在SAP系统中，权限字段是指可以对应到具体的...

    SAP成本管理

    - **组织单元**: 在SAP中，组织单元是进行业务操作的基本单位，如成本中心、利润中心等。 - **分配公司代码和控制范围**: 公司代码对应实际的企业法人单位，而控制范围则是成本控制活动的基本组织单位，两者之间的...

    SAP权限自定义程序检查控制

    2. **定义权限对象中的字段**：定义权限对象时，需要指定与该权限对象相关的业务字段，例如组织结构、部门或成本中心等。这些字段将用于后续的权限检查。 3. **编写ABAP程序中的权限检查代码**：在ABAP程序中，...

    SAP免费销售订单配置及操作手册

    免费销售订单在SAP中的主要特点包括： - **销售价格为0**：与常规销售订单不同，免费销售订单的商品价格设定为零。 - **责任明确**：通常需要指定到某个成本中心，以便追踪成本和效益。 - **行项目类别选择**：可以...

    SAP 采购订单 表关系

    - **KNTTP** - 科目分配类别：定义成本或收入的会计处理方式。 - **SOBKZ** - 特殊库存标识：特殊库存类型的标识。 - **BANFN** - 采购申请编号：关联采购申请表。 - **BNFPO** - 采购申请的项目编号：采购申请中的...

    SAP权限设置

    SAP权限设置是SAP系统中的一种安全机制，用于控制用户对系统资源的访问权限。该机制通过角色设置和权限配置来实现对用户的访问控制。 SAP权限架构包括以下几个部分： 1. 角色（Role）：是一种抽象的概念，代表了一...

    培训SAP用户权限讲解ppt.pptx

    2. 分配权限：根据用户需求，添加必要的菜单、事务代码和授权对象到角色中。 3. 创建用户：使用事务代码SU01创建新用户，为每个岗位指定唯一用户名。 4. 分配角色：将创建的角色通过PFCG分配给用户，确保用户拥有...

    SAP销售订单操作指南.pdf

    显示订单清单命令VA05是SAP系统中显示销售订单清单的基本命令。通过VA05命令，可以显示销售订单的详细信息，例如订单日期、客户信息、物流信息等。 客户信贷/余额查询命令FD33 客户信贷/余额查询命令FD33是SAP系统...

    SAP 权限检查 （通过自定义函数进行控制检查）

    在 SAP 系统中，权限检查是一项重要的安全机制，用于控制用户对系统资源的访问权限。通过自定义函数进行控制检查，可以更好地实现权限管理。下面将详细介绍权限检查的知识点： 1. 创建权限对象字段（SU20） 在 SAP...

    生产订单成本核算

    1. **人工工资、设备折旧等成本归集到成本中心**：这部分成本通常首先记录在成本中心，然后根据实际情况分配到生产订单或其他成本对象。 2. **原材料成本转移至生产订单**：当从仓库领用原材料用于生产时，材料...

    SAP权限概念+用户维护+角色设计及权限测试

    适合于SAP BASIS新手的 用户ERP用户新建、角色维护的培训文档

    SAP带有确认控制的采购订单

    SAP中创建带有确认控制的采购订单后不能直接进行PO收货，需要依据采购订单创建内向交货单后对内向交货单收货。一张采购订单下可以创建多个内向交货单，生成的内向交货单号会在采购订单项目的“确认”标签页中显示。...

    SAP 特定用户布局

    "SAP 特定用户布局"是指允许每个用户根据个人需求自定义报表显示方式的功能，使得用户可以根据自己的习惯设定报表的列、排序、过滤等属性。这有助于提高工作效率，减少用户在查看和分析数据时的困扰。 描述中提到的...

    SAP权限相关设置（详细介绍SAP权限相关概念及相关操作）

    - **Role**: Role是SAP中用于管理权限的一种机制，它包含了用户执行某些操作所需的一系列权限。 - **Profile**: Profile是真正存储权限配置的地方，与Role绑定在一起，用于实现具体的权限功能。 - **Template Role**...

    SAP 订单的交货日期的计算.

    本文旨在深入探讨SAP系统中订单交货日期的计算逻辑及其背后的配置方法。我们将通过理论与实践相结合的方式，帮助读者更好地理解和应用这些知识。 #### 二、SO（销售订单）中交货日期计算的重要性 当客户提出采购...

    sap角色权限设置手册

    在 SAP 系统中，角色是指一组权限的集合，这些权限确定了用户在系统中的操作权限。角色可以分为两种：标准角色和自定义角色。标准角色是 SAP 提供的预定义角色，自定义角色是根据企业具体需求而创建的角色。 二、...

Magicbox
Global site tag (gtag.js) - Google Analytics