Displaying header in ALV By using OO ABAP

Hi,
I have displayed ALV Grid by using OO ABAP.
Would you please tell me how to disply header for this ALV by Using OO ABAP.
Moderator Message: Please search for available information.
Edited by: kishan P on Nov 22, 2010 8:22 PM

Hi,
Try this way
form built_sort_table.
data ls_sort_wa type lvc_s_sort.
ls_sort_wa-spos = 1.
ls_sort_wa-fieldname = 'MATNR'.
ls_sort_wa-up = selected.
ls_sort_wa-subtot = ''.
append ls_sort_wa to gt_sort.
ls_sort_wa-spos = 2.
ls_sort_wa-fieldname = 'STATUS'.
ls_sort_wa-up = selected.
ls_sort_wa-subtot = ''.
append ls_sort_wa to gt_sort.
endform.
then
call method grid1->set_table_for_first_display
    exporting
      it_list_commentary = gt_header[]
      is_layout          = gs_layout_tree
    changing
      it_sort            = gt_sort[]
      it_outtab          = gt_yitm[]
      it_fieldcatalog    = gt_fieldcat_lvc[].
aRs

Similar Messages

Alv report using oops ABAP

hi friendz,
can any one of u give an example, how to build alv report using oops abap ?
thanks in advance.
points for sure
regards,
Vijaya

Hi Vijaya,
I hope the following code upto your requirement.
*& Report ZMAT_ALV_GRID                                               *
REPORT ZCL_CLASS1.
TYPES: BEGIN OF T_MARA,
         MATNR TYPE MARA-MATNR,
         MAKTX TYPE MAKT-MAKTX,
         WERKS TYPE MARD-WERKS,
         LGORT TYPE MARD-LGORT,
         LABST TYPE MARD-LABST,
       END OF T_MARA.
*DATA: IT_MARA TYPE STANDARD TABLE OF T_MARA.
DATA: IT_MARA TYPE T_MARA OCCURS 0.
DATA: O_CONT TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      O_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: X_FLDCAT TYPE LVC_S_FCAT.
DATA: IT_FLDCAT TYPE LVC_T_FCAT.
DATA: I_LAYOUT TYPE LVC_S_LAYO.
DATA: X_SORT TYPE LVC_S_SORT.
DATA: I_SORT TYPE LVC_T_SORT.
TABLES: MARA.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.
PARAMETERS: P_CHK AS CHECKBOX.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM GENERATE_FLDCAT.
PERFORM GENERATE_LAYOUT.
PERFORM DO_SORT.
SET SCREEN 100.
*&      Module STATUS_0100 OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
   SET PF-STATUS 'MAIN'.
SET TITLEBAR 'xxx'.
   PERFORM BUILD_ALV.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Form BUILD_ALV
      text
FORM BUILD_ALV .
CREATE OBJECT O_CONT
   EXPORTING
      CONTAINER_NAME              = 'MAT_CONTAINER'
   EXCEPTIONS
     CNTL_ERROR                  = 1
     CNTL_SYSTEM_ERROR           = 2
     CREATE_ERROR                = 3
     LIFETIME_ERROR              = 4
     LIFETIME_DYNPRO_DYNPRO_LINK = 5
     others                      = 6.
     CREATE OBJECT O_GRID
       EXPORTING
          I_PARENT          = O_CONT
       EXCEPTIONS
         ERROR_CNTL_CREATE = 1
         ERROR_CNTL_INIT   = 2
         ERROR_CNTL_LINK   = 3
         ERROR_DP_CREATE   = 4
         others            = 5.
CALL METHOD O_GRID->SET_TABLE_FOR_FIRST_DISPLAY
   EXPORTING
   I_BUFFER_ACTIVE               =
   I_BYPASSING_BUFFER            =
   I_CONSISTENCY_CHECK           =
   I_STRUCTURE_NAME              =
   IS_VARIANT                    =
   I_SAVE                        =
   I_DEFAULT                     = ' '
     IS_LAYOUT                     = I_LAYOUT
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
   IT_TOOLBAR_EXCLUDING          =
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
   IT_EXCEPT_QINFO               =
   CHANGING
     IT_OUTTAB                     = IT_MARA
     IT_FIELDCATALOG               = IT_FLDCAT[]
     IT_SORT                       = I_SORT
   IT_FILTER                     =
EXCEPTIONS
    INVALID_PARAMETER_COMBINATION = 1
    PROGRAM_ERROR                 = 2
    TOO_MANY_LINES                = 3
    others                        = 4.
ENDFORM.                    " BUILD_ALV
*&      Form GET_DATA
      text
FORM GET_DATA .
SELECT A~MATNR
      B~MAKTX
      C~WERKS
      C~LGORT
      C~LABST
INTO TABLE IT_MARA
FROM MARA AS A
INNER JOIN MAKT AS B
ON BMATNR = AMATNR
INNER JOIN MARD AS C
ON CMATNR = AMATNR
WHERE A~MATNR IN S_MATNR
AND   B~SPRAS = SY-LANGU.
ENDFORM.                    " GET_DATA
*&      Form GENERATE_FLDCAT
      text
FORM GENERATE_FLDCAT .
*CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_BUFFER_ACTIVE              =
   I_STRUCTURE_NAME             = 'ZSMARA'
I_CLIENT_NEVER_DISPLAY       = 'X'
I_BYPASSING_BUFFER           =
I_INTERNAL_TABNAME           = ' '
CHANGING
   CT_FIELDCAT                  = IT_FLDCAT
EXCEPTIONS
INCONSISTENT_INTERFACE       = 1
PROGRAM_ERROR                = 2
OTHERS                       = 3.
X_FLDCAT-COL_POS = 1.
X_FLDCAT-FIELDNAME = 'MATNR'.
X_FLDCAT-OUTPUTLEN = '18'.
X_FLDCAT-REPTEXT = 'Material No'.
APPEND X_FLDCAT TO IT_FLDCAT.
X_FLDCAT-COL_POS = 2.
X_FLDCAT-FIELDNAME = 'MAKTX'.
X_FLDCAT-OUTPUTLEN = '48'.
X_FLDCAT-REPTEXT = 'Material Desc'.
X_FLDCAT-TOOLTIP = 'Material Desc'.
APPEND X_FLDCAT TO IT_FLDCAT.
X_FLDCAT-COL_POS = 3.
X_FLDCAT-FIELDNAME = 'WERKS'.
X_FLDCAT-OUTPUTLEN = '5'.
X_FLDCAT-REPTEXT = 'Plant'.
X_FLDCAT-TOOLTIP = 'Plant'.
APPEND X_FLDCAT TO IT_FLDCAT.
X_FLDCAT-COL_POS = 4.
X_FLDCAT-FIELDNAME = 'LGORT'.
X_FLDCAT-OUTPUTLEN = '5'.
X_FLDCAT-REPTEXT = 'S.Loc'.
X_FLDCAT-TOOLTIP = 'S.Loc'.
APPEND X_FLDCAT TO IT_FLDCAT.
X_FLDCAT-COL_POS = 5.
X_FLDCAT-FIELDNAME = 'LABST'.
X_FLDCAT-OUTPUTLEN = '20'.
X_FLDCAT-REPTEXT = 'Quantity'.
X_FLDCAT-TOOLTIP = 'Quantity'.
X_FLDCAT-DO_SUM = 'X'.
APPEND X_FLDCAT TO IT_FLDCAT.
ENDFORM.                    " GENERATE_FLDCAT
*&      Form GENERATE_LAYOUT
      text
FORM GENERATE_LAYOUT .
I_LAYOUT-ZEBRA = 'X'.
I_LAYOUT-FRONTEND = 'X'.
I_LAYOUT-GRID_TITLE = 'ALV GRID USING OOPS'.
I_LAYOUT-NUMC_TOTAL = 'X'.
ENDFORM.                    " GENERATE_LAYOUT
*&      Form DO_SORT
      text
FORM DO_SORT .
X_SORT-FIELDNAME = 'MATNR'.
X_SORT-UP = 'X'.
X_SORT-SUBTOT = 'X'.
IF P_CHK = 'X'.
   X_SORT-EXPA = SPACE.
ELSE.
   X_SORT-EXPA = 'X'.
ENDIF.
APPEND X_SORT TO I_SORT.
ENDFORM.                    " DO_SORT
inorder to execute this code perfectly, do the following things.
1. Create a Graphical Screen 100.
2. Place a Custom Control on that screen and give name as MAT_CONTAINER.
3. activate the screen.
and execute the program.
if this suits requirement award points.
satish

Header in alv grid using class

Hello All,
    I developed alv grid using class method.
First I created CREATE OBJECT GR_CCONTAINER
then CREATE OBJECT GR_ALVGRID
then PERFORM FIELD_CATALOG TABLES GT_FIELDCAT----
for field catalog
    PERFORM LAYOUT CHANGING GS_LAYOUT.----
for header
    p_gs_layout-grid_title = 'class method'.
p_gs_layout-sel_mode = 'D'.
APPEND P_GS_LAYOUT TO IT_LAYOUT.
and finally CALL METHOD GR_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY
the report is cooming fine but in header it comes only "class method".
but i need also
1. reporting date
2. reporting time.
   can any body tell me how i can i put 2 more heading line
Thanks,
Rakesh

Hi Dude,
Please refer the below link how to handle the header in alv using abap oo
https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/abapObjects-ALVModel-UsingHeaderand+Footer
Hope it clears,..............
Thanks & Regards
Ramakrishna Pathi

ALV GRID Using oo abap example

Hi Friends,
I am new to oo abap, Can any one give me a basic example how i can create alv grid in oo abap.
regards,
DVNS

HI,
Programming for ALV grid display using the classes involves creation of a screen and calling it for display.
Since there has to be a linking between the program and the screen we have created , this comes in the form of a container. We use two important classes during the programming for displaying ALV grid, CL_GUI_ALV_GRID and CL_GUI_CUSTOM_CONTAINER.
Steps To Use ALV Grid in a Program
1. Declare reference variables for,
       Container (class CL_GUI_CUSTOM_CONTAINER) and
       Grid (class CL_GUI_ALV_GRID)
Example
DATA: grid TYPE REF TO cl_gui_alv_grid,
            custom_container TYPE REF TO cl_gui_custom_container
2. Create Standard Screen and a container on that screen and give a name to that container ( Use custom control button from tool bar) . This name will be used to link the container we have created on the screen with the object reference of class CL_GUI_CUSTOM_CONTAINER, which we have declared in the first step
3. Call the screen which has been created
4. Instantiate the container control and the ALV Grid Control in PBO of the screen.
Example
IF custom_container IS INITIAL.
CREATE OBJECT custom_container
         EXPORTING
        CONTAINER_NAME = MY_CONTAINER'.
CREATE OBJECT grid
       EXPORTING
       I_PARENT = custom_container.
ENDIF
5. For displaying the data, call the method set_table_for_first_display of object reference of CL_GUI_ALV_GRID.
Example
CALL METHOD grid->set_table_for_first_display
EXPORTING
I_BUFFER_ACTIVE               =
I_BYPASSING_BUFFER            =
I_CONSISTENCY_CHECK           =
I_STRUCTURE_NAME              =
IS_VARIANT                    =
I_SAVE                        =
I_DEFAULT                     =
IS_LAYOUT                     =
IS_PRINT                      =
IT_SPECIAL_GROUPS             =
IT_TOOLBAR_EXCLUDING          =
IT_HYPERLINK                  =
IT_ALV_GRAPHICS               =
IT_EXCEPT_QINFO               =
CHANGING
IT_OUTTAB                     =
IT_FIELDCATALOG               =
IT_SORT                       =
IT_FILTER                     =
EXCEPTION
INVALID_PARAMETER_COMBINATION =
PROGRAM_ERROR                 =
TOO_MANY_LINES                =
others                        =
EXPLANATION OF SOME IMPORTANT PARAMETERS.
I_BYPASSING_BUFFER & I_BUFFER_ACTIVE :
When the program is run for the first time, the fields present in the output table and their positions are stored in a buffer. So the buffer is taken as reference for the successive executions. In order to bypass this buffer the above parameter values should be X and (space) respectively. If these values are not passed to the function module, the changes made in the structure of the internal table will not be reflected in the output.
I_STRUCTURE_NAME:
If the structure of your output table corresponds to a structure stored in the Data Dictionary (DDIC), the ALV Grid Control can use this information to generate the field catalog automatically. Pass the table structure as parameter. In this case, all fields of this DDIC structure are displayed in the list.
IS_VARIANT :
It allows the user to save and reuse the layout. It is a structure of type DISVARIANT and contain the display variant name. It facilitates pre-assignment for a layout, rather than displaying report and then choosing displaying variant.
I_SAVE:
This single character variable specifies whether the user specific display variants can be saved or not.
The I_SAVE "Options for saving layouts" parameter can have the following values:
U Only user specific layouts can be saved
X Only global layouts can be saved
A Both user specific and global layouts can be saved
Space Layouts can not be saved
IS_LAYOUT:
This structure of type LVC_S_LAYO
is used to control the layout of the ALV. Two important fields are:
GRID TITLE. : Title of grid
ZEBRA : Alternate lines in list are displayed in different colors.
IT_FIELDCATALOG:
This internal table of type LVC_T_FCAT
is used to specify the position of various fields in the report itab.
There are three ways we can fill the field catalog table
1. Automatically through data dictionary structure (DDIC). In this case we pass the table structure to I_STRUCTURE_NAME.
2. Manually in ABAP program. Filling the internal table of type LVC_T_FCAT
1.                  . With each row corresponding to each column of output table. Each row of this table will hold value like
i). TABNAME & FIELDNAME specifies the reference fields for F1 help
ii). CTABNAME & CFIELDNAME specifies the reference fields for currency formatting
iii). QTABNAME & QFIELDNAME specifies the reference fields for quantity formatting
iv). SELTEXT_L holds the long description of the field
v). SELTEXT_M holds the medium description of the field
vi). SELTEXT_S holds the small description of the field
vii). KEY specifies the Key field ( cannot be hidden )
viii). OUTPUTLEN species the output length of the field
ix). DO_SUM specifies that subtotal is required on this field
x). NO_OUT specifies a hidden field
3. Semi-Automatically by combining the above 2 procedures.
Call function Module REUSE_ALV_FIELDCATALOG_MERGE and pass DDIC
structure or the output table to generate the field catalog.
Add additional Rows or modify existing properties of the fields to be displayed.
METHODS OF IMPLEMENTING SOME EXTRA FEATURES
Set focus to the grid
After CALL METHODgrid->set_table_for_first_display insert the following stament:
CALL METHOD cl_gui_control=>set_focus EXPORTING control = grid
Refresh grid display
Use the grid method REFRESH_TABLE_DISPLAY
Example:
CALL METHOD grid->refresh_table_display.
Set the title of the grid
Fill the grid_title field of structure lvc_s_layo.
DATA:
gs_layout TYPE lvc_s_layo.
gs_layout-grid_title = 'TITLE'.
CALL METHOD go_grid->set_table_for_first_display
EXPORTING i_structure_name = 'structure name'
is_layout               = gs_layout
CHANGING   it_outtab               = Output table.
The structure lvc_s_layo contains fields for setting graphical properties, displaying exceptions, calculating totals and enabling specific interaction options
Event Handling
We can handle the events triggered by
1. User defined Text Output
2. Mouse-controlled Actions
3. Self-defined and Standard Functions
Steps for Event Handling
1. Define a (local) class for event handling
2. Define a method for each event you need to handle
3. Implement your event handler methods.
4. Create Object of the above class
5. Link used events and event handler methods of the receiver object and the grid
object.
Example program : Handling Double Click Event
Step1.Define a class.
class lcl_my_event_receiver definition.
public section.
methods:
handle_double_click
for event double_click of cl_gui_alv_grid.
endclass.
Step 2. Implement the class
class lcl_my_event_receiver implementation.
method handle_double_click.
message i001(zz) with ' double click event - Triggerd '.
endmethod.
endclass.
Step 3. Declare and create Object for the local class defined and implemented in steps 1 and 2 respectively
o_receiver   TYPE REF TO lcl_my_event_receiver   (Declaration)
create object o_receiver.                                            (Instantiation)
Step 4. Link the method for handling the event with the grid object in the PBO of screen after instantiating the grid object
set handler o_receiver->handle_double_click for grid.
EXAMPLE PROGRAM TO CHANGE A CLASSICAL REPORT OUTPUT TO A ALV GRID
This can be used as a template program to convert a classical report layout to a ALV grid.
Report<Report name>
Grid data Declarations----------------------------------------------*
INCLUDE ZVINALVD.
Internal table for ALV grid
TYPES: BEGIN OF T_ALV,
         Field1 like table-field1,
         Field2 like table-field2,
       END OF T_ALV.
DATA: I_ALV TYPE TABLE OF T_ALV.
DATA: WA_ALV TYPE T_ALV.
-Class declarations----
INCLUDE ZVINALVE.
Add a checkbox in selection screen for ALV grid display. If it is unchecked
output will be of classical type.
SELECTION-SCREEN BEGIN OF BLOCK box01.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 4(30) To display repot output as a ALV grid.
PARAMETERS: p_alv AS CHECKBOX.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN END OF BLOCK box01.
START-OF-SELECTION.
Fill the ALV grid internal table
END-OF-SELECTION.
IF P_ALV = X.
PERFORM ALV_DISPLAY.
ELSE.
PERFORM CLASSICAL_DISPLAY.
ENDIF.
Alv Display
FORM ALV_DISPLAY.
CALL SCREEN 100.
ENDFORM.
Module STATUS_0100 OUTPUT
PBO for ALV Grid
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'GRID_DISPLAY'.
DATA:
For parameter IS_VARIANT that is used to set up options for storing
the grid layout as a variant in method set_table_for_first_display
l_layout TYPE disvariant.
GS_LAYOUT-SEL_MODE = 'B'.
Optimize column width
GS_LAYOUT-CWIDTH_OPT = 'X'.
Read data and create objects
IF go_custom_container IS INITIAL.
Create objects for container and ALV grid
    CREATE OBJECT go_custom_container
      EXPORTING container_name = 'ALV_CONTAINER'.
    CREATE OBJECT go_grid
      EXPORTING i_parent = go_custom_container.
Create object for event_receiver class
and set handlers
    CREATE OBJECT o_event_receiver.
    SET HANDLER o_event_receiver->handle_user_command FOR go_grid.
    SET HANDLER o_event_receiver->handle_toolbar FOR go_grid.
Layout (Variant) for ALV grid
    l_layout-report = sy-repid. "Layout to report
To built fieldcatalog
    PERFORM alv_build_fieldcatalog.
Grid setup for first display
    CALL METHOD go_grid->set_table_for_first_display
      EXPORTING
                is_variant      = l_layout
                i_save          = 'A'
                is_layout       = gs_layout
      CHANGING it_outtab       = I_ALV
                it_fieldcatalog = fieldcat.
Raise event toolbar to show the modified toolbar
    CALL METHOD go_grid->set_toolbar_interactive.
ENDIF.
ENDMODULE.                 " STATUS_0100 OUTPUT
Form ALV_BUILD_FIELDCATALOG.
Store contents of selected line in a internal table
FORM alv_build_fieldcatalog.
CLEAR afield.
afield-fieldname = 'FIELD1'.
afield-tabname   = 'I_ALV'.
afield-coltext   = Field Name 1.
afield-lzero     = ' '.
afield-key       = 'X'.
afield-outputlen = XX.
APPEND afield TO fieldcat.
CLEAR afield.
afield-fieldname = 'FIELD2'.
afield-tabname   = 'I_ALV'.
afield-coltext   = Field Name 2.
APPEND afield TO fieldcat.
ENDFORM.                    " alv_build_fieldcatalog
Module USER_COMMAND_0100 INPUT
PAI for ALV Grid
MODULE USER_COMMAND_0100 INPUT.
CASE OK_100.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
Form SELECT_LINE
Store contents of selected line in a internal table
FORM SELECT_LINE.
DATA:l_lines TYPE i.
REFRESH gi_index_rows.
CLEAR   g_selected_row.
Read index of selected rows
CALL METHOD go_grid->get_selected_rows
    IMPORTING et_index_rows = gi_index_rows.
Check if any row are selected at all. If not
table gi_index_rows will be empty
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines = 0.
    CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
         EXPORTING
              textline1 = 'You must choose a line'.
    EXIT.
ENDIF.
Read indexes of selected rows.
LOOP AT gi_index_rows INTO g_selected_row.
    IF sy-tabix = 1.
      READ TABLE I_ALV INDEX g_selected_row-index INTO
                     WA_ALV.
    ENDIF.
ENDLOOP.
ENDFORM.                    " SELECT_LINE
Includes:
1. ZVINALVD for data declarations
INCLUDE ZVINALVD .
Type pool for icons - used in the toolbar
TYPE-POOLS: icon.
To allow the declaration of o_event_receiver before the
lcl_event_receiver class is defined, decale it as deferred in the
start of the program
CLASS lcl_event_receiver DEFINITION DEFERRED.
GLOBAL DATA FOR ALV GRID
DATA:
OK code for alv grid screen
OK_100(4)           TYPE C,
ALV control: Layout structure
gs_layout           TYPE   lvc_s_layo,
Declare reference variables to the ALV grid and the container
go_grid             TYPE REF TO cl_gui_alv_grid,
go_custom_container TYPE REF TO cl_gui_custom_container,
o_event_receiver    TYPE REF TO lcl_event_receiver,
Data for storing information about selected rows in the grid
Internal table
gi_index_rows       TYPE lvc_t_row,
Information about 1 row
g_selected_row      LIKE lvc_s_row.
fieldcatalog
DATA: fieldcat        TYPE LVC_T_FCAT,
      afield          TYPE LVC_S_FCAT.
2. ZVINALVE for Class/object declarations
INCLUDE ZVINALVE.
C L A S S E S
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
      handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
        IMPORTING e_object e_interactive,
      handle_user_command FOR EVENT user_command OF cl_gui_alv_grid
        IMPORTING e_ucomm.
ENDCLASS.
CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_toolbar.
Event handler method for event toolbar.
    CONSTANTS:
Constants for button type
        c_button_normal           TYPE i VALUE 0,
        c_menu_and_default_button TYPE i VALUE 1,
        c_menu                    TYPE i VALUE 2,
        c_separator               TYPE i VALUE 3,
        c_radio_button            TYPE i VALUE 4,
        c_checkbox                TYPE i VALUE 5,
        c_menu_entry              TYPE i VALUE 6.
    DATA: ls_toolbar              TYPE stb_button.
Append seperator to the normal toolbar
    CLEAR ls_toolbar.
    MOVE c_separator TO ls_toolbar-butn_type..
    APPEND ls_toolbar TO e_object->mt_toolbar.
Append a new button that to the toolbar. Use E_OBJECT of
event toolbar. E_OBJECT is of type CL_ALV_EVENT_TOOLBAR_SET.
This class has one attribute MT_TOOLBAR which is of table type
TTB_BUTTON. The structure is STB_BUTTON
    CLEAR ls_toolbar.
    MOVE 'DISPLAY'        TO ls_toolbar-function.
    MOVE icon_DISPLAY    TO ls_toolbar-icon.
    MOVE 'Displaying customer' TO ls_toolbar-quickinfo.
    MOVE 'Display'        TO ls_toolbar-text.
    MOVE ' '             TO ls_toolbar-disabled.
    APPEND ls_toolbar    TO e_object->mt_toolbar.
ENDMETHOD.
METHOD handle_user_command.
Handle own functions defined in the toolbar
    CASE e_ucomm.
      WHEN 'DISPLAY'.
        PERFORM SELECT_LINE.
    ENDCASE.
ENDMETHOD.
Reward if useful

List header for alv grid using abap objects

Hai all,
I have displayed alv grid in container control using abap objects i.e. using method set_table_for_first_display.
now i need to display list header for this alv grid.
please help me how to create with a sample coding.
Thanks and regards,
Prabu S.

Create a splitter using CL_GUI_EASY_SPLITTER_CONTAINER with a top and bottom half. Put the alv grid in the bottom half. Use cl_dd_document (documented in help.sap.com ) to build the header in the top half. Use events on CL_GUI_ALV_GRID to handle the top-of-list printing.
Or, if available, use CL_SALV_TABLE, and read the documentation on that. When I needed a header for my report, that's what I did. There's plenty of good documentation about if you'll search for it.
matt

Comas(,) are not getting displayed in the output while using OO ABAP

Hi All,
I am using ABAP objects to display the ALV report in which there is a requirement to output Quantity fields. The Quantity fields are getting displayed without comas ','. Please help me in getting back the comas in the output.
Eg:
Below logic is used in my program.
Class name: cl_salv_form_layout_grid
Code:
obj_footer->create_text(
        row    = v_row_cnt
        column = v_col_cnt
        text   = Quantity).
Expected output:
39,545.000
Current Output:
39545.000
Thanks in advance for your help.
Thanks & Regards,
Siva.

Hi,
Please check if the images are in the server and in the /images alias path.
thanks,
Sharmila

Displaying header in excel horizontally using FM GUI_DOWNLOAD

Dear Experts,
        I'm exporting my data to an excel file using GUI_DOWNLOAD. The problem is that I'm having problems with exporting the headings of my excel. I can export the heading but the problem is that it is displayed vertically and not horizontally.
Is there a way I could display the heading horizontally? Hope you could help me.
Below is my program.
DATA: BEGIN OF itab OCCURS 0,
              DVNO TYPE ZPFHEADER-DVNO,
              EMPNO(8),
              EMPNAME LIKE PA0002-CNAME,
              LTYPE LIKE it_header-wtype,
              LCODE LIKE it_header-dkond,
              MA(6) TYPE p DECIMALS 2,
              APRVDATE(15),
              DTL LIKE ZPFHEADER-DVNO,
          END OF itab.
DATA: BEGIN OF header OCCURS 0,
              head1(15) TYPE c,
              head2(15) TYPE c,
          END OF header.
PERFORM DISPLAY_DATA.
      FORM DISPLAY_DATA                                             *
FORM DISPLAY_DATA.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program = g_repid
          I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
          I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
          is_layout          = gs_layout
          it_fieldcat        = gt_fieldcat[]
          it_events          = gt_events[]
        TABLES
          t_outtab           = jtab.
ENDFORM.
*&      FORM USER_COMMAND
      COMMAND for ALV Grid Buttons
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
PERFORM write_header.
CASE r_ucomm.
WHEN 'XCEL'.
    CONCATENATE: 'C:\' fname sy-datum INTO fname.
    CONCATENATE: fname '.XLS' INTO FILENAME.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        FILENAME = FILENAME
        HEADER = '00'
        WRITE_FIELD_SEPARATOR = 'X'
      TABLES
        DATA_TAB   = header
        FIELDNAMES = header.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        FILENAME = FILENAME
        APPEND   = 'X'
        WRITE_FIELD_SEPARATOR = 'X'
      TABLES
        DATA_TAB = jtab
      EXCEPTIONS
        FILE_WRITE_ERROR        = 1
        NO_BATCH                = 2
        GUI_REFUSE_FILETRANSFER = 3
        INVALID_TYPE            = 4
        NO_AUTHORITY            = 5
        UNKNOWN_ERROR           = 6
        HEADER_NOT_ALLOWED      = 7
        SEPARATOR_NOT_ALLOWED   = 8
        FILESIZE_NOT_ALLOWED    = 9
        HEADER_TOO_LONG         = 10
        DP_ERROR_CREATE         = 11
        DP_ERROR_SEND           = 12
        DP_ERROR_WRITE          = 13
        UNKNOWN_DP_ERROR        = 14
        ACCESS_DENIED           = 15
        DP_OUT_OF_MEMORY        = 16
        DISK_FULL               = 17
        DP_TIMEOUT              = 18
        FILE_NOT_FOUND          = 19
        DATAPROVIDER_EXCEPTION = 20
        CONTROL_FLUSH_ERROR = 21
        OTHERS = 22.
      IF sy-subrc <> 0.
      ELSEIF sy-subrc = 0.
        MESSAGE S000(38) WITH 'File ' fname 'saved in Drive C.'.
      ENDIF.
ENDCASE.
ENDFORM.
*&      Form write_header
      text
--> p1        text
<-- p2        text
FORM write_header.
DATA: ctr(2) TYPE N.
DO 6 TIMES.
ADD 1 TO ctr.
CASE ctr.
    WHEN 1. header-head1 = 'EMPLOYEE'.
            header-head2 = ' NO '.
    WHEN 2. header-head1 = 'EMPLOYEE'.
            header-head2 = ' NAME '.
    WHEN 3. header-head1 = 'LOAN'.
            header-head2 = 'TYPE'.
    WHEN 4. header-head1 = 'APPROVAL'.
            header-head2 = ' DATE '.
    WHEN 5. header-head1 = 'LOAN'.
            header-head2 = 'CODE'.
    WHEN 6. header-head1 = ' MONTHLY '.
            header-head2 = 'AMORTIZATION'.
ENDCASE.
APPEND header.
CLEAR: header.
ENDDO.
The output should be something like this as shown below:
Employee     Employee                     Loan     Approval
Number     Name                     Type     Date
6633     ABAD, JUSTINA     DVP1     2-Apr-07

Hi,
Check this sample code:
REPORT ZSW_DOWNLOAD_HEADER.
DATA : itab LIKE TABLE OF t001 WITH HEADER LINE.
SELECT * FROM t001 INTO TABLE itab.
PERFORM mydownload TABLES itab USING 'C:\t001.txt'.
FORM mydownload TABLES ptab USING filename.
DAta
*DATA : components LIKE rstrucinfo OCCURS 0 WITH HEADER LINE.
    DATA: dfies_tab LIKE dfies OCCURS 0 WITH HEADER LINE.
    DATA : allfields(300) TYPE c.
    DATA : fld(100) TYPE c.
    DATA : BEGIN OF htab OCCURS 0,
    allfields(300) TYPE c,
    END OF htab.
    CALL FUNCTION 'DDIF_FIELDINFO_GET'
    EXPORTING
    tabname = 'T001'
FIELDNAME = ' '
LANGU = SY-LANGU
LFIELDNAME = ' '
ALL_TYPES = ' '
GROUP_NAMES = ' '
UCLEN = UCLEN
IMPORTING
X030L_WA = X030L_WA
DDOBJTYPE = DDOBJTYPE
DFIES_WA = DFIES_WA
LINES_DESCR = LINES_DESCR
    TABLES
    dfies_tab = dfies_tab
FIXED_VALUES = FIXED_VALUES
EXCEPTIONS
NOT_FOUND = 1
INTERNAL_ERROR = 2
OTHERS = 3
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    LOOP AT dfies_tab.
      CONCATENATE dfies_tab-fieldtext
      cl_abap_char_utilities=>horizontal_tab INTO fld.
      CONCATENATE allfields fld INTO allfields .
    ENDLOOP.
    htab-allfields = allfields.
    APPEND htab.
download first field list
    CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
BIN_FILESIZE =
    filename = 'c:\t001.xls'
    filetype = 'DAT'
    write_field_separator = 'X'
    TABLES
    data_tab = htab.
then download file data
    CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
BIN_FILESIZE =
    filename = 'c:\t001.xls'
    filetype = 'DAT'
    append = 'X'
    write_field_separator = 'X'
    TABLES
    data_tab = ptab.
ENDFORM.                    "mydownload

Display header for excel output using FM GUI_DOWNLOAD

Good morning experts,
                 I've been exporting my output in excel using the FM GUI_DOWNLOAD. The problem is, my header is not displaying. Kindly check what I've done wrong. Below is how I declared my header.
DATA: BEGIN OF header OCCURS 0,
        head1(15),
        head2(15),
      END OF header.
*&      FORM USER_COMMAND
      COMMAND for ALV Grid Buttons
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
PERFORM write_header.
CASE r_ucomm.
WHEN 'XCEL'.
    CONCATENATE: 'C:\' fname sy-datum INTO fname.
    CONCATENATE: fname '.XLS' INTO FILENAME.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        FILENAME = FILENAME
        WRITE_FIELD_SEPARATOR = 'X'
      TABLES
        DATA_TAB = jtab
        FIELDNAMES = header
      EXCEPTIONS
        FILE_WRITE_ERROR        = 1
        NO_BATCH                = 2
        GUI_REFUSE_FILETRANSFER = 3
        INVALID_TYPE            = 4
        NO_AUTHORITY            = 5
        UNKNOWN_ERROR           = 6
        HEADER_NOT_ALLOWED      = 7
        SEPARATOR_NOT_ALLOWED   = 8
        FILESIZE_NOT_ALLOWED    = 9
        HEADER_TOO_LONG         = 10
        DP_ERROR_CREATE         = 11
        DP_ERROR_SEND           = 12
        DP_ERROR_WRITE          = 13
        UNKNOWN_DP_ERROR        = 14
        ACCESS_DENIED           = 15
        DP_OUT_OF_MEMORY        = 16
        DISK_FULL               = 17
        DP_TIMEOUT              = 18
        FILE_NOT_FOUND          = 19
        DATAPROVIDER_EXCEPTION = 20
        CONTROL_FLUSH_ERROR = 21
        OTHERS = 22.
      IF sy-subrc <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ELSEIF sy-subrc = 0.
        MESSAGE S000(38) WITH 'File ' fname 'saved in Drive C.'.
      ENDIF.
ENDCASE.
ENDFORM.
*&      Form write_header
      text
--> p1        text
<-- p2        text
FORM write_header.
DATA: ctr(2) TYPE p.
DO 6 TIMES.
ADD 1 TO ctr.
CASE ctr.
    WHEN 1. header-head1 = 'EMPLOYEE'.
            header-head2 = '   NO   '.
    WHEN 2. header-head1 = 'EMPLOYEE'.
            header-head2 = ' NAME '.
    WHEN 3. header-head1 = 'LOAN'.
            header-head2 = 'TYPE'.
    WHEN 4. header-head1 = 'APPROVAL'.
            header-head2 = ' DATE '.
    WHEN 5. header-head1 = 'LOAN'.
            header-head2 = 'CODE'.
    WHEN 6. header-head1 = '   MONTHLY '.
            header-head2 = 'AMORTIZATION'.
ENDCASE.
APPEND header.
CLEAR: header.
Please help me. All helpful advice will be rewarded points. Thanks a lot.

Follow this Example. You can do it in the below manner
You need not add HEADER1 HEADER2 to the internal table. You can just declare one field like below and append all the header columns to the internal table HEADER
data : begin of IT_HEADING occurs 0,
         TEXT(15),
       end of IT_HEADING.
    IT_HEADING-TEXT = 'Company Code'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'PO Number'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'PO Line Item'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'SO Number'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'SO Line Item'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'PO Quantity'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'PO Unit'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'PO Amount'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'PO Currency'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'Job Number'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'SO Quantity'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'SO Unit'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'SO Amount'.
    append IT_HEADING.
    IT_HEADING-TEXT = 'SO Currency'.
    append IT_HEADING.
    move P_FNAME to L_FNAME.
    call function 'GUI_DOWNLOAD'
      exporting
        FILENAME                = L_FNAME
        FILETYPE                = 'DAT'
      tables
        DATA_TAB                = IT_FINAL
        FIELDNAMES              = IT_HEADING
      exceptions
        FILE_WRITE_ERROR        = 1
        NO_BATCH                = 2
        GUI_REFUSE_FILETRANSFER = 3
        INVALID_TYPE            = 4
        NO_AUTHORITY            = 5
        UNKNOWN_ERROR           = 6
        HEADER_NOT_ALLOWED      = 7
        SEPARATOR_NOT_ALLOWED   = 8
        FILESIZE_NOT_ALLOWED    = 9
        HEADER_TOO_LONG         = 10
        DP_ERROR_CREATE         = 11
        DP_ERROR_SEND           = 12
        DP_ERROR_WRITE          = 13
        UNKNOWN_DP_ERROR        = 14
        ACCESS_DENIED           = 15
        DP_OUT_OF_MEMORY        = 16
        DISK_FULL               = 17
        DP_TIMEOUT              = 18
        FILE_NOT_FOUND          = 19
        DATAPROVIDER_EXCEPTION = 20
        CONTROL_FLUSH_ERROR     = 21
        others                  = 22.
    if SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.
Regards
Gopi

Is there any to restrict the no of display fields in alv grid using oops?

hi,
i have 100 field in an internal table , and i passed that internal table to set_table_for_first_display, Now my aim is to display only 20 fields among that 100, these twenty may vary based on selection but count of fields should be always 20. Is it possible .....

Yes!! youhave to prepare the field catalogue dynamically..based upon the selection..get the names of all the fields to be displayed ..take first twenty of them and for the rest of the fields in the internal table which are not in these twenty..mark no_out = 'X'.

Display Logo in Subscreen Area Using OO-ABAP

Hello,
I have a requirement to display a logo in SCREEN, Which contains TABSTRIP , In that A SUBSCREEN AREA. What could be the procedure to display the LOGO . let me know if any suggenstions.
I have already uploded the IMAGE in to SAP Form GRAPHIS Via SE78.
Thanks in Advance
Regards
Nags

Hi Naganjaneyulu,
Check the below sample program.
put a custom control on the subscreen and write the logic in the subscreen's PBO....
Screen Flow logic
PROCESS BEFORE OUTPUT.
MODULE pbo.
PROCESS AFTER INPUT.
MODULE pai AT EXIT-COMMAND.
Program
DATA : go_container       TYPE REF TO cl_gui_custom_container,
       go_pic             TYPE REF TO cl_gui_picture,
       gt_picbin          TYPE solix_tab,
       gt_filetable       TYPE filetable,
       gv_bindata         TYPE xstring,
       gv_filename        TYPE string,
       gv_url             TYPE char255.
PARAMETERS : p_object TYPE tdobjectgr DEFAULT 'GRAPHICS',
             p_name   TYPE tdobname   DEFAULT 'SAP LOGO + TRADEMARK',
             p_id     TYPE tdidgr     DEFAULT 'BMAP',
             p_btype TYPE tdbtype    DEFAULT 'BMON'.
CALL SCREEN 100.
MODULE pbo OUTPUT.
SET PF-STATUS 'BASIC'. " just a BACK button with application type 'E'.
PERFORM fetch_binary_data.
PERFORM create_url.
CREATE OBJECT go_container
    EXPORTING
      container_name = 'CUSTOM'. " name of custom control
CREATE OBJECT go_pic
    EXPORTING
      parent = go_container.
go_pic->load_picture_from_url( EXPORTING url = gv_url ).
ENDMODULE.                 " pbo OUTPUT
MODULE pai INPUT.
SET SCREEN 0. LEAVE SCREEN.
ENDMODULE.                 " pai INPUT
FORM fetch_binary_data.
CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
    EXPORTING
      p_object = p_object
      p_name    = p_name
      p_id      = p_id
      p_btype   = p_btype
    RECEIVING
      p_bmp     = gv_bindata
    EXCEPTIONS
      not_found = 1
      OTHERS    = 2.
gt_picbin = cl_document_bcs=>xstring_to_solix( gv_bindata ).
ENDFORM.                    "fetch_binary_data
FORM create_url.
CALL FUNCTION 'DP_CREATE_URL'
    EXPORTING
      type    = 'image'
      subtype = 'X-UNKNOWN'
    TABLES
      data    = gt_picbin
    CHANGING
      url     = gv_url
    EXCEPTIONS
      OTHERS = 4.
CHECK sy-subrc = 4.
MESSAGE 'Exception occured' TYPE 'I'.
ENDFORM.                    "create_url
~Jose.

Column Heading are not displayed in ALV Report using CL_SALV_DISPLAY?

Hi,
   I am using CL_SALV_DISPLAY class to display data. I Created an Internal Table Dynamically based fieldcatalog which was prepared based data at run time. When i displayed data using CL_SALC_DISPALY data is display in output but column headings are not displayed.
can anyone suggest me how to display heading in ALV using CL_SALV_DISPLAY class, My code is
      CLASS lcl_report DEFINITION
CLASS lcl_report DEFINITION.
PUBLIC SECTION.
    METHODS:
      display IMPORTING l_table TYPE string
                         l_fcat   TYPE string.
ENDCLASS.                    "lcl_report DEFINITION
      CLASS lcl_report IMPLEMENTATION
CLASS lcl_report IMPLEMENTATION.
METHOD display.
    DATA: gr_table   TYPE REF TO cl_salv_table.
    DATA: gr_columns TYPE REF TO cl_salv_columns_table,
          gr_column TYPE REF TO cl_salv_column_table,
          ls_fcat    TYPE slis_fieldcat_alv.
    DATA: gr_display TYPE REF TO cl_salv_display_settings.
    DATA: l_o_functions TYPE REF TO cl_salv_functions_list,
          l_field    TYPE string.
    FIELD-SYMBOLS : <fs_table>    TYPE STANDARD TABLE,
                    <ft_fcat>     TYPE STANDARD TABLE.
Get the ALV object refering to the output table
    ASSIGN (l_table) TO <fs_table>.
    ASSIGN (l_fcat) TO <ft_fcat>.
    TRY.
        cl_salv_table=>factory(
          IMPORTING
            r_salv_table = gr_table
          CHANGING
            t_table      = <fs_table> ).
      CATCH cx_salv_msg.                                "#EC NO_HANDLER
    ENDTRY.
Add basic default functionality in the ALV report
Functions
    l_o_functions = gr_table->get_functions( ).
    l_o_functions->set_all( abap_true ).
    gr_columns = gr_table->get_columns( ).
    gr_columns->set_headers_visible( abap_true ).
Display the list
    gr_table->display( ).
ENDMETHOD.                    "extract
ENDCLASS.                    "lcl_report IMPLEMENTATION
*& start-of-selection declaration
START-OF-SELECTION.
PERFORM :
get store codes
    get_storecodes    USING      p_stfile
                      CHANGING   it_t001w,
fetching mard data
    read_mard_data,
preparing fieldcatalog for Final Data
    create_filedcat   USING      it_t001w
                                 it_site
                      CHANGING   it_fieldcat,
preparing structure & internal table for Final Data
    create_final_table_structure USING it_fieldcat,
prepare output data
    prepare_final_data.
*& end-of-selection declaration
END-OF-SELECTION.
PERFORM :
display data
    display_data    USING l_table
                          l_fcat.
*&      Form get_storecodes
FORM get_storecodes USING    p_p_stfile
                     CHANGING p_it_t001w LIKE it_t001w[].
DATA :
internal table for RAW
lt_raw    TYPE truxs_t_text_data,
rs_site   LIKE LINE OF rt_site,
l_index   LIKE sy-tabix.
FIELD-SYMBOLS :
field symbol for it_t001w
<fs_t001w>   LIKE LINE OF p_it_t001w.
calling function module to get Stores Data from File
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_line_header        = 'X'
      i_tab_raw_data       = lt_raw
      i_filename           = p_p_stfile
    TABLES
      i_tab_converted_data = p_it_t001w[]
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
IF sy-subrc <> 0.
    EXIT.
ENDIF.
SORT p_it_t001w BY werks.
CLEAR rs_site.
rs_site-sign   = 'I'.
rs_site-option = 'EQ'.
rs_site-low    = p_dccode.
APPEND rs_site TO rt_site.
IF it_t001w[] IS NOT INITIAL.
    LOOP AT p_it_t001w ASSIGNING <fs_t001w>.
      l_index   = sy-tabix.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input = <fs_t001w>-werks
        IMPORTING
          output = <fs_t001w>-werks.
      MODIFY p_it_t001w FROM <fs_t001w> INDEX l_index.
      IF <fs_t001w>-werks GE s_site-low AND <fs_t001w>-werks LE s_site-high.
      append site to ranges
        CLEAR rs_site.
        rs_site-sign   = 'I'.
        rs_site-option = 'EQ'.
        rs_site-low    = <fs_t001w>-werks.
        APPEND rs_site TO rt_site.
        CONTINUE.
      ENDIF.
    ENDLOOP.
    SORT p_it_t001w BY werks.
    SORT rt_site.
ENDIF.
ENDFORM.                    " get_storecodes
*&      Form create_final_table_structure
FORM create_filedcat   USING    p_it_t001w      LIKE it_t001w[]
                                p_it_site       LIKE it_site[]
                       CHANGING p_it_fieldcat   LIKE it_fieldcat[].
FIELD-SYMBOLS :
field symbol for p_it_t001w
<fs_t001w>     LIKE LINE OF p_it_t001w,
field symbol for p_it_site
<fs_site>      LIKE LINE OF p_it_site.
DATA :
fieldname
l_fieldname    TYPE slis_fieldname,
workarea for site ranges
rs_site        LIKE LINE OF rt_site.
CLEAR : l_fieldname, rs_site.
l_fieldname    = p_dccode.
PERFORM
prepare fieldcatalog
build_fieldcatalog USING :   'MTART'      'CHAR'        '5' ,
                               'MTBEZ'      'CHAR'        '25' ,
                               'MATKL'      'CHAR'        '6' ,
                               'WGBEZ'      'CHAR'        '20' ,
                               'MATNR'      'CHAR'        '18' ,
                               'MAKTX'      'CHAR'        '30' ,
                                l_fieldname 'CHAR'        '17' .
create header for excel
PERFORM create_excel_header USING : 'Division',
                                       'Divsion Description',
                                       'MC Code',
                                       'MC Description',
                                       'Article',
                                       'Article Description',
                                        l_fieldname.
loop for creating fieldcatalog
LOOP AT it_site ASSIGNING <fs_site>.
    READ TABLE it_t001w ASSIGNING <fs_t001w> WITH KEY werks = <fs_site>-werks
                                                              BINARY SEARCH.
    IF sy-subrc = 0           AND <fs_t001w> IS ASSIGNED AND
       <fs_site> IS ASSIGNED AND <fs_site>-stock GT 0.
      CLEAR : l_fieldname, rs_site.
      l_fieldname    = <fs_site>-werks.
    prepare fieldcatalog
      PERFORM build_fieldcatalog USING : l_fieldname    'CHAR'   '17'.
    create header for excel
      PERFORM create_excel_header USING l_fieldname .
      CONTINUE.
    ENDIF.
ENDLOOP.
l_fcat = 'it_fieldcat[]'.
ENDFORM.                    " create_final_table_structure
*&      Form build_fieldcatalog
FORM build_fieldcatalog USING    p_fieldname      TYPE slis_fieldname
                                  p_datatype       TYPE datatype_d
                                  p_length         TYPE intlen.
DATA : ls_fieldcat    LIKE LINE OF it_fieldcat.
CLEAR : ls_fieldcat.
ls_fieldcat-fieldname   = p_fieldname.
ls_fieldcat-datatype    = p_datatype.
ls_fieldcat-intlen      = p_length.
APPEND ls_fieldcat TO it_fieldcat.
ENDFORM.                    " build_fieldcatalog
*&      Form create_final_table_structure
FORM create_final_table_structure USING    p_it_fieldcat.
Create dynamic internal table and assign to FS
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = it_fieldcat
    IMPORTING
      ep_table        = t_table.
ASSIGN t_table->* TO <ft_final>.
ENDFORM.                    " create_final_table_structure
*&      Form create_excel_header
FORM create_excel_header USING    p_p_fieldname.
DATA : ls_header LIKE LINE OF it_header.
CLEAR ls_header.
ls_header-col_name = p_p_fieldname.
APPEND ls_header TO it_header.
ENDFORM.                    " create_excel_header
*&      Form prepare_final_data
FORM prepare_final_data .
DATA          : l_matnr       LIKE g_matnr,
                  l_werks       LIKE g_werks,
                  l_index       LIKE sy-tabix.
FIELD-SYMBOLS : <fs_mard>     LIKE LINE OF it_mard.
Getting No. of Lines in IT_MARD internal table
DESCRIBE TABLE it_mard LINES g_lines.
LOOP AT it_mard ASSIGNING <fs_mard>.
    l_index    = sy-tabix.
    IF l_matnr IS INITIAL.
      l_matnr = <fs_mard>-matnr.
      CLEAR : l_werks.
      l_werks    = <fs_mard>-werks.
      UNASSIGN : <fs_value>, <fs_final>.
    Create dynamic work area and assign to FS
      CREATE DATA t_line LIKE LINE OF <ft_final>.
      ASSIGN t_line->*   TO <fs_final>.
      ASSIGN COMPONENT 'MATNR' OF STRUCTURE <fs_final> TO <fs_value>.
      <fs_value>        = <fs_mard>-matnr.
      ASSIGN COMPONENT l_werks OF STRUCTURE <fs_final> TO <fs_value>.
      <fs_value>        = <fs_value> + <fs_mard>-labst.
    getting Article Type,MC & its Descriptions
      PERFORM get_other_data    USING     l_matnr
                                          l_werks.
    ELSEIF l_matnr <> <fs_mard>-matnr.
      APPEND <fs_final> TO <ft_final>.
      CLEAR l_matnr.
      l_matnr = <fs_mard>-matnr.
      CLEAR : l_werks.
      l_werks    = <fs_mard>-werks.
      UNASSIGN : <fs_value>, <fs_final>.
    Create dynamic work area and assign to FS
      CREATE DATA t_line LIKE LINE OF <ft_final>.
      ASSIGN t_line->*   TO <fs_final>.
      ASSIGN COMPONENT 'MATNR' OF STRUCTURE <fs_final> TO <fs_value>.
      <fs_value>        = <fs_mard>-matnr.
      ASSIGN COMPONENT l_werks OF STRUCTURE <fs_final> TO <fs_value>.
      <fs_value>        = <fs_value> + <fs_mard>-labst.
    getting Article Type,MC & its Descriptions
      PERFORM get_other_data    USING     l_matnr
                                         l_werks.
    ELSE.
      CLEAR : l_werks.
      l_werks    = <fs_mard>-werks.
      ASSIGN COMPONENT l_werks OF STRUCTURE <fs_final> TO <fs_value>.
      <fs_value>        = <fs_value> + <fs_mard>-labst.
    ENDIF.
    IF l_index = g_lines.
      APPEND <fs_final> TO <ft_final>.
    ENDIF.
ENDLOOP.
l_table = '<ft_final>[]'.
ENDFORM.                    " prepare_final_data
*&      Form get_other_data
FORM get_other_data USING    p_l_matnr
                              p_l_werks.
FIELD-SYMBOLS : <fs_mara>     LIKE LINE OF it_mara,
                  <fs_t023t>    LIKE LINE OF it_t023t,
                  <fs_t134t>    LIKE LINE OF it_t134t,
                  <fs_makt>     LIKE LINE OF it_makt.
READ TABLE it_mara ASSIGNING <fs_mara> WITH KEY matnr = p_l_matnr.   " BINARY SEARCH.
IF sy-subrc = 0 AND <fs_mara> IS ASSIGNED.
    ASSIGN COMPONENT 'MTART' OF STRUCTURE <fs_final> TO <fs_value>.
    <fs_value>        = <fs_mara>-mtart.
    ASSIGN COMPONENT 'MATKL' OF STRUCTURE <fs_final> TO <fs_value>.
    <fs_value>        = <fs_mara>-matkl.
    READ TABLE it_makt ASSIGNING <fs_makt> WITH KEY matnr = <fs_mara>-matnr   BINARY SEARCH.
    IF sy-subrc = 0 AND <fs_makt> IS ASSIGNED.
      ASSIGN COMPONENT 'MAKTX' OF STRUCTURE <fs_final> TO <fs_value>.
      <fs_value>        = <fs_makt>-maktx.
    ENDIF.
    READ TABLE it_t023t ASSIGNING <fs_t023t> WITH KEY matkl = <fs_mara>-matkl BINARY SEARCH.
    IF sy-subrc = 0 AND <fs_t023t> IS ASSIGNED.
      ASSIGN COMPONENT 'WGBEZ' OF STRUCTURE <fs_final> TO <fs_value>.
      <fs_value>      = <fs_t023t>-wgbez.
    ENDIF.
    READ TABLE it_t134t ASSIGNING <fs_t134t> WITH KEY mtart = <fs_mara>-mtart BINARY SEARCH.
    IF sy-subrc = 0 AND <fs_t134t> IS ASSIGNED.
      ASSIGN COMPONENT 'MTBEZ' OF STRUCTURE <fs_final> TO <fs_value>.
      <fs_value>      = <fs_t134t>-mtbez.
    ENDIF.
ENDIF.
ENDFORM.                    " get_other_data
*&      Form display_data
      text
FORM display_data USING    p_l_table
                            p_l_fcat.
DATA:
Variable for Object Creation
o_report TYPE REF TO lcl_report.
CREATE OBJECT o_report.
o_report->display( EXPORTING l_table = p_l_table
                               l_fcat = p_l_fcat ).
ENDFORM.                    " display_data

I don't know how to read the code you pasted or I would have checked this myself.
Do your fields in the internal table reference dictionary objects or elementary types? If not using dictionary types, the column names will be blank by default. If you can't change your fields to be dictionary types, you can try this to change the column names:
I made a method inside my local class to add the names:
        call method set_colname
          EXPORTING iv_tab = alv_tab
                    iv_colid = 'xxxx' "fieldname from the table
                    iv_stxt = text-t54
                    iv_mtxt = text-t55
                    iv_ltxt = text-t55.
METHOD set_colname .
data:
          alv_cols type REF TO cl_salv_columns_table,
          alv_col type REF TO cl_salv_column.
TRY .
*... Change fieldnames
        call METHOD iv_tab->get_columns RECEIVING value = alv_cols.
        call method alv_cols->get_column EXPORTING columnname = iv_colid RECEIVING value = alv_col.
        IF iv_stxt <> ''.
          CALL METHOD alv_col->set_short_text EXPORTING value = iv_stxt.
        ENDIF.
        IF iv_mtxt <> ''.
          CALL METHOD alv_col->set_medium_text EXPORTING value = iv_mtxt.
        ENDIF.
        IF iv_ltxt <> ''.
          CALL METHOD alv_col->set_long_text EXPORTING value = iv_ltxt.
        ENDIF.
   CATCH cx_salv_not_found.
ENDTRY.
ENDMETHOD. "set_colname

Table in Header of ALV

Hi,
I want to display header of alv grid in table format with rows and columns. Please suggest on the same. Points will be rewarded.

hi,
     see the below code .this may help u .
*Table declaration.
TABLES:ZEMP_MST,ZDEPT_MST,ZDESG_MST,ZSL_TXN.
*Varriable declaration.
TYPE-POOLS SLIS.
DATA : POS TYPE I.
DATA REPID LIKE SY-REPID.
DATA : F1 TYPE SLIS_T_FIELDCAT_ALV,
       F2 TYPE SLIS_FIELDCAT_ALV,
       L_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA L_POS TYPE I VALUE 1.               "position of the column
DATA GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
*DATA GT_SORT TYPE SLIS_T_SORTINFO_ALV.
data: GT_EVENTS    TYPE SLIS_T_EVENT,
       FS_EVENTCAT LIKE LINE OF GT_EVENTs.
*Internal table declaration.
*DATA BEGIN OF IT_SORT OCCURS 5.
     INCLUDE TYPE SLIS_SORTINFO_ALV.
*DATA END OF IT_SORT.
DATA:BEGIN OF ITAB OCCURS 0,
      ZEMPNO    LIKE ZEMP_MST-ZEMPNO,
      ZEMPNAME LIKE ZEMP_MST-ZEMPNAME,
      ZDEPTCD   LIKE ZEMP_MST-ZDEPTCD,
      ZDEPTNAME LIKE ZDEPT_MST-ZDEPTNAME,
      ZDESGCD   LIKE ZEMP_MST-ZDESGCD,
      ZDESGNAME LIKE ZDESG_MST-ZDESGNAME,
     END OF ITAB.
REFRESH ITAB.CLEAR ITAB.
START-OF-SELECTION.
SELECT AZEMPNO AZEMPNAME AZDEPTCD BZDEPTNAME AZDESGCD CZDESGNAME
       FROM ZEMP_MST AS A
         INNER JOIN ZDEPT_MST AS B
           ON AZDEPTCD EQ BZDEPTCD
         INNER JOIN ZDESG_MST AS C
           ON AZDESGCD EQ CZDESGCD
       INTO CORRESPONDING FIELDS OF TABLE ITAB.
IF SY-SUBRC <> 0.
   MESSAGE E899(M3) WITH 'No records'.
ENDIF.
perform f_build_eventcat.
PERFORM LAYOUT.
END-OF-SELECTION.
*&      Form LAYOUT
FORM LAYOUT .
PERFORM FCAT USING 'ZEMPNO'    'ITAB' '' 'Emp.No.'   'ZEMPNO'    'ZEMP_MST' ''.
PERFORM FCAT USING 'ZEMPNAME' 'ITAB' '' 'Emp. Name' 'ZEMPNAME' 'ZEMP_MST' ''.
PERFORM FCAT USING 'ZDEPTCD'   'ITAB' '' 'Dept.Code' 'ZDEPTCD'   'ZEMP_MST' ''.
PERFORM FCAT USING 'ZDEPTNAME' 'ITAB' '' 'Dept.Name' 'ZDEPTNAME' 'ZDEPT_MST' ''.
PERFORM FCAT USING 'ZDESGCD'   'ITAB' '' 'Desg.Code' 'ZDESGCD'   'ZEMP_MST' ''.
PERFORM FCAT USING 'ZDESGNAME' 'ITAB' '' 'Desg.Name' 'ZDESGNAME' 'ZDESG_MST' ''.
PERFORM LSORT USING 'ZEMPNO' 'IDATA' ''.
PERFORM LSORT USING 'ZEMPNAME' 'IDATA' ''.
MOVE IT_SORT[] TO GT_SORT[].
REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
         I_CALLBACK_PROGRAM       = REPID
         IT_FIELDCAT              = F1
        IT_SORT                  = GT_SORT
         I_SAVE                   = 'X'
         IT_EVENTS                = GT_EVENTS[]
     TABLES
          T_OUTTAB                 = ITAB.
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.                    " LAYOUT
*&      Form FCAT
FORM FCAT USING P_FIELD P_TABLE P_SUM P_TEXT P_RFIELD P_RTABLE P_DISP.
ADD 1 TO POS.
F2-COL_POS       = POS.
F2-FIELDNAME     = P_FIELD.
F2-TABNAME       = P_TABLE.
F2-SELTEXT_L     = P_TEXT.
F2-REF_FIELDNAME = P_RFIELD.
F2-REF_TABNAME   = P_RTABLE.
F2-DO_SUM        = P_SUM.
F2-NO_OUT        = P_DISP.
APPEND F2 TO F1.
CLEAR F2.
ENDFORM.                " FCAT
*&      Form LSORT
*FORM LSORT USING P_FIELD P_TABLE P_UP.
ADD 1 TO L_POS.
IT_SORT-SPOS      = L_POS.
IT_SORT-FIELDNAME = P_FIELD.
IT_SORT-TABNAME   = P_TABLE.
IT_SORT-UP        = P_UP.
APPEND IT_SORT.
*ENDFORM.                    " LSORT
FORM F_BUILD_EVENTCAT .
CLEAR: GT_EVENTS. REFRESH: GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'TOP_OF_PAGE'.
FS_EVENTCAT-FORM = 'F_REPORT_HEADER_ALV'.
APPEND FS_EVENTCAT TO GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'END_OF_LIST'.
FS_EVENTCAT-FORM = 'F_WRITE_SUMMARY'.
APPEND FS_EVENTCAT TO GT_EVENTS.
ENDFORM.                    " F_BUILD_EVENTCAT
FORM F_REPORT_HEADER_ALV.
CALL FUNCTION 'Z_YHEAD_PRINT'
EXPORTING
   TITLE1        = 'XYZ Limited'
   TITLE2        = 'Employee Master'
   TITLE3        = 'Created on '
   COLOR         = 'X'
ENDFORM.
*&      Form F_WRITE_SUMMARY
      Write summary before exit
FORM F_WRITE_SUMMARY .
write:/ 'Welcome to XYZ Limited'.
write:/ 'This is a test program to display Report in ALV Format'.
ENDFORM.

Problem in event handling using oo abap code

Hi,
My requirement is i need to disply 3 blocks in ALV format.I have done that.Now my problem is if i double click on aufnr of the first block, it should call the transaction code. I have written the code in oo abap but i have used function modules for ALV.Now my doubt is 'How to write an event once the user double click on the particular field of the first block, it should call the tcode " using object oriented code.
How to populate the heading for each block using oo abap code.
Thanks & Regards
Anus

hi.....
Use Double_click event handler method of class cl_gui_alv_grid of first block....
if not solved .
Send me Your program lines ...........
Best Regards
Prabhakar

How to place header and footer in OO-ALV program using class

How to place header and footer in OO-ALV program using class tell me wat r the class we shold use and their attributes as well

Hi Venkatesh,
Take a look at this how to [ABAP Objects - ALV Model - Using Header and Footer|https://wiki.sdn.sap.com/wiki/x/xdw]
it's explaining how to define the classes and use it for display an ALV with Header and Footer.
Regards,
Marcelo Ramos

Display selection screen details in the header of ALV

hi..
can someone please help me on how to display the data in the selection screen in the header in ALV?
i hope someone can help me..thanks very much..

Simple ALV report
http://www.sapgenie.com/abap/controls/alvgrid.htm
http://wiki.ittoolbox.com/index.php/Code:Ultimate_ALV_table_toolbox
ALV
1. Please give me general info on ALV.
http://www.sapfans.com/forums/viewtopic.php?t=58286
http://www.sapfans.com/forums/viewtopic.php?t=76490
http://www.sapfans.com/forums/viewtopic.php?t=20591
http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.
2. How do I program double click in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=11601
http://www.sapfans.com/forums/viewtopic.php?t=23010
3. How do I add subtotals (I have problem to add them)...
http://www.sapfans.com/forums/viewtopic.php?t=20386
http://www.sapfans.com/forums/viewtopic.php?t=85191
http://www.sapfans.com/forums/viewtopic.php?t=88401
http://www.sapfans.com/forums/viewtopic.php?t=17335
4. How to add list heading like top-of-page in ABAP lists?
http://www.sapfans.com/forums/viewtopic.php?t=58775
http://www.sapfans.com/forums/viewtopic.php?t=60550
http://www.sapfans.com/forums/viewtopic.php?t=16629
5. How to print page number / total number of pages X/XX in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=29597 (no direct solution)
6. ALV printing problems. The favourite is: The first page shows the number of records selected but I don't need this.
http://www.sapfans.com/forums/viewtopic.php?t=64320
http://www.sapfans.com/forums/viewtopic.php?t=44477
7. How can I set the cell color in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=52107
8. How do I print a logo/graphics in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=81149
http://www.sapfans.com/forums/viewtopic.php?t=35498
http://www.sapfans.com/forums/viewtopic.php?t=5013
9. How do I create and use input-enabled fields in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=84933
http://www.sapfans.com/forums/viewtopic.php?t=69878
10. How can I use ALV for reports that are going to be run in background?
http://www.sapfans.com/forums/viewtopic.php?t=83243
http://www.sapfans.com/forums/viewtopic.php?t=19224
11. How can I display an icon in ALV? (Common requirement is traffic light icon).
http://www.sapfans.com/forums/viewtopic.php?t=79424
http://www.sapfans.com/forums/viewtopic.php?t=24512
12. How can I display a checkbox in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=88376
http://www.sapfans.com/forums/viewtopic.php?t=40968
http://www.sapfans.com/forums/viewtopic.php?t=6919
Go thru these programs they may help u to try on some hands on
ALV Demo program
BCALV_DEMO_HTML
BCALV_FULLSCREEN_DEMO ALV Demo: Fullscreen Mode
BCALV_FULLSCREEN_DEMO_CLASSIC ALV demo: Fullscreen mode
BCALV_GRID_DEMO Simple ALV Control Call Demo Program
BCALV_TREE_DEMO Demo for ALV tree control
BCALV_TREE_SIMPLE_DEMO
BC_ALV_DEMO_HTML_D0100

Displaying header in ALV By using OO ABAP

Similar Messages

Maybe you are looking for