这里是有增强的,加了客户化的屏幕字段
如果没有增强,不用处理
lt_extensionin.
*&---------------------------------------------------------------------*
*& 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'.