生产订单下达

FORM frm_test2 .
  DATA:gt_bapi_order_key TYPE TABLE OF bapi_order_key,
       gs_bapi_order_key TYPE          bapi_order_key,
       gt_order_return   TYPE TABLE OF bapi_order_return WITH HEADER LINE.

  gs_bapi_order_key-order_number =  '006100408301'."生产订单号

  APPEND gs_bapi_order_key TO gt_bapi_order_key.

  CALL FUNCTION 'BAPI_PRODORD_RELEASE'
    TABLES
      orders        = gt_bapi_order_key
      detail_return = gt_order_return.
   READ TABLE gt_order_return WITH KEY type = 'E'.
   IF sy-subrc <> 0.
     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
         wait = 'X'.
   ELSE.
     MESSAGE '生产订单下达失败！' TYPE 'E' .
   ENDIF.
ENDFORM.