Tuesday, November 16, 2010

Printing Subtotals at the end of an ALV List

Introduction:

The normal ALV list functionality provides for subtotals within the list and one grand total at the end of the report. If it is required to display the subtotals not within the list, but at the end of report the standard ALV functionality does not provide any way to do this. The tip described here caters to this special requirement.

Normal Functionality (provided for in the standard ALV)

Item Heading

Item 1.1

Item 1.2

Item 1.3

Subtotal 1

Item 2.1

Item 2.2

Subtotal 2

Total

Special Requirement (can be achieved using this tip)

Item Heading

Item 1.1

Item 1.2

Item 1.3

Item 2.1

Item 2.2

Subtotal 1 (Success)

Subtotal 2 (Error)

Detail Steps:

Step 1

Define an internal table of type SLIS_T_EVENT, and a work area of type SLIS_ALV_EVENT.

DATA: T_EVENT TYPE SLIS_T_EVENT,
W_EVENT TYPE SLIS_ALV_EVENT.

Step 2

Append AFTER-LINE-OUTPUT event to the internal table T_EVENT.

CLEAR W_EVENT.
W_EVENT-FORM = SLIS_EV_AFTER_LINE_OUTPUT.
W_EVENT-NAME = SLIS_EV_AFTER_LINE_OUTPUT."AFTER_LINE_OUTPUT event
APPEND W_EVENT TO T_EVENT.

Step 3
The subtotals are calculated and displayed in the list from the subroutine AFTER_LINE_OUTPUT, which corresponds to the event AFTER_LINE_OUTPUT. This subroutine uses the parameter P_RS_LINEINFO, which contains settings for each line displayed in the list. The actual subtotal’s output is created using the WRITE and FORMAT statements.
FORM AFTER_LINE_OUTPUT
USING P_RS_LINEINFO TYPE SLIS_LINEINFO.
* Declaration of local variables
DATA: L_SUCCESS TYPE WRBTR, "Total For Successful Entries
L_ERROR TYPE WRBTR, "Total For Unsuccessful Entries
L_COUNT TYPE I. "No. Of lines in table T_OUTPUT
* Getting No. of Lines in the table T_OUTPUT
DESCRIBE TABLE T_OUTPUT LINES L_COUNT.
* Displaying the totals after the last record of the internal
* table T_OUTPUT
IF P_RS_LINEINFO-TABINDEX = L_COUNT.
*   Loop At the internal table T_OUTPUT
LOOP AT T_OUTPUT INTO W_OUTPUT.
      IF W_OUTPUT-SFLAG = C_CHECKED.
"Flag: Indicates error record
*       Calculate total for unsuccessful entries
L_ERROR = L_ERROR + W_OUTPUT-WRBTR.
      ELSE.
*       Calculate total for successful entries
L_SUCCESS = L_SUCCESS + W_OUTPUT-WRBTR.
      ENDIF.
*     Clear workarea W_OUTPUT
CLEAR W_OUTPUT.
    ENDLOOP.
*   Set format for the total line display
ULINE AT (P_RS_LINEINFO-LINSZ). "Dynamic Line Size
    FORMAT INTENSIFIED COLOR COL_TOTAL ON. "Setting the color
"For the total row
"As Yellow
    WRITE : /    SY-VLINE,                 "Vertical Line
TEXT-017, "Caption For Total
"Sum of Successful
"Entries
33 L_SUCCESS, "Total Of Successful
"Entries
C_USD. "Currency Type USD
    POSITION     P_RS_LINEINFO-LINSZ.      "Dynamic Line Size
    WRITE :      SY-VLINE.                 "Vertical Line
    ULINE AT     (P_RS_LINEINFO-LINSZ).    "Dynamic Line Size
    WRITE : /    SY-VLINE ,                "Vertical Line
TEXT-018, "Caption For Total
"Sum of Successful
"Entries
33 L_ERROR, "Total Of Unsuccessful
"Entries
C_USD. "Currency Type USD
    POSITION     P_RS_LINEINFO-LINSZ.      "Dynamic Line Size
    WRITE :      SY-VLINE.                 "Vertical Line
    FORMAT COLOR OFF.                      "Color Setting Off
  ENDIF.
ENDFORM.                                   "AFTER_LINE_OUTPUT

Step 4

The table T_EVENT is passed to the function 'REUSE_ALV_LIST_DISPLAY' while displaying the ALV Report.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = L_REPID "Program Name
IS_LAYOUT = W_LAYOUT "Layout of the Report
IT_FIELDCAT = T_FIELDCAT "Field Catalog for Report
IT_EVENTS = T_EVENT "For setting the events
TABLES
T_OUTTAB = T_OUTPUT "Report data Internal Table
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.

Result:

The rows ‘Sum of Successful Entries’ and ‘Sum of Unsuccessful Entries’, showing total of all the successful (green) entries and total of all the unsuccessful (red) entries respectively, have been added using this method.

Limitations:

  1. The subtotals to be displayed are not calculated by the normal functionality of the ALV, and have to be calculated manually.

  2. If we download the list, the subtotals will not get downloaded.

No comments:

Tutorials on SAP-ABAP

Adobe Interactive Forms Tutorials

Business Server Pages (BSP)

Userexits/BADIs

Web Dynpro for ABAP (Step by step procedure for web dynpro,Tutorials on Web Dynpro,)

ALV Tutorials

Blog Archive

goodsites