豬噗噗的部落格

**BAPI Get Reservation
DATA: reservationheader   LIKE BAPI2093_RES_HEAD,
      reservationitems    LIKE BAPI2093_RES_ITEM OCCURS 0 WITH HEADER LINE,
      reservation         LIKE BAPI2093_RES_KEY-RESERV_NO.
DATA: profitabilitysegment LIKE BAPI_PROFITABILITY_SEGMENT OCCURS 0 WITH HEADER LINE.

**BAPI Get Message(Return)
DATA: return       LIKE BAPIRET2             OCCURS 0 WITH HEADER LINE.

*Header
    MOVE sy-datum                    TO reservationheader-res_date.  "需求日期
    MOVE g_311                       TO reservationheader-move_type. "異動類型 311
    MOVE it_zmms005-prod_plant       TO reservationheader-move_plant."工廠
    MOVE it_zmms005-storage_location TO reservationheader-move_stloc."目的倉
    MOVE sy-uname                    TO reservationheader-created_by."建立者

*Body
    MOVE it_zmms008-aufnr     TO reservationitems-batch.     "來源批次
    MOVE it_zmms008-matnr     TO reservationitems-material.  "料號
    MOVE it_zmms008-werks     TO reservationitems-plant.     "工廠
    MOVE it_zmms008-lgort     TO reservationitems-stge_loc.  "來源倉
    MOVE it_zmms008-zacmng    TO reservationitems-entry_qnt. "數量
    MOVE it_zmms008-meins     TO reservationitems-entry_uom. "單位
    MOVE 'X'                  TO reservationitems-movement.  "固定X
    APPEND reservationitems.

  CALL FUNCTION 'BAPI_RESERVATION_CREATE1'            
    EXPORTING                                         
      reservationheader          = reservationheader  
    IMPORTING                                         
      reservation                = reservation        
    TABLES                                            
      reservationitems           = reservationitems   
      profitabilitysegment       = profitabilitysegment
      return                     = return.