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

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

调用bapi的时候需要注意下

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

*& 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.