BAPI for MIR7 transaction with no PO data in ECC 6.0

[Former Member]

Hi All,

Can anybody provide me BAPI's for transaction MIR7 with no PO data available.

Data available to post: Header data like -> Comapny Code, doc typ/date, post date, currency key & header text etc..

Item date like:

Item data-1->Debit Data-> comp code, post.key, vendor a/c, amount, item text, assignment, tax amount etc..

Item data-2->Credit Data-> comp code, posting key, account no, amount, cost center, material, partner, tax code, wbs element, assignment, item text

Can anybody give the BAPI's for the same functionality.

Note: The BAPI should Park Vendor Non-PO Invoice data trough MIR7 transaction and we are in SAP version ECC 6.0

Thanks in advance.

Thanks,

Deep.

[Former Member · Accepted solution]

Hi,

Any solution for above post!

Thanks,

Deep.

[former_member188685 · Accepted solution]

Check the MRM functions.

you may try with MRM_INVOICE_PARK

[Former Member · Accepted solution]

Hi All,

I have tried using MRM_INVOICE_PARK F.M to Park Vendor Non_PO Invoice for MIR7 transaction.

But is giving message as 'Table T169: entry does not exist'

But when i checked data in T169 table for MIR7 the record is available as: TRTYP-H, VGART - RD, ACTI1 - RMRP, TCODE,TRART-MIR7, FUNCL-

Also please clarify whether the code i have written is valid (or) any changes required!

TYPE-POOLS:

mrm,

fmccl,

mmcr.

TYPES: mrm_tab_return TYPE bapiret2 OCCURS 1.

CONSTANTS:

c_delete LIKE drseg-xupda VALUE 'D', " Delete

c_rbstat_delete LIKE rbkp-rbstat VALUE '2', " gelöschte Rchg

c_rbstat_parked LIKE rbkp-rbstat VALUE 'A', " Vorerfasst

c_rbstat_comple LIKE rbkp-rbstat VALUE 'B', " Vorerfasst vollständig

c_rbstat_saved_pa LIKE rbkp-rbstat VALUE 'C', " Gemerkt vorerfasst

c_rbstat_saved_po LIKE rbkp-rbstat VALUE 'D', " Gemerkt erfasst

c_rbstat_rele_pa LIKE rbkp-rbstat VALUE 'E'. " Vorerfasst freigegeben

DATA: s_rbkpv TYPE mrm_rbkpv.

DATA: tab_drseg TYPE mmcr_tdrseg,

wa_drseg TYPE mmcr_drseg,

tab_selbest TYPE mrm_tab_selbest,

tab_selfrbr TYPE mrm_tab_selfrbr,

tab_sellifs TYPE mrm_tab_sellifs,

tab_selwerk TYPE mrm_tab_selwerk,

t_errprot TYPE mrm_tab_errprot,

te_return TYPE mrm_tab_return,

s_errprot TYPE mrm_errprot,

tab_selerfb TYPE mrm_tab_selerfb.

DATA: f_belnr TYPE re_belnr,

f_parked TYPE marke,

l_f_return TYPE bapiret2,

c_t_returns TYPE fmccl_t_return,

f_gjahr TYPE gjahr.

• Header Data*

s_rbkpv-bukrs = 1103. " Comp Code

s_rbkpv-blart = 'IN'. " Doc Type

s_rbkpv-bldat = '28012008'. " Doc Date/Inv Date

s_rbkpv-budat = '01042008'. " Post date

s_rbkpv-waers = 'GBP'. " Curr Key

s_rbkpv-xblnr = '9016999395'. " Reference/Vend Inv No

s_rbkpv-bktxt = 'PE4 5BR'.

*s_rbkpv-KURSF = " Exchange Rate

s_rbkpv-lifnr = 100018. " Vendor Number

s_rbkpv-rmwwr = '3143.03'. " Gross Inv amt

*s_rbkpv-WMWST1 = " Tax amount

s_rbkpv-mwskz1 = 'ZV'. " Tax Code

*s_rbkpv-ZTERM = " Payment Terms

**s_rbkpv-ZBD1T = " Disc days *

**s_rbkpv-ZBD1P = " Disc % *

**s_rbkpv-ZBD2T = " Disc days *

*s_rbkpv-ZBD2P = " Disc %

• Item Data - Debit*

wa_drseg-bukrs = 1103. " Comp Code

wa_drseg-shkzg = 'S'. " Debit/Credit Indicator based on posting key

wa_drseg-wrbtr = '3143.03'. " Amount

wa_drseg-mwskz = 'ZV'. " Tax Code

wa_drseg-sgtxt = '9016999395 28/1/08'. " Item Text

wa_drseg-saknr = 7600000. " G/L account no-27381002

wa_drseg-kostl = 510121. " Cost Center

*wa_drseg-PS_PSP_PNR = . " WBS element

*wa_drseg-ANLN1 = . " Asset

wa_drseg-zuonr = 'SC01444418331'. " Assignment no

APPEND wa_drseg TO tab_drseg.

• Item Data - Crebit*

wa_drseg-bukrs = 1103. " Comp Code

wa_drseg-shkzg = 'H'. " Debit/Credit Indicator based on posting key

wa_drseg-wrbtr = '3143.03'. " Amount

wa_drseg-mwskz = 'ZV'. " Tax Code

wa_drseg-sgtxt = '9016999395 28/1/08'. " Item Text

wa_drseg-saknr = 7600000. " G/L account no

wa_drseg-kostl = 510121. " Cost Center

*wa_drseg-PS_PSP_PNR = . " WBS element

*wa_drseg-ANLN1 = . " Asset

wa_drseg-zuonr = 'SC01444418331'. " Assignment no

APPEND wa_drseg TO tab_drseg.

**----

---

Park invoice----

---

**

CALL FUNCTION 'MRM_INVOICE_PARK'

EXPORTING

i_rbkpv = s_rbkpv

i_xupda = 'I'

i_rbstat_new = c_rbstat_parked

ti_drseg = tab_drseg[]

IMPORTING

e_belnr = f_belnr

e_gjahr = f_gjahr

te_errprot = t_errprot

e_only_parked = f_parked

EXCEPTIONS

invalid_status = 1

update_impossible = 2

error_message = 3

OTHERS = 4.

IF sy-subrc EQ 0.

COMMIT WORK.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'.

ELSE.

• CALL FUNCTION 'MRM_PROT_GET'*

• IMPORTING*

• te_errprot = t_errprot.*

• LOOP AT t_errprot INTO s_errprot.*

• PERFORM f_bapireturn_fill USING s_errprot-msgid*

• s_errprot-msgty*

• s_errprot-msgno*

• s_errprot-msgv1*

• s_errprot-msgv2*

• s_errprot-msgv3*

• s_errprot-msgv4*

• CHANGING te_return.*

• ENDLOOP.*

l_f_return-id = sy-msgid.

l_f_return-type = sy-msgty.

l_f_return-number = sy-msgno.

l_f_return-message_v1 = sy-msgv1.

l_f_return-message_v2 = sy-msgv2.

l_f_return-message_v3 = sy-msgv3.

l_f_return-message_v4 = sy-msgv4.

*----- write message into message text field

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

INTO l_f_return-message.

APPEND l_f_return TO c_t_returns.

ENDIF.

Can anybody clarify whether the data i am passing is in right way!

I am having 3 rows from flat file for every one invoice to be parked.

1. Header Data

2. Dr. Related Data

3. Cr. Related Data

Can anybody solve my issue!

Thanks in advance.

Thanks,

Deep.

[Former Member · Accepted solution]

Hi,

Can anybody resolve my issue!

Thanks,

Deep.

[Former Member · Accepted solution]

Hi All,

I have tested BAPI_INCOMINGINVOICE_PARK without passing PO number and i was able to create Invoice Document No.

But i have 2 issues!

1. How can we know that that new Invoice Doc no created is Parked (or) not! What is the Parameter we need to pass to above BAPI to make it Parked.

2. As per my requirement i need to create Documents both in MM & FI when my data is Parked! How can know it whether it is created doc's in both MM & FI. Will this BAPI will create documents both in MM & FI when i do vendor no-po invoice parking!

Thanks in advance.

Thanks,

Deep.

[former_member339717 · Accepted solution]

The importing parameter in red will return you the parkdoc-invoicenumber, and parkdoc-fiscalyear.

CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'

       EXPORTING

         HEADERDATA                = HEADERDATA

*   ADDRESSDATA               =

      IMPORTING

        INVOICEDOCNUMBER          = PARKDOC-INVOICEDOCNUMBER

        FISCALYEAR                = PARKDOC-FISCALYEAR

       TABLES

         ITEMDATA                  =  IT_ITEMDATA

*          ACCOUNTINGDATA            =  IT_ACCOUNTDATA

          GLACCOUNTDATA             = IT_GLACCOUNTDATA

**   MATERIALDATA              =

*   TAXDATA                    =       IT_TAXDATA

**   WITHTAXDATA               =

**   VENDORITEMSPLITDATA       =

         RETURN                    = IT_RETURN

               .