Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

BDC for AP using fb01

Go to solution
Former Member

‎2008 Jun 19 2:02 AM

0 Likes
515

I am trying to load AP using BDC (uploading it from Desktop location) using fb01,does any one have the BDC code for it.

Please let me know.

Thanks,

1 ACCEPTED SOLUTION
Read only

Go to solution
Former Member

‎2008 Jun 19 4:14 AM

0 Likes
460

/message/3236279#3236279 [original link is broken]

Reward points..

2 REPLIES 2
Read only

Go to solution
Former Member

‎2008 Jun 19 4:14 AM

0 Likes
461

/message/3236279#3236279 [original link is broken]

Reward points..

Read only

Go to solution
Former Member

‎2008 Jun 23 1:54 PM

0 Likes
460

Hi,

please find thecode for fb01.

rewards, if useful.

LOOP AT gt_valid INTO gs_valid.

IF rb_upd EQ 'X'.

REFRESH gt_bdcdata.

PERFORM bdc_dynpro USING 'SAPMF05A' '0100'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RF05A-NEWKO'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BKPF-BLDAT'

gs_valid-bldat.

PERFORM bdc_field USING 'BKPF-BLART'

gs_valid-blart.

PERFORM bdc_field USING 'BKPF-BUKRS'

gs_valid-bukrs.

PERFORM bdc_field USING 'BKPF-BUDAT'

gs_valid-budat.

PERFORM bdc_field USING 'BKPF-WAERS'

gs_valid-waers.

PERFORM bdc_field USING 'BKPF-BELNR'

''.

PERFORM bdc_field USING 'BKPF-XBLNR'

gs_valid-xblnr.

PERFORM bdc_field USING 'BKPF-BKTXT'

gs_valid-bktxt.

PERFORM bdc_field USING 'FS006-DOCID'

'*'.

PERFORM bdc_field USING 'RF05A-NEWBS'

gs_valid-newbs.

PERFORM bdc_field USING 'RF05A-NEWKO'

gs_valid-newko.

  • First line item details.

IF gs_valid-newbs EQ '01' OR gs_valid-newbs EQ '11'.

PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.

ELSEIF gs_valid-newbs EQ '40' OR gs_valid-newbs EQ '50'.

PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.

ELSE.

PERFORM bdc_dynpro USING 'SAPMF05A' '0302'.

ENDIF.

PERFORM bdc_field USING 'BDC_CURSOR'

'RF05A-NEWKO'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

lv_amount = gs_valid-wrbtr.

write lv_amount to gs_valid-wrbtr.

PERFORM bdc_field USING 'BSEG-WRBTR'

gs_valid-wrbtr.

  • ADDED BY MOHIT

PERFORM GET_CURRENCY_COMPANYCODE.

IF gs_valid-waers NE GV_CURR.

lv_amount = gs_valid-dmbtr.

write lv_amount to gs_valid-dmbtr.

PERFORM bdc_field USING 'BSEG-DMBTR'

gs_valid-dmbtr.

ENDIF.

  • ENDED BY MOHIT

  • IF gs_valid-waers NE 'USD'.

  • lv_amount = gs_valid-dmbtr.

  • write lv_amount to gs_valid-dmbtr.

  • PERFORM bdc_field USING 'BSEG-DMBTR'

  • gs_valid-dmbtr.

  • ENDIF.

PERFORM bdc_field USING 'BSEG-ZTERM'

gs_valid-zterm.

PERFORM bdc_field USING 'BSEG-ZFBDT'

gs_valid-zfbdt.

PERFORM bdc_field USING 'RF05A-NEWBS'

gs_valid-newbs_2.

PERFORM bdc_field USING 'RF05A-NEWKO'

gs_valid-newko_2.

IF gs_valid-newbs EQ '40' OR gs_valid-newbs EQ '50'.

  • Enter cost center

PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.

PERFORM bdc_field USING 'BDC_CURSOR'

'COBL-KOSTL'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTE'.

PERFORM bdc_field USING 'COBL-KOSTL'

gs_valid-kostl.

ENDIF.

  • Second line item details.

PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.

PERFORM bdc_field USING 'BDC_CURSOR'

'BSEG-WRBTR'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BS'.

lv_amount = gs_valid-wrbtr_2.

write lv_amount to gs_valid-wrbtr_2.

PERFORM bdc_field USING 'BSEG-WRBTR'

gs_valid-wrbtr_2.

IF gs_valid-waers NE GV_CURR.

lv_amount = gs_valid-dmbtr_2.

write lv_amount to gs_valid-dmbtr_2.

PERFORM bdc_field USING 'BSEG-DMBTR'

gs_valid-dmbtr_2.

ENDIF.

  • IF gs_valid-waers NE 'USD'.

  • lv_amount = gs_valid-dmbtr_2.

  • write lv_amount to gs_valid-dmbtr_2.

  • PERFORM bdc_field USING 'BSEG-DMBTR'

  • gs_valid-dmbtr_2.

  • ENDIF.

PERFORM bdc_field USING 'DKACB-FMORE'

'X'.

  • Enter cost center

PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.

PERFORM bdc_field USING 'BDC_CURSOR'

'COBL-KOSTL'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTE'.

PERFORM bdc_field USING 'COBL-KOSTL'

gs_valid-kostl.

  • Save

PERFORM bdc_dynpro USING 'SAPMF05A' '0700'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RF05A-NEWBS'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BU'.

PERFORM bdc_field USING 'BKPF-XBLNR'

gs_valid-xblnr.

PERFORM bdc_field USING 'BKPF-BKTXT'

gs_valid-bktxt.

  • Call Transcation FB01.

PERFORM bdc_transaction USING 'FB01'.

ENDIF.

IF gv_flag = 'X'.

PERFORM z_get_sys_message CHANGING lv_sys_msg.

PERFORM move_to_error USING gs_valid lv_sys_msg.

DELETE table gt_valid FROM gs_valid.

ELSE.

CLEAR: gs_audit.

CONCATENATE

gs_valid-bldat gc_del

gs_valid-blart gc_del

gs_valid-bukrs gc_del

gs_valid-waers gc_del

gs_valid-budat gc_del

gs_valid-xblnr gc_del

gs_valid-bktxt gc_del

gs_valid-newbs gc_del

gs_valid-newko gc_del

gs_valid-wrbtr gc_del

gs_valid-dmbtr gc_del

gs_valid-mwskz gc_del

gs_valid-zterm gc_del

gs_valid-zfbdt gc_del

gs_valid-kostl gc_del

gs_valid-newbs_2 gc_del

gs_valid-newko_2 gc_del

gs_valid-wrbtr_2 gc_del

gs_valid-dmbtr_2

INTO gs_audit.

APPEND gs_audit TO gt_audit.

ENDIF.

ENDLOOP.

Regards

Mohit Bansal