Regarding ABAP report

KK,

REPORT zm_vendor_payments LINE-SIZE 255 LINE-COUNT 65.
************************************************************************
** Vendor payment details
**-----------------------
** Amit gujargoud - Inverted Sphere Inc. 2003/03/26
*-----------------------------------------------------------------------
** modification history
** by   date      description
*-----------------------------------------------------------------------
** DO   20031107  include reversal transaction as well. improve
*                 report legibility.
*       20031110  Add drilldown capability
*----------------------------------------------------------------------
* Agujargoud 2007/04.29 - New Client Upgrade.
*---------------------------------------------------------------------
************************************************************************
TABLES: bsik, bsak, bsis, bsas, bseg, ekpo, lfa1.

*-----------------------------------------------------------------------
SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE text-010,
                  SKIP.
SELECT-OPTIONS: s_lifnr FOR bsik-lifnr,
                s_bukrs FOR bsik-bukrs,
                s_budat FOR bsik-budat.
PARAMETERS:     p_grdat LIKE bsik-augdt.
SELECTION-SCREEN: SKIP,
                  END OF BLOCK blk1.

*-----------------------------------------------------------------------
DATA: BEGIN OF i_docs OCCURS 0,
        lifnr LIKE bseg-lifnr,
        hkont LIKE bseg-hkont,
        dmbtr LIKE bsis-dmbtr,
        kostl LIKE bseg-kostl,
        sgtxt LIKE bseg-sgtxt,
        bukrs LIKE bseg-bukrs,
        belnr LIKE bseg-belnr,
        buzei LIKE bseg-buzei,
        blart LIKE bkpf-blart,
        shkzg LIKE bseg-shkzg,
        budat LIKE bkpf-budat,
        augbl LIKE bseg-augbl,
        gjahr LIKE bseg-gjahr,
      END OF i_docs.

DATA: i_revs LIKE i_docs OCCURS 100 WITH HEADER LINE,
      lifnr LIKE i_docs-lifnr,
        bukrs LIKE i_docs-bukrs,
        belnr LIKE i_docs-belnr,
        blart LIKE i_docs-blart,
        hkont LIKE i_docs-hkont,
        dmbtr LIKE i_docs-dmbtr,
        kostl LIKE i_docs-kostl,
        sgtxt LIKE i_docs-sgtxt,
        budat LIKE i_docs-budat,
        total LIKE i_docs-dmbtr,
        gjahr LIKE i_docs-gjahr,
        w_ebeln LIKE ekpo-ebeln,
        w_ebelp LIKE ekpo-ebelp,
        w_zuonr LIKE bseg-zuonr,
        toggle TYPE i VALUE 1.

DATA: v_grir_acct LIKE bsis-hkont,
      v_coa LIKE t001-ktopl.
*-----------------------------------------------------------------------
START-OF-SELECTION.

  CASE sy-mandt.
    WHEN '500'.
      v_coa = 'MACK'.
    WHEN '600'.
      v_coa = 'COA1'.
  ENDCASE.

  SELECT konts FROM t030 INTO v_grir_acct
         WHERE ktopl = v_coa
           AND ktosl = 'WRX'.
  ENDSELECT.

  SELECT hkont dmbtr kostl sgtxt bukrs belnr
         buzei blart shkzg budat augbl gjahr
          FROM bsis
          INTO CORRESPONDING FIELDS OF TABLE i_docs
*                     WHERE hkont = '211200' "goods received w/o invoice
                      WHERE hkont = v_grir_acct
                      AND   bukrs IN s_bukrs
                      AND   budat IN s_budat.
*                      AND   blart = 'WE'.


  SELECT hkont dmbtr kostl sgtxt bukrs belnr
         buzei blart shkzg budat augbl gjahr
          FROM bsas
          APPENDING CORRESPONDING FIELDS OF TABLE i_docs
*                     WHERE hkont = '211200' "goods received w/o invoice
                      WHERE hkont = v_grir_acct
                      AND   bukrs IN s_bukrs
                      AND   budat IN s_budat
*                      AND   blart = 'WE'
                      AND   augdt GE p_grdat.

  LOOP AT i_docs.

    SELECT SINGLE lifnr ebeln ebelp FROM bseg
           INTO (i_docs-lifnr, w_ebeln, w_ebelp)
                              WHERE bukrs = i_docs-bukrs
                              AND   belnr = i_docs-belnr
                              AND   buzei = i_docs-buzei.
    IF i_docs-lifnr IN s_lifnr.
      IF NOT w_ebeln IS INITIAL AND i_docs-sgtxt IS INITIAL.
        SELECT SINGLE txz01 FROM ekpo INTO i_docs-sgtxt
                                WHERE ebeln = w_ebeln
                                AND   ebelp = w_ebelp.
      ENDIF.
      MODIFY i_docs.
    ELSE.
      DELETE i_docs.
    ENDIF.
  ENDLOOP.

  SELECT lifnr hkont dmbtr kostl sgtxt bukrs belnr
         buzei blart shkzg budat augbl gjahr
         FROM bsik
         APPENDING TABLE i_docs
                     WHERE lifnr IN s_lifnr
                     AND   bukrs IN s_bukrs
                     AND   budat IN s_budat
*                     AND   blart IN ('KR', 'RE').
                     AND   blart IN ('KR', 'RE', 'KN', 'RN').

*see if there are reversal documents
  SELECT lifnr hkont dmbtr kostl sgtxt bukrs belnr
         buzei blart shkzg budat augbl gjahr
         FROM bsik
         APPENDING TABLE i_revs
                     WHERE lifnr IN s_lifnr
                     AND   bukrs IN s_bukrs
                     AND   blart IN ('KA').

  SELECT lifnr hkont dmbtr kostl sgtxt bukrs belnr
         buzei blart shkzg budat augbl gjahr
         FROM bsak
         APPENDING TABLE i_docs
                     WHERE lifnr IN s_lifnr
                     AND   bukrs IN s_bukrs
                     AND   budat IN s_budat
*                     AND   blart IN ('KR', 'RE').
                     AND   blart IN ('KR', 'RE', 'KN', 'RN').
* check for reversal
  SELECT lifnr hkont dmbtr kostl sgtxt bukrs belnr
         buzei blart shkzg budat augbl gjahr
         FROM bsak
         APPENDING TABLE i_revs
                     WHERE lifnr IN s_lifnr
                     AND   bukrs IN s_bukrs
                     AND   blart IN ('KA').


  SORT: i_docs BY lifnr bukrs budat hkont,
        i_revs BY lifnr bukrs augbl.

  LOOP AT i_docs.

    toggle = toggle * -1.

    AT NEW lifnr.
      SELECT SINGLE name1 FROM lfa1 INTO lfa1-name1
                          WHERE lifnr = i_docs-lifnr.
      CLEAR total.
    ENDAT.

    IF i_docs-blart = 'KR' OR i_docs-blart EQ 'KN'.
      SELECT SINGLE hkont kostl gjahr FROM bseg
           INTO (i_docs-hkont, i_docs-kostl, i_docs-gjahr)
                              WHERE bukrs = i_docs-bukrs
                              AND   belnr = i_docs-belnr
                              AND   kostl <> ' '.

    ELSEIF i_docs-blart = 'RE' OR i_docs-blart = 'RN'.
      SELECT SINGLE hkont kostl gjahr ebeln ebelp FROM bseg
           INTO (i_docs-hkont, i_docs-kostl, i_docs-gjahr,
                 w_ebeln, w_ebelp)
                              WHERE bukrs = i_docs-bukrs
                              AND   belnr = i_docs-belnr
                              AND   ebeln <> ' '.
      IF NOT w_ebeln IS INITIAL
       AND i_docs-sgtxt IS INITIAL.
        SELECT SINGLE txz01 FROM ekpo INTO i_docs-sgtxt
                                WHERE ebeln = w_ebeln
                                AND   ebelp = w_ebelp.
      ENDIF.
    ENDIF.

    CASE i_docs-shkzg.
      WHEN 'S'.
        i_docs-dmbtr = i_docs-dmbtr * -1.
    ENDCASE.

    lifnr = i_docs-lifnr.
    bukrs = i_docs-bukrs.
    belnr = i_docs-belnr.
    blart = i_docs-blart.
    hkont = i_docs-hkont.
    dmbtr = i_docs-dmbtr.
    kostl = i_docs-kostl.
    sgtxt = i_docs-sgtxt.
    budat = i_docs-budat.
    gjahr = i_docs-gjahr.


    PERFORM print_document USING lifnr lfa1-name1 bukrs belnr blart
                                 hkont dmbtr kostl sgtxt budat gjahr.

    total = total + dmbtr.

    IF i_docs-blart = 'KR' OR i_docs-blart EQ 'KN'.
      READ TABLE i_revs WITH KEY lifnr = i_docs-lifnr
                                 bukrs = i_docs-bukrs
                                 belnr = i_docs-augbl
                                 blart = 'KA'.
      IF sy-subrc EQ 0.
        dmbtr = i_revs-dmbtr * -1.
        lifnr = i_revs-lifnr.
        bukrs = i_revs-bukrs.
        belnr = i_revs-belnr.
        blart = i_revs-blart.
        hkont = i_revs-hkont.
        kostl = i_revs-kostl.
        sgtxt = space.
        budat = i_revs-budat.
        gjahr = i_revs-gjahr.

        PERFORM print_document USING lifnr lfa1-name1 bukrs belnr blart
                                    hkont dmbtr kostl sgtxt budat gjahr.


        total = total + dmbtr.

      ENDIF.
    ENDIF.


    AT END OF lifnr.
      SKIP.
      FORMAT COLOR COL_TOTAL INTENSIFIED.
      WRITE:/ text-011, i_docs-lifnr,
           (14) total UNDER dmbtr.
      SKIP.
      FORMAT RESET.
    ENDAT.

  ENDLOOP.

*-----------------------------------------------------------------------
AT LINE-SELECTION.

  CHECK belnr NE space.

  SET PARAMETER ID: 'BLN' FIELD belnr,"this is your second answer
                    'BUK' FIELD bukrs,
                    'GJR' FIELD gjahr.

  CALL TRANSACTION 'FB03'."this is the way to call transaction for perticuler doc


*---------------------------------------------------------------------*
*       FORM print_document                                           *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM print_document    USING lifnr name1 bukrs belnr blart hkont dmbtr
                       kostl sgtxt budat gjahr.


  IF toggle GT 0.
    FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
  ELSE.
    FORMAT COLOR COL_NORMAL INTENSIFIED ON.
  ENDIF.

  WRITE:/ lifnr,
          name1,
          bukrs,
          belnr COLOR COL_KEY HOTSPOT,
          blart,
      (6) hkont,
     (14) dmbtr,
      (7) kostl,
          sgtxt,
          budat.

  HIDE: belnr, lifnr, bukrs, gjahr.

ENDFORM.