Any BAPI to Post MIRO

[Former Member]

Hi all,

Does anybody know the BAPI for posting MIRO after GR.

Pl send with sample example code to undestand better.

It is urgent.

Appreciated answeres will be rewarded.

Regards,

Venkatesh

09892 895847

[Former Member]

BAPI CREATE_VENDOR_INVOICE

give points if useful

[Former Member]

Hi,

You may use FM BAPI_INCOMINGINVOICE_CREATE.

Regards

Raju Chitale

[Former Member]

Hi ,

Thanx for the answere.

Could you pls send me the sample code what values to be passed.

[Former Member]

Check this code:

clear : it_itemdata, it_accountingdata, IT_CRMEMO_MIRO, IT_CRMEMO_MR8M.

refresh : it_itemdata, it_accountingdata, IT_CRMEMO_MIRO, IT_CRMEMO_MR8M.

*-- Copy all the CR Memo Docs and delete order reason not in S_AUGRU

IT_CRMEMO_MR8M[] = IT_CRMEMO[].

*-- Delete Reversal postings which are not in S_AUGRU

DELETE IT_CRMEMO_MR8M WHERE AUGRU IN S_AUGRU.

*-- Delete Reversal postings where AEDAT is initial

DELETE IT_CRMEMO_MR8M where aedat is initial.

*-- Delete order reason which are not in S_AUGRU

DELETE IT_CRMEMO WHERE AUGRU NOT IN S_AUGRU.

*-- Loop through the credit memo request records

LOOP AT IT_CRMEMO INTO WA_CRMEMO.

lv_tabix = sy-tabix.

*-- If credit memo request change date is not initial then

• send change date (AEDAT) to lv_rbkp_bldat

if not WA_CRMEMO-aedat is initial.

lv_rbkp_bldat = WA_CRMEMO-aedat.

else.

*-- If credit memo request change date is initial then

• send create date (ERDAT) to lv_rbkp_bldat

lv_rbkp_bldat = WA_CRMEMO-erdat.

endif.

READ TABLE IT_ORDERS INTO WA_ORDERS WITH KEY VBELN = WA_CRMEMO-VBELN

POSNN = WA_CRMEMO-POSNR.

IF SY-SUBRC = 0.

READ TABLE IT_PO INTO WA_PO WITH KEY VBELV = WA_ORDERS-VBELV

POSNV = WA_ORDERS-POSNV.

IF SY-SUBRC = 0.

READ TABLE IT_EKPO INTO WA_EKPO WITH KEY EBELN = WA_PO-VBELN

EBELP = WA_PO-POSNN.

IF SY-SUBRC = 0.

*-- Read IT_EKBE_TEMP internal table which contains records which are not reversed

READ TABLE IT_EKBE_TEMP INTO WA_EKBE_TEMP WITH KEY EBELN = WA_EKPO-EBELN

EBELP = WA_EKPO-EBELP.

IF SY-SUBRC = 0.

*-- Read IT_RBKP internal table with XRECH (Indicator: post invoice) = 'X' ,

• check for invoice records for the correspnding CR Memo records

READ TABLE IT_RBKP INTO WA_RBKP WITH KEY BELNR = WA_EKBE_TEMP-BELNR

GJAHR = WA_EKBE_TEMP-GJAHR

XRECH = C_X.

IF SY-SUBRC = 0.

*-- Read IT_RBKP internal table with XRECH (Indicator: post invoice) = SPACE,

• and document date = CR Memo creation date

• and reference document number = PO number

READ TABLE IT_RBKP INTO WA_RBKP_TMP WITH KEY BELNR = WA_EKBE_TEMP-BELNR

GJAHR = WA_EKBE_TEMP-GJAHR

BLDAT = WA_CRMEMO-ERDAT

XRECH = ' '

XBLNR+0(10) = WA_EKBE_TEMP-ebeln.

• STBLG = SPACE.

IF SY-SUBRC = 0.

CONTINUE.

ELSE.

*-- Quantity Conversion (Get the Credit Memo Quantity by passing CMR unit per one PO unit)

perform f_quantity_conv.

*-- Filling the Line items data

*-- Incrementing the item no

lv_itemno = lv_itemno + 1.

v_itemno = lv_itemno.

it_itemdata-invoice_doc_item = v_itemno.

it_itemdata-po_number = WA_ekPO-ebeln.

it_itemdata-po_item = WA_EKPO-EBELP.

it_itemdata-tax_code = WA_ekpo-mwskz.

it_itemdata-TAXJURCODE = WA_ekpo-TXJCD.

*-- Converting SAP amount to BAPI format by passing line item amount and currency

PERFORM f_currency_amount_sap_to_bapi USING WA_EKPO-waers

V_LINE_AMOUNT

CHANGING it_itemdata-item_amount .

it_itemdata-quantity = ( WA_CRMEMO-ZMENG * V_CRMEMO_QTY ).

it_itemdata-po_unit = WA_EKPO-MEINS.

APPEND it_itemdata.

*-- Populate Account Assignment data

IT_ACCOUNTINGDATA-INVOICE_DOC_ITEM = v_itemno.

IT_ACCOUNTINGDATA-XUNPL = space.

IT_ACCOUNTINGDATA-SERIAL_NO = C_01.

IT_ACCOUNTINGDATA-TAX_CODE = it_itemdata-tax_code.

IT_ACCOUNTINGDATA-TAXJURCODE = it_itemdata-TAXJURCODE.

IT_ACCOUNTINGDATA-ITEM_AMOUNT = it_itemdata-item_amount.

IT_ACCOUNTINGDATA-QUANTITY = it_itemdata-quantity.

IT_ACCOUNTINGDATA-PO_UNIT = it_itemdata-po_unit.

IT_ACCOUNTINGDATA-GL_ACCOUNT = C_0000500205.

append IT_ACCOUNTINGDATA.

clear IT_ACCOUNTINGDATA.

CLEAR it_itemdata.

endif.

endif.

ENDIF.

ENDIF.

ENDIF.

ENDIF.

*-- At end of each credit memo request fill the header details of BAPI FM and

*-- post the BAPI

AT END OF VBELN.

read table it_crmemo into wa_crmemo index lv_tabix.

*-- Populate the document Header

*-- Getting the header data for invoice

x_docheader-invoice_ind = space.

x_docheader-doc_type = c_blart.

x_docheader-doc_date = lv_rbkp_bldat.

x_docheader-pstng_date = lv_rbkp_bldat.

x_docheader-ref_doc_no = WA_RBKP-XBLNR.

x_docheader-comp_code = WA_CRMEMO-BUKRS_VF.

x_docheader-CURRENCY = WA_CRMEMO-WAERK.

x_docheader-calc_tax_ind = lc_check.

*-- Logic to find the Tax %

v_tax_per = ( WA_RBKP-WMWST1 / ( WA_RBKP-RMWWR - WA_RBKP-WMWST1 ) ) * 100.

v_tax_amt = ( V_GROSSAMT * v_tax_per ) / 100.

V_GROSSAMT = ( V_GROSSAMT + v_tax_amt ).

x_docheader-gross_amount = V_GROSSAMT.

CLEAR:v_docnr, v_year1.

*-- Calling BAPI to create PO invoice document

CHECK NOT IT_ITEMDATA[] IS INITIAL.

CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'

EXPORTING

headerdata = x_docheader

IMPORTING

invoicedocnumber = v_docnr

fiscalyear = v_year1

TABLES

itemdata = it_itemdata[]

ACCOUNTingDATA = it_ACCOUNTingDATA[]

• GLACCOUNTDATA =

• taxdata =

return = it_return.

*-- Commit work

IF NOT v_docnr IS INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'.

*-- Move the data to Success Internal Table

wa_success-crmemo = wa_crmemo-vbeln.

wa_success-cmemo = wa_cmemo-vbeln.

wa_success-orders = wa_orders-vbelv.

wa_success-po = wa_po-vbeln.

wa_success-miro_no = v_docnr.

wa_success-text = 'MIRO is Posted'.

append wa_success TO it_success.

clear wa_success.

ENDIF.

*-- Read the values in the table IT_RETURN.

CLEAR it_return.

READ TABLE it_return INDEX 1.

• If message type is error then roll back the work

IF it_return-type = C_E.

*-- Roll back

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

*-- Move the data to Error Internal Table

wa_error-crmemo = wa_crmemo-vbeln.

wa_error-cmemo = wa_cmemo-vbeln.

wa_error-orders = wa_orders-vbelv.

wa_error-po = wa_po-vbeln.

wa_error-text = it_return-MESSAGE.

append wa_error TO it_error.

clear wa_error.

ENDIF.

refresh: it_return, it_itemdata, it_accountingdata.

clear: V_GROSSAMT, it_return, it_itemdata, wa_crmemo, wa_orders, wa_po,

wa_ekpo, WA_EKBE_TEMP, wa_rbkp, wa_rbkp_tmp, v_docnr, v_year1, WA_SUCCESS,

WA_ERROR, it_accountingdata, v_tax_per, v_tax_amt, V_FILL_ITEM, lv_rbkp_bldat.

ENDAT.

ENDLOOP.

cheers

Aveek

[former_member181995]

Venka,

FM: BAPI_INCOMINGINVOICE_CREATE

Make sure header field INVOICE_IND is set accordingly.

Sub debit set to X

Sub credit set to blank

Then on the item data, the field DE_CRE_IND, set the field to X for Sub Debit and blank for Sub Debit.

Amit.

[Former Member]

answered