DEMO:关闭采购订单BAPI_PO_CHANGE_SAP刘梦_新浪博客

这里是有增强的，加了客户化的屏幕字段

​​

​​

*&---------------------------------------------------------------------*
*& Report  ZDEMO_CLOSE_PO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report  zdemo_close_po.

parameters p_po type bapimepoheader-po_number..

data:lt_return   like table of bapiret2,
     ls_return   like line of lt_return,
     lt_poitem   like table of bapimepoitem ,
     lt_poitemx  like table of bapimepoitemx .

data:ls_poitem   like  line of lt_poitem.
data:ls_poitemx  like  line of lt_poitemx.

data:ls_data     like bapi_te_mepoheader.
data:ls_datax    like bapi_te_mepoheaderx.
data:lt_extensionin  like table of bapiparex  .
data:ls_extensionin  like    bapiparex  .

data:ls_poheader     like  bapimepoheader,
     ls_poheaderx    like  bapimepoheaderx.

clear ls_poheader.
clear ls_poheaderx.

ls_poheader-po_number =    p_po.
ls_poheader-creat_date =    sy-datum.
ls_poheader-doc_date   =    sy-datum.
ls_poheader-created_by =   sy-uname..

ls_poheaderx-po_number =    'X'.
ls_poheaderx-creat_date =    'X'.
ls_poheaderx-doc_date =    'X'.
ls_poheaderx-created_by =  'X'.

clear lt_poitem[].

ls_poitem-po_item = '00010'.
ls_poitem-delete_ind = 'X'.
append ls_poitem to lt_poitem[].

clear lt_poitemx[].

ls_poitemx-po_item = '00010'.
ls_poitemx-po_itemx = 'X'.
ls_poitemx-delete_ind = 'X'.
append ls_poitemx to lt_poitemx[].

clear:ls_data,ls_datax.
ls_data-po_number = p_po.
ls_datax-po_number = p_po.
ls_data-zdjyy = '8'."8.
ls_datax-zdjyy = 'X'.

clear: ls_extensionin,lt_extensionin[].

ls_extensionin-valuepart1 = ls_data.
ls_extensionin-structure = 'BAPI_TE_MEPOHEADER'.

append ls_extensionin to lt_extensionin.

ls_extensionin-valuepart1 = ls_datax.
ls_extensionin-structure = 'BAPI_TE_MEPOHEADERX'.

append ls_extensionin to lt_extensionin.

clear lt_return[].
call function 'BAPI_PO_CHANGE'
  exporting
    purchaseorder = p_po
    poheader      = ls_poheader
    poheaderx     = ls_poheaderx
  tables
    return        = lt_return
    poitem        = lt_poitem
    poitemx       = lt_poitemx
    extensionin   = lt_extensionin.


call function 'BAPI_TRANSACTION_COMMIT'
  exporting
    wait = 'X'.

如果没有增强，不用处理

lt_extensionin.