ABAP-BP创建时通用数据的语言设置初始值增强

 

 1 *如图所示，用户想在创建客户的时候这个语言的初始值是中文，BP有个赋初始值的增强点CVI_DEFAULT_VALUES，但是这个增强点不能实现这个功能，所以要在其他地方实施增强。
 2 
 3 *SE37
 4 *函数BUA_BUPA_PBO_BUA110
 5 *在BP创建客户时对BP一些字段进行赋初值
 6 
 7 *在函数结束之前的末尾实施隐式增强
 8 ENHANCEMENT 1 ZSD_BP_LANGUAGE. "active version
 9 
10 　　IF sy-tcode = 'BP' AND gv_bp_type = '2' .
11 
12 　　　　DATA:lt_default TYPE busdefault .
13 　　　　CALL FUNCTION 'BUP_BUPA_FIELDVALUES_GET'
14 　　　　　　IMPORTING
15 　　　　　　　　e_busdefault = lt_default.
16 　　　　lt_default-langu = '1'.
17 　　　　CALL FUNCTION 'BUP_BUPA_FIELDVALUES_SET'
18 　　　　　　EXPORTING
19 　　　　　　　　i_busdefault = lt_default.
20 
21 　　ENDIF .
22 
23 ENDENHANCEMENT.
posted @ 2022-05-20 14:14  TigerMan  阅读(179)  评论(0)  编辑  收藏  举报