程序目的说明:
|
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
分享到：
相关推荐
sap 按生产订单成本核算 实践篇
首先，SAP销售订单的抬头中会显示订单的总览状态，这个状态反映了订单的整体进度和处理情况。在凭证流中也能够看到这些总览状态，但通常只会显示一个汇总的概览。 1. 总览状态：销售订单建立后，在系统中通常会显示...
该指南旨在帮助用户快速掌握SAP-CO系统中的成本对象控制功能，并应用于实际生产订单控制中。 一、SAP-CO成本对象控制概述 SAP-CO成本对象控制是SAP系统中的一种功能模块，旨在帮助企业更好地管理和控制成本。该...
SAP权限维护是一种非常重要的机制，它可以控制用户对SAP系统的访问权限，保护敏感数据和功能不被非法访问。本文将详细介绍SAP权限维护的相关知识点。 一、维护权限字段 在SAP系统中，权限字段是指可以对应到具体的...
在SAP系统中，字符编码不匹配是导致中文显示为问号的常见原因。SAP系统默认使用的是Unicode编码，而某些环境或配置可能未正确设置以支持中文字符集，如GBK或UTF-8。因此，当输入中文时，系统无法识别这些字符，从而...
- **组织单元**: 在SAP中，组织单元是进行业务操作的基本单位，如成本中心、利润中心等。 - **分配公司代码和控制范围**: 公司代码对应实际的企业法人单位，而控制范围则是成本控制活动的基本组织单位，两者之间的...
2. **定义权限对象中的字段**：定义权限对象时，需要指定与该权限对象相关的业务字段，例如组织结构、部门或成本中心等。这些字段将用于后续的权限检查。 3. **编写ABAP程序中的权限检查代码**：在ABAP程序中，...
免费销售订单在SAP中的主要特点包括： - **销售价格为0**：与常规销售订单不同，免费销售订单的商品价格设定为零。 - **责任明确**：通常需要指定到某个成本中心，以便追踪成本和效益。 - **行项目类别选择**：可以...
- **KNTTP** - 科目分配类别：定义成本或收入的会计处理方式。 - **SOBKZ** - 特殊库存标识：特殊库存类型的标识。 - **BANFN** - 采购申请编号：关联采购申请表。 - **BNFPO** - 采购申请的项目编号：采购申请中的...
SAP权限设置是SAP系统中的一种安全机制，用于控制用户对系统资源的访问权限。该机制通过角色设置和权限配置来实现对用户的访问控制。 SAP权限架构包括以下几个部分： 1. 角色（Role）：是一种抽象的概念，代表了一...
2. 分配权限：根据用户需求，添加必要的菜单、事务代码和授权对象到角色中。 3. 创建用户：使用事务代码SU01创建新用户，为每个岗位指定唯一用户名。 4. 分配角色：将创建的角色通过PFCG分配给用户，确保用户拥有...
1. **经营组织、控制范围、公司代码**：这些是SAP中构建财务结构的基础，它们定义了企业的组织层级和管理范围。例如，BPCN是经营组织，BP01是公司代码，控制范围用于成本控制和报告。 2. **工作中心**：代表生产活动...
在 SAP 系统中，权限检查是一项重要的安全机制，用于控制用户对系统资源的访问权限。通过自定义函数进行控制检查，可以更好地实现权限管理。下面将详细介绍权限检查的知识点： 1. 创建权限对象字段（SU20） 在 SAP...
显示订单清单命令VA05是SAP系统中显示销售订单清单的基本命令。通过VA05命令，可以显示销售订单的详细信息，例如订单日期、客户信息、物流信息等。 客户信贷/余额查询命令FD33 客户信贷/余额查询命令FD33是SAP系统...
1. **人工工资、设备折旧等成本归集到成本中心**：这部分成本通常首先记录在成本中心，然后根据实际情况分配到生产订单或其他成本对象。 2. **原材料成本转移至生产订单**：当从仓库领用原材料用于生产时，材料...
适合于SAP BASIS新手的 用户ERP用户新建、角色维护的培训文档
SAP中创建带有确认控制的采购订单后不能直接进行PO收货，需要依据采购订单创建内向交货单后对内向交货单收货。一张采购订单下可以创建多个内向交货单，生成的内向交货单号会在采购订单项目的“确认”标签页中显示。...
"SAP 特定用户布局"是指允许每个用户根据个人需求自定义报表显示方式的功能，使得用户可以根据自己的习惯设定报表的列、排序、过滤等属性。这有助于提高工作效率，减少用户在查看和分析数据时的困扰。 描述中提到的...
配置完成后，生产订单在系统中的显示状态会反映出当前的审批状态，如“创建”、“待审”或“已批准”，这样用户可以清楚地知道订单当前所处的流程阶段。 总的来说，SAP生产订单审批配置是一项涉及流程控制、权限...
- **Role**: Role是SAP中用于管理权限的一种机制，它包含了用户执行某些操作所需的一系列权限。 - **Profile**: Profile是真正存储权限配置的地方，与Role绑定在一起，用于实现具体的权限功能。 - **Template Role**...