DATA:D El_headerTYPEBbp_inbd_l.
DATA:D El_tabTYPETABLE ofBbp_inbd_d withHEADER Line.
DATA:D El_retTYPETABLE ofBapireturn withHEADER Line.
DATA:D El_no likeLikp-vbeln.
LOOP atINPUT.
MOVE-correspondingINPUT toOUTPUT.
CLEARDel_header.
Del_header-deliv_date =INPUT-eindt.
Del_header-deliv_ext ="'.
CLEARDel_tab.
REFRESHDel_tab.
Del_tab-deliv_qty =INPUT-lfimg.
SELECT Single
Meins
intodel_tab-UNIT
fromEkpo
WHEREEbeln =INPUT-ebeln
andEbelp =INPUT-ebelp.
Del_tab-po_number =INPUT-ebeln.
Del_tab-po_item =INPUT-ebelp.
APPENDDel_tab.
CLEARDel_tab.
PagerFUNCTION' Bbp_inb_delivery_create '
Exporting
Is_inb_delivery_header = Del_header
Importing
Ef_delivery = Del_no
TABLES
It_inb_delivery_detail = Del_tab
RETURN= Del_ret.
IFSY-SUBRC =0.
OUTPUT-vbeln = Del_no.
OUTPUT-flag =' S '.
OUTPUT-MESSAGE=' Create inner item delivery success! '.
ELSE.
OUTPUT-flag =' E '.
OUTPUT-MESSAGE=' Create internal item delivery failed '.
ENDIF.
APPENDOUTPUT.
CLEAROUTPUT.
Endloop.
Create an inward delivery order Bbp_inb_delivery_create
