KO22可以为内部订单预先维护预算,以便在后续成本实际产生时进行控制。
使用BAPI进行创建:KBPP_EXTERN_UPDATE_CO
SAP note 625613中对该BAPI的使用方式有详细介绍,使用时可进行参考。
年度预算:e_gjahr传值、e_ges置空;
总预算:e_gjahr置空、e_ges为'X'。
实际使用过程中,发现有一种情况用该BAPI更新不了,即在分配预算之前,该订单就已经产生成本,这种时候前台可以正常保存,但BAPI无法直接更新成功,debug无果后决定使用BDC来进行实现,如果有人知道通过BAPI怎么处理这种情况,可以评论分享下。
DATA:
lt_bpak TYPE bpak_tab,
ls_bpak TYPE bpak,
lt_return TYPE bapiret2_t,
ls_return TYPE bapiret2.
"年度预算
ls_bpak-e_objnr = us_item-objnr.
ls_bpak-e_gjahr = us_item-gjahr.
ls_bpak-wert = us_item-wtjhr.
ls_bpak-twaer = us_item-twaer.
ls_bpak-e_versn = ''.
APPEND ls_bpak TO lt_bpak.
CLEAR ls_bpak.
"总预算
ls_bpak-e_objnr = us_item-objnr.
ls_bpak-wert = us_item-wtges.
ls_bpak-twaer = us_item-twaer.
ls_bpak-e_ges = 'X'.
ls_bpak-e_versn = ''.
APPEND ls_bpak TO lt_bpak.
CLEAR ls_bpak.
* 预算更新
CALL FUNCTION 'KBPP_EXTERN_UPDATE_CO'
EXPORTING
i_budget_activity = 'KBUD'
* I_BUDGET_ACTIV_SUP_RET = ' '
* I_BUDGET_DISTRIBUTION_ALLOWED = ' '
* I_COMMIT_DATA = ' '
* I_DELTA_AMOUNTS = 'X'
* I_ROLLUP_DATA = 'X'
* I_CHECK_PLAN_DATA = 'X'
* I_APPLICATION =
i_commit_all = 'X'
* IMPORTING
* E_ERRORS_FOUND =
TABLES
it_bpak = lt_bpak
it_return = lt_return
EXCEPTIONS
no_update = 1
OTHERS = 2.
使用BDC进行创建
使用SHDB进行录屏,BDC的使用方法网上太多帖子了,这里只分享下使用BDC过程中碰到的几个问题:
问题1:
在初次登陆系统时,进入该事务代码时,会出现这个弹窗,让用户选择控制范围,输入过之后,后续再次进入该事务代码,这个弹窗就不会出现了,这也是使用BDC时需要注意到的点,这个弹窗也需要录进去,但是程序应该根据什么逻辑来决定是否需要弹窗这段录屏代码呢?
理论上SAP大多数类似的标准功能都是相同的逻辑,都是点选了对应的值之后,使用SET PARAMER ID 'XXX' FIELD VALUE来将用户选择的值保存到SAP SESSION中,后面每次进入事务码时,使用GET PARAMER ID 'XXX' FIELD VALUE来进行获取,如果获取到就不会出现这个弹窗,所以我们在录屏的代码中,加上对应的判断即可。
在弹窗输入框中摁下F1,即可快速找到该字段对应的Parameter ID。
问题2:
使用BDC时,有时候一些前台的报错日志不会返回到messtab中,例如下图这种报错。
解决思路就是在前台点保存之后,/H进行debug,一步一步跟踪看标准代码是怎么进行处理的,以我这个前台报错为例,最终定位到程序在CHECK_ALL子例程中进行所有检查逻辑,在CHECK_LIST中将错误信息进行转换,并且收集到内表 (SAPLSMSG)XMESG[] 中,再以弹窗形式输出,但是前台执行和BDC执行时有些地方有不太一样。
在CHECK_ALL的子例程中,检查发生在函数KBPT_CHECK_BUDGET_PLAN中,前台执行后,如果有错误信息,不会执行446行的E类型消息,但BDC后台调用会执行该语句,E类型的消息会直接终止掉程序,所以后续的CHECK_LIST中收集错误的逻辑就没有办法去执行,程序中自然也无法获取到错误消息。
后来进一步调试,发现消息的收集和显示,是在CHECK_LIST里面的一个函数KBPT_ERROR_LOG中完成,参数MOVE_MESS决定了是否出现弹窗。
所以想要程序中捕获到这个错误信息,就需要在message E 类型语句之前把对应的错误消息收集到,并抛给程序,最终发现只有一个位置可以用来做这件事,就是在SET_ERROR_MARK中做隐式增强来进行数据抛出。
因为后续的message E语句会终止掉internal session,导致调用程序中无法获取到该session中的任何数据,所以只能通过EXPORT TO DATABASE的方式来共享数据。
以上,即可拿到跟前台一样的错误日志数据。
KO22的BDC参考代码:
*&---------------------------------------------------------------------*
*& Form FRM_BDC_CONTRACT_MAINTAIN
*&---------------------------------------------------------------------*
*& Using BDC to create contract
*&---------------------------------------------------------------------*
FORM frm_bdc_contract_maintain USING ut_item TYPE zprfitintordbudget_item_in
CHANGING cs_resp TYPE zprbcsrest_out.
DATA:
lv_kokrs TYPE tka01-kokrs,
lt_index TYPE STANDARD TABLE OF string,
lv_tabix TYPE n LENGTH 2,
lv_year TYPE n LENGTH 4,
lv_bdc_field TYPE string,
lv_bdc_value_i TYPE i,
lv_bdc_value_c TYPE string,
lv_errmsg TYPE string,
lv_objnr TYPE bp_objekt.
* BDC Error log
DATA:
lt_mesg TYPE STANDARD TABLE OF mesg,
lt_xmesg TYPE STANDARD TABLE OF smesgx.
CONSTANTS:
lc_wert1 TYPE string VALUE 'BPDY-WERT1',
lc_left_brackets TYPE char1 VALUE '(',
lc_right_brackets TYPE char1 VALUE ')'.
* SPA/GPA-Parameter prüfen
GET PARAMETER ID 'CAC' FIELD lv_kokrs.
lv_year = sy-datlo+0(4) - 1.
APPEND 'TOTAL' TO lt_index.
DO 5 TIMES.
APPEND lv_year TO lt_index.
ADD 1 TO lv_year.
ENDDO.
IF lv_kokrs IS INITIAL.
* Select Controller Area
PERFORM frm_bdc_dynpro USING 'SAPLSPO4' '0300'.
PERFORM frm_bdc_field USING 'BDC_CURSOR'
'SVALD-VALUE(01)'.
PERFORM frm_bdc_field USING 'BDC_OKCODE'
'=FURT'.
PERFORM frm_bdc_field USING 'SVALD-VALUE(01)'
'ZDPS'.
ENDIF.
* Enter Order
READ TABLE ut_item INTO DATA(us_item) INDEX 1.
PERFORM frm_bdc_dynpro USING 'SAPMKBUD' '0300'.
PERFORM frm_bdc_field USING 'BDC_CURSOR'
'CODIA-AUFNR'.
PERFORM frm_bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM frm_bdc_field USING 'CODIA-AUFNR'
us_item-aufnr.
PERFORM frm_bdc_dynpro USING 'SAPLKBPP' '0320'.
PERFORM frm_bdc_field USING 'BDC_CURSOR'
'BPDY-WERT1(01)'.
PERFORM frm_bdc_field USING 'BDC_OKCODE'
'=FULL'.
* Full amount
PERFORM frm_bdc_dynpro USING 'SAPLKBPP' '0220'.
PERFORM frm_bdc_field USING 'BDC_CURSOR'
'BPDY-WERT1(03)'.
PERFORM frm_bdc_field USING 'BDC_OKCODE'
'=POST'.
LOOP AT ut_item INTO us_item.
READ TABLE lt_index TRANSPORTING NO FIELDS
WITH KEY table_line = us_item-gjahr.
IF sy-subrc = 0.
lv_tabix = sy-tabix.
lv_bdc_field = lc_wert1 &&
lc_left_brackets &&
lv_tabix &&
lc_right_brackets.
lv_bdc_value_i = us_item-wtjhr.
lv_bdc_value_c = lv_bdc_value_i.
CONDENSE lv_bdc_value_c NO-GAPS.
* Year value
PERFORM frm_bdc_field USING lv_bdc_field
lv_bdc_value_c.
ENDIF.
IF us_item-wtges IS NOT INITIAL..
lv_bdc_value_i = us_item-wtges.
lv_bdc_value_c = lv_bdc_value_i.
CONDENSE lv_bdc_value_c NO-GAPS.
* Total value
PERFORM frm_bdc_field USING 'BPDY-WERT1(01)'
lv_bdc_value_c.
ENDIF.
ENDLOOP.
lv_objnr = us_item-objnr.
CALL FUNCTION 'ENQUEUE_EBPTR_EX'
EXPORTING
objnr = lv_objnr
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
cs_resp-msgty = 'E'.
MESSAGE ID sy-msgid
TYPE sy-msgty
NUMBER sy-msgno
WITH sy-msgv1
sy-msgv2
sy-msgv3
sy-msgv4
INTO cs_resp-msgtx.
RETURN.
ELSE.
CALL FUNCTION 'DEQUEUE_EBPTR_EX'
EXPORTING
objnr = lv_objnr.
ENDIF.
TRY.
CALL TRANSACTION 'KO22' WITH AUTHORITY-CHECK USING bdcdata
MODE 'N'
UPDATE 'S'
MESSAGES INTO messtab.
LOOP AT messtab INTO DATA(ls_messtab) WHERE msgtyp CA 'EAX'.
cs_resp-msgty = 'E'.
EXIT.
ENDLOOP.
IF sy-subrc <> 0.
cs_resp-msgty = 'S'.
MESSAGE ID sy-msgid
TYPE sy-msgty
NUMBER sy-msgno
WITH sy-msgv1
sy-msgv2
sy-msgv3
sy-msgv4
INTO cs_resp-msgtx.
ELSE.
IMPORT zprerrlog = lt_xmesg FROM DATABASE indx(pr) ID 'ZPRMEMORY_KO22'.
DELETE FROM DATABASE indx(pr) ID 'ZPRMEMORY_KO22'.
LOOP AT lt_xmesg INTO DATA(ls_xmesg).
MESSAGE ID ls_xmesg-arbgb
TYPE 'E'
NUMBER ls_xmesg-txtnr
WITH ls_xmesg-msgv1
ls_xmesg-msgv2
ls_xmesg-msgv3
ls_xmesg-msgv4
INTO lv_errmsg.
CONCATENATE cs_resp-msgtx '|' lv_errmsg INTO cs_resp-msgtx.
ENDLOOP.
cs_resp-msgtx = shift_left( val = cs_resp-msgtx sub = '|' ).
ENDIF.
CATCH cx_sy_authorization_error INTO DATA(lx_auth_check).
* Authorization missing for user when executing transaction
DATA(lv_auth_check_text) = lx_auth_check->get_text( ).
cs_resp-msgty = 'E'.
cs_resp-msgtx = lv_auth_check_text.
ENDTRY.
CLEAR:
bdcdata,
bdcdata[],
messtab,
messtab[],
lt_mesg.
FREE:
bdcdata[],
messtab[].
ENDFORM.