Freezing of totaling row in an ALV report

Hello friends,
I am doing the total of a particular field in an ALV report.The shows a lot of data so we have to scroll down to see the full report. I would like to show the total on first display of the report without scrolling down.It means that I would like to freeze the row showing the total.Is this possible.
Please advice me on this issue.
Regards
Ashish

One way is to implement the END-OF-PAGE event and do the total manually of all items and show the total value in the END-OF-PAGE.
Regards,
Naimesh Patel

Similar Messages

Can we adjust ROW height in ALV report as like of Excel ?

Dear all,
Can we adjust ROW height in ALV report as like of Excel sheet ?
Can we increase/decrease the row height in the output display ?
How ?

kps204020 wrote:
Thanks a lot for your response.
I've tried your proposal, but it has no affect. The report cells show all their content using as much lines as necessary for this.This is the default behaviour for HTML table data (tables and cells expand to fit their content).
So I still have rows with lots of lines and rows with only a few lines mixed in my IR dependant on the cell content. Because some rows filling nearly the whole screen, it is difficult to get an overview with regard to adjacent rows.
I'm using Application Express 4.1.1.00.23. with Theme 21. Scarlet and Firefox 17.0.1.Are all users using Firefox?
Actually I'm working on my first APEX Solution for usage in my company and the customers demanding a solution for this topic . So I'm very keen to find a solution.
I'm very much looking forward to your response.I've been involved with similar issues in the past. My first response is simple: Does this data have to be shown in the report? Can the offending column(s) be removed from the primary report? They will still be visible in the single row view, and the detail view if there is one.
The second option is to create a detail view for the report with a structure that is better suited to the data involved, and make this the default view. (For an example of this, see the treatment of the PRODUCT_DESCRIPTION column in the detail view of the Products report in the Sample Database Application: click on the View Detail button on the Products page.)
The third possibility is some kind of customization of the presentation of the data. This will involve using some combination of HTML/CSS/Dynamic Actions/Plug-ins/JavaScript that you may not be familiar with: do you have experience of these? To go down that route you need to describe in detail how you want to present the data, or what behaviour is required when the data is too long, and share an example of the report on apex.oracle.com that we can work with.

Edit a selected row in an alv report after pressing a push button ?

hi all ,
I want to edit a selected row in an alv report but that too after i press a push button . After pressing the push button , a pop up shud *** showing all the entries of the selected row which shud be editable and after editing it shud be saved into the database table.
How can i do this please help asap ???

May this prog. of mine can solve your requirement.
REPORT z_demo_alv_jg.
TYPE-POOLS                                                          *
TYPE-POOLS: slis.
INTERNAL TABLES/WORK AREAS/VARIABLES                                *
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
      i_index TYPE STANDARD TABLE OF i WITH HEADER LINE,
      w_field TYPE slis_fieldcat_alv,
      p_table LIKE dd02l-tabname,
      dy_table TYPE REF TO data,
      dy_tab TYPE REF TO data,
      dy_line TYPE REF TO data.
FIELD-SYMBOLS                                                       *
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
               <dyn_wa> TYPE ANY,
               <dyn_field> TYPE ANY,
               <dyn_tab_temp> TYPE STANDARD TABLE.
SELECTION SCREEN                                                    *
PARAMETERS: tabname(30) TYPE c,
            lines(5) TYPE n.
START-OF-SELECTION                                                  *
START-OF-SELECTION.
Storing table name
p_table = tabname.
Create internal table dynamically with the stucture of table name
entered in the selection screen
CREATE DATA dy_table TYPE STANDARD TABLE OF (p_table).
ASSIGN dy_table->* TO <dyn_table>.
IF sy-subrc <> 0.
    MESSAGE i000(z_zzz_ca_messages) WITH ' No table found'.
    LEAVE TO LIST-PROCESSING.
ENDIF.
Create workarea for the table
CREATE DATA dy_line LIKE LINE OF <dyn_table>.
ASSIGN dy_line->* TO <dyn_wa>.
Create another temp. table
CREATE DATA dy_tab TYPE STANDARD TABLE OF (p_table).
ASSIGN dy_tab->* TO <dyn_tab_temp>.
SORT i_fieldcat BY col_pos.
Select data from table
SELECT * FROM (p_table)
INTO TABLE <dyn_table>
UP TO lines ROWS.
REFRESH <dyn_tab_temp>.
Display report
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_structure_name         = p_table
      i_callback_user_command = 'USER_COMMAND'
      i_callback_pf_status_set = 'SET_PF_STATUS'
    TABLES
      t_outtab                 = <dyn_table>
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
IF sy-subrc <> 0.
ENDIF.
*&      Form SET_PF_STATUS
      Setting custom PF-Status
     -->RT_EXTAB   Excluding table
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'Z_STANDARD'.
ENDFORM.                    "SET_PF_STATUS
*&      Form user_command
      Handling custom function codes
     -->R_UCOMM      Function code value
     -->RS_SELFIELD Info. of cursor position in ALV
FORM user_command USING    r_ucomm LIKE sy-ucomm
                           rs_selfield TYPE slis_selfield.
Local data declaration
DATA: li_tab TYPE REF TO data,
        l_line TYPE REF TO data.
Local field-symbols
FIELD-SYMBOLS:<l_tab> TYPE table,
                <l_wa> TYPE ANY.
Create table
CREATE DATA li_tab TYPE STANDARD TABLE OF (p_table).
ASSIGN li_tab->* TO <l_tab>.
Create workarea
CREATE DATA l_line LIKE LINE OF <l_tab>.
ASSIGN l_line->* TO <l_wa>.
CASE r_ucomm.
When a record is selected
    WHEN '&IC1'.
    Read the selected record
      READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX
      rs_selfield-tabindex.
      IF sy-subrc = 0.
      Store the record in an internal table
        APPEND <dyn_wa> TO <l_tab>.
      Fetch the field catalog info
        CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
          EXPORTING
            i_program_name         = 'Z_DEMO_PDF_JG'
            i_structure_name       = p_table
          CHANGING
            ct_fieldcat            = i_fieldcat
          EXCEPTIONS
            inconsistent_interface = 1
            program_error          = 2
            OTHERS                 = 3.
        IF sy-subrc = 0.
        Make all the fields input enabled except key fields
          w_field-input = 'X'.
          MODIFY i_fieldcat FROM w_field TRANSPORTING input
          WHERE key IS INITIAL.
        ENDIF.
      Display the record for editing purpose
        CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
          EXPORTING
            i_callback_program    = sy-repid
            i_structure_name      = p_table
            it_fieldcat           = i_fieldcat
            i_screen_start_column = 10
            i_screen_start_line   = 15
            i_screen_end_column   = 200
            i_screen_end_line     = 20
          TABLES
            t_outtab              = <l_tab>
          EXCEPTIONS
            program_error         = 1
            OTHERS                = 2.
        IF sy-subrc = 0.
        Read the modified data
          READ TABLE <l_tab> INDEX 1 INTO <l_wa>.
        If the record is changed then track its index no.
        and populate it in an internal table for future
        action
          IF sy-subrc = 0 AND <dyn_wa> <> <l_wa>.
            <dyn_wa> = <l_wa>.
            i_index = rs_selfield-tabindex.
            APPEND i_index.
          ENDIF.
        ENDIF.
      ENDIF.
When save button is pressed
    WHEN 'SAVE'.
    Sort the index table
      SORT i_index.
    Delete all duplicate records
      DELETE ADJACENT DUPLICATES FROM i_index.
      LOOP AT i_index.
      Find out the changes in the internal table
      and populate these changes in another internal table
        READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX i_index.
        IF sy-subrc = 0.
          APPEND <dyn_wa> TO <dyn_tab_temp>.
        ENDIF.
      ENDLOOP.
    Lock the table
      CALL FUNCTION 'ENQUEUE_E_TABLE'
        EXPORTING
          mode_rstable   = 'E'
          tabname        = p_table
        EXCEPTIONS
          foreign_lock   = 1
          system_failure = 2
          OTHERS         = 3.
      IF sy-subrc = 0.
      Modify the database table with these changes
        MODIFY (p_table) FROM TABLE <dyn_tab_temp>.
        REFRESH <dyn_tab_temp>.
      Unlock the table
        CALL FUNCTION 'DEQUEUE_E_TABLE'
          EXPORTING
            mode_rstable = 'E'
            tabname      = p_table.
      ENDIF.
ENDCASE.
rs_selfield-refresh = 'X'.
ENDFORM.                    "user_command
Regards,
Joy.

To add additonal rows(text) in ALV report

Hi there,
I want to add additional ROWS at the bottom of each grouping.
Right now I am getting customer wise total comission amount but the requirement is on commsion amt ,i need to calculate 10 % tax and 2% tax and these taxes should get genrated below the commsion amt column as like below:
Company code Customer Commsion Amt
2000 101 1000
2000 101 2000
Total Comsion 3000
10% Service Tax 300
2% Edn Tax 6
Total 3306
2000 102 1230
2000 102 678
The output should be like this in ALV report .Could anyone plz help me out on this.
I will really appreciate your help.
Thanks,

Hi Archana,
You can have the subtotal displayed for each company code and commision in the alv.
At end of each comp code and customer , pass the total of the whole amount into a line and you can display a line of this total.
Your alv gets displayed like this .
2000 101 1000
2000 101 2000
Total Comsion 3000
10% Service Tax 300
2% Edn Tax 6
3306
Thanks,
Guru

Row position in alv report

Hi experts....
I want to put data in first row in alv report. I am using reuse_alv_list_display for alv report output.
I used "FIELDCAT_LN-ROW_POS = '1'. '
but it doesn't make any effect in output.
please help me.
thank you.

Hi..
Code is like this...
*& Report Z_MATERIAL_ANALYSIS
Report Z_MATERIAL_ANALYSIS.
TYPE-POOLS: SLIS , VRM.
DATA: G_REPID LIKE SY-REPID,
GS_PRINT            TYPE SLIS_PRINT_ALV,
GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
GT_EVENTS           TYPE SLIS_T_EVENT,
i_sort TYPE slis_t_sortinfo_alv,
gs_layout           TYPE SLIS_LAYOUT_ALV,
GT_FIELDCAT         TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_LN LIKE LINE OF GT_FIELDCAT,
COL_POS TYPE I.
DATA: gs_variant LIKE disvariant,
      g_save.
TABLES : MSEG , MKPF.
DATA : BEGIN OF ITAB1 OCCURS 0,
       601_602 LIKE MSEG-MENGE,
       END OF ITAB1.
DATA : BEGIN OF ITAB OCCURS 0,
        LGORT LIKE MSEG-LGORT,
        BWART LIKE MSEG-BWART,
        ZEILE LIKE MSEG-ZEILE,
        MENGE LIKE MSEG-MENGE,
        MEINS LIKE MSEG-MEINS,
        MATNR LIKE MSEG-MATNR,
        WERKS LIKE MSEG-WERKS,
        SHKZG LIKE MSEG-SHKZG,
        MBLNR LIKE MKPF-MBLNR,
        BUDAT LIKE MKPF-BUDAT,
        SIGN(2),
        101_102 LIKE MSEG-MENGE,
        301 LIKE MSEG-MENGE,
        311 LIKE MSEG-MENGE,
        321 LIKE MSEG-MENGE,
        601_602 LIKE MSEG-MENGE,
        641_642 LIKE MSEG-MENGE,
        653 LIKE MSEG-MENGE,
        671 LIKE MSEG-MENGE,
        END OF ITAB.
DATA: TOTAL_PLUS,
      TOTAL_MINUS,
      TOTAL.
SELECT-OPTIONS : MATNR FOR MSEG-MATNR,
                 DAT FOR MKPF-BUDAT.
PARAMETERS :     LGORT LIKE MSEG-LGORT,
                 WERKS LIKE MSEG-WERKS,
                 BWART LIKE MSEG-BWART.
SELECT MSEG~MATNR
       MSEG~LGORT
       MSEG~BWART
       MSEG~ZEILE
      MSEG~MENGE
       MSEG~MEINS
       MSEG~WERKS
       MSEG~SHKZG
       MKPF~MBLNR
       MKPF~BUDAT
       INTO CORRESPONDING FIELDS OF TABLE ITAB
       FROM MSEG
       INNER JOIN MKPF ON MSEGMBLNR = MKPFMBLNR
       WHERE MSEG~MATNR IN MATNR
       AND MSEG~LGORT EQ LGORT
       AND MKPF~BUDAT IN DAT
       AND MSEG~WERKS EQ WERKS.
*LOOP AT ITAB.
*IF ITAB-BWART EQ
*WRITE : / 'MATNR', 10 'LGORT',20 'BWART', 30 'ZEILE',40 'MENGE',50
*'101102', 60
*'MEINS', 70 'MBLNR', 80 'BUDAT'.
LOOP AT ITAB.
IF ITAB-BWART = '101' OR ITAB-BWART = '102'.
SELECT MENGE INTO (ITAB-101_102) FROM MSEG WHERE MATNR = ITAB-MATNR
AND MBLNR = ITAB-MBLNR
AND LGORT = ITAB-LGORT
AND WERKS = ITAB-WERKS
AND ZEILE = ITAB-ZEILE.
MODIFY ITAB.
ENDSELECT.
ENDIF.
IF ITAB-BWART = '601' OR ITAB-BWART = '602'.
SELECT MENGE INTO (ITAB-601_602) FROM MSEG WHERE MATNR = ITAB-MATNR
AND MBLNR = ITAB-MBLNR
AND LGORT = ITAB-LGORT
AND WERKS = ITAB-WERKS
AND ZEILE = ITAB-ZEILE.
AND BWART IN ('601','602').
MODIFY ITAB.
ENDSELECT.
ENDIF.
IF ITAB-BWART = '641' OR ITAB-BWART = '642'.
    SELECT MENGE INTO CORRESPONDING FIELDS OF TABLE ITAB1 FROM MSEG
WHERE MATNR = ITAB-MATNR
    AND MBLNR = ITAB-MBLNR
AND LGORT = ITAB-LGORT
AND WERKS = ITAB-WERKS
AND ZEILE = ITAB-ZEILE.
MODIFY ITAB.
ENDSELECT.
ENDIF.
ENDLOOP.
LOOP AT ITAB.
IF ITAB-SHKZG = 'H'.
ITAB-SIGN = '+'.
    MODIFY ITAB.
ELSE.
ITAB-SIGN = '-'.
MODIFY ITAB.
ENDIF.
ENDLOOP.
*LOOP AT ITAB.
*WRITE : /
ITAB-MATNR,
         ITAB-LGORT,
         ITAB-BWART,
         ITAB-ZEILE,
         ITAB-MENGE,
         ITAB-TOT ,
         ITAB-101_102,
         ITAB-SIGN,
         ITAB-601_602.
         ITAB-SIGN.
         ITAB-MEINS,
         ITAB-MBLNR,
         ITAB-BUDAT,
         ITAB-SHKZG.
*AT LAST.
*SUM.
*WRITE : / ITAB-101_102.
*ENDAT.
*ENDLOOP.
PERFORM BUILD.
PERFORM CALL_ALV.
FORM BUILD.
DATA: FIELDCAT_IN TYPE SLIS_FIELDCAT_ALV.
REFRESH GT_FIELDCAT.
*CLEAR GT_FIELDCAT.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-FIELDNAME = '101_102'.
FIELDCAT_LN-TABNAME   = 'ITAB'.
FIELDCAT_LN-ROW_POS = '1'.
FIELDCAT_LN-COL_POS = '1'.
APPEND FIELDCAT_LN TO GT_FIELDCAT.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-FIELDNAME = '301 '.
FIELDCAT_LN-TABNAME   = 'ITAB'.
FIELDCAT_LN-NO_OUT    = 'X'.
FIELDCAT_LN-SELTEXT_L = 'Description'.
FIELDCAT_LN-OUTPUTLEN = 22.
FIELDCAT_LN-DO_SUM        = 'X'.   "SUM UPON DISPLAY
APPEND FIELDCAT_LN TO GT_FIELDCAT.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-FIELDNAME = '601_602'.
FIELDCAT_LN-TABNAME   = 'ITAB1'.
FIELDCAT_LN-ROW_POS = '1'.
FIELDCAT_LN-COL_POS = '1'.
*FIELDCAT_LN-NO_OUT    = 'X'.
FIELDCAT_LN-SELTEXT_L = 'Base qty'.
FIELDCAT_LN-NO_ZERO = 'X'.
FIELDCAT_LN-just = 'C'.
*FIELDCAT_LN-DO_SUM        = 'X'.   "SUM UPON DISPLAY
APPEND FIELDCAT_LN TO GT_FIELDCAT.
g_repid = sy-repid.
    gs_variant-report = g_repid.
    g_save           = 'A'.
ENDFORM.
FORM EVENTTAB_BUILD CHANGING LT_EVENTS TYPE SLIS_T_EVENT.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
*GC_FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = LT_EVENTS.
READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO LT_EVENTS.
ENDIF.
ENDFORM.
FORM CALL_ALV.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_STRUCTURE_NAME = 'ITAB'
IS_LAYOUT = gs_layout
i_save                            = g_save
is_variant                        = gs_variant
IT_FIELDCAT = GT_FIELDCAT[]
   IT_SORT = I_SORT
    IT_EVENTS = GT_EVENTS[]
    IS_PRINT = GS_PRINT
TABLES
T_OUTTAB = ITAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM.

Adding/Enabling Totals & Subtotals Button in ALV Report Output

Hi Guys,
I would like to know , how to add / enable Totals & Subtotals Button on the application tool bar in alv report output.
Regards,
Kishan

ok so here i am sending my code....its also interactive...
and in second list i am displaying quantity....
*& Report ZINT_ALV
REPORT zint_alv.
TYPE-POOLS:slis.
TABLES:mara,
       makt,
       mseg.
DATA:BEGIN OF itab OCCURS 0,
      matnr LIKE mara-matnr,
      maktx LIKE makt-maktx,
     END OF itab.
DATA:BEGIN OF itab1 OCCURS 0,
      mblnr LIKE mseg-mblnr,
      menge LIKE mseg-menge,
      meins LIKE mseg-meins,
      werks LIKE mseg-werks,
     END OF itab1.
DATA:fcat TYPE slis_t_fieldcat_alv,
     fcat1 TYPE slis_t_fieldcat_alv,
     eve TYPE slis_t_event,
     eve1 TYPE slis_t_event.
DATA:t_mat LIKE mara-matnr,
     s_mat LIKE mara-matnr,
     g_repid LIKE sy-repid.
SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:mat FOR mara-matnr OBLIGATORY.
SELECTION-SCREEN:END OF BLOCK blk1.
INITIALIZATION.
PERFORM build_fcat USING fcat.
PERFORM build_eve.
START-OF-SELECTION.
PERFORM get_data.
PERFORM dis_data.
*&      Form build_fcat
      text
     -->T_FCAT     text
FORM build_fcat USING t_fcat TYPE slis_t_fieldcat_alv.
DATA:wa_fcat TYPE slis_fieldcat_alv.
wa_fcat-tabname = 'ITAB'.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-ref_fieldname = 'MATNR'.
wa_fcat-ref_tabname = 'MARA'.
wa_fcat-seltext_m = 'Material'.
wa_fcat-input = ' '.
wa_fcat-edit = 'X'.
wa_fcat-input = 'X'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
wa_fcat-tabname = 'ITAB'.
wa_fcat-fieldname = 'MAKTX'.
wa_fcat-seltext_m = 'Description'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
ENDFORM.                    "build_fcat
*&      Form build_eve
      text
FORM build_eve.
DATA:t_eve TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     i_list_type           = 0
   IMPORTING
     et_events             = eve
EXCEPTIONS
LIST_TYPE_WRONG       = 1
OTHERS                = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    "build_eve
*&      Form get_data
      text
FORM get_data.
SELECT maramatnr maktmaktx INTO CORRESPONDING FIELDS OF TABLE itab
FROM mara INNER JOIN makt
ON maramatnr = maktmatnr
WHERE mara~matnr IN mat.
ENDFORM.                    "get_data
*&      Form dis_data
      text
FORM dis_data.
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = g_repid         "'ZINT_ALV'
     i_callback_user_command           = 'USER_COMMAND'
     i_grid_title                      = 'Interactive ALV'
     it_fieldcat                       = fcat
     it_events                         = eve
    TABLES
      t_outtab                          = itab
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    "dis_data
*&      Form user_command
      text
     -->U_COM      text
FORM user_command USING u_com LIKE sy-ucomm sel_field TYPE slis_selfield.
CLEAR fcat1.
CASE u_com.
    WHEN '&IC1'.
      READ TABLE itab INDEX sel_field-tabindex.
      IF sel_field-fieldname = 'MATNR'.
        IF sy-subrc = 0.
          t_mat = itab-matnr.
          PERFORM build_cat1 USING fcat1.
          PERFORM build_eve1.
          PERFORM get_data1.
          PERFORM dis_data1.
        ENDIF.
      ENDIF.
     SET PARAMETER ID 'MAT' FIELD t_mat.
     CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.                    "user_command
*&      Form build_fcat1
      text
     -->T_FCAT1    text
FORM build_cat1 USING t_fcat1 TYPE slis_t_fieldcat_alv.
DATA:wa_fcat1 TYPE slis_fieldcat_alv.
wa_fcat1-tabname = 'ITAB1'.
wa_fcat1-fieldname = 'MBLNR'.
wa_fcat1-seltext_m = 'Material Doc.'.
APPEND wa_fcat1 TO t_fcat1.
CLEAR wa_fcat1.
wa_fcat1-tabname = 'ITAB1'.
wa_fcat1-fieldname = 'MENGE'.
wa_fcat1-seltext_m = 'Quantity'.
APPEND wa_fcat1 TO t_fcat1.
CLEAR wa_fcat1.
wa_fcat1-tabname = 'ITAB1'.
wa_fcat1-fieldname = 'MEINS'.
wa_fcat1-seltext_m = 'UOM'.
APPEND wa_fcat1 TO t_fcat1.
CLEAR wa_fcat1.
wa_fcat1-tabname = 'ITAB1'.
wa_fcat1-fieldname = 'WERKS'.
wa_fcat1-seltext_m = 'Plant'.
APPEND wa_fcat1 TO t_fcat1.
CLEAR wa_fcat1.
ENDFORM.                    "build_fcat1
*&      Form build_eve1
      text
FORM build_eve1.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = eve1
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                                                    "build_eve1
*&      Form get_data1
      text
FORM get_data1.
SELECT mblnr menge meins werks FROM mseg
INTO CORRESPONDING FIELDS OF TABLE itab1
WHERE matnr = t_mat.
ENDFORM.                                                    "get_data1
*&      Form dis_data1
      text
FORM dis_data1.
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = g_repid              "'ZINT_ALV'
     i_callback_user_command           = 'USER_COMMAND1'
     it_fieldcat                       = fcat1
     it_events                         = eve1
    TABLES
      t_outtab                          = itab1
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                                                    "dis_data1

Freezing columns and rows in an Interactive Report

version 3.2.1
Hello,
How can I freeze columns and/or rows in an Interactive Report so they don't scroll off the screen?
Thanks,
Joe

In the header html, enter the following
freeze(rownum=>1,degree=-100,scale=centigrade);

How to preselect all rows before displaying ALV report

I would like to select all rows before sending ALV Grid Display. User then can unselect couple of rows for further processing. How do I do that ?. Im using Method grid1->SET_TABLE_FOR_FIRST_DISPLAY for ALV Report Display. Any help appreciated.

Ok,
I've started the editor and check my code. I made few small mistakes (like with this exporting/importing), here's the sample - correctly working - code:
DATA: it_selected TYPE lvc_t_row,
      wa_selected TYPE lvc_s_row,
      wa_sflight TYPE sflight,
      ltp_layout TYPE lvc_s_layo.
     SELECT *
       FROM sflight
       INTO TABLE gi_sflight.
ltp_layout-stylefname = 'CELLTAB'.
ltp_layout-sel_mode = 'A'.
LOOP AT gi_sflight INTO wa_sflight.
      wa_selected-index = sy-tabix.
      APPEND wa_selected TO it_selected.
ENDLOOP.
*   * Load data into the grid and display them
     CALL METHOD go_grid->set_table_for_first_display
       EXPORTING i_structure_name = 'SFLIGHT'
                 is_layout            = ltp_layout
                 i_save = 'A'
       CHANGING it_outtab        = gi_sflight.
CALL METHOD go_grid->set_selected_rows
      EXPORTING
        it_index_rows = it_selected.
This time it is 100% correct.
Edited by: Marcin Cudo on Apr 11, 2010 2:13 AM

Total Rows returned in interactive report

Hi
I have an interactive report that displays a warning message if more than 200 rows are returned. Is there anything within APEX that tells me the exact number of rows returned in my report, or at the very least if my report has exceeded my 200 row limit?
I have a button on my page that I only want to display if the number of rows returned in my query is <= 200.
I know that I could use say NDS to execute my select statement in order to determine the number of rows as a seperate statement - but this seems a bit of over-kill.
Many thanks
Paul

M Tajuddin wrote:
Hi Paul,
You can change the this from report attributes. Click on Edit page >> click on the Interactive report >> click on Report Attributes on the top >> down the bottom there is an option where you can change the row numbers and error message etc.
Hope this helps,
M Tajuddin
http://tajuddin.whitepagesbd.com
Hi
I dont want to modify the number of rows returned. I just want to know how many rows are returned so that I can display or hide a button.
Thanks
Paul

Color the sub-total row in an alv-grid

Hi all.
I work on SAP 4.7 WAS6.20 and output a table with the cl_gui_alv_grid. I´m able to color special rows (or columns) in the alv grid. But I want to color individually the sub-total lines (like the lines before) and don´t want the yellow color for all of the sub-total lines.
Do you know how to color the sub-total-lines?
Thanks a lot.
Michael

Hi,
U can color an individula row see the link below
Color a line
The steps for coloring a line i the grid is much the same as making a traffic light.
* To color a line the structure of the table must include a Char 4 field for color properties
TYPES: BEGIN OF st_sflight.
        INCLUDE STRUCTURE zsflight.
*       Field for line color
types: line_color(4) type c.
TYPES: END OF st_sflight.
TYPES: tt_sflight TYPE STANDARD TABLE OF st_sflight.
DATA: gi_sflight TYPE tt_sflight.
* Loop trough the table to set the color properties of each line. The color properties field is
* Char 4 and the characters is set as follows:
* Char 1 = C = This is a color property
* Char 2 = 6 = Color code (1 - 7)
* Char 3 = Intensified on/of = 1 = on
* Char 4 = Inverse display = 0 = of
     LOOP AT gi_sflight INTO g_wa_sflight.
      IF g_wa_sflight-paymentsum < 100000.
        g_wa_sflight-line_color    = 'C610'.
      ENDIF.
      MODIFY gi_sflight FROM g_wa_sflight.
    ENDLOOP.
* Name of the color field
gs_layout-info_fname = 'LINE_COLOR'.
* Grid setup for first display
CALL METHOD go_grid->set_table_for_first_display
      EXPORTING i_structure_name = 'SFLIGHT'
                             is_layout                = gs_layout
      CHANGING it_outtab                 = gi_sflight
see the link
http://www.sapgenie.com/abap/controls/alvgrid.htm

How to create a grand total row wise in obiee reports

Hello every one,
Can any one please suggest me how can I achieve the below scenario
Presently I have
Total_bill_to_client Total wip_to_bill total_realization_amount total_carry_forwardamount
123334523234.00 4532423334.00 5324323234343434.00 3243242324324343324.00
I want this to be displayed in PIE graph,but before that I need to change the format, can you help me how to get this.
Total_bill_to_client 123334523234.00
Total_wip_to_bill 4532423334.00
total_realization_amount 5324323234343434.00
total_carry_forwardamount 3243242324324343324.00
Help me.
Thanks,
Ven
Edited by: 991688 on Mar 15, 2013 11:04 AM

Is'nt there any dimension in your analysis here .? I see only measures but what are you asking OBIEE to base its pie and slices on to show the Pie Graph?
Let us know.
Thanks,
SVS

Quantity fields not getting displayed in the second total row

Hi,
As per the requirement I have to display 2 total rows for an ALV report using CL_GUI_ALV_GRID. I am able to get the first total row properly using method get_subtotal(). However for the next total row only the character fields are getting displayed and the quantity fields are coming blank.
The second total row will have different values based on a formula.
Please help me out in resolving the issue.
Thanks,
Abhishek

You can provide first row as the SUBTOTAL and next row as the TOTAL.
Get one extra column on which you can do the SUBTOTAL.
Regards,
Naimesh Patel

Add a row after Total row in ALV report

Hi Experts,
I have a report is displayed by ALV format(not use function module to display it but use Class cl_gui_custom_container),I want to add a row after the total row. for example,
Customer   amount1    amount2    amount3
10000         1,234        1,000         2,000
10001         4,000        2,000         1,000
10002         1,300        1,000         3,000
11000         1,200        4,000         3,000
     Total:     7,734        8,000         9,000
Ratio%        31.27       32.34          36.39
the row of 'Total' is calculated by fieldcat-do_sum = 'X' But after the Total row we need a Ratio row to display the ratio. Yes we can calculate the total amout and ratio and then append it into the output itab, but we don't like this solution.We want to keep the total function in the ALV report.Any experts can poit me a direction. Thanks in advance.
Joe

Djoe,
First you need to handle the user command,in order to capture the button action. For this you need to implment a class, i am attaching sample codes here
In top include write the following code
CLASS lcl_event_handler DEFINITION .
PUBLIC SECTION .
    METHODS:
     handle_toolbar FOR EVENT toolbar                   " To add new functional buttons to the ALV toolbar
                     OF        cl_gui_alv_grid
                     IMPORTING e_object,
     handle_user_command FOR EVENT user_command          " To implement user commands
                        OF cl_gui_alv_grid
                        IMPORTING e_ucomm .
PRIVATE SECTION.
ENDCLASS.                                               " Lcl_event_handler DEFINITION
Now   <b>Class implementation</b>
CLASS lcl_event_handler IMPLEMENTATION .
METHOD handle_toolbar.                                " Handle Toolbar
    PERFORM f9500_handle_toolbar USING e_object.
ENDMETHOD .                                            " Handle_toolbar
METHOD handle_user_command .                          " Handle User Command
    PERFORM f9600_handle_user_command USING e_ucomm .
ENDMETHOD.
ENDCLASS .                                              " lcl_event_handler IMPLEMENTATION
FORM f9600_handle_user_command USING p_e_ucomm TYPE sy-ucomm.
CONSTANTS:c_newl(4) TYPE c
                      VALUE 'NEWL',               " New line
            c_copy(4) TYPE c
                      VALUE 'COPY',               " Copy
            c_corr(4) TYPE c
                      VALUE 'CORR'.               " Correction
CASE p_e_ucomm .
    WHEN c_newl.
Create a new line
      PERFORM f9610_insert_new_line.
ENDFORM.                                          " f9600_handle_user_command
FORM f9610_insert_new_line .
*Data Declarations
DATA: lt_rows     TYPE lvc_t_row,                 " Itab for row property
        ls_rows     TYPE lvc_s_row,                 " Work area for row
        lv_cntid    TYPE i.                         " Counter
DATA: gv_index TYPE sy-index.
CLEAR gs_last.
CALL METHOD gr_alvgrid->get_selected_rows
    IMPORTING
      et_index_rows = lt_rows.
READ TABLE lt_rows INTO ls_rows INDEX 1.
IF sy-subrc EQ 0.
    gv_index = ls_rows-index + 1.
ELSE.
    gv_index = 1.
ENDIF.
DESCRIBE TABLE gt_last LINES lv_cntid.
lv_cntid = lv_cntid + 1.
gs_last-cntid = lv_cntid.
INSERT gs_last INTO gt_last INDEX gv_index.
LOOP AT gt_last INTO gs_last FROM gv_index TO gv_index.
Make the new line editable
    PERFORM f9611_style.
ENDLOOP.
CALL METHOD gr_alvgrid->refresh_table_display
    EXCEPTIONS
      finished = 1
      OTHERS   = 2.
ENDFORM.                    " f9610_insert_new_line
You can ask questions doubts if any!
regards
Antony Thomas

Count of rows in ALv report

Hi!
I would like to get the count of rows in my ALV report . How to get the count of the rows ? Can anyone guide me in getting it dome please.
Thanks

Hi Gaddemmedi!
I am attaching the report as you had asked for. I have added the things you asked me to do and now I am getting the count on the top of the page. The problem is that though it shows me the count of the lines from the LAV report on top but when I try to filter the records in the report that count first of all dosent change and remain the same as the initial number of record though after filtering records reduce and over that the count lines keep on increasing I mean the count is shown in repeated lines afet lines. Kindly help please.
Thanks
*& Report ZSD_BILLING_HDR_TEXT_sum                                       *
*&         billing doc. and associated header text report              *
*&                            CHANGE LOG                               *
*& jpoon 2007.08.03                  Change request: DEVK905095        *
*& Move request: SD_1451_01          Requestor: Mona Fox               *
*& FP14134 - original code.                                            *
REPORT zsd_billing_hdr_text_sum MESSAGE-ID zsd NO STANDARD PAGE HEADING.
* For ALV usage
TYPE-POOLS: slis.
DATA: gs_layout   TYPE slis_layout_alv,
      tp_print    TYPE slis_print_alv,
      gt_sort     TYPE slis_t_sortinfo_alv,
      gt_events   TYPE slis_t_event,
      t_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      repid       TYPE syrepid,               " ABAP Program.
      gt_list_top_of_page TYPE slis_t_listheader,     " Top of page text.
      alv_variant   TYPE disvariant," Customize Disp. Variant
      w_event type slis_alv_event.
DATA: w_field    TYPE slis_fieldcat_alv.
TABLES: vbrk, vbrp, vbpa.
DATA SLIS_EV_AFTER_OUTPUT.
data: gs_list_top_of_page type slis_listheader.
*data: gt_list_top_of_page type slis_t_listheader.
* Definition of selection screen                                       *
*   By plant, storage location, sold-to customers, material and        *
*   posting date of the sales orders                                   *
SELECTION-SCREEN BEGIN OF BLOCK one WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_vbeln FOR vbrk-vbeln,      " billing doc.
                s_kunnr FOR vbpa-kunnr,      " bill-to customer number.
                s_werks FOR vbrp-werks,      " line item plant.
                s_fkdat FOR vbrk-fkdat,      " billing date.
                s_fkart FOR vbrk-fkart,      " billing type.
                s_vkorg FOR vbrk-vkorg.      " sales org.
PARAMETERS:     p_hold   AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK one.
* ALV display layout
SELECTION-SCREEN BEGIN OF BLOCK layout WITH FRAME TITLE text-003.
PARAMETERS: pa_vari TYPE slis_vari DEFAULT ' '. " Display variant.
SELECTION-SCREEN END OF BLOCK layout.
* Data Definitions                                                     *
* Storing Extracted Info.
TYPES: BEGIN OF t_extract,
         vbeln        TYPE vbeln_vf,   " Sales order number.
         posnr        TYPE posnr,      " line item
         fkart        TYPE fkart,      " billing type.
         vtext        TYPE BEZEI20,    " billing type description.
         fkdat        TYPE fkdat,      " billing date.
         werks        TYPE werks_d,    " line item plant.
         werks_name1 TYPE name1,      " plant description.
         kunnr        TYPE kunnr,      " bill-to customer.
         kunnr_name1 TYPE name1_gp,   " bill-to description.
         netwr        TYPE netwr,      " net value,invoice total $
         zzflag       TYPE boolean,    " hold indicator
         zzreason     TYPE char30,     " header text2 (reason)
         zzuser       TYPE ernam,      " last changed by
         zz_changed_date TYPE dats,    " last changed date
         zz_changed_time TYPE tims,    " last changed time
        END OF t_extract.
DATA: it_extract TYPE TABLE OF t_extract WITH HEADER LINE,
      it_extract2 TYPE TABLE OF t_extract WITH HEADER LINE.
DATA: it_text TYPE TABLE OF tline WITH HEADER LINE.
DATA: wa_thead type thead.
DATA: w_tdname type TDOBNAME.
DATA: L_COUNT TYPE I.
* initialization
INITIALIZATION.
gs_layout-colwidth_optimize = 'X'.
tp_print-no_print_listinfos = 'X'.
tp_print-no_coverpage = 'X'.
PERFORM set_fieldcat.
PERFORM alv_eventtab_build USING:
**    Event name     Form to execute     Event internal table
   'TOP_OF_PAGE' 'TOP_OF_PAGE'       gt_events[].
* Dropdown list for all created ALV layouts, global or user-specific
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_vari.
PERFORM alv_variant_f4 CHANGING pa_vari.
* Main BODY of processing logic
START-OF-SELECTION.
IF s_vbeln IS INITIAL
AND s_kunnr IS INITIAL
AND s_werks IS INITIAL
AND s_fkdat IS INITIAL
AND s_fkart IS INITIAL
AND s_vkorg IS INITIAL.
     MESSAGE i000 WITH text-037 ' ' ' ' ' '.
ELSE.
    PERFORM extract_data.
ENDIF.
END-OF-SELECTION.
IF it_extract2[] IS INITIAL.
    MESSAGE i000 WITH text-002 ' ' ' ' ' '.
ELSE.
* Build headings for report.
*    PERFORM build_top_of_page USING gt_list_top_of_page[].
* describe table it_extract2 lines l_count.
*write :/ 'TOTAL NO OF ENTRIES', SY-VLINE, 32 L_COUNT.
      PERFORM call_alv.
*write :/ 'TOTAL NO OF ENTRIES', SY-VLINE, 32 L_COUNT.
ENDIF.
*&      Form EXTRACT_KEY_DATA
* Retreive the data for the report.
FORM extract_data.
CLEAR: it_extract. REFRESH: it_extract.
* read and select billing documents
IF p_hold IS INITIAL.
    SELECT vbrk~vbeln vbrk~fkart vbrk~fkdat vbrk~netwr
           vbrk~zzflag vbrk~zzreason vbrk~zzuser
           vbrk~zz_changed_date vbrk~zz_changed_time
           vbrp~posnr vbrp~werks
      INTO CORRESPONDING FIELDS OF TABLE it_extract
      FROM vbrk INNER JOIN vbrp ON
           vbrk~vbeln = vbrp~vbeln
     WHERE vbrk~vbeln IN s_vbeln
       AND vbrk~fkart IN s_fkart
       AND vbrk~fkdat IN s_fkdat
       AND vbrk~vkorg IN s_vkorg
       AND vbrk~fksto NE 'X'
       AND vbrp~werks IN s_werks.
ELSE.
* read 'held' documents only as per selection
    SELECT vbrk~vbeln vbrk~fkart vbrk~fkdat vbrk~netwr
           vbrk~zzflag vbrk~zzreason vbrk~zzuser
           vbrk~zz_changed_date vbrk~zz_changed_time
           vbrp~posnr vbrp~werks
      INTO CORRESPONDING FIELDS OF TABLE it_extract
      FROM vbrk INNER JOIN vbrp ON
           vbrk~vbeln = vbrp~vbeln
     WHERE vbrk~vbeln IN s_vbeln
       AND vbrk~fkart IN s_fkart
       AND vbrk~fkdat IN s_fkdat
       AND vbrk~vkorg IN s_vkorg
       AND vbrk~fksto NE 'X'
       AND vbrk~zzflag = 'X'
       AND vbrp~werks IN s_werks.
ENDIF.
IF sy-subrc <> 0.
    MESSAGE i000 WITH text-002 ' ' ' ' ' '.
ENDIF.
CHECK sy-subrc = 0.
* only need first line item for this report.
SORT it_extract BY vbeln posnr.
DELETE ADJACENT DUPLICATES FROM it_extract COMPARING vbeln.
LOOP AT it_extract.
* Retrieve and select by sales order bill-to on header level
* as well as lookup bill-to customer name/description
    SELECT SINGLE kunnr FROM vbpa INTO it_extract-kunnr
     WHERE vbeln = it_extract-vbeln
       AND posnr = '000000'
       AND parvw = 'RE'.
    IF it_extract-kunnr IN s_kunnr.
      it_extract-kunnr_name1 = zcl_kna1=>get_name1( it_extract-kunnr ).
    ELSE.
      DELETE it_extract.
      CONTINUE.
    ENDIF.
* lookup billing type description
    SELECT SINGLE vtext FROM tvfkt
      INTO it_extract-vtext
     WHERE spras = sy-langu
       AND fkart = it_extract-fkart.
    IF sy-subrc <> 0.
      clear it_extract-vtext.
    ENDIF.
* lookup plant description
    SELECT SINGLE name1 FROM t001w
      INTO it_extract-werks_name1
     WHERE werks = it_extract-werks.
    IF sy-subrc <> 0.
      clear it_extract-werks_name1.
    ENDIF.
    MOVE-CORRESPONDING it_extract TO it_extract2.
    APPEND it_extract2.
   ENDLOOP.
describe table it_extract2 lines l_count.
ENDFORM.                    " EXTRACT_DATA
*&      Form SET_FIELDCAT
* Create the field catalogue.
FORM set_fieldcat .
*CLEAR W_EVENT.
*W_EVENT-FORM = SLIS_EV_AFTER_OUTPUT.
*W_EVENT-NAME = SLIS_EV_AFTER_LINE_OUTPUT.
*APPEND W_EVENT TO GT_EVENTS.
CLEAR w_field.
CLEAR t_fieldcat. REFRESH t_fieldcat.
w_field-col_pos = 1.
w_field-fieldname = 'ZZFLAG'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Hold Printing'(005).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 2.
w_field-fieldname = 'ZZREASON'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Reason'(036).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 3 .
w_field-fieldname = 'VBELN'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Billing Doc'(028).
w_field-emphasize = 'X'.
w_field-hotspot   = 'X'.
APPEND w_field TO t_fieldcat.
CLEAR w_field.
w_field-col_pos = 4 .
w_field-fieldname = 'VTEXT'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Type Description'(030).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 5 .
w_field-fieldname = 'FKDAT'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Billing Date'(031).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 6 .
w_field-fieldname = 'WERKS'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Plant'(012).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 7 .
w_field-fieldname = 'WERKS_NAME1'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Plant Description'(032).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 8.
w_field-fieldname = 'KUNNR'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Bill-to Customer'(033).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 9 .
w_field-fieldname = 'KUNNR_NAME1'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Bill-to Description'(034).
w_field-emphasize = 'X'.
w_field-hotspot   = 'X'.
APPEND w_field TO t_fieldcat.
CLEAR w_field.
w_field-col_pos = 10 .
w_field-fieldname = 'NETWR'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Invoice Amount'(035).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 11 .
w_field-fieldname = 'ZZUSER'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Changed By'.
APPEND w_field TO t_fieldcat.
w_field-col_pos = 12 .
w_field-fieldname = 'ZZ_CHANGED_DATE'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Last Changed Date'(006).
APPEND w_field TO t_fieldcat.
w_field-col_pos = 13 .
w_field-fieldname = 'ZZ_CHANGED_TIME'.
w_field-tabname = 'IT_EXTRACT2'.
w_field-seltext_l = 'Last Changed Time'(007).
APPEND w_field TO t_fieldcat.
* W_event-NAME = slis_ev_end_of_list.
* W_event-FORM = 'END_OF_LIST'.
* APPEND W_event TO GT_EVENTS.
* CLEAR W_event .
* w_field-col_pos = 14 .
* w_field-fieldname = 'COUNT'.
* w_field-tabname = 'IT_EXTRACT2'.
* w_field-seltext_l = 'COUNT'.
* APPEND w_field TO t_fieldcat.
ENDFORM.                    " SET_FIELDCAT
*&      Form CALL_ALV
* Call the ALV Grid function.
FORM call_alv .
SORT it_extract BY vbeln.
* repid is necessary since the ALV F.M. does not work properly with
* sy-repid.
repid = sy-repid.
alv_variant-variant = pa_vari.
alv_variant-report   = sy-repid.
alv_variant-username = sy-uname.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = repid
      i_callback_user_command = 'USER_COMMAND'
      is_layout               = gs_layout
      it_fieldcat             = t_fieldcat[]
      it_sort                 = gt_sort[]
      i_default               = 'X'
      i_save                  = 'A'
      is_variant              = alv_variant
      it_events               = gt_events[]
      is_print                = tp_print
    TABLES
      t_outtab                = it_extract2
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
write :/ 'TOTAL NO OF ENTRIES', SY-VLINE, 32 L_COUNT.
IF sy-subrc NE 0.
    MESSAGE w000 WITH text-004 ' ' ' ' ' '.
ENDIF.
ENDFORM.                    " CALL_ALV
*&      Form alv_eventtab_build
*     Pass list of events to be triggered by the ALV function module
FORM alv_eventtab_build USING u_name TYPE slis_alv_event-name
                               u_form TYPE slis_alv_event-form
                               alv_lt_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.   " structure for event handling
ls_event-name = u_name.
ls_event-form = u_form.
APPEND ls_event TO alv_lt_events.
ENDFORM.                    " alv_eventtab_build
*       FORM TOP_OF_PAGE                                              *
FORM top_of_page.
*gs_list_top_of_page-type = 'H'.
GS_LIST_TOP_OF_PAGE-INFO = L_COUNT.
APPEND GS_LIST_TOP_OF_PAGE TO GT_LIST_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'NEWALTA_LOGO'
      it_list_commentary = gt_list_top_of_page.
ENDFORM.                    " TOP_OF_PAGE
*&      Form user_command
* Process the user command.
*      -->R_UCOMM      User command
*      -->RS_SELFIELD Field selected
FORM user_command USING r_ucomm     LIKE sy-ucomm
                        rs_selfield TYPE slis_selfield.
DATA: ltp_vbeln TYPE vbeln. " Sales document number.
CASE r_ucomm.
    WHEN '&IC1'.
      IF ( rs_selfield-fieldname = 'VBELN'
        OR rs_selfield-fieldname = 'BILL_VBELN' )
       AND rs_selfield-value IS NOT INITIAL.        " Display sales document.
        ltp_vbeln = rs_selfield-value.
        zcl_sales_doc=>display( ltp_vbeln ).
      ENDIF.
ENDCASE.
ENDFORM.                    "user_command
*&      Form alv_v-ariant_f4
* Get the display variant.
*      <--CTP_VARI Variant name
FORM alv_variant_f4 CHANGING ctp_vari TYPE slis_vari.
alv_variant-report   = sy-repid.             " Report ID
alv_variant-username = sy-uname.             " User ID
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = alv_variant
      i_save     = 'A'
    IMPORTING
      es_variant = alv_variant
    EXCEPTIONS
      OTHERS     = 1.
IF sy-subrc = 0.
    ctp_vari = alv_variant-variant.
ENDIF.
ENDFORM.                    " alv_variant_f4

ALV report-Add a count row at teh botttom.

Hi!
I would like to adda row to my ALV report at the bottom of the report which will show me the count of number of billing documents existing in the repport. Even when the report is fileterd on certain conditions , the total at teh bottom should change as per the records showing. basically I need to add a total row at teh bottom of my report which will give the number of billintg documents that show up in the report.
Is it possible ? If so how do I go about please.
Thanks

I have this , but not sure where to insert the line count in this .
*&      Form CALL_ALV
Call the ALV Grid function.
FORM call_alv .
SORT it_extract BY vbeln.
repid is necessary since the ALV F.M. does not work properly with
sy-repid.
repid = sy-repid.
alv_variant-variant = pa_vari.
alv_variant-report   = sy-repid.
alv_variant-username = sy-uname.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = repid
      i_callback_user_command = 'USER_COMMAND'
      is_layout               = gs_layout
      it_fieldcat             = t_fieldcat[]
      it_sort                 = gt_sort[]
      i_default               = 'X'
      i_save                  = 'A'
      is_variant              = alv_variant
      it_events               = gt_events[]
      is_print                = tp_print
    TABLES
      t_outtab                = it_extract2
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
IF sy-subrc NE 0.
    MESSAGE w000 WITH text-004 ' ' ' ' ' '.
ENDIF.
ENDFORM.                    " CALL_ALV
*&      Form alv_eventtab_build
    Pass list of events to be triggered by the ALV function module
FORM alv_eventtab_build USING u_name TYPE slis_alv_event-name
                               u_form TYPE slis_alv_event-form
                               alv_lt_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.   " structure for event handling
ls_event-name = u_name.
ls_event-form = u_form.
APPEND ls_event TO alv_lt_events.
ENDFORM.                    " alv_eventtab_build
      FORM TOP_OF_PAGE                                              *
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'NEWALTA_LOGO'
      it_list_commentary = gt_list_top_of_page.
ENDFORM.                    " TOP_OF_PAGE
You said the count will show along with or below the LOGO on top , but how do I incorporate the line count ihn it?

Freezing of totaling row in an ALV report

Similar Messages

Maybe you are looking for