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.