fs00-bdc

[radhushankar]

hi all,

can any one plz send me the full code to upload datas through bdc for fs00 transaction.

thanks in advance

arun.

[Former Member]

Hi

U can use the std BI RFBISA00

Max

[Former Member]

Hi,

FORM fill_bdcdata .

loop at i_output.

clear i_bdcdata.

refresh i_bdcdata.

perform bdc_dynpro using 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

perform bdc_field using 'BDC_OKCODE'

'=ACC_CRE'.

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_KEY-BUKRS'.

perform bdc_field using 'GLACCOUNT_SCREEN_KEY-SAKNR'

i_output-SAKNR. "gl ac number

perform bdc_field using 'GLACCOUNT_SCREEN_KEY-BUKRS'

i_output-BUKRS. "company code

perform bdc_dynpro using 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

perform bdc_field using 'BDC_OKCODE'

'=2102_GROUP'.

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_COA-KTOKS'. "ac grp

*perform bdc_field using 'GLACCOUNT_SCREEN_COA-KTOKS'

• i_output-cc.

perform bdc_field using 'GLACCOUNT_SCREEN_COA-XPLACCT'

i_output-xplacct. "pl account

perform bdc_field using 'GLACCOUNT_SCREEN_COA-XBILK'

i_output-xbilk. "balance sheet

perform bdc_dynpro using 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

perform bdc_field using 'BDC_OKCODE'

'=TAB02'.

perform bdc_field using 'GLACCOUNT_SCREEN_COA-KTOKS'

i_output-ktoks. "ac grp

perform bdc_field using 'GLACCOUNT_SCREEN_COA-XPLACCT'

i_output-xplacct. "pl account

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_COA-TXT50_ML'.

perform bdc_field using 'GLACCOUNT_SCREEN_COA-TXT20_ML'

i_output-txt20_ml. "short text

perform bdc_field using 'GLACCOUNT_SCREEN_COA-TXT50_ML'

i_output-txt50_ml. "long text

perform bdc_dynpro using 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

perform bdc_field using 'BDC_OKCODE'

'=TAB03'.

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_CCODE-MITKZ'.

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-XSALH'

i_output-xsalh. "Only Balance in Local Currency

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-MWSKZ'

i_output-mwskz. "Tax Category

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-XMWNO'

i_output-xmwno. "Posting without tax

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-MITKZ'

i_output-mitkz. "Reccon A/C

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_CCODE-ZUAWA'.

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-XOPVW'

i_output-xopvw. "Open Item Management

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-XKRES'

i_output-xkres. "Line Item Display

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-ZUAWA'

i_output-zuawa. "Sort Key

perform bdc_dynpro using 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

perform bdc_field using 'BDC_OKCODE'

'=ENTER'.

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-FSTAG'

i_output-fstag. "Field Stauts

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-XINTB'

i_output-xintb. "post automatically

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_CCODE-XGKON'.

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-XGKON'

i_output-xgkon. "relevent to cash A/c

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_CCODE-ZUAWA'.

perform bdc_dynpro using 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

perform bdc_field using 'BDC_OKCODE'

'=SAVE'.

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_CCODE-FSTAG'.

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-FSTAG'

i_output-fstag. "Field Stauts

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-XINTB'

i_output-xintb. "post automatically

perform bdc_field using 'GLACCOUNT_SCREEN_CCODE-XGKON'

i_output-xgkon. "relevent to cash A/c

perform bdc_dynpro using 'SAPLGL_ACCOUNT_MASTER_MAINTAIN' '2001'.

perform bdc_field using 'BDC_OKCODE'

'/EEXIT'.

perform bdc_field using 'BDC_CURSOR'

'GLACCOUNT_SCREEN_CCODE-XGKON'.

perform bdc_dynpro using 'SAPLSPO1' '0100'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

perform f_elog.

endloop.

FORM f_elog .

data len type i.

clear i_msgtab.

call transaction 'FS00'

using i_bdcdata

mode g_v_mode "N

messages into i_msgtab

update g_v_update . "S

write: i_output-saknr.

applied check of IF INITIAL in some fields.

<b>Reward points</b>

Regards