BAPI_PR_CREATE BAPI

  LOOP AT it_tab INTO st_tab.

    header-pr_type = st_tab-bsart.   "'NB'.
    headerx-pr_type = 'X'.
    item-preq_item = '00010'.
    item-pur_group = 'WY1'.

    item-material = st_tab-matnr.  "'625.0408.1320.0200'.

    SELECT SINGLE maktx INTO item-short_text FROM makt  WHERE matnr = item-material.

    item-plant = 'SH01'.
    item-quantity = st_tab-menge. "'4'.
    item-deliv_date = st_tab-lfdat. "sy-datum + 10.   "交貨日期

    IF eban-bwtar <> ''.
      item-val_type = eban-bwtar.
    ENDIF.

    item-preq_price = '12'.  "物料價格
    item-acctasscat = ''.  "賬戶類型 資產採購

    item-item_cat = 'L'.   "項次類型

    APPEND item.

    itemx-preq_item = '00010'.
    itemx-preq_itemx = 'X'.
    itemx-pur_group = 'X'.
    itemx-short_text = 'X'.
    itemx-material = 'X'.
    itemx-plant = 'X'.
    itemx-store_loc = 'X'.
    itemx-quantity = 'X'.
    itemx-deliv_date = 'X'.

    IF eban-bwtar <> ''.
      itemx-val_type = 'X'.
    ENDIF.
    itemx-preq_price = 'X'.
    APPEND  itemx.

  ENDLOOP.


  CALL FUNCTION 'BAPI_PR_CREATE'
    EXPORTING
      prheader  = header
      prheaderx = headerx
    IMPORTING
      number    = number
    TABLES
      return    = return
      pritem    = item
      pritemx   = itemx.

  COMMIT WORK AND WAIT .


  IF return[] IS INITIAL.
    WRITE: / 'no messages'.
  ELSE.
*    LOOP AT return.
*      WRITE: /    return-type,
*             (2)  return-id,
*                  return-number,
*             (80) return-message,
*             (20) return-parameter,
*             (3)  return-row,
*                  return-field.
*    ENDLOOP.
  ENDIF.