BP保存增强

Bp的供应商其他视图保存增强

1、 创建函数写入逻辑

获取当前bp其他视图的函数：

CVIV_BUPA_LFM1_GET 采购视图

CVIV_BUPA_LFB1_GET 公司视图

CVIV_BUPA_LFA1_GET 原视图

CVIC_BUPA_KNA1_GET 客户数据

CVIC_BUPA_KNB1_GET 客户数据

BUS_MESSAGE_STORE 报错预警函数

例：

DATA e_lfm1 TYPE lfm1.
DATA e_data TYPE bussdi3-data.
DATA e_lfb1 TYPE lfb1.

"获取bp当前LFM1（供应商采购组织视图）的数据
CALL FUNCTION 'CVIV_BUPA_LFM1_GET'
IMPORTING
e_lfm1 = e_lfm1
e_data = e_data.

"获取bp当前LFB1（供应商公司代码视图）的数据
CALL FUNCTION 'CVIV_BUPA_LFB1_GET'
IMPORTING
e_lfb1 = e_lfb1
e_data = e_data.

"当bp中采购视图和公司视图的付款条款不一致时报错
IF e_lfm1-zterm NE e_lfb1-zterm.

"采购视图付款条款和公司视图付款条款不一致！
* CALL FUNCTION 'BUS_MESSAGE_STORE'
* EXPORTING
* arbgb = 'ZONET'
* msgty = 'W'
* txtnr = 105
** CANCEL = ' '
** MSGV1 = ' '
** MSGV2 = ' '
** MSGV3 = ' '
** MSGV4 = ' '
** TBFLD_STRG = TBFLD_STRG
** STEPL = STEPL
** FLAG_COLL_END = FLAG_COLL_END
** REPEAT_SHOW = '1'
** SICHT = SICHT
** I_NOT_ACTIVE_HANDLER = ' '
** NAMESPACE = ' '
** IMPORTING
** E_NOT_ACTIVE = E_NOT_ACTIVE
* .
MESSAGE w999(z001).
ENDIF.
 

2、 事务码：BUPT 菜单栏会变为业务伙伴的配置菜单

2.1、业务伙伴-控制-事件-BUS7- DCHCK保存前检查 (交叉视图)-事件->功能模块

新建条目输入第一步中的函数 PS:项目可随便填，功能模块名称为第一步函数名，调用：*，应用程序选一个没用上的即可

保存可到bp调试执行

2.2如2.1配置完成，代码无触发，则按以下步骤：

SAP菜单栏-业务伙伴-控制-可分割-BUSD-选中用到的视图页（例：公司代码视图FLVN00，可通过bp页面查看）- BP 视图 -> 调用应用程序

添加新条目，加入2.1中的应用程序

保存再去bp操作即可。