IDOC/ BAPI for transaction FB60

Former Member — Thu, 12 Nov 2009 13:49:23 GMT

Hi Experts,

Can anybody tell me IDOC/ BAPI for transaction FB60 for document type (KR = Original Invoice).

Thanks

Re: IDOC/ BAPI for transaction FB60

Former Member — Thu, 12 Nov 2009 13:59:42 GMT

Hi Venkata,

Please refer below code, this works similar to FB60.

REPORT z_bapi_test.

*REPORT acc_bapi_test_document .

SELECTION-SCREEN BEGIN OF BLOCK bl01 .

PARAMETERS:

check_l RADIOBUTTON GROUP rb1,

check_a DEFAULT 'X' RADIOBUTTON GROUP rb1,

post RADIOBUTTON GROUP rb1.

SELECTION-SCREEN ULINE.

PARAMETERS:

rev_c RADIOBUTTON GROUP rb1,

rev_p RADIOBUTTON GROUP rb1.

SELECTION-SCREEN ULINE.

PARAMETERS:

ref_key LIKE bapiache01-obj_key DEFAULT 'TEST000001BAPICALL',

dest LIKE bdi_logsys-logsys DEFAULT ' '.

SELECTION-SCREEN END OF BLOCK bl01 .

DATA:

gd_documentheader LIKE bapiache09,

gd_customercpd LIKE bapiacpa09,

gd_fica_hd LIKE bapiaccahd,

it_accountreceivable LIKE TABLE OF bapiacar09 WITH HEADER LINE,

it_accountgl LIKE TABLE OF bapiacgl09 WITH HEADER LINE,

it_accounttax LIKE TABLE OF bapiactx09 WITH HEADER LINE,

it_criteria LIKE TABLE OF bapiackec9 WITH HEADER LINE,

it_valuefield LIKE TABLE OF bapiackev9 WITH HEADER LINE,

it_currencyamount LIKE TABLE OF bapiaccr09 WITH HEADER LINE,

it_return LIKE TABLE OF bapiret2 WITH HEADER LINE,

it_receivers LIKE TABLE OF bdi_logsys WITH HEADER LINE,

it_fica_it LIKE TABLE OF bapiaccait WITH HEADER LINE,

it_accountpayable LIKE TABLE OF bapiacap09 WITH HEADER LINE,

it_paymentcard LIKE TABLE OF bapiacpc09 WITH HEADER LINE,

it_ext LIKE TABLE OF bapiacextc WITH HEADER LINE.

it_re LIKE TABLE OF bapiacre09 WITH HEADER LINE,
it_ext2 LIKE TABLE OF bapiparex WITH HEADER LINE.

PERFORM fill_internal_tables.

IF check_l = 'X'.

CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'

DESTINATION dest

EXPORTING

documentheader = gd_documentheader

customercpd = gd_customercpd

contractheader = gd_fica_hd

TABLES

accountgl = it_accountgl

accountreceivable = it_accountreceivable

accountpayable = it_accountpayable

accounttax = it_accounttax

currencyamount = it_currencyamount

criteria = it_criteria

valuefield = it_valuefield

extension1 = it_ext

return = it_return

paymentcard = it_paymentcard

contractitem = it_fica_it.

extension2 = it_ext2
realestate = it_re.

WRITE: / 'Result of check lines:'. "#EC NOTEXT

PERFORM show_messages.

ENDIF.

IF check_a = 'X'.

CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'

DESTINATION dest

EXPORTING

documentheader = gd_documentheader

customercpd = gd_customercpd

contractheader = gd_fica_hd

TABLES

accountgl = it_accountgl

accountreceivable = it_accountreceivable

accountpayable = it_accountpayable

accounttax = it_accounttax

currencyamount = it_currencyamount

criteria = it_criteria

valuefield = it_valuefield

extension1 = it_ext

return = it_return

paymentcard = it_paymentcard

contractitem = it_fica_it.

extension2 = it_ext2
realestate = it_re.

WRITE: / 'Result of check all:'. "#EC NOTEXT

PERFORM show_messages.

ENDIF.

IF post = 'X'.

DATA: l_type LIKE gd_documentheader-obj_type,

l_key LIKE gd_documentheader-obj_key,

l_sys LIKE gd_documentheader-obj_sys.

IF dest = space OR

dest = gd_documentheader-obj_sys.

post synchron

CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'

EXPORTING

documentheader = gd_documentheader

customercpd = gd_customercpd

contractheader = gd_fica_hd

IMPORTING

obj_type = l_type

obj_key = l_key

obj_sys = l_sys

TABLES

accountgl = it_accountgl

accountreceivable = it_accountreceivable

accountpayable = it_accountpayable

accounttax = it_accounttax

currencyamount = it_currencyamount

criteria = it_criteria

valuefield = it_valuefield

extension1 = it_ext

return = it_return

paymentcard = it_paymentcard

contractitem = it_fica_it.

extension2 = it_ext2
realestate = it_re.

WRITE: / 'Result of post:'. "#EC NOTEXT

PERFORM show_messages.

ELSE.

create Idoc

it_receivers-logsys = dest.

APPEND it_receivers.

CALL FUNCTION 'ALE_ACC_DOCUMENT_POST'

EXPORTING

documentheader = gd_documentheader

customercpd = gd_customercpd

contractheader = gd_fica_hd

TABLES

accountgl = it_accountgl

accountreceivable = it_accountreceivable

accountpayable = it_accountpayable

accounttax = it_accounttax

currencyamount = it_currencyamount

criteria = it_criteria

valuefield = it_valuefield

extension1 = it_ext

paymentcard = it_paymentcard

contractitem = it_fica_it

extension2 = it_ext2
realestate = it_re

receivers = it_receivers

COMMUNICATION_DOCUMENTS* APPLICATION_OBJECTS EXCEPTIONS

error_creating_idocs = 1

OTHERS = 2 .

IF sy-subrc = 0.

WRITE: / 'IDoc created'. "#EC NOTEXT

ELSE.

WRITE: sy-msgid.

ENDIF.

IF rev_p = 'X' OR rev_c = 'X'.

DATA: rev LIKE bapiacrev,

rev_key LIKE ref_key.

rev_key = ref_key.

rev_key(1) = 'R'.

rev-obj_type = gd_documentheader-obj_type.

rev-obj_key = rev_key.

rev-obj_sys = gd_documentheader-obj_sys.

rev-obj_key_r = ref_key.

IF rev_c IS INITIAL.

IF dest = space OR

dest = gd_documentheader-obj_sys.

CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'

EXPORTING

reversal = rev

bus_act = gd_documentheader-bus_act

TABLES

return = it_return.

ELSE.

it_receivers-logsys = dest.

APPEND it_receivers.

CALL FUNCTION 'ALE_ACC_DOCUMENT_REV_POST'

EXPORTING

reversal = rev

busact = gd_documentheader-bus_act

OBJ_TYPE = 'BUS6035'
SERIAL_ID = '0'

TABLES

receivers = it_receivers

COMMUNICATION_DOCUMENTS* APPLICATION_OBJECTS EXCEPTIONS

error_creating_idocs = 1

OTHERS = 2

IF sy-subrc <> 0.

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

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

ELSE.

WRITE: / 'IDoc created'. "#EC NOTEXT

ENDIF.

ELSE.

CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_CHECK'

EXPORTING

reversal = rev

bus_act = gd_documentheader-bus_act

TABLES

return = it_return.

ENDIF.

WRITE: / 'Result of Reversal Posting:'. "#EC NOTEXT

PERFORM show_messages.

ENDIF.

COMMIT WORK.

Kindly close if it helps you.

Regards

Abhii...

Re: IDOC/ BAPI for transaction FB60

RaymondGiuseppi — Thu, 12 Nov 2009 14:05:07 GMT

Perform some search at sdn on [BAPI_ACC_INVOICE_RECEIPT_POST|http://forums.sdn.sap.com/search.jspa?threadID=&q=BAPI_ACC_INVOICE_RECEIPT_POST&objID=c42&dateRange=all&numResults=15&rankBy=10001]

Regards,

Raymond

topic IDOC/ BAPI for transaction FB60 in Application Development and Automation Discussions

IDOC/ BAPI for transaction FB60

Re: IDOC/ BAPI for transaction FB60

Re: IDOC/ BAPI for transaction FB60