‎2007 Jul 10 10:09 PM
hi,
Can anyone has the sample code to post the AR line items data with BAPI_ACC_BILLING_POST bapi.....
please its bit urgent
SRI
‎2007 Jul 10 11:13 PM
Hi,
This may not give the proper output,but just for referance sake you can check out this.
[code]DATA:
REF_TYPE like bapiache01-obj_type,
REF_KEY LIKE BAPIACHE01-OBJ_KEY,
REF_SYS like bapiache01-obj_sys,
WA_DOCUMENTHEADER LIKE BAPIACHE01,
WA_CUSTOMERCPD LIKE BAPIACPA00,
IT_ACCOUNTRECEIVABLE LIKE BAPIACAR01 OCCURS 0 WITH HEADER LINE,
IT_ACCOUNTGL LIKE BAPIACGL01 OCCURS 0 WITH HEADER LINE,
IT_ACCOUNTTAX LIKE BAPIACTX01 OCCURS 0 WITH HEADER LINE,
IT_CRITERIA LIKE BAPIACKECR OCCURS 0 WITH HEADER LINE,
IT_VALUEFIELD LIKE BAPIACKEVA OCCURS 0 WITH HEADER LINE,
IT_CURRENCYAMOUNT LIKE BAPIACCR01 OCCURS 0 WITH HEADER LINE,
IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
IT_MESSAGES LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
IT_SALESORDER LIKE BAPIACSO00 OCCURS 0 WITH HEADER LINE,
IT_SALESAMOUNT LIKE BAPIACCRSO OCCURS 0 WITH HEADER LINE,
IT_RECEIVERS LIKE BDI_LOGSYS OCCURS 0 WITH HEADER LINE.
DOCUMENT HEADER DATA.
REF_KEY = 'BKPFF'.
REF_KEY = '$'.
REF_KEY = 'DVL'.
*
WA_DOCUMENTHEADER-OBJ_TYPE = 'BKPFF'.
WA_DOCUMENTHEADER-OBJ_KEY = '$'.
WA_DOCUMENTHEADER-OBJ_SYS = 'DVL'.
wA_DOCUMENTHEADER-USERNAME = SY-UNAME.
WA_DOCUMENTHEADER-HEADER_TXT = 'TEST'.
WA_DOCUMENTHEADER-COMP_CODE = 'GB'.
WA_DOCUMENTHEADER-DOC_DATE = '20070119'.
WA_DOCUMENTHEADER-PSTNG_DATE = '20070119'.
WA_DOCUMENTHEADER-DOC_TYPE = 'AB'.
WA_DOCUMENTHEADER-REF_DOC_NO = 'DATA LOAD'.
ACCOUNT RECEIVABLES LINE ITEM 1.
IT_ACCOUNTRECEIVABLE-ITEMNO_ACC = 1.
IT_ACCOUNTRECEIVABLE-CUSTOMER = 'A123459'.
IT_ACCOUNTRECEIVABLE-ITEM_TEXT = 'LINE ITEM 1'.
APPEND IT_ACCOUNTRECEIVABLE.
clear IT_ACCOUNTRECEIVABLE.
IT_CURRENCYAMOUNT-ITEMNO_ACC = 1.
IT_CURRENCYAMOUNT-CURRENCY = 'GBP'.
IT_CURRENCYAMOUNT-AMT_DOCCUR = 1000.
APPEND IT_CURRENCYAMOUNT.
clear IT_CURRENCYAMOUNT.
*ACCOUNT RECEIVABLES LINE ITEM 2.
IT_ACCOUNTGL-ITEMNO_ACC = 2.
IT_ACCOUNTGL-GL_ACCOUNT = '999999999'.
IT_ACCOUNTGL-ITEM_TEXT = 'GL BAPI'.
APPEND IT_ACCOUNTGL.
clear IT_ACCOUNTGL.
IT_CURRENCYAMOUNT-ITEMNO_ACC = 2.
IT_CURRENCYAMOUNT-CURRENCY = 'GBP'.
IT_CURRENCYAMOUNT-AMT_DOCCUR = 1000.
APPEND IT_CURRENCYAMOUNT.
clear IT_CURRENCYAMOUNT.
CALL FUNCTION 'BAPI_ACC_BILLING_POST'
EXPORTING
DOCUMENTHEADER = WA_DOCUMENTHEADER
CUSTOMERCPD = WA_CUSTOMERCPD
IMPORTING
OBJ_TYPE = ref_type
OBJ_KEY = ref_key
OBJ_SYS = ref_sys
TABLES
ACCOUNTRECEIVABLE = IT_ACCOUNTRECEIVABLE
ACCOUNTGL = IT_ACCOUNTGL
ACCOUNTTAX = IT_ACCOUNTTAX
CRITERIA = IT_CRITERIA
VALUEFIELD = IT_VALUEFIELD
CURRENCYAMOUNT = IT_CURRENCYAMOUNT
RETURN = IT_RETURN
SALESORDER =
SALESAMOUNT =
EXTENSION1 =
.
LOOP AT it_return.
MOVE-CORRESPONDING it_return TO it_messages.
ENDLOOP.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.[/code]
regards,
Pankaj
‎2007 Jul 10 11:13 PM
Hi,
This may not give the proper output,but just for referance sake you can check out this.
[code]DATA:
REF_TYPE like bapiache01-obj_type,
REF_KEY LIKE BAPIACHE01-OBJ_KEY,
REF_SYS like bapiache01-obj_sys,
WA_DOCUMENTHEADER LIKE BAPIACHE01,
WA_CUSTOMERCPD LIKE BAPIACPA00,
IT_ACCOUNTRECEIVABLE LIKE BAPIACAR01 OCCURS 0 WITH HEADER LINE,
IT_ACCOUNTGL LIKE BAPIACGL01 OCCURS 0 WITH HEADER LINE,
IT_ACCOUNTTAX LIKE BAPIACTX01 OCCURS 0 WITH HEADER LINE,
IT_CRITERIA LIKE BAPIACKECR OCCURS 0 WITH HEADER LINE,
IT_VALUEFIELD LIKE BAPIACKEVA OCCURS 0 WITH HEADER LINE,
IT_CURRENCYAMOUNT LIKE BAPIACCR01 OCCURS 0 WITH HEADER LINE,
IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
IT_MESSAGES LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
IT_SALESORDER LIKE BAPIACSO00 OCCURS 0 WITH HEADER LINE,
IT_SALESAMOUNT LIKE BAPIACCRSO OCCURS 0 WITH HEADER LINE,
IT_RECEIVERS LIKE BDI_LOGSYS OCCURS 0 WITH HEADER LINE.
DOCUMENT HEADER DATA.
REF_KEY = 'BKPFF'.
REF_KEY = '$'.
REF_KEY = 'DVL'.
*
WA_DOCUMENTHEADER-OBJ_TYPE = 'BKPFF'.
WA_DOCUMENTHEADER-OBJ_KEY = '$'.
WA_DOCUMENTHEADER-OBJ_SYS = 'DVL'.
wA_DOCUMENTHEADER-USERNAME = SY-UNAME.
WA_DOCUMENTHEADER-HEADER_TXT = 'TEST'.
WA_DOCUMENTHEADER-COMP_CODE = 'GB'.
WA_DOCUMENTHEADER-DOC_DATE = '20070119'.
WA_DOCUMENTHEADER-PSTNG_DATE = '20070119'.
WA_DOCUMENTHEADER-DOC_TYPE = 'AB'.
WA_DOCUMENTHEADER-REF_DOC_NO = 'DATA LOAD'.
ACCOUNT RECEIVABLES LINE ITEM 1.
IT_ACCOUNTRECEIVABLE-ITEMNO_ACC = 1.
IT_ACCOUNTRECEIVABLE-CUSTOMER = 'A123459'.
IT_ACCOUNTRECEIVABLE-ITEM_TEXT = 'LINE ITEM 1'.
APPEND IT_ACCOUNTRECEIVABLE.
clear IT_ACCOUNTRECEIVABLE.
IT_CURRENCYAMOUNT-ITEMNO_ACC = 1.
IT_CURRENCYAMOUNT-CURRENCY = 'GBP'.
IT_CURRENCYAMOUNT-AMT_DOCCUR = 1000.
APPEND IT_CURRENCYAMOUNT.
clear IT_CURRENCYAMOUNT.
*ACCOUNT RECEIVABLES LINE ITEM 2.
IT_ACCOUNTGL-ITEMNO_ACC = 2.
IT_ACCOUNTGL-GL_ACCOUNT = '999999999'.
IT_ACCOUNTGL-ITEM_TEXT = 'GL BAPI'.
APPEND IT_ACCOUNTGL.
clear IT_ACCOUNTGL.
IT_CURRENCYAMOUNT-ITEMNO_ACC = 2.
IT_CURRENCYAMOUNT-CURRENCY = 'GBP'.
IT_CURRENCYAMOUNT-AMT_DOCCUR = 1000.
APPEND IT_CURRENCYAMOUNT.
clear IT_CURRENCYAMOUNT.
CALL FUNCTION 'BAPI_ACC_BILLING_POST'
EXPORTING
DOCUMENTHEADER = WA_DOCUMENTHEADER
CUSTOMERCPD = WA_CUSTOMERCPD
IMPORTING
OBJ_TYPE = ref_type
OBJ_KEY = ref_key
OBJ_SYS = ref_sys
TABLES
ACCOUNTRECEIVABLE = IT_ACCOUNTRECEIVABLE
ACCOUNTGL = IT_ACCOUNTGL
ACCOUNTTAX = IT_ACCOUNTTAX
CRITERIA = IT_CRITERIA
VALUEFIELD = IT_VALUEFIELD
CURRENCYAMOUNT = IT_CURRENCYAMOUNT
RETURN = IT_RETURN
SALESORDER =
SALESAMOUNT =
EXTENSION1 =
.
LOOP AT it_return.
MOVE-CORRESPONDING it_return TO it_messages.
ENDLOOP.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.[/code]
regards,
Pankaj
‎2007 Jul 11 12:58 AM
Ya pankaj,
I already checked it in the sdn in other thread....
I need some good report to upload the data for AR line items.....
‎2007 Jul 11 1:25 AM
Hello Sri,
Please check with Program ACC_BAPI_TEST_BILLING ,this program use above FM.
Thanks
Seshu