內向交貨單 VL31N
阿新 • • 發佈:2019-01-09
1 , BBP_INB_DELIVERY_CREATE
ls_head-deliv_date = sy-datum. ls_head-ship_point = '2000'. ls_item-deliv_item = '000010'. ls_item-material = 'B01-089791-B1'. ls_item-deliv_qty = '1.000'. ls_item-unit = 'PCS'. ls_item-po_number = '2015031250'. ls_item-po_item = '00010'. APPEND ls_item TO lt_item. CLEAR ls_item. CALL FUNCTION 'BBP_INB_DELIVERY_CREATE' EXPORTING is_inb_delivery_header = ls_head IMPORTING ef_delivery = lv_dn TABLES it_inb_delivery_detail = lt_item return = lt_ret.
2 , BAPI_DELIVERYPROCESSING_EXEC
ls_req-id = '1'. ls_req-document_numb = '2015031250'. ls_req-document_item = '00010'. ls_req-extdelv_no = ''. "LIFEX ls_req-plant = '2000'. ls_req-stge_loc = 'A097'. ls_req-quantity_base__uom = '1'. ls_req-delivery_date = sy-datum. ls_req-delivery_time = sy-uzeit. ls_req-document_type = 'B'. " B - PO , L - DN , A - SALES ORDER APPEND ls_req TO lt_req. CLEAR ls_req. CALL FUNCTION 'BAPI_DELIVERYPROCESSING_EXEC' TABLES request = lt_req createditems = lt_result "ID - DN return = lt_return.