CLEAR gmhead.
gmhead-pstng_date = ls_table-gzdate."sy-datum .
gmhead-doc_date = sy-datum .
gmhead-pr_uname = sy-uname.
gmhead-GR_GI_SLIP_NO = l_no.
* ***oode
CLEAR gmcode.
gmcode-gm_code = '01'.
select single MATNR VGBEL VGPOS
INTO (itab-material,itab-po_number,itab-po_item)
from LIPS
WHERE VBELN = l_no AND
POSNR = l_item.
* *****
select single werks LGORT into (itab-plant,itab-stge_loc)
from EKPO
where EBELN = itab-po_number and
EBELP = itab-po_item.
itab-mvt_ind = 'B'.
itab-DELIV_NUMB = l_no .
itab-DELIV_ITEM = l_item.
itab-entry_qnt = ls_table-recqty.
itab-QUANTITY = ls_table-recqty.
if ls_table-BATCH = 'CXNOTBATCH'.
itab-BATCH = ''.
ELSE.
itab-BATCH = ls_table-BATCH.
endif.
itab-move_type = '101'. "101 ,102 .
APPEND itab .
CLEAR itab .
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = gmhead
goodsmvt_code = gmcode
IMPORTING
goodsmvt_headret = mthead
materialdocument = mat_doc
TABLES
goodsmvt_item = itab
return = return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.