ABAP PS更改计划成本和计划收入（CJ40/CJ42）

调用函数 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