Solved: Re: Park invoice

Former Member · ‎2008 Jan 22

Hi,

I wamt to use BAPI_INCOMINGINVOICE_PARK or MRM_INVOICE_PARK to parking MM invoice with ref. to PO

for transaction MIR7. Kindly provide me a sample code for how to use this function modules.

because editior is one of the i/p for this function module. in MIR7 they user MRM_INVOICE_PARK function module, but how to use this function module alone..

regards

Rajesh. V

Former Member · ‎2008 Jan 22

Here we go....

LOOP AT i_ekbe INTO wa_ekbe.

CLEAR: wa_invoice_header,

i_invoice_item,

i_return,

v_inv_doc_no,

v_fisc_year,

wa_return.

REFRESH: i_invoice_item,

i_return.

Appending Invoice header Work Area

wa_invoice_header-invoice_ind = c_x.

wa_invoice_header-doc_date = sy-datum.

wa_invoice_header-pstng_date = wa_ekbe-budat.

wa_invoice_header-comp_code = c_100.

wa_invoice_header-gross_amount =

wa_invoice_header-currency = c_usd.

wa_invoice_header-calc_tax_ind = c_x.

Appending Invoice item data

i_invoice_item-invoice_doc_item = '0001'.

i_invoice_item-po_number = wa_ekbe-ebeln.

i_invoice_item-po_item = wa_ekbe-ebelp.

i_invoice_item-tax_code = ' '.

i_invoice_item-item_amount = '20.00'.

i_invoice_item-quantity = '10.000'.

i_invoice_item-ref_doc = '5600000634'.

i_invoice_item-ref_doc_year = '2006'.

i_invoice_item-ref_doc_it = '10'.

i_invoice_item-po_unit = 'EA'.

i_invoice_item-COND_TYPE = 'VPRS'.

APPEND i_invoice_item.

Calling module BAPI_INCOMINGINVOICE_PARK

CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'

EXPORTING

headerdata = wa_invoice_header

ADDRESSDATA =

IMPORTING

invoicedocnumber = v_inv_doc_no

fiscalyear = v_fisc_year

TABLES

itemdata = i_invoice_item

NFMETALLITMS =

ACCOUNTINGDATA =

GLACCOUNTDATA = i_gla

MATERIALDATA = i_mat

TAXDATA =

WITHTAXDATA =

VENDORITEMSPLITDATA =

return = i_return.

READ TABLE i_return INTO wa_return

WITH KEY type = c_e.

IF sy-subrc EQ 0.

ENDIF.

ENDLOOP.

Vinodh Balakrishnan

Former Member · ‎2008 Jan 22