Re: BAPI for posting accounting documents

Former Member — Fri, 16 May 2008 05:49:59 GMT

Hi,

Use the BAPI BAPI_ACC_DOCUMENT_POST for posting Documents.

Check the sample code related to posting.

REPORT acc_bapi_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.

----

Form fill_internal_tables

----

form fill_internal_tables.

perform fill_header.

perform fill_accountgl.

perform fill_accountar.

perform fill_accountap.

perform fill_accounttax.

perform fill_currencyamount.

perform fill_criteria.
perform fill_valuefield.
perform fill_re.
perform fill_cpd.
perform fill_contractitem.
perform fill_contractheader.
perform fill_paymentcard.
perform fill_extension.

endform. " fill_internal_tables

----

Form Show_messages

----

form show_messages.

if it_return[] is initial.

write: / 'no messages'.

else.

skip 1.

loop at it_return.

write: / it_return-type,

(2) it_return-id,

it_return-number,

(80) it_return-message,

IT_RETURN-LOG_NO
IT_RETURN-LOG_MSG_NO

it_return-message_v1,

IT_RETURN-MESSAGE_V2
IT_RETURN-MESSAGE_V3
IT_RETURN-MESSAGE_V4

(20) it_return-parameter,

(3) it_return-row,

it_return-field.

IT_RETURN-SYSTEM

endloop.

endif.

uline.

endform. " Show_messages

----

FORM fill_accountgl *

----

form fill_accountgl.

clear it_accountgl.

it_accountgl-itemno_acc = 2.

it_accountgl-gl_account = '0021510201'.

it_accountgl-item_text = 'BAPI Test G/L line item'. "#EC NOTEXT

it_accountgl-bus_area = '01'.

it_accountgl-profit_ctr = '0000010101'.

it_accountgl-comp_code = 'SLOC'.

append it_accountgl.

clear it_accountgl.

it_accountgl-itemno_acc = 3.

it_accountgl-gl_account = '0082000201'.

it_accountgl-item_text = 'BAPI Test G/L line item'. "#EC NOTEXT

it_accountgl-bus_area = '01'.

it_accountgl-profit_ctr = '0000010101'.

it_accountgl-comp_code = 'SLOC'.

it_accountgl-tax_code = 'A3'.

append it_accountgl.

clear it_accountgl.

it_accountgl-itemno_acc = 5.

it_accountgl-gl_account = '0021510201'.

it_accountgl-item_text = 'BAPI Test G/L line item'. "#EC NOTEXT

it_accountgl-bus_area = '01'.

it_accountgl-profit_ctr = '0000010301'.

it_accountgl-comp_code = 'SLOC'.

append it_accountgl.

clear it_accountgl.

it_accountgl-itemno_acc = 6.

it_accountgl-gl_account = '0082000201'.

it_accountgl-item_text = 'BAPI Test G/L line item'. "#EC NOTEXT

it_accountgl-bus_area = '01'.

it_accountgl-profit_ctr = '0000010301'.

it_accountgl-comp_code = 'SLOC'.

it_accountgl-tax_code = 'A3'.

append it_accountgl.

clear it_accountgl.

it_accountgl-itemno_acc = 7.

it_accountgl-itemno_acc = 8.

it_accountgl-gl_account = '0021510201'.

it_accountgl-item_text = 'BAPI Test G/L line item'. "#EC NOTEXT

it_accountgl-bus_area = '90'.

it_accountgl-profit_ctr = '0000900008'.

it_accountgl-comp_code = 'CORP'.

append it_accountgl.

clear it_accountgl.

it_accountgl-itemno_acc = 8.

it_accountgl-itemno_acc = 9.

it_accountgl-gl_account = '0082000201'.

it_accountgl-item_text = 'BAPI Test G/L line item'. "#EC NOTEXT

it_accountgl-bus_area = '90'.

it_accountgl-profit_ctr = '0000900008'.

it_accountgl-comp_code = 'CORP'.

it_accountgl-tax_code = 'A3'.

append it_accountgl.

endform. "fill_accountgl

----

FORM fill_header *

----

form fill_header.

CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
IMPORTING
own_logical_system = gd_documentheader-obj_sys.

OBJ_TYPE has to be replaced by customers object key (Y* or Z*)
gd_documentheader-obj_type = 'IDOC'.
gd_documentheader-obj_key = ref_key.

gd_documentheader-username = sy-uname.

gd_documentheader-header_txt = 'BAPI Test'. "#EC NOTEXT

gd_documentheader-obj_key_r =
GD_DOCUMENTHEADER-reason_rev =

gd_documentheader-comp_code = 'SLOC'.

GD_DOCUMENTHEADER-AC_DOC_NO =

gd_documentheader-fisc_year = sy-datum(4).

gd_documentheader-doc_date = sy-datum.

gd_documentheader-pstng_date = sy-datum.

GD_DOCUMENTHEADER-TRANS_DATE =
GD_DOCUMENTHEADER-VALUE_DATE =
GD_DOCUMENTHEADER-FIS_PERIOD =

gd_documentheader-doc_type = 'KR'.

gd_documentheader-ref_doc_no = 'xxxx'.

GD_DOCUMENTHEADER-COMPO_ACC =

gd_documentheader-bus_act = 'RFBU'.

endform. "fill_header

----

FORM fill_contractheader *

----

form fill_contractheader.

gd_fica_hd-doc_no =
gd_fica_hd-doc_type_ca =
gd_fica_hd-res_key =
gd_fica_hd-fikey =
gd_fica_hd-payment_form_ref =

endform. "fill_contractheader

----

FORM fill_cpd *

----

form fill_cpd.

gd_customercpd-name
gd_customercpd-name_2
gd_customercpd-name_3
gd_customercpd-name_4
gd_customercpd-postl_code
gd_customercpd-city
gd_customercpd-country
gd_customercpd-country_iso
gd_customercpd-street
gd_customercpd-po_box
gd_customercpd-pobx_pcd
gd_customercpd-pobk_curac
gd_customercpd-bank_acct
gd_customercpd-bank_no
gd_customercpd-bank_ctry
gd_customercpd-bank_ctry_iso
gd_customercpd-tax_no_1
gd_customercpd-tax_no_2
gd_customercpd-tax
gd_customercpd-equal_tax
gd_customercpd-region
gd_customercpd-ctrl_key
gd_customercpd-instr_key
gd_customercpd-dme_ind
gd_customercpd-langu_iso

endform. "fill_cpd

----

FORM fill_ar *

----

form fill_accountar.

CLEAR it_accountreceivable.
it_accountreceivable-itemno_acc =
it_accountreceivable-customer =
IT_ACCOUNTRECEIVABLE-REF_KEY_1 =
IT_ACCOUNTRECEIVABLE-REF_KEY_2 =
IT_ACCOUNTRECEIVABLE-REF_KEY_3 =
IT_ACCOUNTRECEIVABLE-PMNTTRMS =
IT_ACCOUNTRECEIVABLE-BLINE_DATE =
IT_ACCOUNTRECEIVABLE-DSCT_DAYS1 =
IT_ACCOUNTRECEIVABLE-DSCT_DAYS2 =
IT_ACCOUNTRECEIVABLE-NETTERMS =
IT_ACCOUNTRECEIVABLE-DSCT_PCT1 =
IT_ACCOUNTRECEIVABLE-DSCT_PCT2 =
IT_ACCOUNTRECEIVABLE-PYMT_METH =
IT_ACCOUNTRECEIVABLE-DUNN_KEY =
IT_ACCOUNTRECEIVABLE-DUNN_BLOCK =
IT_ACCOUNTRECEIVABLE-PMNT_BLOCK =
IT_ACCOUNTRECEIVABLE-VAT_REG_NO =
IT_ACCOUNTRECEIVABLE-ALLOC_NMBR =
it_accountreceivable-item_text =
IT_ACCOUNTRECEIVABLE-PARTNER_BK =
IT_ACCOUNTRECEIVABLE-GL_ACCOUNT =
it_accountreceivable-comp_code
it_accountreceivable-bus_area
it_accountreceivable-pmtmthsupl
it_accountreceivable-paymt_ref
it_accountreceivable-scbank_ind
it_accountreceivable-businessplace
it_accountreceivable-sectioncode
it_accountreceivable-branch
it_accountreceivable-pymt_cur
it_accountreceivable-pymt_cur_iso
it_accountreceivable-pymt_amt
it_accountreceivable-c_ctr_area
it_accountreceivable-bank_id
it_accountreceivable-supcountry
it_accountreceivable-supcountry_iso
it_accountreceivable-tax_code
it_accountreceivable-taxjurcode
it_accountreceivable-tax_date
it_accountreceivable-sp_gl_ind
it_accountreceivable-partner_guid = '1465464654'.
APPEND it_accountreceivable.

endform. "fill_accountar

----

FORM fill_ap *

----

form fill_accountap.

clear it_accountpayable.

it_accountpayable-itemno_acc = 1.

it_accountpayable-vendor_no = '0000060259'.

it_accountpayable-vendor_no = '0000060693'.

it_accountpayable-gl_account
it_accountpayable-ref_key_1
it_accountpayable-ref_key_2
it_accountpayable-ref_key_3

it_accountpayable-comp_code = 'SLOC'.

it_accountpayable-bus_area = '01'.

it_accountpayable-pmnttrms = 'A000'.

it_accountpayable-bline_date
it_accountpayable-dsct_days1
it_accountpayable-dsct_days2
it_accountpayable-netterms
it_accountpayable-dsct_pct1
it_accountpayable-dsct_pct2
it_accountpayable-pymt_meth
it_accountpayable-pmtmthsupl
it_accountpayable-pmnt_block
it_accountpayable-scbank_ind
it_accountpayable-supcountry
it_accountpayable-supcountry_iso
it_accountpayable-bllsrv_ind
it_accountpayable-alloc_nmbr

it_accountpayable-item_text = 'BAPI Test A/P line item'. "#EC NOTEXT

it_accountpayable-po_sub_no
it_accountpayable-po_checkdg
it_accountpayable-po_ref_no
it_accountpayable-w_tax_code
it_accountpayable-businessplace
it_accountpayable-sectioncode
it_accountpayable-instr1
it_accountpayable-instr2
it_accountpayable-instr3
it_accountpayable-instr4
it_accountpayable-branch
it_accountpayable-pymt_cur
it_accountpayable-pymt_amt
it_accountpayable-pymt_cur_iso
it_accountpayable-sp_gl_ind

append it_accountpayable.

endform. "fill_accountap

----

FORM fill_tax *

----

form fill_accounttax.

clear it_accounttax.

it_accounttax-itemno_acc = 4.

it_accounttax-gl_account = '0011361502'.

it_accounttax-tax_code = 'A3'.

it_accounttax-acct_key = 'VST'.

it_accounttax-cond_key = 'MWVS'.

it_accounttax-itemno_tax = 8.

append it_accounttax.

clear it_accounttax.
it_accounttax-itemno_acc = 7.
it_accounttax-gl_account = '0011361502'.
it_accounttax-tax_code = 'A3'.
it_accounttax-acct_key = 'VST'.
it_accounttax-COND_KEY = 'MWVS'.
append it_accounttax.

clear it_accounttax.

it_accounttax-itemno_acc = 10.

it_accounttax-itemno_acc = 9.
it_accounttax-gl_account = '0011361502'.
it_accounttax-tax_code = 'A3'.
it_accounttax-acct_key = 'VST'.
it_accounttax-cond_key = 'MWVS'.

it_accounttax-itemno_tax = 4.

append it_accounttax.

endform. "fill_accounttax

----

FORM fill_currencyamount *

----

form fill_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 1.

it_currencyamount-curr_type = '00'.

it_currencyamount-currency = 'MXN'.

it_currencyamount-amt_doccur = '-7408036.2'.

append it_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 2.

it_currencyamount-curr_type = '00'.

it_currencyamount-currency = 'MXN'.

it_currencyamount-amt_doccur = '5336472.00'.

append it_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 3.

it_currencyamount-curr_type = '00'.

it_currencyamount-currency = 'MXN'.

it_currencyamount-amt_doccur = '3840.00'.

append it_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 4.

it_currencyamount-curr_type = '00'.

it_currencyamount-currency = 'MXN'.

it_currencyamount-amt_base = '5548.00'.

it_currencyamount-amt_doccur = '832.2'.

it_currencyamount-amt_doccur = '576.00'.
it_currencyamount-amt_base = '3840.00'.

append it_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 5.

it_currencyamount-curr_type = '00'.

it_currencyamount-currency = 'MXN'.

it_currencyamount-amt_doccur = '2051279.00'.

append it_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 6.

it_currencyamount-curr_type = '00'.

it_currencyamount-currency = 'MXN'.

it_currencyamount-amt_doccur = '1690.00'.

append it_currencyamount.

clear it_currencyamount.
it_currencyamount-itemno_acc = 7.
it_currencyamount-curr_type = '00'.
it_currencyamount-currency = 'MXN'.
it_currencyamount-amt_base = '1690.00'.
it_currencyamount-amt_doccur = '253.5'.
append it_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 8.

it_currencyamount-itemno_acc = 7.

it_currencyamount-curr_type = '00'.

it_currencyamount-currency = 'MXN'.

it_currencyamount-amt_doccur = '13905.00'.

append it_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 9.

it_currencyamount-itemno_acc = 8.

it_currencyamount-curr_type = '00'.

it_currencyamount-currency = 'MXN'.

it_currencyamount-amt_base = '2.70'.

it_currencyamount-amt_doccur = '18.00'.

append it_currencyamount.

clear it_currencyamount.

it_currencyamount-itemno_acc = 10.

it_currencyamount-itemno_acc = 9.
it_currencyamount-curr_type = '00'.
it_currencyamount-currency = 'MXN'.
it_currencyamount-amt_doccur = '2.70'.
it_currencyamount-amt_base = '18.00'.
append it_currencyamount.

endform. "fill_currencyamount

----

FORM fill_criteria *

----

form fill_criteria.

CLEAR it_criteria.
it_criteria-itemno_acc = 2.
it_criteria-fieldname = 'BZIRK'.
it_criteria-character = '000001'.
append it_criteria.

endform. "fill_criteria

----

FORM fill_valuefield *

----

form fill_valuefield.

CLEAR it_valuefield.
it_valuefield-itemno_acc = 2.
it_valuefield-fieldname = 'VV010'.
it_valuefield-curr_type
it_valuefield-currency = 'EUR'.
it_valuefield-currency_iso
it_valuefield-amt_valcom
it_valuefield-base_uom
it_valuefield-base_uom_iso
it_valuefield-qua_valcom
append it_valuefield.

endform. "fill_valuefield

----

FORM fill_extension *

----

form fill_extension.

CLEAR it_ext.
it_ext-field1
it_ext-field2
it_ext-field3
it_ext-field4
APPEND it_ext.

DATA: ls_zzz TYPE ZZZ_ACCIT.
CLEAR it_ext2.
it_ext2-structure = 'ZZZ_ACCIT'.
ls_zzz-posnr = 2.
ls_zzz-awref_reb = '123654'.
ls_zzz-aworg_reb = '654654'.
ls_zzz-grant_nbr = '0022002'.
MOVE ls_zzz TO it_ext2-valuepart1.
APPEND it_ext2.

endform. "fill_extension

----

FORM fill_paymentcard *

----

form fill_paymentcard.

CLEAR it_paymentcard.
it_paymentcard-itemno_acc = 1.
it_paymentcard-cc_glaccount
it_paymentcard-cc_type
it_paymentcard-cc_number
it_paymentcard-cc_seq_no
it_paymentcard-cc_valid_f
it_paymentcard-cc_valid_t
it_paymentcard-cc_name
it_paymentcard-dataorigin
it_paymentcard-authamount = '100'.
it_paymentcard-currency = 'EUR'.
it_paymentcard-currency_iso
it_paymentcard-cc_autth_no
it_paymentcard-auth_refno
it_paymentcard-auth_date
it_paymentcard-auth_time
it_paymentcard-merchidcl
it_paymentcard-point_of_receipt
it_paymentcard-terminal
it_paymentcard-cctyp = '1'.
APPEND it_paymentcard.

endform. "fill_paymentcard

----

FORM fill_contractitem *

----

form fill_contractitem.

CLEAR it_fica_it.
it_fica_it-itemno_acc
it_fica_it-cont_acct
it_fica_it-main_trans
it_fica_it-sub_trans
it_fica_it-func_area
it_fica_it-fm_area
it_fica_it-cmmt_item
it_fica_it-funds_ctr
it_fica_it-fund
append it_fica_it.

endform. "fill_contractitem

&----

*& Form fill_re

&----

form fill_re .

CLEAR it_re.
it_re-itemno_acc =
it_re-business_entity =
it_re-building =
it_re-property =
it_re-rental_object =
it_re-serv_charge_key =
it_re-settlement_unit =
it_re-contract_no =
APPEND it_re.

endform. "fill_re

Please check these links

http://sap4.com/wiki/index.php?title=BAPI_ACC_DOCUMENT_POST

http://www.sapfans.com/forums/viewtopic.php?p=76232&sid=b6519d31b5097f49dc303d03b35eed43

http://sap.ittoolbox.com/groups/technical-functional/sap-dev/bapi_acc_document_post-622561

Regards,

Raj.

topic Re: BAPI for posting accounting documents in Application Development and Automation Discussions

BAPI for posting accounting documents

Re: BAPI for posting accounting documents

Re: BAPI for posting accounting documents

Re: BAPI for posting accounting documents

Re: BAPI for posting accounting documents

Re: BAPI for posting accounting documents