I would lik to create a park invoice in my program, just simulation the t-code "MIR7", so, i found that there have a BAPI "BAPI_INCOMINGINVOICE_PARK" seems to be fulfill my requirement, after call the BAPI in my program, the result is not as same as use MRI7. here is my code, is it any problem or the BAPI is not used for this purpose. thanks!
select * from ekko
where ebeln = p_ebeln.
wa_inv_header-doc_type = 'RE'.
wa_inv_header-doc_date = sy-datum.
wa_inv_header-pstng_date = sy-datum.
wa_inv_header-ref_doc_no = ekko-ebeln.
wa_inv_header-comp_code = ekko-bukrs.
wa_inv_header-currency = ekko-waers.
wa_inv_header-del_costs_taxc = 'P0'.
endselect.
select * from ekpo
where ebeln = p_ebeln.
select single * from mseg where ebeln = ekpo-ebeln and
ebelp = ekpo-ebelp.
gt_inv_item-invoice_doc_item = '1'.
gt_inv_item-REF_DOC = mseg-mblnr.
gt_inv_item-REF_DOC_YEAR = mseg-mjahr.
gt_inv_item-REF_DOC_IT = mseg-zeile.
gt_inv_item-po_number = ekpo-ebeln.
gt_inv_item-po_item = ekpo-ebelp.
gt_inv_item-tax_code = ekpo-mwskz.
gt_inv_item-item_amount = ekpo-netwr.
gt_inv_item-quantity = ekpo-menge.
gt_inv_item-po_unit = ekpo-meins.
append gt_inv_item.
gt_afs_inv_item-invoice_doc_item = 1.
gt_afs_inv_item-po_number = ekpo-ebeln.
gt_afs_inv_item-po_item = ekpo-ebelp.
gt_afs_inv_item-sched_line = '1'.
gt_afs_inv_item-afs_flag = 'X'.
append gt_afs_inv_item.
endselect.
CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
EXPORTING
HEADERDATA = wa_inv_header
IMPORTING
INVOICEDOCNUMBER = wa_inv_no
TABLES
ITEMDATA = gt_inv_item
/AFS/ITEMDATA = gt_afs_inv_item
RETURN = gt_ret
.
Bluesky
