调用函数 KBPP_EXTERN_UPDATE_CO
CJ40
IF <fs_tab>-wert1_cb IS NOT INITIAL.
* cj40
ls_bpak-e_objnr = <fs_tab>-objnr.
ls_bpak-e_vorga = 'KSTP'. "执行了CJ40 后可查看RPSCO表 的预算类型字段VORGA
ls_bpak-e_versn = '000'. "RPSCO表的版本号
ls_bpak-twaer = <fs_tab>-pwpos_cb. "币别
ls_bpak-wert = <fs_tab>-wert1_cb. "金额
APPEND ls_bpak TO lt_bpak.
*修改总体预算(一定要先修改总体的,不然增强年度预算的时候会检查总体预算不够,就会报错 cj40
CALL FUNCTION 'KBPP_EXTERN_UPDATE_CO'
EXPORTING
i_budget_activity = 'KSTP'
i_budget_activ_sup_ret = ''
i_budget_distribution_allowed = ''
i_commit_data = ''
i_delta_amo