ABAP BAPI_RESERVATION_CREATE1创建预留：ME21 BAPI

DATA: ls_header LIKE bapi2093_res_head.

DATA: lv_res    TYPE bapi2093_res_key-reserv_no.

DATA: lt_item LIKE STANDARD TABLE OF bapi2093_res_item,
      ls_item LIKE bapi2093_res_item.

DATA: lt_ment   LIKE STANDARD TABLE OF bapi_profitability_segment,
      lt_return LIKE STANDARD TABLE OF bapiret2.

DATA: lv_mess TYPE char50.


ls_header-costcenter = '0202130001'.  "成本中心
ls_header-move_type = '201'.               "移动类型
ls_header-res_date  = sy-datum.          "基准日期
ls_header-move_plant = '2021'.            "工厂
ls_header-created_by = sy-uname.      "创建人

ls_item-plant = '2021'.                            
ls_item-entry_qnt = '1'.                          "数量
*ls_item-entry_uom = 'PC'.                   "单位
ls_item-req_date  = sy-datum.              "需求日期
ls_item-material  = '000000000107090642'. "物料
ls_item-item_text = 'ceshi'.                    "文本

APPEND ls_item TO lt_item.



CALL FUNCTION 'BAPI_RESERVATION_CREATE1'
  EXPORTING
    reservationheader    = ls_header
*   TESTRUN              =
*   ATPCHECK             =
*   CALCHECK             =
*   RESERVATION_EXTERNAL =
  IMPORTING
    reservation          = lv_res    "返回的预留号
  TABLES
    reservationitems     = lt_item
    profitabilitysegment = lt_ment
    return               = lt_return
*   EXTENSIONIN          =
  .

READ TABLE lt_return INTO DATA(ls_return) WITH KEY type = 'E'.
IF sy-subrc EQ 0.
  CALL FUNCTION 'MESSAGE_TEXT_BUILD'
    EXPORTING
      msgid               = ls_return-id
      msgnr               = ls_return-number
      msgv1               = ls_return-message_v1
      msgv2               = ls_return-message_v2
      msgv3               = ls_return-message_v3
      msgv4               = ls_return-message_v4
    IMPORTING
      message_text_output = lv_mess.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
* IMPORTING
*   RETURN        =
    .
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
*   WAIT          =
* IMPORTING
*   RETURN        =  .
 ENDIF.