DEMO创建PR：BAPI_PR_CREATE_SAP刘梦_新浪博客

原创

sapLiuMeng 2022-08-15 15:57:21 ©著作权

文章标签 python java 小程序 vue jquery 文章分类 后端开发

©著作权归作者所有：来自51CTO博客作者sapLiuMeng的原创作品，请联系作者获取转载授权，否则将追究法律责任

直接上干货代码：

*&---------------------------------------------------------------------*
 *& Report  ZLM_CREATE_PR
*&
 *&---------------------------------------------------------------------*
*& BAPI_REQUISITION_CREATE 和 BAPI_PR_CREATE 相关问题查看NOTE
*& 499627 - FAQ BAPIs for purchase requisitions
 *&---------------------------------------------------------------------*
 REPORT ZLM_PR_CREATE.
 DATA:LV_BANFN       TYPE EBAN-BANFN .
 DATA:LV_BNFPO       TYPE EBAN-BNFPO .
 DATA:LS_PRITEM      TYPE BAPIMEREQITEMIMP .
 DATA:LS_PRITEMX     TYPE BAPIMEREQITEMX .
 DATA:LT_PRITEM      TYPE TABLE OF BAPIMEREQITEMIMP .
 DATA:LT_PRITEMX     TYPE TABLE OF BAPIMEREQITEMX .
 DATA:LS_HEAD        TYPE BAPIMEREQHEADER  .
 DATA:LS_HEADX       TYPE BAPIMEREQHEADERX.
 DATA:LT_BAPIRETURN  TYPE TABLE OF BAPIRET2 .
*
 PARAMETERS:P_MATNR  TYPE MATNR .
 PARAMETERS:P_EKORG  TYPE EKORG .
 PARAMETERS:P_WERKS  TYPE WERKS_D .
START-OF-SELECTION.
   LS_HEAD-PR_TYPE = 'NB'."订单类型
   LS_HEADX-PR_TYPE = 'X' .
   CLEAR LV_BNFPO.
   LV_BNFPO  = LV_BNFPO    10 ."项目号
   LS_PRITEM-PREQ_ITEM = LV_BNFPO .
   LS_PRITEM-PREQ_NAME = SY-UNAME.
 *ls_PRITEM-TRACKINGNO = 'TRACKNO'.
   LS_PRITEM-MATERIAL =   P_MATNR.
   LS_PRITEM-PLANT    =  P_WERKS.
   LS_PRITEM-PURCH_ORG    =  P_EKORG.
   LS_PRITEM-QUANTITY =  10.
   LS_PRITEM-DELIV_DATE = SY-DATUM.
 *ls_PRITEM-FIXED = 'X' .
 *ls_PRITEM-PUR_GROUP = '109'.
   APPEND LS_PRITEM TO LT_PRITEM .
   LS_PRITEMX-PREQ_ITEM = LV_BNFPO .
   LS_PRITEMX-MATERIAL =   'X'.
   LS_PRITEMX-PLANT    =   'X'.
   LS_PRITEMX-QUANTITY =   'X'.
   LS_PRITEMX-DELIV_DATE = 'X'.
   LS_PRITEMX-PURCH_ORG = 'X'.
 *ls_PRITEMX-FIXED = 'X' .
 *ls_PRITEMX-PREQ_NAME = 'X'.
 *ls_PRITEMX-TRACKINGNO = 'X' .
 *IF ls_PRITEM-PUR_GROUP <> '' .
 *  ls_PRITEMX-PUR_GROUP = 'X'.
*ENDIF .
   APPEND LS_PRITEMX TO LT_PRITEMX .
   CALL FUNCTION 'BAPI_PR_CREATE'
     EXPORTING
       PRHEADER  = LS_HEAD
       PRHEADERX = LS_HEADX
     IMPORTING
       NUMBER    = LV_BANFN
     TABLES
       RETURN    = LT_BAPIRETURN
       PRITEM    = LT_PRITEM
       PRITEMX   = LT_PRITEMX.
   IF LV_BANFN IS NOT INITIAL.
     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
         WAIT = 'X'.
     WRITE:LV_BANFN.
   ELSE.
     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
   ENDIF.