VA02修改销售订单的BAPI举例

销售订单修改BAPI：BAPI_SALESORDER_CHANGE

*&---------------------------------------------------------------------*

*&      Form  rechazar

*&---------------------------------------------------------------------*

FORM rechazar .

 DATA: i_hdr  TYPE bapisdh1,

       i_hdrx TYPE bapisdh1x,

       i_ret  TYPE bapiret2 OCCURS 0 WITH HEADER LINE,

       i_itm  TYPE bapisditm OCCURS 0 WITH HEADER LINE,

       i_itmx TYPE bapisditmx  OCCURS 0 WITH HEADER LINE.

 REFRESH: i_itm, i_itmx, i_ret.

 CLEAR: i_hdr, i_hdrx.

 i_hdr-sd_doc_cat  = 'C'.

 i_hdrx-updateflag = 'U'.

 SELECT * FROM vbap

  WHERE vbeln = i_listado-vbeln.

   i_itm-itm_number = vbap-posnr.

   i_itm-reason_rej = 'Z1'.

   i_itmx-updateflag = 'U'.

   i_itmx-itm_number = vbap-posnr.

   i_itmx-reason_rej = 'X'.

   APPEND i_itm.

   APPEND i_itmx.

 ENDSELECT.

 CALL FUNCTION 'BAPI_SALESORDER_CHANGE'

   EXPORTING

     salesdocument     = i_listado-vbeln

     order_header_in   = i_hdr

     order_header_inx  = i_hdrx

     behave_when_error = 'P'

   TABLES

     return            = i_ret

     order_item_in     = i_itm

     order_item_inx    = i_itmx.

ENDFORM.                    " rechazar