01-03-2008 9:12 AM
I try to use BAPI BAPI_INCOMINGINVOICE_CREATE to create subsequent credit and debit with material account posting.
In the previous issue, I received some examples with PO reference. But in my case, the PO has already invoiced. I just need to do credit and debit adjustment by material account.
Can you tell me how to use the bapi or give me a simple example.
thank you very much!
Jun
01-22-2008 10:21 PM
I have done subsequent debit/credit against invoices and credit memo. Perhaps this will help. here's how it's done.
To create a Subsequent Debit:
Set field BAPI_INCINV_CREATE_HEADER-REF_DOC_NO = Ref Doc #.
Set field BAPI_INCINV_CREATE_HEADER-INVOICE_IND = 'X' .
Set field BAPI_INCINV_CREATE_ITEM-INVOICE_DOC_ITEM = 'X'.
Call bapi_incominginvoice_create.
To create a Subsequent Credit:
Set field BAPI_INCINV_CREATE_HEADER-REF_DOC_NO = Ref Doc #.
Set field BAPI_INCINV_CREATE_HEADER-INVOICE_IND = Space.
Set field BAPI_INCINV_CREATE_ITEM-INVOICE_DOC_ITEM = 'X'.
Call bapi_incominginvoice_create.
Note:
For unit-of-measures, populate field BAPI_INCINV_CREATE_ITEM-INVOICE_DOC_ITEM-
PO_UNIT_ISO as the bapi might fail when using UOM other than 'EA'.
Jim
01-03-2008 9:36 AM
Hai,
Please find the below links.
[http://www.sapdev.co.uk/java/jco/bapi_jco.pdf]
[http://sapabaplive.blogspot.com/search/label/BAPI]
Sample code:
Invoice data is sent by the vendors in a text file and an inbound
interface is required to create Vendor Invoices in SAP.
The file contains the Purchase Order information, material quantity
received from vendor along with the amount.
Here the requirement becomes a little complex as there might be
several ocuurences of same Purchase Order item in one invoice.
-
Only a incomplete sample coding is given here and it can only be used
as a base for writing a program.
-
-
Populate internal Table I_ITAB from the data uploaded
from text data file.
*......
*......
-
Populate Item Table from item data in data file
*......
*......
Processing for header records of data file.
set up header data for BAPI call.
Check whwther it's an Incoice or Credit Memo.
And populate Invoice indicator accordingly.
IF I_ITAB-TRANS EQ '-'.
I_HEADER-INVOICE_IND = C_X.
ELSE.
CLEAR I_HEADER-INVOICE_IND.
ENDIF.
I_HEADER-PSTNG_DATE = I_ITAB-BUDAT.
I_HEADER-DOC_DATE = I_ITAB-BLDAT.
I_HEADER-CURRENCY = W_WAERS.
I_HEADER-GROSS_AMOUNT = I_ITAB-DMBTR.
I_HEADER-COMP_CODE = I_ITAB-BUKRS.
I_HEADER-HEADER_TXT = I_ITAB-SGTXT.
I_HEADER-REF_DOC_NO = I_ITAB-XBLNR.
IF NOT I_ITAB-INV_REC_DATE IS INITIAL.
I_HEADER-INV_REC_DATE = I_ITAB-INV_REC_DATE.
ELSE.
I_HEADER-INV_REC_DATE = I_ITAB-BLDAT.
ENDIF.
I_HEADER-PYMT_METH = I_ITAB-ZLSCH.
APPEND I_HEADER.
*....
*....
-
Populate Item Table from item data in data file
lv_count = 0.
LOOP AT I_ITAB.
Processing for header records of data file.
lv_count = lv_count + 1.
...........
...........
Item Data
I_ITEM-INVOICE_DOC_ITEM = lv_COUNT.
I_ITEM-PO_NUMBER = I_ITAB-EBELN.
I_ITEM-PO_ITEM = I_ITAB-EBELP.
I_ITEM-TAX_CODE = I_ITAB-MWSKZ2.
I_ITEM-ITEM_AMOUNT = I_ITAB-NETWR.
Populate quantities if not a blanket order
IF I_ITAB-BLANKET EQ SPACE.
I_ITEM-QUANTITY = I_ITAB-MENGE.
PERFORM GET_MEINS USING I_ITAB-EBELN " Use table EKPO
I_ITAB-EBELP
CHANGING I_ITEM-PO_UNIT.
I_ACCOUNTINGDATA-PO_UNIT = I_ITEM-PO_UNIT.
IF I_ITEM-QUANTITY EQ 0.
I_ITEM-PO_UNIT = SPACE.
ENDIF.
ENDIF.
Item Text
I_ITEM-ITEM_TEXT = I_ITAB-ITEM_TEXT.
APPEND I_ITEM.
Populate Accounting Data
IF I_ITAB-BLANKET EQ SPACE.
I_ACCOUNTINGDATA-INVOICE_DOC_ITEM = lv_COUNT.
I_ACCOUNTINGDATA-SERIAL_NO = '01'.
I_ACCOUNTINGDATA-TAX_CODE = I_ITAB-MWSKZ2.
I_ACCOUNTINGDATA-ITEM_AMOUNT = I_ITAB-NETWR.
SELECT SINGLE SAKTO KOSTL VBELN VBELP ANLN1 ANLN2 DABRZ
FISTL GEBER GRANT_NBR GSBER IMKEY KOKRS KSTRG PAOBJNR
PRCTR PS_PSP_PNR AUFNR MENGE
FROM EKKN
INTO (I_ACCOUNTINGDATA-GL_ACCOUNT, I_ACCOUNTINGDATA-COSTCENTER,
I_ACCOUNTINGDATA-SD_DOC, I_ACCOUNTINGDATA-SDOC_ITEM,
I_ACCOUNTINGDATA-ASSET_NO, I_ACCOUNTINGDATA-SUB_NUMBER,
I_ACCOUNTINGDATA-REF_DATE, I_ACCOUNTINGDATA-FUNDS_CTR,
I_ACCOUNTINGDATA-FUND, I_ACCOUNTINGDATA-GRANT_NBR,
I_ACCOUNTINGDATA-BUS_AREA, I_ACCOUNTINGDATA-RL_EST_KEY,
I_ACCOUNTINGDATA-CO_AREA, I_ACCOUNTINGDATA-COSTOBJECT,
I_ACCOUNTINGDATA-PROFIT_SEGM_NO, I_ACCOUNTINGDATA-PROFIT_CTR,
I_ACCOUNTINGDATA-WBS_ELEM, I_ACCOUNTINGDATA-ORDERID,
I_ACCOUNTINGDATA-QUANTITY)
WHERE EBELN EQ I_ITAB-EBELN
AND EBELP EQ I_ITAB-EBELP
AND ZEKKN EQ '01'.
IF EKKO-BSART NE 'LTV'.
CLEAR I_ACCOUNTINGDATA-QUANTITY.
CLEAR I_ACCOUNTINGDATA-PO_UNIT.
ENDIF.
APPEND I_ACCOUNTINGDATA.
ENDIF.
*.....
*.....
ENDLOOP.
-
The following coding is to solve the problem
mentioned in OSS Note 518338.
Same PO item within several invoice items.
SORT I_ITEM BY PO_NUMBER PO_ITEM.
LOOP AT I_ITEM.
ON CHANGE OF I_ITEM-PO_NUMBER OR I_ITEM-PO_ITEM.
W_COUNTER = 1.
LOOP AT I_ITEM WHERE PO_NUMBER = I_ITEM-PO_NUMBER
AND PO_ITEM = I_ITEM-PO_ITEM.
IF W_COUNTER EQ 1.
I_ACCOUNTINGDATA-SERIAL_NO = '01'.
I_ACCOUNTINGDATA-XUNPL = ' '.
ELSE.
I_ACCOUNTINGDATA-SERIAL_NO = ' '.
I_ACCOUNTINGDATA-XUNPL = 'X'.
ENDIF.
MODIFY I_ACCOUNTINGDATA
TRANSPORTING SERIAL_NO XUNPL
WHERE INVOICE_DOC_ITEM = I_ITEM-INVOICE_DOC_ITEM.
W_COUNTER = W_COUNTER + 1.
ENDLOOP.
To solve the repetition of PO item in subsequent invoices.
ELSEIF SY-TABIX EQ 1.
W_COUNTER = 1.
LOOP AT I_ITEM WHERE PO_NUMBER = I_ITEM-PO_NUMBER
AND PO_ITEM = I_ITEM-PO_ITEM.
IF W_COUNTER EQ 1.
I_ACCOUNTINGDATA-SERIAL_NO = '01'.
I_ACCOUNTINGDATA-XUNPL = ' '.
ELSE.
I_ACCOUNTINGDATA-SERIAL_NO = ' '.
I_ACCOUNTINGDATA-XUNPL = 'X'.
ENDIF.
MODIFY I_ACCOUNTINGDATA
TRANSPORTING SERIAL_NO XUNPL
WHERE INVOICE_DOC_ITEM = I_ITEM-INVOICE_DOC_ITEM.
W_COUNTER = W_COUNTER + 1.
ENDLOOP.
ENDON.
ENDLOOP.
Changes over for OSS Note 518338.
SORT I_ITEM BY INVOICE_DOC_ITEM PO_NUMBER PO_ITEM.
CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'
EXPORTING
HEADERDATA = I_HEADER
IMPORTING
INVOICEDOCNUMBER = W_BELNR
FISCALYEAR = W_GJAHR
TABLES
ITEMDATA = I_ITEM
ACCOUNTINGDATA = I_ACCOUNTINGDATA
TAXDATA = I_TAX
RETURN = I_RETURN.
if sy-subrc 0.
message e999(re) with 'Problem occured'.
else.
loop at return.
if not return is initial.
clear bapi_retn_info.
move-corresponding return to bapi_retn_info.
if return-type = 'A' or return-type = 'E'.
error_flag = 'X'.
endif.
append bapi_retn_info.
endif.
endloop.
if error_flag = 'X'.
message e999(re) with 'Problem occured'.
rollback work.
else.
Return Table from BAPI call is empty
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = I_RETURN.
endif.
endif.
Have a nice day.
01-03-2008 9:47 AM
Dear Aakula
Thank you for your reply.
I'v already succeed in this BAPI to create income invoice with PO.
My request is how to use this BAPI to create subsequent credit and debit with material account.
In transaction MIRO, the transaction should be 3 subsequent debit or 4 subsequent credit and choose "Material" tab.
anyone can help me? Many thanks,
Jun
01-22-2008 10:21 PM
I have done subsequent debit/credit against invoices and credit memo. Perhaps this will help. here's how it's done.
To create a Subsequent Debit:
Set field BAPI_INCINV_CREATE_HEADER-REF_DOC_NO = Ref Doc #.
Set field BAPI_INCINV_CREATE_HEADER-INVOICE_IND = 'X' .
Set field BAPI_INCINV_CREATE_ITEM-INVOICE_DOC_ITEM = 'X'.
Call bapi_incominginvoice_create.
To create a Subsequent Credit:
Set field BAPI_INCINV_CREATE_HEADER-REF_DOC_NO = Ref Doc #.
Set field BAPI_INCINV_CREATE_HEADER-INVOICE_IND = Space.
Set field BAPI_INCINV_CREATE_ITEM-INVOICE_DOC_ITEM = 'X'.
Call bapi_incominginvoice_create.
Note:
For unit-of-measures, populate field BAPI_INCINV_CREATE_ITEM-INVOICE_DOC_ITEM-
PO_UNIT_ISO as the bapi might fail when using UOM other than 'EA'.
Jim
03-06-2008 7:13 PM
Hey
I am trying to use to create a bapi_incoming_invoice_create subsequent debit documment. The previous post says:
BAPI_INCINV_CREATE_ITEM-INVOICE_DOC_ITEM = 'X'
But this field is the number of position.
Someone could post some full example of how to create a subsequent debit documment
Thanks to all