BP 新增页签增强

作者：斌将军约 6 分钟阅读更新日期：2025-03-02 1 年前更新标签：ABAP, 开发

图片来源：微信公众号（如有侵权请联系删除）

# BP新增页签增强

原创斌将军 [ 斌将军 ](javascript:void\(0\);)

__ _ _ _ _

**1**

**文档说明**

S4系统中，对供应商和客户的操作统一到BP中，当需要对主数据新增字段时，可以使用新增页签的办法，展示增强字段。

本文档以客户主数据增强为例，介绍BP新增页签增强。因为BP为供应商和客户共用，因此供应商的新增页签增强，也可以按照本文档实现，方法类似，注意区分。

**2**

**代码实现**

**2.1**

**增强表字段**

在KNA1表的INCL_EEW_KNA1结构中添加增强字段ZODRATE

在更新结构中也加入增强字段

BP各表新增字段的默认结构

• * * * * *

KNA1：INCL_EEW_KNA1，INCL_EEW_KNA1_XKNB1：INCL_EEW_KNB1，INCL_EEW_KNB1_XKNVV：INCL_EEW_KNVV，INCL_EEW_KNVV_XLFA1：INCL_EEW_LFA1，INCL_EEW_LFA1_XLFB1：INCL_EEW_LFB1，INCL_EEW_LFB1_XBUT000：INCL_EEW_BUT000-CL_EEW_BUT000，INCL_EEW_BUT000-CL_EEW_BUT000_X

**2.2**

**创建页签函数组**

创建函数组

函数组TOP

• * * * * * * * * *

"--------------------@斌将军--------------------FUNCTION-POOL ZSD_09. "MESSAGE-ID ..

• INCLUDE LZSD_09D... " Local class definition

TABLES : kna1.CONSTANTS : table_name_kna1 TYPE fsbp_table_name VALUE 'KNA1'." tabnameCONSTANTS : false TYPE boole-boole VALUE ' '.DATA : gs_kna1 TYPE kna1."--------------------@斌将军--------------------

创建页签屏幕9001

9001

• * * * * * *

"--------------------@斌将军--------------------PROCESS BEFORE OUTPUT. MODULE status_9001.*PROCESS AFTER INPUT. MODULE user_command_9001."--------------------@斌将军--------------------

屏幕流

• * * * * * * *

"--------------------@斌将军--------------------MODULE status_9001 OUTPUT. CALL FUNCTION 'BUS_PBO'.ENDMODULE.MODULE user_command_9001 INPUT. CALL FUNCTION 'BUS_PAI'.ENDMODULE."--------------------@斌将军--------------------

函数模块：ZSD_09_EVENT_ISDAT

• * * * * * * * * * * * *

"--------------------@斌将军--------------------FUNCTION zsd_09_event_isdat.*"-----------------------------------------------*"*"本地接口：*"----------------------------------------------- CALL FUNCTION 'CVIC_BUPA_KNA1_GET' IMPORTING e_kna1 = gs_kna1.

kna1-zodrate = gs_kna1-zodrate. "增强字段赋值

ENDFUNCTION."--------------------@斌将军--------------------

创建结构

函数模块：ZSD_09_EVENT_DSAVB

• * * * * * * * * * * * * *

"--------------------@斌将军--------------------FUNCTION ZSD_09_EVENT_DSAVB.*"-----------------------------*"*"本地接口：*"-----------------------------

MOVE-CORRESPONDING gs_kna1 TO kna1. CALL FUNCTION 'CVIC_BUPA_KNA1_COLLECT' EXPORTING i_subname = 'ZSSDV002_KNA1' "附加结构 i_kna1 = kna1.

ENDFUNCTION."--------------------@斌将军--------------------

函数模块：ZSD_09_EVENT_XCHNG

• * * * * * * * * * * * * *

"--------------------@斌将军--------------------FUNCTION zsd_09_event_xchng.*"-------------------------------*"*"本地接口：*" EXPORTING*" VALUE(E_XCHNG) TYPE BOOLE_D*"--------------------------------

BP 新增页签增强

相关文章