ABAP BAPI：BAPI_PRODORD_CREATE 创建生产订单

DATA: ls_order  LIKE bapi_pp_order_create,
           ls_return LIKE bapiret2,
           ls_ornum  TYPE aufnr,
           ls_type   TYPE aufart.

  ls_order-material               = lv_matnr .            "物料
  ls_order-plant                    = zstr_in-werks .       "工厂
  ls_order-planning_plant     = zstr_in-pwerk .       "计划工厂
  ls_order-order_type           = zstr_in-pp_aufart .   "订单类型
  ls_order-basic_start_date  = zstr_in-gstrp .       "基本开始日期
  ls_order-basic_end_date   = zstr_in-gltrp .       "基本完成日期
  ls_order-quantity                = zstr_in-gamng .       "订单数量总计
  ls_order-routing_group      = lv_plnnr .            "任务清单组码
  ls_order-quantity_uom       = lv_gmein.             "基本计量单位
 

CALL FUNCTION 'BAPI_PRODORD_CREATE'
    EXPORTING
      orderdata    = ls_order
    IMPORTING
      return       = ls_return
      order_number = ls_ornum   
      order_type   = ls_type.   

  IF ls_return-type EQ 'E' OR ls_return-type EQ 'A'.
    "zstr_out-ztype = 'E'.
    "zstr_out-zmess = ls_return-message.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    EXIT.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
    WAIT UP TO 1 SECONDS.
  ENDIF.