Balance Confirmation Report for multiple vendors

Question

Hi all,
I have developed report in FI which gives details about opening balance,fiscal year, document number, posting date and amount in the output.In selection screen I am passing single values of fiscal year(GJAHR), vendor(LIFNR) and company code(BUKLRS). This report is working fine for single vendor but now I need to change it for multiple vendors. I tried but not getting desired result in the output.
Following is code for single vendor in selection screen.
SORT t_bsikbsak BY bukrs belnr gjahr buzei.
  LOOP AT t_bsikbsak.
    t_pre_bal-netpr = t_bsikbsak-dmbtr.
    t_pre_bal-sgtxt = 'Opening Balance'.
    IF t_bsikbsak-shkzg EQ 'H'.
      t_pre_bal-netpr = t_pre_bal-netpr * -1.
    ENDIF.
    COLLECT t_pre_bal.
  ENDLOOP.
  LOOP AT t_pre_bal.
    itab-netpr = t_pre_bal-netpr.
    itab-sgtxt = t_pre_bal-sgtxt.
    APPEND itab.
  ENDLOOP.
SORT t_bseg BY bukrs belnr gjahr buzei.
  CLEAR itab.
  LOOP AT t_bseg.
    ON CHANGE OF t_bseg-bukrs OR t_bseg-belnr OR t_bseg-gjahr.
      READ TABLE t_bkpf WITH KEY bukrs = t_bseg-bukrs
                               belnr = t_bseg-belnr
                               gjahr = t_bseg-gjahr.
      IF sy-subrc IS INITIAL.
        itab-budat = t_bkpf-budat.
        itab-belnr = t_bkpf-belnr.
        itab-gjahr = t_bkpf-gjahr.
      ENDIF.
    ENDON.
    IF t_bseg-koart = 'K' AND t_bseg-lifnr = s_lifnr.
      itab-sgtxt = t_bseg-sgtxt.
     READ TABLE t_bsak WITH KEY bukrs = t_bseg-bukrs
                                belnr = t_bseg-belnr
                                gjahr = t_bseg-gjahr.
      IF t_bseg-shkzg EQ 'H'.
        t_bseg-dmbtr = t_bseg-dmbtr * -1.
      ENDIF.
      itab-netpr = itab-netpr + t_bseg-dmbtr.
    ELSEIF t_bseg-hkont = '0044100040'.  " G/L for INTEREST EXPENSES
      itab-inamt = t_bseg-dmbtr.
    ELSEIF t_bseg-hkont = '0012300060'.  " G/L for TDS ON INTEREST
      itab-tdamt = t_bseg-dmbtr.
    ENDIF.
    AT END OF bukrs.
      append_flag = 'X'.
    ENDAT.
    AT END OF belnr.
      append_flag = 'X'.
    ENDAT.
    AT END OF gjahr.
      append_flag = 'X'.
    ENDAT.
    IF append_flag = 'X'.
      APPEND itab.
      CLEAR itab.
      CLEAR : append_flag.
    ENDIF.
  ENDLOOP.
Closing Balance
  LOOP AT itab.
    t_temp-netpr = itab-netpr.
    t_temp-sgtxt = 'Closing Balance'.
    COLLECT t_temp.
  ENDLOOP.
  CLEAR itab.
  LOOP AT t_temp.
    itab-netpr = t_temp-netpr.
    itab-sgtxt = 'Closing Balance'.
    APPEND itab.
  ENDLOOP.
Kindly provide some input how to do it for multiple vendors in same code otherwise provide some suggestions for new code.
Thanks in Advance.waiting for response.
Thanks & Regards,
Harshada Patil

Answer 1

Hi,
Thanks for quick response.Following is the structure of internal tables which I am using in this program.
TYPES : BEGIN OF ty_bsikbsak ,
        bukrs TYPE bsik-bukrs,
        lifnr TYPE bsik-lifnr,
        umsks TYPE bsik-umsks,
        umskz TYPE bsik-umskz,
        augdt TYPE bsik-augdt,
        augbl TYPE bsik-augbl,
        gjahr TYPE bsik-gjahr,
        belnr TYPE bsik-belnr,
        buzei TYPE bsik-buzei,
        zuonr TYPE bsik-zuonr,
        shkzg TYPE bsik-shkzg,
        dmbtr TYPE bsik-dmbtr,
        END OF ty_bsikbsak.
TYPES : BEGIN OF ty_bkpf ,
        bukrs TYPE bkpf-bukrs,
        belnr TYPE bkpf-belnr,
        gjahr TYPE bkpf-gjahr,
        bldat TYPE bkpf-bldat,
        budat TYPE bkpf-budat,
        stblg TYPE bkpf-stblg,
        stjah TYPE bkpf-stjah,
        END OF ty_bkpf.
TYPES : BEGIN OF ty_bseg ,
        bukrs TYPE bseg-bukrs,
        belnr TYPE bseg-belnr,
        gjahr TYPE bseg-gjahr,
        buzei TYPE bseg-buzei,
        koart TYPE bseg-koart,
        shkzg TYPE bseg-shkzg,
        dmbtr TYPE bseg-dmbtr,
        sgtxt TYPE bseg-sgtxt,
        hkont TYPE bseg-hkont,
        lifnr TYPE bseg-lifnr,
        END OF ty_bseg.
DATA : t_bsik     TYPE TABLE OF ty_bsikbsak WITH HEADER LINE.
DATA : t_bsak     TYPE TABLE OF ty_bsikbsak WITH HEADER LINE.
DATA : t_bsikbsak TYPE TABLE OF ty_bsikbsak WITH HEADER LINE.
DATA : t_bkpf     TYPE TABLE OF ty_bkpf     WITH HEADER LINE.
DATA : t_bkpf2    TYPE TABLE OF ty_bkpf     WITH HEADER LINE.
DATA : wa_bkpf    TYPE ty_bkpf     .
DATA : t_bseg     TYPE TABLE OF ty_bseg     WITH HEADER LINE.
DATA: BEGIN OF t_pre_bal OCCURS 0,
      netpr TYPE bseg-dmbtr,
      sgtxt TYPE bseg-sgtxt,
      lifnr TYPE bseg-lifnr,
      END OF t_pre_bal.
DATA: t_pre_bal1 LIKE t_pre_bal.
DATA: BEGIN OF t_temp OCCURS 0,
      netpr TYPE bseg-dmbtr,
      sgtxt TYPE bseg-sgtxt,
      lifnr TYPE bseg-lifnr,
      END OF t_temp.
DATA: BEGIN OF itab OCCURS 0,
      gjahr LIKE bsik-gjahr,
      belnr LIKE bsik-belnr,
      budat LIKE bkpf-budat,
      sgtxt LIKE bseg-sgtxt,
      lifnr LIKE lfa1-lifnr,
      netpr LIKE bseg-dmbtr,  " Net Amount
      inamt LIKE bseg-dmbtr,  " Interest Amount
      tdamt LIKE bseg-dmbtr,  " TDS Amount
      END   OF itab.
RANGES: r_budat FOR bkpf-budat.
I have Included vendor(LIFNR) in all these structures.Now I am using three internal tables to hold opening balance, Closing balance and line item accounting documents from bseg table respectively.here, I need to collect all these three internal tables into one internal table according to vendor(LIFNR)  with it's opening balance, accounting documents and closing balance. can anyone guide me through this so that I can collect all these three internal tables into single one.
Thanks & Regards,
Harshada Patil
Edited by: Harshada.up on Feb 15, 2011 9:33 AM