Application Development 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: 

BDC for Credit Note Upload-FB01

Former Member

‎08-05-2006 7:05 AM

0 Kudos

Has anyone written a BDC to uploaded credit note data using FB01? Shall be highly obliged, if you send the code. Both credit & debit entries are in a single line of record of my Excel sheet, but we may also try with individual entries for debit & credit.

Regards,

Alok.

1 REPLY 1

Former Member

‎08-05-2006 12:21 PM

0 Kudos

hi

good

this bdc is work for both fb01,fb05,you can try with that,

FORM fb02_rstgrl1.

LOOP AT it_bsidl1.

REFRESH bdc_tab.

PERFORM bdc_dynpro USING 'SAPMF05L' '0100'.

PERFORM bdc_field USING 'BDC_OKCODE' '/00'.

PERFORM bdc_field USING 'RF05L-BELNR' it_bsidl1-belnr.

PERFORM bdc_field USING 'RF05L-BUKRS' it_bsidl1-bukrs.

PERFORM bdc_field USING 'RF05L-GJAHR' it_bsidl1-gjahr.

PERFORM bdc_dynpro USING 'SAPMF05L' '0700'.

IF it_bsidl1-buzei = 1.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05L-ANZDT(01)'.

ELSEIF it_bsidl1-buzei = 2.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05L-ANZDT(02)'.

ELSEIF it_bsidl1-buzei = 3.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05L-ANZDT(03)'.

ELSEIF it_bsidl1-buzei = 4.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05L-ANZDT(04)'.

ELSEIF it_bsidl1-buzei = 5.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05L-ANZDT(05)'.

ELSEIF it_bsidl1-buzei = 6.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05L-ANZDT(06)'.

ELSEIF it_bsidl1-buzei = 7.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05L-ANZDT(07)'.

ENDIF.

PERFORM bdc_field USING 'BDC_OKCODE' '=PK'.

PERFORM bdc_dynpro USING 'SAPMF05L' '0301'.

PERFORM bdc_field USING 'BDC_OKCODE' '=ZK'.

PERFORM bdc_dynpro USING 'SAPMF05L' '1301'.

PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.

IF sy-uname = 'BATCHID'.

PERFORM bdc_field USING 'BSEG-XREF1' 'AUTOMATIC'.

ELSE.

PERFORM bdc_field USING 'BSEG-XREF1' sy-uname.

ENDIF.

PERFORM bdc_field USING 'BSEG-RSTGR' prstgr.

PERFORM bdc_dynpro USING 'SAPMF05L' '0301'.

PERFORM bdc_field USING 'BDC_OKCODE' '=AE'.

PERFORM bdc_transactionl1.

ENDLOOP.

ENDFORM. " fb02_rstgrl1

&----

*

*& Form bdc_transaction_uname

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM bdc_transaction_uname. "form statement to do the call transaction

*for FB02

CALL TRANSACTION 'FB02' USING bdc_tab

MODE mod1

UPDATE 'S'.

IF sy-subrc NE 0.

  • WRITE: / 'Error find_uname FB02 - Txn.', ws_bsid-belnr.

ENDIF.

CLEAR: bdc_tab, bdc_tab[].

ENDFORM. " bdc_transaction_uname

thanks

mrutyun