Skip to Content
author's profile photo Former Member
Former Member

T-CODE FB01 In Mass creation

Hi all,

I'm looking for idea to create FB01(post g/l document) in mass mode from a file.

I'm open to all techno : BAPI, Batch Input, ...

I've notice that a std Bi exists : RFBIBL00, but I've no idea in how formatting a file for this program.

Tanks,

Erwan.

Add a comment
10|10000 characters needed characters exceeded

Related questions

4 Answers

  • Posted on Dec 10, 2004 at 10:51 AM

    Hi,

    The structure of the file using RFBIBL00 is :

    BGR00 (head of the file)

    BBKPF (head of the document)

    BBSEG (post of the document).

    Or you can use the BAPI :

    BAPI_ACC_GL_POSTING_POST.

    Frédéric.

    Add a comment
    10|10000 characters needed characters exceeded

  • Posted on Dec 10, 2004 at 11:02 AM

    or <b>AC_DOCUMENT_DIRECT_INPUT</b>

    -> for mass data

    Grx Andreas

    Add a comment
    10|10000 characters needed characters exceeded

  • Posted on Dec 10, 2004 at 12:37 PM

    You can use function 'POSTING_INTERFACE_DOCUMENT', works really fine. Example code bellow:

    REPRT ztest.

    ************************************************************************

    • TYPES

    ************************************************************************

    TYPES: BEGIN OF ge_account,

    source(12) TYPE c, "Source Interface

    bukrs(4) TYPE c, "Company code

    operid(13) TYPE c, "Operation ID

    date(10) TYPE c, "Date

    blart(2) TYPE c, "Document type

    waers(5) TYPE c, "Currency

    free(10) TYPE c, "Free

    newko(10) TYPE c, "Gl account

    kostl(10) TYPE c, "Cost center

    newbs(2) TYPE c, "Posting key

    wrbtr(14) TYPE c, "Amount

    sgtxt(25) TYPE c, "Description

    zuonr(8) TYPE c, "Reference 1

    ref2(8) TYPE c, "Reference 2

    END OF ge_account.

    TYPES: BEGIN OF ge_account_new,

    source(12) TYPE c, "Source Interface

    bukrs(4) TYPE c, "Company code

    operid(13) TYPE c, "Operation ID

    date(10) TYPE c, "Date

    blart(2) TYPE c, "Document type

    waers(5) TYPE c, "Currency

    free(10) TYPE c, "Free

    newko(10) TYPE c, "Gl account

    kostl(10) TYPE c, "Cost center

    newbs(2) TYPE c, "Posting key

    wrbtr LIKE bseg-wrbtr, "Amount

    sgtxt(25) TYPE c, "Description

    zuonr(8) TYPE c, "Reference 1

    ref2(8) TYPE c, "Reference 2

    END OF ge_account_new.

    TYPES: BEGIN OF ge_ftpost.

    INCLUDE STRUCTURE ftpost.

    TYPES: END OF ge_ftpost.

    TYPES: BEGIN OF ge_blntab.

    INCLUDE STRUCTURE blntab.

    TYPES: END OF ge_blntab.

    TYPES: BEGIN OF ge_blntabdoc.

    INCLUDE STRUCTURE blntab.

    TYPES: END OF ge_blntabdoc.

    TYPES: BEGIN OF ge_fttax.

    INCLUDE STRUCTURE fttax.

    TYPES: END OF ge_fttax.

    TYPES: BEGIN OF ge_message,

    text(110),

    flag,

    END OF ge_message.

    *TYPES: BEGIN OF ge_zlscf008.

    • INCLUDE STRUCTURE zlscf008.

    *TYPES: END OF ge_zlscf008.

    TYPES: tyt_account_aux TYPE TABLE OF ge_account.

    TYPES: tyt_account TYPE TABLE OF ge_account_new.

    TYPES: tyt_ftpost TYPE TABLE OF ge_ftpost.

    TYPES: tyt_blntab TYPE TABLE OF ge_blntab.

    TYPES: tyt_blntabdoc TYPE TABLE OF ge_blntabdoc.

    TYPES: tyt_fttax TYPE TABLE OF ge_fttax.

    TYPES: tyt_message TYPE TABLE OF ge_message.

    DATA: it_blntab TYPE tyt_blntab WITH HEADER LINE.

    DATA: it_blntabdoc TYPE tyt_blntabdoc WITH HEADER LINE.

    DATA: it_fttax TYPE tyt_fttax WITH HEADER LINE.

    DATA: it_ftpost TYPE tyt_ftpost WITH HEADER LINE.

    DATA: v_lines_doc(3) TYPE n,

    v_user LIKE sy-uname,

    v_msgid LIKE sy-msgid,

    v_msgno LIKE sy-msgno,

    v_msgty LIKE sy-msgty,

    v_msgv1 LIKE sy-msgv1,

    v_msgv2 LIKE sy-msgv2,

    v_msgv3 LIKE sy-msgv3,

    v_msgv4 LIKE sy-msgv4,

    v_subrc LIKE sy-subrc,

    v_subrc1 LIKE sy-subrc,

    v_tcode LIKE sy-tcode VALUE 'FB01',

    v_msg(110),

    v_err,

    v_mode,

    • v_blart LIKE zlscf007-blart,

    • v_hkont LIKE zlscf007-hkont,

    • v_sources LIKE zlscf007-sources,

    v_operid(13),

    v_bierr(2) TYPE n,

    v_xdate(8),

    v_bktxt LIKE bkpf-bktxt,

    v_kokrs LIKE csks-kokrs.

    PERFORM f_fill_doc_header.

    PERFORM f_fill_doc_position.

    *Inicio el post del documento

    CALL FUNCTION 'POSTING_INTERFACE_START'

    EXPORTING

    i_client = sy-mandt

    i_function = 'C'

    i_mode = 'A'

    i_update = 'S'

    i_user = sy-uname

    EXCEPTIONS

    client_incorrect = 1

    function_invalid = 2

    group_name_missing = 3

    mode_invalid = 4

    update_invalid = 5

    OTHERS = 6.

    *Postin document.

    CLEAR it_blntab.

    REFRESH it_blntab.

    CALL FUNCTION 'POSTING_INTERFACE_DOCUMENT'

    EXPORTING

    i_tcode = v_tcode

    IMPORTING

    e_msgid = v_msgid

    e_msgno = v_msgno

    e_msgty = v_msgty

    e_msgv1 = v_msgv1

    e_msgv2 = v_msgv2

    e_msgv3 = v_msgv3

    e_msgv4 = v_msgv4

    e_subrc = v_subrc

    TABLES

    t_blntab = it_blntab

    t_ftpost = it_ftpost

    t_fttax = it_fttax

    EXCEPTIONS

    account_missing = 1

    company_code_missing = 2

    posting_key_invalid = 3

    posting_key_missing = 4

    record_type_invalid = 5

    transaction_code_invalid = 6

    amount_format_error = 7

    too_many_line_items = 8

    OTHERS = 9.

    CALL FUNCTION 'POSTING_INTERFACE_END'

    EXPORTING

    i_bdcimmed = 'X'

    EXCEPTIONS

    session_not_processable = 1

    OTHERS = 2.

    &----


    *& Form f_fill_doc_header

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM f_fill_doc_header.

    REFRESH it_ftpost.

    CLEAR it_ftpost.

    ADD 1 TO v_lines_doc.

    it_ftpost-stype = 'K'.

    it_ftpost-count = v_lines_doc.

    it_ftpost-fnam = 'BKPF-BLDAT'.

    it_ftpost-fval = '06092004'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'BKPF-BUDAT'.

    it_ftpost-fval = '06092004'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'BKPF-BLART'.

    it_ftpost-fval = 'K3'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'BKPF-BUKRS'.

    it_ftpost-fval = 'CTIU'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'BKPF-WAERS'.

    it_ftpost-fval = 'ARS'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'BKPF-BKTXT'.

    it_ftpost-fval = 'Prueba'.

    APPEND it_ftpost.

    CLEAR v_lines_doc.

    ENDFORM. " f_fill_doc_header

    &----


    *& Form f_fill_doc_position

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM f_fill_doc_position.

    it_ftpost-stype = 'P'.

    ADD 1 TO v_lines_doc.

    it_ftpost-count = v_lines_doc.

    it_ftpost-fnam = 'RF05A-NEWBS'.

    it_ftpost-fval = '11'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'RF05A-NEWKO'.

    it_ftpost-fval = '55'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'BSEG-WRBTR'.

    it_ftpost-fval = '1.00'.

    APPEND it_ftpost.

    it_ftpost-stype = 'P'.

    ADD 1 TO v_lines_doc.

    it_ftpost-count = '2'.

    it_ftpost-fnam = 'RF05A-NEWBS'.

    it_ftpost-fval = '21'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'RF05A-NEWKO'.

    it_ftpost-fval = '55'.

    APPEND it_ftpost.

    it_ftpost-fnam = 'BSEG-WRBTR'.

    it_ftpost-fval = '*'.

    APPEND it_ftpost.

    ENDFORM. " f_fill_doc_position

    Add a comment
    10|10000 characters needed characters exceeded

  • Posted on Dec 10, 2004 at 08:19 PM

    You can also use LSMW(available free of cost to customers of SAP, but needs to be downloaded from service.sap.com).

    Using this tool you can easily upload data for many objects. It is a kind of cockpit for all kinds of available interfacing techniques(BAPI, IDOC, Batch Input, BDC, Business Objects). You can define a project and create an object for FB01. You can choose your own input format and then map it to the RFBIBL00 structures using an easy-to-understand mapping tool.

    Srinivas

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.