LSMW RFBIBL00

Question

Hi
I'm using RFBIBL00 prg for doing FB01 postings.
I use structures BBKPF,BBSEG. Actually in the source file i have 50 line items.
All the 50 line items should get posted as one Document. Now what happens is for each source record..a separate document is created.
Pls help... how to achieve this

Answer 1

I have done a similar thing using RFBIBL00.
I upload transactions via an excel spreadsheet and submit these to RFBIBL00.
Have a look at the code below:
======================================================================
Report     : Purchase Card Interface                                *
======================================================================
Title      : General Ledger Posting Interface                       *
Author     : Andy Scott                                             *
Date       : 15/12/2006                                             *
Purpose    : To process an input file containing G/L information    *
              from the Purchase Cards and to create a batch session. *
              This batch session will then replicate the G/L Account *
              Posting Transaction F-02 (FB01).                       *
              An Excel spreadsheet from RBS is loaded and validated  *
              against. It is then reformatted and transferred into   *
              the sap/usr/interfaces directory on to the application *
              server. A batch session is then created via RFBIBL00   *
              and processed as normal via SM35.                      *
              There are various types of card transactions that can  *
              be loaded. These are described below:                  *
              Level 1 transaction without split                      *
                     - (one transaction line and one VAT line)       *
              Level 1 transaction with split                           *
                     - (multiple transaction lines and VAT lines)    *
              Level 2 transaction without split                    *
                     - (one transaction line and one VAT line)       *
              Level 2 transaction with split                           *
                     - (multiple transaction lines and VAT lines)    *
              Level 3 transaction without split                    *
                     - (multiple transaction lines and VAT lines)    *
              Level 3 transaction with split                           *
                     - (multiple transaction lines and VAT lines)    *
======================================================================
Amendment History:                                                   *
Date      User ID    Request Number   Brief Description             *
15/12/06   CSSCOTTA   DV1K914412       Initial development           *
======================================================================
*EJECT
REPORT  zfii001 MESSAGE-ID z_msszfii.
TABLES
TABLES:    csks,          " Cost Centre
           skb1,          " G/L Account Master
           aufk.          " Order Master (Internal Order)
Internal Table to hold original xls values i.e. Row, Column etc.
DATA: excel_itab LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
*EJECT
Internal table containing data loaded from the Excel spread sheet
TYPES: BEGIN OF purchase_card_record,
        bbkpf_ind(1)               TYPE c,  " Indicates BBKPF (header) record needed
        exp_financial(1)           TYPE c,  " FIN. Exported Financial
        trans_date(10)             TYPE c,  " FIN. Transaction Date
        mast_txn_id(10)            TYPE c,  " FIN. Mastercard Txn ID
        merchant_name(30)          TYPE c,  " MCH. Merchant Name
        db_cr_code(1)              TYPE c,  " FIN. Debit Credit Code
        cust_code(20)              TYPE c,  " FIN. Customer Code
        trans_amount(15)           TYPE c,  " FIN. Primary Trans Amount
        vat_amount(10)             TYPE c,  " FIN. VAT Amount
        tax_amount(10)             TYPE c,  " PUR. Tax Amount
        net_trans_amount(15)       TYPE c,  " FIN. Net Transaction Amount
        ext_item_amount(15)        TYPE c,  " PUR. Extended Item Amount
        cost_centre(10)            TYPE c,  " FIN. Cost Centre
        gl_code(10)                TYPE c,  " FIN. GL Code
        internal_order(12)         TYPE c,  " FIN. Internal Order
        account_name(30)           TYPE c,  " Account Name
        line_item_info(30)         TYPE c,  " PUR. Line Item Information
        expense_descr(30)          TYPE c,  " FIN. Expense Description
        vat_indicator(10)          TYPE c,  " FIN. VAT Eligibilty Ind.
        split_sequence(10)         TYPE c,  " FIN. Split Sequence
        country(10)                TYPE c,  " MCH. Country
        acc_address(30)            TYPE c,  " ACC. Address
        company_code(4)            TYPE c,  " Company Code
        split_ind(1)               TYPE c,  " Indicates Multiple Split Line Items
        vat_type(20)               TYPE c,  " Type of VAT i.e. Normal or Level 3
        posting_key(2)             TYPE c,  " Posting key i.e. 40, 50
        holding_gl_account(1)      TYPE c,  " Post To Holding Account
        error_message(50)          TYPE c,  " Error Message For Holding Account
        row(4)                     TYPE c,  " Excel Spreadsheet Row No
      END OF purchase_card_record.
DATA:
    purchase_card_wa               TYPE          purchase_card_record,
    purchase_card_tab              TYPE TABLE OF purchase_card_record,
    last_purchase_card_wa          TYPE          purchase_card_record.
Internal table containing possible errors within the Excel
spread sheet
TYPES: BEGIN OF error_type,
         row_num(6)                TYPE c,
         message(80)               TYPE c,
         line(200)                 TYPE c,
       END OF error_type.
DATA:  error_wa                    TYPE error_type,
       error_tab                   TYPE STANDARD TABLE OF error_type.
*EJECT
Document Record structures containing RFBIBL00 data
There will be one header BBKPF record with more than one
associated BBSEG record(s) for each transaction.
i.e. BGR00  ( File Session Header )
      |
     BBKPF
      |
        BBSEG ....
        BBSEG ....
          etc ....
     BBKPF
      |
        BBSEG ....
        BBSEG ....
          etc ....
DATA:
      bgr00_record                 LIKE bgr00,   " Batch Input Structure for Session Data
      bbkpf_record                 LIKE bbkpf,   " Document Header  (Batch Input Structure)
      bbseg_record                 LIKE bbseg.   " Document Segment (Batch Input Structure)
DATA: bbseg_tab                    TYPE STANDARD TABLE OF bbseg.
DATA: empty_bbseg_record           LIKE bbseg,
      empty_bgr00_record           LIKE bgr00,
      empty_bbkpf_record           LIKE bbkpf.
*EJECT
      WORK AREA                                                      *
DATA: wa_num_rows_loaded           TYPE i,
      wa_mod                       TYPE n,
      wa_num_of_invalid_rows       TYPE i,
      wa_num_of_transactions       TYPE i,
      wa_num_of_transaction_lines  TYPE i,
      wa_num_of_vat_lines          TYPE i,
      wa_error_count               TYPE i,
      wa_error_exists(1)           TYPE c,
      wa_company_code              LIKE skb1-bukrs,
      wa_gl_code(10)               TYPE n,
      wa_aufnr(12)                 TYPE n,
      wa_counter                   TYPE i,
      wa_output_file(75)           TYPE c,            " Output file name
      wa_period                    TYPE i,            " Payroll Period
      wa_first_time(1)             TYPE c,
      wa_error(200)                TYPE c,
      wa_unix_command(100)         TYPE c,
      wa_todays_date(8)            TYPE c,
      wa_wrbtr(16)                 TYPE c,
      wa_format(3)                 TYPE c.
      Batch Totals                                                   *
DATA:
      wa_total_amount              LIKE bbseg-wrbtr,
      wa_total_vat                 LIKE bbseg-wrbtr.
Internal table to hold UNIX command
DATA:  BEGIN OF unix_itab OCCURS 10,
         text(80),
       END OF unix_itab.
Define constants
CONSTANTS:
     c_filename(75)                VALUE 'Purchase_Cards',
     c_data_directory(75)          VALUE '/sapinterfaces/data/',
     c_archive_directory(75)       VALUE '/sapinterfaces/archive/',
     c_holding_gl_account(4)       VALUE '7888'.
Excel Spreadsheet Filename / Location
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN COMMENT /30(70) TEXT-002.
SELECTION-SCREEN COMMENT /40(40) TEXT-003.
PARAMETERS: pa_file     LIKE rlgrap-filename OBLIGATORY MEMORY ID m01.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      mask      = ',.XLS,.XLS'
      static    = 'X'
    CHANGING
      file_name = pa_file.
*EJECT
START-OF-SELECTION.
Upload the excel spreadsheet into the the internal table
  PERFORM upload_xls_spreadsheet.
Any Records To Process ??
  IF wa_num_rows_loaded > 0.
    PERFORM process_file.
  ELSE.
    CONCATENATE 'No Data Found In The Excel Spreadsheet ' pa_file
    INTO wa_error SEPARATED BY space.
    CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
      EXPORTING
        titel        = 'File Error'
        textline1    = wa_error
        textline2    = 'Does File exist ?  '
        start_column = 25
        start_row    = 6.
  ENDIF.
END-OF-SELECTION.
*EJECT
     Form  UPLOAD_FILE
      Subroutine to upload excel file
FORM upload_xls_spreadsheet .
Call function to upload spreadsheet into an internal table
  REFRESH : excel_itab,
            purchase_card_tab.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = pa_file
      i_begin_col             = '1'
      i_begin_row             = '2'  "Do not require headings
      i_end_col               = '21'
      i_end_row               = '10000'
    TABLES
      intern                  = excel_itab
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
  IF sy-subrc <> 0.
    CONCATENATE 'Problem Trying To Read File' pa_file
    INTO wa_error SEPARATED BY space.
    CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
      EXPORTING
        titel        = 'File Error'
        textline1    = wa_error
        textline2    = 'Does File exist ?  '
        start_column = 25
        start_row    = 6.
  ELSE.
    PERFORM convert_table.
  ENDIF.
ENDFORM.                    " upload_xls_spreadsheet
*EJECT
     Form  PROCESS_FILE
This form will control the flow of the program
FORM process_file.
  Validate the input file
  PERFORM validate_input_file.
  Insert Document Header Records
  PERFORM insert_bbkpf_indicators.
  Display any invalid rows from the imported file
  IF wa_error_count > 0.
    PERFORM display_invalid_records.
  ENDIF.
  Create the text batch file which will be submitted to RFBIBL00
  PERFORM create_batch_file.
  Submit File - Call RFBIBL00 ( Batch Input Program )
  PERFORM submit_rfbibl00.
  Move the text batch file into the SAP archive directory
  PERFORM archive_file.
  Display Batch Total Amounts
  PERFORM batch_totals.
ENDFORM. " process_file.
*EJECT
     Form  Validate_Input_File
FORM validate_input_file.
This subroutine will validate the input file against the Business
Rules that have been created by the E-Trading and Accounts teams.
  CLEAR wa_counter.
Only select transactions which have not previously been posted i.e. = 0
  LOOP AT purchase_card_tab INTO purchase_card_wa WHERE exp_financial = '0'.
    wa_counter = wa_counter + 1.
Need to determine the Company Code
    CASE: purchase_card_wa-acc_address.
      WHEN 'SALFORD CITY COUNCIL'.
        wa_company_code = '1000'.
      WHEN 'SALFORD COMM LEISURE'.
        wa_company_code = '8000'.
      WHEN 'NEW PROSPECT HOUSING LTD'.
        wa_company_code = 'NPHL'.
    ENDCASE.
*EJECT
                           Cost Centre
    IF purchase_card_wa-cost_centre IS NOT INITIAL.
    Valid Cost Centre ?
      CLEAR csks.
      SELECT SINGLE *
        FROM csks
       WHERE kokrs = wa_company_code
         AND kostl = purchase_card_wa-cost_centre
         AND datbi = '99991231'.
      IF sy-subrc <> 0.
        PERFORM create_error_message USING 'Invalid Cost Centre'
                                           purchase_card_wa-cost_centre
                                           purchase_card_wa-row
                                           'Y'.
      ELSE.
        IF csks-pkzkp = 'X'.
          PERFORM create_error_message USING 'CC Blocked For Posting'
             purchase_card_wa-cost_centre
             purchase_card_wa-row
             'Y'.
        ENDIF.
      ENDIF.
    Verify Correct Cost Centre for Company
      CASE: wa_company_code.
        WHEN '1000'.                                   " Salford City Council
          IF  purchase_card_wa-cost_centre(1) CA 'JT'.
            PERFORM create_error_message USING 'Must Be SCC Cost Centre'
                                               purchase_card_wa-cost_centre
                                               purchase_card_wa-row
                                               'Y'.
          ENDIF.
        WHEN '8000'.                                   " Salford Community Leisure
          IF  purchase_card_wa-cost_centre(1) <> 'T'.
            PERFORM create_error_message USING 'Must Be SCL Cost Centre'
                                               purchase_card_wa-cost_centre
                                               purchase_card_wa-row
                                               'Y'.
          ENDIF.
        WHEN 'NPHL'.
          IF  purchase_card_wa-cost_centre(1) <> 'J'.  " New Prospect Housing
            PERFORM create_error_message USING 'Must Be NPHL Cost Centre'
                                               purchase_card_wa-cost_centre
                                               purchase_card_wa-row
                                               'Y'.
          ENDIF.
      ENDCASE.
    ENDIF.
*EJECT
                         GL Account Code
  Insert leading zeroes
    wa_gl_code = purchase_card_wa-gl_code.
    IF purchase_card_wa-gl_code IS INITIAL.
      PERFORM create_error_message USING 'G/L Account Code Required'
                                         purchase_card_wa-cost_centre
                                         purchase_card_wa-row'Y'.
    ELSE.
    Valid GL Account ?
      CLEAR skb1.
      SELECT SINGLE *
        FROM skb1
       WHERE bukrs = wa_company_code
         AND saknr = wa_gl_code.
      IF sy-subrc <> 0.
        PERFORM create_error_message USING 'Invalid G/L Account Code'
                                           purchase_card_wa-gl_code
                                           purchase_card_wa-row
                                           'Y'.
      ELSE.
        IF skb1-xspeb = 'X'.
          PERFORM create_error_message USING 'G/L Blocked For Posting'
                                   purchase_card_wa-gl_code
                                   purchase_card_wa-row
                                   'Y'.
        ENDIF.
      ENDIF.
    ENDIF.
*EJECT
                          Internal Order No.
There can be two types of internal order numbers:
       1)  RIO - Real Internal Order in format A12345
       2)  SIO - Statistical Intrenal Order  in format 12345
    IF purchase_card_wa-internal_order IS NOT INITIAL.
  Insert leading zeroes
      wa_aufnr = purchase_card_wa-internal_order.
  Decide which format. Check first character
      IF  purchase_card_wa-internal_order(1) CA 'ABCDEFGHIJKLMNOPQRSTUZWXYZ'.
        wa_format = 'RIO'.
      ELSE.
        wa_format = 'SIO'.
      ENDIF.
    Valid Internal Order - RIO only?
      IF wa_format = 'RIO'.
        SELECT SINGLE *
          FROM aufk
         WHERE aufnr = wa_aufnr.
        IF sy-subrc <> 0.
          PERFORM create_error_message USING 'Invalid Internal Order'
                                             purchase_card_wa-internal_order
                                             purchase_card_wa-row
                                             'Y'.
        ENDIF.
        IF  purchase_card_wa-cost_centre IS NOT INITIAL
        OR  purchase_card_wa-gl_code(1) <> '7'.
          PERFORM create_error_message USING 'Incorrect GL/Int Ord Combo'
                                             purchase_card_wa-internal_order
                                             purchase_card_wa-row
                                             'Y'.
        ENDIF.
      ELSE.
        IF purchase_card_wa-cost_centre    IS INITIAL.
          PERFORM create_error_message USING 'Cost Centre Required'
                                             purchase_card_wa-row
                                             'Y'.
        ENDIF.
        IF purchase_card_wa-gl_code(1) NA '45'.
          PERFORM create_error_message USING 'Incorrect GL Code for CC'
                                             purchase_card_wa-internal_order
                                             purchase_card_wa-row
                                             'Y'.
        ENDIF.
      ENDIF.
    ELSE.
      IF purchase_card_wa-cost_centre IS INITIAL
      OR purchase_card_wa-gl_code(1) NA '45'.
        PERFORM create_error_message USING 'Incorrect GL Code for CC'
                                           purchase_card_wa-gl_code
                                           purchase_card_wa-row
                                           'Y'.
      ENDIF.
    ENDIF.
*EJECT
                            VAT Amount.
    IF  purchase_card_wa-vat_amount > 0
    AND purchase_card_wa-country   <> 'GBR'.
      PERFORM create_error_message USING 'VAT Must Be 0 For Non UK Trans'
                                         purchase_card_wa-gl_code
                                         purchase_card_wa-row
                                         'Y'.
    ENDIF.
Keep a count of how many rows in the spreadsheet are invalid
    IF wa_error_exists = 'Y'.
      wa_num_of_invalid_rows = wa_num_of_invalid_rows + 1.
    ENDIF.
    CLEAR: wa_error_exists,
           purchase_card_wa.
  ENDLOOP.
ENDFORM.                    " Validate_Input_File
*EJECT
     Form  Insert_BBKPF_indicators
FORM insert_bbkpf_indicators.
  DATA:  wa_temp_date(12)                 TYPE c.
This routine wil make sure that the BBKPF indicator in the table is
set to 'Y' when a new unique FIN. Mastercard Txn ID is reached. This
is so that the correct document header records (BBKPF) can be created
in the text file.
  DATA:   previous_mast_txn_id(10)            TYPE c,
          previous_split_sequence(10)         TYPE c.
First we need to delete transactions that may have been previoulsy
posted
N.B. This is done after the validation process in order to keep
     the row number in sync with the excel spreadsheet
  DELETE purchase_card_tab WHERE exp_financial = '1'.
Sort Data Into FIN. Mastercard Transaction No. and Split Sequence order
  SORT purchase_card_tab BY mast_txn_id split_sequence.
Only select transactions which have not previously been posted
  LOOP AT purchase_card_tab INTO purchase_card_wa WHERE exp_financial = '0'.
  Keep a note of where we will need to write a new Document Header
  record i.e. BBKPF. A new Document Header is needed for each unique
  Mastercard Transaction ID
    IF purchase_card_wa-mast_txn_id <> previous_mast_txn_id.
      purchase_card_wa-bbkpf_ind = 'Y'.
      previous_mast_txn_id       = purchase_card_wa-mast_txn_id.
    ENDIF.
  We also need to keep a note of the split sequence for multiple line
  items. Basically we will not post the lines where the split sequence
  held in the Split Sequence (e.g. Split 1 ) is duplicated.
    IF  purchase_card_wa-split_sequence = previous_split_sequence
    AND purchase_card_wa-mast_txn_id    = previous_mast_txn_id
    AND purchase_card_wa-split_sequence <> '0'.
      purchase_card_wa-split_ind = 'Y'.
    ENDIF.
    previous_split_sequence = purchase_card_wa-split_sequence.
Need to determine the Company Code
    CASE: purchase_card_wa-acc_address.
      WHEN 'SALFORD CITY COUNCIL'.
        wa_company_code = '1000'.
      WHEN 'SALFORD COMM LEISURE LTD'.
        wa_company_code = '8000'.
      WHEN 'NEW PROSPECT HOUSING LTD'.
        wa_company_code = 'NPHL'.
    ENDCASE.
    purchase_card_wa-company_code = wa_company_code.
Convert Transaction Date From DD/MM/YY   to DD.MM.YYYY
                           OR DD/MM/YYYY to DD.MM.YYYY
    IF STRLEN( purchase_card_wa-trans_date ) = 8.
      CONCATENATE purchase_card_wa-trans_date+0(2)
                  purchase_card_wa-trans_date+3(2)
                  sy-datum+0(2)
                  purchase_card_wa-trans_date+6(2)
          INTO wa_temp_date.
    ELSE.
      CONCATENATE purchase_card_wa-trans_date+0(2)
                  purchase_card_wa-trans_date+3(2)
                  purchase_card_wa-trans_date+6(4)
          INTO wa_temp_date.
    ENDIF.
    purchase_card_wa-trans_date = wa_temp_date.
Each transaction line will normally be subject to VAT unless the
transaction line is for a Level 3 with No Splits. If this is the case
only ONE VAT line per transaction will be needed. Where as the other
transactions will have a VAT line posted for each individual line item.
    IF purchase_card_wa-country = 'GBR'
    AND (   purchase_card_wa-vat_amount > '0.00'
         OR purchase_card_wa-tax_amount > '0.00' ).
      purchase_card_wa-vat_type = 'Normal'.
    ENDIF.
    IF ( purchase_card_wa-vat_indicator  = 'GBR001'
    AND  purchase_card_wa-split_sequence = '0'      ).
      purchase_card_wa-vat_type = 'Level 3 No Splits'.
    ENDIF.
Posting Key - 40 ( Debit = '-' )   50 ( Credit = '+' )
    IF purchase_card_wa-db_cr_code = '-'.
      purchase_card_wa-posting_key = '40'.
    ELSE.
      purchase_card_wa-posting_key = '50'.
    ENDIF.
Update Internal Table
    MODIFY purchase_card_tab FROM purchase_card_wa.
  ENDLOOP.
Now need to remove all the duplicated split sequences
i.e. Where split_ind = 'Y'.
  DELETE purchase_card_tab WHERE split_ind = 'Y'.
ENDFORM.                    " insert_bbkpf_indicators
*EJECT
     Form  display_invalid_records
FORM display_invalid_records.
  WRITE: ' Total No Of Rows Uploaded From Spreadsheet:',
         wa_num_rows_loaded,'   From File : '  ,pa_file.
  WRITE sy-uline.
  SKIP 1.
  FORMAT INTENSIFIED.
  SKIP 1.
  WRITE: /40 'I N V A L I D   D A T A '.
  SKIP 1.
  WRITE:  /3 'Row',
          15 'Error Message',
         100 'Original Data'.
  WRITE:  /2 '------',
          15 '----
         100 '----
  FORMAT INTENSIFIED OFF.
Display contents of all invalid records from the excel spreadsheet
  LOOP AT error_tab INTO error_wa.
    COMPUTE wa_mod = sy-tabix MOD 2.
  Use alternative colours
    IF wa_mod = 0.
      FORMAT COLOR COL_KEY.
    ELSE.
      FORMAT COLOR COL_HEADING.
    ENDIF.
    WRITE:  /3 error_wa-row_num,
            15 error_wa-message,
           100 error_wa-line.
  ENDLOOP.
  SKIP 1.
  FORMAT COLOR COL_NEGATIVE.
  WRITE: ' No. Of Invalid Rows ',         wa_num_of_invalid_rows,
         '       Total No. Errors In Spreadsheet ' ,wa_error_count.
  ULINE.
ENDFORM.                    "display_invalid_records
*EJECT
     Form  create_batch_file
This form will create the text file containing all of the transaction
lines data i.e. BBKPF,BBSEG etc. This text file is then passed to the
SAP standard program RFBIBL00 which will create a batch session.
FORM create_batch_file .
Calculate payroll period
  IF sy-datum+4(2) >= 4.
    wa_period = sy-datum+4(2) - 3.
  ELSE.
    wa_period = sy-datum+4(2) + 9.
  ENDIF.
Todays Date
  CONCATENATE sy-datum+6(2)
              sy-datum+4(2)
              sy-datum+0(4)
      INTO wa_todays_date.
Append Date to File Name i.e. filenameDDMMYYYY
  CONCATENATE c_data_directory
              c_filename
              wa_todays_date
      INTO wa_output_file.
Initialise Accounting Document Work Areas
  PERFORM initialise_structure USING 'BGR00'
                                     'EMPTY_BGR00_RECORD'.
  PERFORM initialise_structure USING 'BBKPF'
                                     'EMPTY_BBKPF_RECORD'.
  PERFORM initialise_structure USING 'BBSEG'
                                     'EMPTY_BBSEG_RECORD'.
Open t