一、CJ34，輸入發出預算和接收預算的WBS

?二、調用BAPI

"-----------------------------@斌將軍----------------------------- SELECTpspnr,posid,objnrFROM prpsINTO TABLE @DATA(lt_prps)FOR ALL ENTRIES IN @lt_yszjWHERE posid = @lt_yszj-outwbsOR posid = @lt_yszj-inwbs.IF lt_prps IS NOT INITIAL.SORT lt_prps BY posid.LOOP AT lt_yszj INTO ls_yszj.CLEAR:ls_bpak.READ TABLE lt_prps INTO DATA(ls_prps) WITH KEY posid = ls_yszj-outwbs BINARY SEARCH.IF sy-subrc EQ 0.ls_bpak-s_objnr = ls_prps-objnr."借出ENDIF.READ TABLE lt_prps INTO ls_prps WITH KEY posid = ls_yszj-inwbs BINARY SEARCH.IF sy-subrc EQ 0.ls_bpak-e_objnr = ls_prps-objnr."借入ENDIF."ls_bpak-s_vorga = 'KBUS'."ls_bpak-e_vorga = 'KBUE'.ls_bpak-bldat = ls_yszj-bldat."憑證日期ls_bpak-s_ges = 'X'."總價值ls_bpak-e_ges = 'X'."總價值ls_bpak-s_profil = '800001'."預算參數文件ls_bpak-e_profil = '800001'.ls_bpak-wert = ls_yszj-wtges.ls_bpak-twaer = 'CNY'.APPEND ls_bpak TO lt_bpak.CLEAR:ls_yszj.ENDLOOP.CALL FUNCTION 'KBPP_EXTERN_UPDATE'EXPORTING * IMP_CARRY_OVER = ' ' * IMP_CHECK = ' 'imp_commit = 'X'imp_fcode = ' ' * IMP_SUPRESS_AVA_CHECK = ' 'imp_tcode = 'CJ34' * IMP_UNAME = ' 'TABLESimp_bpak = lt_bpak * imp_bpak_per = lt_bpak_perreturn = lt_return.CLEAR:lv_message.LOOP AT lt_return INTO ls_return WHERE type CA 'EAX'.lv_message = lv_message && ls_return-message.CLEAR:ls_return.ENDLOOP.IF lv_message IS INITIAL.e_return-type = 'S'.e_return-message = '預算轉借成功'. * CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.ELSE.e_return-type = 'E'.e_return-message = '預算轉借失敗：' && lv_message. * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF.ELSE.e_return-type = 'E'.e_return-message = '未維護對應的WBS'.RETURN.ENDIF. "-----------------------------@斌將軍-----------------------------

總結

以上是生活随笔為你收集整理的PS CJ34预算转借的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。