ALV Tree Grid...

How can I make a ALV grid like the one I created with REUSE_ALV_GRID_DISPLAY but with tree structure..
I saw a few examples but almost all of them are like text output.. And the ones with graphical looking outputs are like SAP's menü, and doesn't seem like grid at all.
Well, I hope there is any way to do this.

If you are looking for a FM like REUSE_ALV_GRID_DISPLAY, no. But the class is very easy to use. you can look into BCALV_TEST_SIMPLE_TREE or if you are newer release of SAP, you can also look into SALV_DEMO_TREE_SIMPLE.
Albert

Similar Messages

ALV Tree/Grid: maximum columns

Hello.
How many columns can have a maximum of ALV Tree/Grid?
Thanks.
P.S. Sorry, self-solved: OO ALV : Maximum number of columns, Daixiong Jiang.

Hello Emir
Call the static method cl_gui_cfw=>set_new_okcode with your required ok-code. The short description of this methods says "Be careful: This sets a new Fcode in Eventhandler for PAI", exactly what you want.
Regards
Uwe

Suppressing empty nodes in ALV tree grid

Hi, I'm writing an ALV tree report with financial data broken down by cost element hierarchy. We've determined that the maximum number of levels in our hierarchy is seven so have to build the program to accept seven node levels. Most times when it runs it will find fewer than seven nodes. Is there an easy to to suppress empty columns in the report so that the end user does not not see a bunch of empty nodes in the report?

Expand or Collapse Branches or Hide Areas
You are able to expand and collapse the branches of the tree structure individually or together. Beyond that you are able to make a node or an item completely invisible.
Methods
Function                                       Class                                   Method
Expand individual branch               CL_SALV_NODE                  EXPAND
Collapse individual branch                                                        COLLAPSE
Expand all branches                    CL_SALV_NODES                EXPAND_ALL
Collapse all branches                                                              COLLAPSE_ALL
Change visibility of a node            CL_SALV_NODE                  SET_VISIBLE
Check whether the node is visible                                             IS_VISIBLE
Change visibility of an item             CL_SALV_ITEM                 SET_VISIBLE
Check whether the item is visible                                             IS_VISIBLE

Editable Field in ALV Tree Control

Hello All,
Can anyone tell me how can i make a field editable in an Alv Tree grid. I have tried with fiedcatalog-edit = 'X'. but that doesn't work.
also please provide a piece of code to be clear ...
Thanks,
Ravi Aswani

hI ,
Data : LI_fieldcat type lvc_t_fcat,
          ls_fcat type lvc_s_fcat.
IF OKCODE = 'MAIN'.
      CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
    I_BUFFER_ACTIVE              =
      i_structure_name             = 'ZCUS'
    I_CLIENT_NEVER_DISPLAY       = 'X'
    I_BYPASSING_BUFFER           =
    I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = LI_fieldcat[]            .
LOOP AT LI_FIELDCAT INTO LS_FCAT.
    CASE ls_fcat-fieldname.
      WHEN 'KUNNR'.
        ls_fcat-col_pos = 1.
      WHEN 'NAME1'.
        ls_fcat-edit = 'X'.
        ls_fcat-col_pos = 2.
      WHEN 'ORT01'.
        ls_fcat-edit = 'X'.
        ls_fcat-col_pos = 3.
        ls_fcat-drdn_hndl = '1'.
        ls_fcat-outputlen = 20.
      WHEN 'LAND1'.
        ls_fcat-edit = 'X'.
        ls_fcat-col_pos = 4.
    ENDCASE.
    MODIFY LI_fieldcat FROM ls_fcat.
ENDLOOP.
ENDIF.
With this The internal Table contains 4 fields Kunnr Name1 Ort01 Land1 Here Kunnr is the Key field so , it is not editable , reaming fields are Editable.
There u must write the Modify statement.
check it once
Regards
Krishna

Problem with same layout (variant) for two ALV Grid and ALV Tree

Hello!
I have two docking containers on the screen. On the left i have cl_gui_alv_tree, on the right cl_salv_table.
When a user set a default layout for ALV Grid (or ALV Tree), raport starts and sets this layout in both objects (tree and grid).
How to avoid this?

Hi,
Take Two radio buttons.
First radion button display the two containers in grid format,
second radio button display the two containers in tree format base on user selection.
CREATE OBJECT G_DOCING_CONTAINER
    EXPORTING PARENT = G_CUSTOM_CONTAINER."G_CONTAINER.
DISPLAY THE DATA IN GRID FORMATA
CREATE OBJECT r_grid
    EXPORTING
      i_parent          = G_DOCING_CONTAINER
CALL METHOD g_docing_container->set_width
      EXPORTING
        width      = 1300.
DISPLAY THE GRID DATA IN SECOND CONTAINER
CREATE OBJECT r_grid1
    EXPORTING
      i_parent          = G_DOCING_CONTAINER
CALL METHOD g_docing_container->set_width
      EXPORTING
        width      = 1300.
OTHERWISE WE CAN DISPLAY THE TWO CONTAINERS DATA IN A GRID FORMAT
CREATE OBJECT g_tree
    EXPORTING
      parent                = g_docing_container"g_custom_container
IF R1 = 'X'. "FOR GRID DISPLAY
CALL METHOD r_grid1->set_table_for_first_display
CALL METHOD r_grid2->set_table_for_first_display
ELSE.
************TREE DISPLAY
ENDIF.
regards,
muralii

How to 'grid' an ALV tree

hi there,
i have a program with ALV tree.
is it possible to 'grid' the columns ? i mean to put vertical lines between each field like it is in standard-alv-grid ?
reg, Martin

Hi,
*****HIERRACHIAL ALVS FOR KNA1 AND VBAK
*& Report ZJE_ALV_HIERRACHIAL1
REPORT zje_alv_hierrachial1.
TYPE-POOLS: slis.
TABLES: kna1, vbak ,vbap.
TYPES: BEGIN OF ty_kna1,
 kunnr LIKE kna1-kunnr,
 land1 LIKE kna1-land1,
 name1 LIKE kna1-name1,
 ort01 LIKE kna1-ort01,
 var1,
 END OF ty_kna1.
TYPES: BEGIN OF ty_vbak,
 KUNNR LIKE VBAK-KUNNR,
 vbeln LIKE vbak-vbeln,
 erdat LIKE vbak-erdat,
 ernam LIKE vbak-ernam,
 netwr LIKE vbak-netwr,
 END OF ty_vbak.
TYPES: BEGIN OF ty_vbap,
 vbeln LIKE vbap-vbeln,
 posnr LIKE vbap-posnr,
 matnr LIKE vbap-matnr,
 END OF ty_vbap.
DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1,
 wa_kna1 TYPE ty_kna1.
DATA: it_vbak TYPE STANDARD TABLE OF ty_vbak,
 wa_vbak TYPE ty_vbak.
DATA: it_vbap TYPE STANDARD TABLE OF ty_vbap,
 wa_vbap TYPE ty_vbap.
DATA: kinfo TYPE slis_keyinfo_alv.
DATA: wa_layout TYPE slis_layout_alv,
 it_fieldcat TYPE slis_t_fieldcat_alv,
 wa_fieldcat TYPE slis_fieldcat_alv,
 it_event_kna1 TYPE slis_t_event,
 wa_event_kna1 TYPE slis_alv_event,
 it_event_vbak TYPE slis_t_event,
 wa_event_vbak TYPE slis_alv_event,
 it_event_vbap TYPE slis_t_event,
 wa_event_vbap TYPE slis_alv_event.
SELECT-OPTIONS: s_kunnr FOR kna1-kunnr DEFAULT 1000 TO 1500.
INITIALIZATION.
PERFORM layout.
PERFORM fieldcat.
kinfo-header01 = 'KUNNR'.
kinfo-item01 = 'KUNNR'.
START-OF-SELECTION.
PERFORM datafetch_kna1.
PERFORM datafetch_vbak.
PERFORM display.
*& Form fieldcat
 text
FORM fieldcat .
REFRESH it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'KUNNR'.
wa_fieldcat-seltext_l = 'CUSTOMER NUMBER'.
wa_fieldcat-datatype = 'CHAR'.
wa_fieldcat-outputlen = 30.
wa_fieldcat-tabname = 'IT_KNA1'.
wa_fieldcat-key = 'X'.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-emphasize = 'C21'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LAND1'.
wa_fieldcat-seltext_l = 'COUNTRY CODE'.
wa_fieldcat-datatype = 'CHAR'.
wa_fieldcat-outputlen = 30.
wa_fieldcat-tabname = 'IT_KNA1'.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-emphasize = 'C31'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-seltext_l = 'CUSTOMER NAME'.
wa_fieldcat-datatype = 'CHAR'.
wa_fieldcat-outputlen = 35.
wa_fieldcat-tabname = 'IT_KNA1'.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-emphasize = 'C71'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ORT01'.
wa_fieldcat-seltext_l = 'COUNTRY '.
wa_fieldcat-datatype = 'CHAR'.
wa_fieldcat-outputlen = 30.
wa_fieldcat-tabname = 'IT_KNA1'.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-emphasize = 'C51'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'VBELN'.
wa_fieldcat-seltext_l = 'SALES ORDER'.
wa_fieldcat-datatype = 'CHAR'.
wa_fieldcat-outputlen = 30.
wa_fieldcat-tabname = 'IT_VBAK'.
wa_fieldcat-key = 'X'.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-emphasize = 'C11'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ERDAT'.
wa_fieldcat-seltext_l = 'CREATED ON'.
wa_fieldcat-datatype = 'DATS'.
wa_fieldcat-outputlen = 35.
wa_fieldcat-tabname = 'IT_VBAK'.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-emphasize = 'C61'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ERNAM'.
wa_fieldcat-seltext_l = 'CREATED BY'.
wa_fieldcat-datatype = 'CHAR'.
wa_fieldcat-outputlen = 35.
wa_fieldcat-tabname = 'IT_VBAK'.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-emphasize = 'C21'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'NETWR'.
wa_fieldcat-seltext_l = 'NET VALUE'.
wa_fieldcat-datatype = 'CURR'.
wa_fieldcat-outputlen = 30.
wa_fieldcat-tabname = 'IT_VBAK'.
wa_fieldcat-hotspot = 'X'.
wa_fieldcat-emphasize = 'C41'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. "fieldcat
*& Form layout
 text
--> p1 text
<-- p2 text
FORM layout .
wa_layout-zebra = 'X'.
wa_layout-colwidth_optimize = 'X'.
wa_layout-totals_text = 'GRAND_TOTAL'.
wa_layout-subtotals_text = 'SUB_TOTAL'.
wa_layout-Box_fieldname = 'X'.
wa_layout-expand_fieldname = 'VAR1'.
ENDFORM. "layout
*& Form DATAFETCH_KNA1
 text
--> p1 text
<-- p2 text
FORM datafetch_kna1 .
SELECT kunnr land1 name1 ort01
 FROM kna1
 INTO TABLE it_kna1
 WHERE kunnr IN s_kunnr.
ENDFORM. " DATAFETCH_KNA1
*& Form DATAFETCH_VBAK
 text
--> p1 text
<-- p2 text
FORM datafetch_vbak .
SELECT KUNNR vbeln erdat ernam netwr
 FROM vbak
 INTO TABLE it_vbak
 FOR ALL ENTRIES IN it_kna1
 WHERE kunnr = it_kna1-kunnr.
ENDFORM. " DATAFETCH_VBAK
*& Form DISPLAY
 text
--> p1 text
<-- p2 text
FORM display .
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
 i_callback_program = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
 is_layout = wa_layout
 it_fieldcat = it_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
 i_screen_start_column = 5
 i_screen_start_line = 1
 i_screen_end_column = 150
 i_screen_end_line = 35
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
 i_tabname_header = 'IT_KNA1'
 i_tabname_item = 'IT_VBAK'
I_STRUCTURE_NAME_HEADER =
I_STRUCTURE_NAME_ITEM =
 is_keyinfo = kinfo
IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IR_SALV_HIERSEQ_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab_header = it_kna1
 t_outtab_item = it_vbak
 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. " DISPLAY
Regards,
Jagadish

To display ALV tree in one of the fields in Grid display..

hi,
I displayed 4 fields in Grid as we usually do.. but I have to display another field with ALV tree in it.. Actually first what is the method to add a tree in Grid.. I searched in class CL_GUI_ALV_GRID.. but i couldn't find appropriate method in it.. so plz help me out..
thanks in advance..
Edited by: RameshKumar on Jul 2, 2009 8:44 AM

Hi Xier,
Try this I will give you steps
1) goto Message mapping >Choose the Date Function->select Current Date double click on the current date > choose it--> Remove the date in the date format (Make it emty) ---> choose second text box is time choose it which format do u want u can choose it. This one will display only time. because u choose the date is emty it won't display date. so u r problem will be solve
If you need any info let me know.
Regards
Ramidi S

Double click in ALV tree output????

Hi all,
I am able to display output in tree format. But I want to add the double click functionality to some of the fields in output. Means if I double click on some value in output tree, it should call some transaction. Please help me with this issue of double clicking.
Please tell how to handle events in this report tree display.
For the following code its displaying output in tree format and in right way. But i need to add double click functionality to this.
So provide me some sample program for this one....
* create hierarchy
CALL METHOD tree1->set_table_for_first_display
 EXPORTING
 it_list_commentary = lt_list_commentary
 i_background_id = 'ALV_BACKGROUND'
 i_save = 'A'
 is_variant = ls_variant
 CHANGING
 it_sort = gt_sort[]
 it_outtab = itab_outtab
 it_fieldcatalog = t_fieldcat. "gt_fieldcatalog.
* expand first level
CALL METHOD tree1->expand_tree
 EXPORTING
 i_level = 1.
* optimize column-width
CALL METHOD tree1->column_optimize
 EXPORTING
 i_start_column = tree1->c_hierarchy_column_name
 i_end_column = tree1->c_hierarchy_column_name.
In grid ALV we can have double cilck functionality using code:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = w_repid
 i_callback_pf_status_set = 'PF_STATUS'
 i_callback_user_command = 'USER_COMMAND'
 is_layout = ls_layout
 it_fieldcat = gt_fc[]
Here we can write subroutine for USER_COMMAND and handle the double click evenet. But tell me how to provide this in tree ALV.
<REMOVED BY MODERATOR>
Regards,
Sachin
Edited by: Alvaro Tejada Galindo on Feb 14, 2008 1:47 PM

Hello Sachin
The following sample report ZUS_SDN_ALV_TREE_DEMO demonstrates the crucial parts for double-click event handling (nodes & items) in ALV trees.
*& Report ZUS_SDN_ALV_TREE_DEMO
*& Thread: double click in ALV tree output????
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="742412"></a>
REPORT zus_sdn_alv_tree_demo.
CLASS cl_gui_column_tree DEFINITION LOAD.
CLASS cl_gui_cfw DEFINITION LOAD.
TYPE-POOLS: abap.
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE knvv AS data.
TYPES: nkey TYPE lvc_nkey.
TYPES: parent_key TYPE lvc_nkey.
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab TYPE STANDARD TABLE OF ty_s_outtab
 WITH DEFAULT KEY.
DATA: gt_outtab TYPE ty_t_outtab.
DATA:
gd_okcode TYPE ui_func,
gd_repid TYPE syst-repid,
gt_fcat TYPE lvc_t_fcat,
gs_layout TYPE lvc_s_layo,
gs_variant TYPE disvariant,
go_docking TYPE REF TO cl_gui_docking_container,
go_tree TYPE REF TO cl_gui_alv_tree.
* CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
 CLASS-METHODS:
 handle_node_double_click
 FOR EVENT node_double_click OF cl_gui_alv_tree
 IMPORTING node_key,
 handle_item_double_click
 FOR EVENT item_double_click OF cl_gui_alv_tree
 IMPORTING node_key
 fieldname.
ENDCLASS. "lcl_eventhandler DEFINITION
* CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_node_double_click.
 message 'Event=Double-Click on Node' type 'I'.
 call transaction 'XD03'.
ENDMETHOD. "handle_node_double_click
METHOD handle_item_double_click.
 message 'Event=Double-Click on Item' type 'I'.
 call transaction 'VA03'.
ENDMETHOD. "handle_item_double_click
ENDCLASS. "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
PERFORM init_controls.
gd_repid = syst-repid.
CALL METHOD go_docking->link
 EXPORTING
 repid = gd_repid
 dynnr = '0100'
* container =
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 lifetime_dynpro_dynpro_link = 3
 OTHERS = 4.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL SCREEN '0100'.
** NOTE: no elements on screen
** PROCESS BEFORE OUTPUT.
** MODULE STATUS_0100.
** PROCESS AFTER INPUT.
** MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*& Module STATUS_0100 OUTPUT
* text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE user_command_0100 INPUT.
TRANSLATE gd_okcode TO UPPER CASE.
CASE gd_okcode.
 WHEN 'BACK' OR
 'EXIT' OR
 'CANC'.
 SET SCREEN 0. LEAVE SCREEN.
 WHEN 'REFRESH'.
 WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form init_controls
* text
* --> p1 text
* <-- p2 text
FORM init_controls .
* Create docking container
CREATE OBJECT go_docking
 EXPORTING
 parent = cl_gui_container=>screen0
 ratio = 90
 EXCEPTIONS
 OTHERS = 6.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* create tree control
CREATE OBJECT go_tree
 EXPORTING
 parent = go_docking
 node_selection_mode = cl_gui_column_tree=>node_sel_mode_multiple
 item_selection = 'X' " required for double-click event on item
 no_html_header = ''
 no_toolbar = ''
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 illegal_node_selection_mode = 5
 failed = 6
 illegal_column_name = 7.
IF sy-subrc <> 0.
 MESSAGE x208(00) WITH 'ERROR'. "#EC NOTEXT
ENDIF.
* create Hierarchy-header
DATA ls_hierarchy_header TYPE treev_hhdr.
PERFORM build_hierarchy_header CHANGING ls_hierarchy_header.
PERFORM build_fieldcatalog.
PERFORM set_layout_and_variant.
* create emty tree-control
CALL METHOD go_tree->set_table_for_first_display
 EXPORTING
** i_structure_name = 'KNVV'
 is_variant = gs_variant
 i_save = 'A'
* i_default = 'X'
 is_hierarchy_header = ls_hierarchy_header
* is_exception_field =
* it_special_groups =
* it_list_commentary =
* i_logo =
* i_background_id =
* it_toolbar_excluding =
* it_except_qinfo =
 CHANGING
 it_outtab = gt_outtab
* it_filter =
 it_fieldcatalog = gt_fcat.
* create hierarchy
PERFORM create_hierarchy.
* register events
PERFORM register_events.
* adjust column_width
CALL METHOD go_tree->column_optimize.
ENDFORM. " init_controls
*& Form build_hierarchy_header
* build hierarchy-header-information
* -->P_L_HIERARCHY_HEADER strucxture for hierarchy-header
FORM build_hierarchy_header CHANGING
 p_hierarchy_header TYPE treev_hhdr.
p_hierarchy_header-heading = 'Hierarchy Header'. "#EC NOTEXT
p_hierarchy_header-tooltip =
 'This is the Hierarchy Header !'. "#EC NOTEXT
p_hierarchy_header-width = 30.
p_hierarchy_header-width_pix = ''.
ENDFORM. " build_hierarchy_header
*& Form BUILD_FIELDCATALOG
* text
* --> p1 text
* <-- p2 text
FORM build_fieldcatalog .
REFRESH: gt_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
* I_BUFFER_ACTIVE =
 i_structure_name = 'KNVV'
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_BYPASSING_BUFFER =
* I_INTERNAL_TABNAME =
 CHANGING
 ct_fieldcat = gt_fcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_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.
DELETE gt_fcat FROM 8.
ENDFORM. " BUILD_FIELDCATALOG
*& Form SET_LAYOUT_AND_VARIANT
* text
* --> p1 text
* <-- p2 text
FORM set_layout_and_variant .
CLEAR: gs_layout,
 gs_variant.
gs_variant-report = syst-repid.
gs_variant-handle = 'TREE'.
ENDFORM. " SET_LAYOUT_AND_VARIANT
*& Form create_hierarchy
* text
* --> p1 text
* <-- p2 text
FORM create_hierarchy .
DATA: ls_knvv TYPE sflight,
 ls_outtab TYPE ty_s_outtab,
 lt_outtab TYPE ty_t_outtab.
* get data
SELECT * FROM knvv INTO CORRESPONDING FIELDS OF TABLE lt_outtab
 UP TO 200 ROWS . "#EC CI_NOWHERE
SORT lt_outtab BY kunnr vkorg.
* add data to tree
DATA: ld_kunnr_key TYPE lvc_nkey,
 ld_vkorg_key TYPE lvc_nkey,
 ld_last_key TYPE lvc_nkey.
LOOP AT lt_outtab INTO ls_outtab.
 ON CHANGE OF ls_outtab-kunnr.
 PERFORM add_customer_line USING ls_outtab-data
 CHANGING ld_kunnr_key.
 ENDON.
 ON CHANGE OF ls_outtab-vkorg.
 PERFORM add_salesorg_line USING ls_outtab-data
 ld_kunnr_key
 CHANGING ld_vkorg_key.
 ENDON.
 PERFORM add_complete_line USING ls_outtab-data
 ld_vkorg_key
 CHANGING ld_last_key.
ENDLOOP.
* calculate totals
CALL METHOD go_tree->update_calculations.
* this method must be called to send the data to the frontend
CALL METHOD go_tree->frontend_update.
ENDFORM. " create_hierarchy
*& Form add_customer_line
* add hierarchy-level 1 to tree
* -->P_LS_SFLIGHT sflight
* -->P_RELEATKEY relatkey
* <-->p_node_key new node-key
FORM add_customer_line USING us_data TYPE ty_s_outtab-data
 ud_relat_key TYPE lvc_nkey
 CHANGING cd_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
 ls_data TYPE ty_s_outtab-data.
* set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
 ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@A0@'. " icon_customer.
ls_item_layout-fieldname = go_tree->c_hierarchy_column_name.
ls_item_layout-style =
 cl_gui_column_tree=>style_intensifd_critical.
APPEND ls_item_layout TO lt_item_layout.
* add node
l_node_text = us_data-kunnr.
DATA: ls_node TYPE lvc_s_layn.
ls_node-n_image = space.
ls_node-exp_image = space.
CALL METHOD go_tree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = l_node_text
 is_outtab_line = ls_data
 is_node_layout = ls_node
 it_item_layout = lt_item_layout
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_customer_line
*& Form add_salesorg_line
* add hierarchy-level 1 to tree
* -->P_LS_SFLIGHT sflight
* -->P_RELEATKEY relatkey
* <-->p_node_key new node-key
FORM add_salesorg_line USING us_data TYPE ty_s_outtab-data
 ud_relat_key TYPE lvc_nkey
 CHANGING cd_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
 ls_data TYPE ty_s_outtab-data.
* set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
 ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@DS@'. " ICON_PARTNER_SALES_ACTIVITY
ls_item_layout-fieldname = go_tree->c_hierarchy_column_name.
ls_item_layout-style =
 cl_gui_column_tree=>style_intensifd_critical.
APPEND ls_item_layout TO lt_item_layout.
* add node
l_node_text = us_data-vkorg.
DATA: ls_node TYPE lvc_s_layn.
ls_node-n_image = space.
ls_node-exp_image = space.
CALL METHOD go_tree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = l_node_text
 is_outtab_line = ls_data
 is_node_layout = ls_node
 it_item_layout = lt_item_layout
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_salesorg_line
*& Form add_cmplete_line
* add hierarchy-level 3 to tree
* -->P_LS_SFLIGHT sflight
* -->P_RELEATKEY relatkey
* <-->p_node_key new node-key
FORM add_complete_line USING us_data TYPE ty_s_outtab-data
 ud_relat_key TYPE lvc_nkey
 CHANGING cd_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value.
* set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
 ls_item_layout TYPE lvc_s_layi.
ls_item_layout-fieldname = go_tree->c_hierarchy_column_name.
ls_item_layout-class = cl_gui_column_tree=>item_class_checkbox.
** ls_item_layout-editable = 'X'.
APPEND ls_item_layout TO lt_item_layout.
** CLEAR ls_item_layout.
** ls_item_layout-fieldname = 'PLANETYPE'.
** ls_item_layout-alignment = cl_gui_column_tree=>align_right.
** APPEND ls_item_layout TO lt_item_layout.
l_node_text = us_data-vtweg.
DATA: ls_node TYPE lvc_s_layn.
ls_node-n_image = space.
ls_node-exp_image = space.
CALL METHOD go_tree->add_node
 EXPORTING
 i_relat_node_key = ud_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 is_outtab_line = us_data
 i_node_text = l_node_text
 is_node_layout = ls_node
 it_item_layout = lt_item_layout
 IMPORTING
 e_new_node_key = cd_node_key.
ENDFORM. " add_complete_line
*& Form register_events
* text
* --> p1 text
* <-- p2 text
FORM register_events.
* define the events which will be passed to the backend
DATA: lt_events TYPE cntl_simple_events,
 l_event TYPE cntl_simple_event.
* define the events which will be passed to the backend
l_event-eventid = cl_gui_column_tree=>eventid_expand_no_children.
APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_checkbox_change.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_header_context_men_req.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_header_click.
** APPEND l_event TO lt_events.
** l_event-eventid = cl_gui_column_tree=>eventid_item_keypress.
** APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_node_double_click.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_item_double_click.
APPEND l_event TO lt_events.
CALL METHOD go_tree->set_registered_events
 EXPORTING
 events = lt_events
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 illegal_event_combination = 3.
IF sy-subrc <> 0.
 MESSAGE x208(00) WITH 'ERROR'. "#EC NOTEXT
ENDIF.
* set Handler
set handler:
 lcl_eventhandler=>handle_node_double_click for go_tree,
 lcl_eventhandler=>handle_item_double_click for go_tree.
** DATA: l_event_receiver TYPE REF TO lcl_tree_event_receiver.
** CREATE OBJECT l_event_receiver.
** SET HANDLER l_event_receiver->handle_node_ctmenu_request
** FOR tree1.
** SET HANDLER l_event_receiver->handle_node_ctmenu_selected
** FOR tree1.
** SET HANDLER l_event_receiver->handle_item_ctmenu_request
** FOR tree1.
** SET HANDLER l_event_receiver->handle_item_ctmenu_selected
** FOR tree1.
** SET HANDLER l_event_receiver->handle_checkbox_change FOR tree1.
ENDFORM. " register_events
Regards
Uwe

Report with ALV tree and ALV list?

I need to create a report with layout as same as this one
[http://trangiegie.com/MyFile/output.JPG]
It looks like a report with combination of ALV tree and list. The tree works like a navigation bar. Wonder if there are any demo programs like this. Will appreciate any help.

For Tree alone - You can check program : BCALV_TREE_02
Program Name                   Report title
BCALV_GRID_DND_TREE            ALV Grid: Drag and Drop with ALV Tree
BCALV_GRID_DND_TREE_SIMPLE     ALV GRID: Drag and drop with ALV tree (simple)
BCALV_TEST_COLUMN_TREE         Program BCALV_TEST_COLUMN_TREE
BCALV_TEST_SIMPLE_TREE         Program BCALV_TEST_SIMPLE_TREE
BCALV_TREE_01                  ALV Tree Control: Build Up the Hierarchy Tree
BCALV_TREE_02                  ALV Tree Control: Event Handling
BCALV_TREE_03                  ALV Tree Control: Use an Own Context Menu
BCALV_TREE_04                  ALV Tree Control: Add a Button to the Toolbar
BCALV_TREE_05                  ALV Tree Control: Add a Menu to the Toolbar
BCALV_TREE_06                  ALV tree control: Icon column and icon for nodes/items
BCALV_TREE_DEMO                Demo for ALV tree control
BCALV_TREE_DND                 ALV tree control: Drag & Drop within a hierarchy tree
BCALV_TREE_DND_MULTIPLE        ALV tree control: Drag & Drop within a hierarchy tree
BCALV_TREE_EVENT_RECEIVER      Include BCALV_TREE_EVENT_RECEIVER
BCALV_TREE_EVENT_RECEIVER01
BCALV_TREE_ITEMLAYOUT          ALV Tree: Change Item Layouts at Runtime
BCALV_TREE_MOVE_NODE_TEST      Demo for ALV tree control
BCALV_TREE_SIMPLE_DEMO         Program BCALV_TREE_SIMPLE_DEMO
BCALV_TREE_VERIFY              Verifier for ALV Tree and Simple ALV Tree

How to change the color of specific row in ALV tree

Hi,
I m using method set_table_for_first_display of a class CL_GUI_ALV_TREE.
The req is to change the color of specific row. Now can anybody tell me how to change the color of ALV tree. As in ALV tree and in this method 'set_table_for_first_display', there is no parameter IS_Layout.
Pls suggest...

hi
hope this code will help you.
Reward if help.
REPORT zsharad_test1.
TABLES: ekko.
TYPE-POOLS: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) TYPE c, "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
wa_ekko TYPE t_ekko.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_tab_group TYPE slis_t_sp_group_alv,
gd_layout TYPE slis_layout_alv,
gd_repid LIKE sy-repid.
*Start-of-selection.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*& Form BUILD_FIELDCATALOG
Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
There are a number of ways to create a fieldcat.
For the purpose of this example i will build the fieldcatalog manualy
by populating the internal table fields individually and then
appending the rows. This method can be the most time consuming but can
also allow you more control of the final product.
Beware though, you need to ensure that all fields required are
populated. When using some of functionality available via ALV, such as
total. You may need to provide more information than if you were
simply displaying the result
I.e. Field type may be required in-order for
the 'TOTAL' function to work.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-col_pos = 2.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
fieldcatalog-datatype = 'CURR'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
fieldcatalog-col_pos = 8.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
Build layout for ALV grid report
FORM build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
Set layout field for row attributes(i.e. color)
gd_layout-info_fieldname = 'LINE_COLOR'.
gd_layout-totals_only = 'X'.
gd_layout-f2code = 'DISP'. "Sets fcode for when double
"click(press f2)
gd_layout-zebra = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text = 'helllllo'.
ENDFORM. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
Display report using ALV grid
FORM display_alv_report.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = gd_repid
i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
i_callback_user_command = 'USER_COMMAND'
i_grid_title = outtext
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
it_special_groups = gd_tabgroup
IT_EVENTS = GT_XEVENTS
i_save = 'X'
is_variant = z_template
TABLES
t_outtab = it_ekko
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. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
DATA: ld_color(1) TYPE c.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
UP TO 10 ROWS
FROM ekpo
INTO TABLE it_ekko.
*Populate field with color attributes
LOOP AT it_ekko INTO wa_ekko.
Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
i.e. wa_ekko-line_color = 'C410'
ld_color = ld_color + 1.
Only 7 colours so need to reset color value
IF ld_color = 8.
ld_color = 1.
ENDIF.
CONCATENATE 'C' ld_color '10' INTO wa_ekko-line_color.
wa_ekko-line_color = 'C410'.
MODIFY it_ekko FROM wa_ekko.
ENDLOOP.
ENDFORM. " DATA_RETRIEVAL

How to download the datas of ALV tree without passing iternal table

Hi,
I want to download the values of ALV tree output in an Excel file without using any internal table.
Please suggest your thoughts on the same.
Regards,
Shasiraj.C
Edited by: Raj Shasi on Aug 1, 2008 8:44 AM

There is one option -Export' in menu bar of ALV grid itself. Click on that and then click 'Local File'. Then choose 'Spreadsheet' option and provide local PC path for download.
Regards,
Aparna Gaikwad

Has anyone tried to export an ALV Tree to an excel sheet?

Hi "gurus",
I've been looking for a way of exporting a printed report in an ALV tree to an Excel sheet.
Has someone done this before?
NOTE: I am studying the Office Integration, which I believe it can be a way of making SAP generates it via ABAP objects.
Thanks and Regards,
Daniel Carvalho
Edited by: Daniel Carvalho on Feb 28, 2008 11:40 PM

(Add a Button function in the ON Toolbar such as EXCEL and set event handlers).
METHOD on_user_command.
 break-point 2.
CASE e_ucomm.
 WHEN 'EXIT'.
 LEAVE PROGRAM.
 WHEN 'EXCEL'.
 CALL METHOD me->download_to_excel.
 WHEN 'SAVE'.
 WHEN 'PROC'.
 CALL METHOD me->process.
 WHEN 'REFR'.
 CALL METHOD me->refresh.
ENDCASE.
endmethod.
METHOD on_toolbar.
CLEAR ls_toolbar.
 MOVE 0 TO ls_toolbar-butn_TYPE.
MOVE 'EXCEL' TO ls_toolbar-function.
MOVE SPACE TO ls_toolbar-disabled.
MOVE icon_xxl TO ls_toolbar-icon.
MOVE 'Excel' TO ls_toolbar-quickinfo.
MOVE 'EXCEL' TO ls_toolbar-text.
APPEND ls_toolbar TO e_object->mt_toolbar.
endmethod.
METHOD download_to_excel.
field-symbols:
 <fs0> TYPE standard table,
 <fs1> TYPE standard table.
assign g_outtab1->* to <fs0>.
assign g_fldcat1->* to <fs1>.
break-point 5.
CALL FUNCTION 'LVC_TRANSFER_TO_KKBLO'
 EXPORTING
 it_fieldcat_lvc = <fs1>
* is_layout_lvc = m_cl_variant->ms_layout
 is_tech_complete = ' '
 IMPORTING
 es_layout_kkblo = ls_layout
 et_fieldcat_kkblo = lt_fieldcat.
 LOOP AT lt_fieldcat INTO lt_fieldcat_wa.
 CLEAR lt_fieldcat_wa-tech_complete.
 IF lt_fieldcat_wa-tabname IS initial.
 lt_fieldcat_wa-tabname = '1'.
 MODIFY lt_fieldcat FROM lt_fieldcat_wa.
 ENDIF.
 l_tabname = lt_fieldcat_wa-tabname.
 ENDLOOP.
CALL FUNCTION 'ALV_XXL_CALL'
 EXPORTING
 i_tabname = l_tabname
 is_layout = ls_layout
 it_fieldcat = lt_fieldcat
 i_title = sy-title
 TABLES
 it_outtab = <fs0>
 EXCEPTIONS
 fatal_error = 1
 no_display_possible = 2
 others = 3.
IF sy-subrc <> 0.
 message id sy-msgid TYPE 'S' number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ENDMETHOD.
Your original table that goes to the grid is parameter g_outtab1
the field catalog is g_fldcat1.
These need to be converted to kkblo format to use the XXL function module.
The advantage of this method is that you get an EXCEL spreadsheet interactively.
(Of course the standard export function will still work).
Cheers
Jimbo

Display Traffic Lights in ALV TREE

Hi,
I have to display traffic light in ALV tree but i am not able to find out what parameter i should pass like in ALV grid where we can set is_layout (BCALV_GRID_04).
Thanks in advance.
Regards,
Harsh

Hi,
Please take a look at my code below. Hope it suits your requirement.
P.S. Please award points if it helps...
*& Report ZMM_R_PO_TO_IPURCH_XI
*& PROGRAM TYPE : Report
*& RICEF ID :
*& TITLE : ZMM_R_PO_TO_IPURCH_XI
*& SAP Module : MM
*& CREATION DATE : 02/06/2008
*& AUTHOR : Aris Hidalgo
*& DESIGNER : Aris Hidalgo
*& DESCRIPTION :
*$**********************************************************************
*$ CHANGE HISTORY
*$----------------------------------------------------------------------
*$ DATE | T-Num | Description | Reference
** | | |
*$**********************************************************************
REPORT zmm_r_po_to_ipurch_xi
 NO STANDARD PAGE HEADING
 MESSAGE-ID zmm.
* Data Dictionary Table/s *
TABLES: edidc.
* SELECTION-SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_credat FOR edidc-credat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: rb_sum RADIOBUTTON GROUP grp1,
 rb_det RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b2.
*/ CLASS DEFINITION/S /*
* CLASS lcl_data_def DEFINITION
CLASS lcl_data_def DEFINITION ABSTRACT.
PUBLIC SECTION.
 TYPES: BEGIN OF t_edidc,
 docnum TYPE edidc-docnum,
 docrel TYPE edidc-docrel,
 status TYPE edidc-status,
 doctyp TYPE edidc-doctyp,
 direct TYPE edidc-direct,
 rcvpor TYPE edidc-rcvpor,
 rcvprt TYPE edidc-rcvprt,
 rcvprn TYPE edidc-rcvprn,
 rcvsad TYPE edidc-rcvsad,
 sndpor TYPE edidc-sndpor,
 sndprt TYPE edidc-sndprt,
 sndprn TYPE edidc-sndprn,
 sndsad TYPE edidc-sndsad,
 credat TYPE edidc-credat,
 cretim TYPE edidc-cretim,
 mestyp TYPE edidc-mestyp,
 idoctp TYPE edidc-idoctp,
 END OF t_edidc.
 TYPES: BEGIN OF t_output,
 exception TYPE char1,
 ebeln TYPE ekko-ebeln,
 lifnr TYPE lfa1-lifnr,
 name1 TYPE lfa1-name1,
 credat TYPE edidc-credat,
 cretim TYPE edidc-cretim,
 END OF t_output.
 TYPES: BEGIN OF t_ekko,
 ebeln TYPE ekko-ebeln,
 lifnr TYPE ekko-lifnr,
 END OF t_ekko.
 TYPES: BEGIN OF t_lfa1,
 lifnr TYPE lfa1-lifnr,
 name1 TYPE lfa1-name1,
 END OF t_lfa1.
 DATA: gt_edidc TYPE STANDARD TABLE OF t_edidc,
 gt_output TYPE STANDARD TABLE OF t_output,
 wa_output LIKE LINE OF gt_output,
 gt_ekko TYPE HASHED TABLE OF t_ekko
 WITH UNIQUE KEY ebeln,
 gt_lfa1 TYPE HASHED TABLE OF t_lfa1
 WITH UNIQUE KEY lifnr.
ENDCLASS. "lcl_data_def DEFINITION
CLASS lcl_alv_routines DEFINITION DEFERRED.
CLASS lcl_handle_events DEFINITION DEFERRED.
* CLASS lcl_get_data DEFINITION
CLASS lcl_get_data DEFINITION INHERITING FROM lcl_data_def.
PUBLIC SECTION.
 METHODS: get_idocs,
 read_idocs,
 process_data
 IMPORTING
 im_docnum TYPE edidc-docnum.
PRIVATE SECTION.
 CONSTANTS: lc_mestyp TYPE edidc-mestyp VALUE 'ZMARKETSITE_PURCHASE_ORDER',
 lc_idoctp TYPE edidc-idoctp VALUE 'ZMARKETSITE_PURCHASE_ORDER01',
 lc_segnam TYPE edid4-segnam VALUE 'ZMARKETSITE_ORDER_HEADER1'.
 CONSTANTS: lc_red TYPE i VALUE 1,
 lc_yellow TYPE i VALUE 2,
 lc_green TYPE i VALUE 3.
 DATA: lv_stat_message TYPE bdidocattr-message,
 o_lcl_alv_routines TYPE REF TO lcl_alv_routines.
 DATA: ls_idoc_control TYPE edidc,
 lv_tot_data_recs TYPE sy-dbcnt, "#EC NEEDED
 lv_tot_status_recs TYPE sy-dbcnt. "#EC NEEDED
 DATA: lt_edids TYPE STANDARD TABLE OF edids,
 lt_edidd TYPE STANDARD TABLE OF edidd.
ENDCLASS. "lcl_get_data DEFINITION
* CLASS lcl_alv_routines DEFINITION
CLASS lcl_alv_routines DEFINITION INHERITING FROM lcl_get_data.
PUBLIC SECTION.
 DATA: lcl_table TYPE REF TO cl_salv_table,
 lcl_container TYPE REF TO cl_gui_custom_container,
 lcl_handle_events TYPE REF TO lcl_handle_events,
 lcl_columns TYPE REF TO cl_salv_columns_table,
 lcl_column TYPE REF TO cl_salv_column_table,
 lcl_events2 TYPE REF TO cl_salv_events_table,
 lcl_display_settings TYPE REF TO cl_salv_display_settings,
 lcl_functions TYPE REF TO cl_salv_functions_list,
 lcl_display TYPE REF TO cl_salv_display_settings,
 lcl_aggregations TYPE REF TO cl_salv_aggregations,
 lcl_sorts TYPE REF TO cl_salv_sorts,
 lcl_content TYPE REF TO cl_salv_form_element,
 lcl_header TYPE REF TO cl_salv_form_header_info,
 ls_color TYPE lvc_s_colo.
 DATA: lcl_grid TYPE REF TO cl_salv_form_layout_grid,
 lcl_grid_1 TYPE REF TO cl_salv_form_layout_grid,
 lcl_grid_2 TYPE REF TO cl_salv_form_layout_grid,
 lcl_label TYPE REF TO cl_salv_form_label,"#EC NEEDED
 lcl_text TYPE REF TO cl_salv_form_text,
 gt_t247 TYPE STANDARD TABLE OF t247,
 wa_t247 LIKE LINE OF gt_t247,
 lv_text TYPE string.
 METHODS: display_data
 IMPORTING
 im_output LIKE gt_output,
 display_top_of_page.
PRIVATE SECTION.
 DATA: lv_string TYPE string,
 lv_date1 TYPE c LENGTH 10,
 lv_time TYPE c LENGTH 10,
 lv_title TYPE string.
ENDCLASS. "lcl_alv_routines DEFINITION
* CLASS lcl_handle_events DEFINITION
CLASS lcl_handle_events DEFINITION.
PUBLIC SECTION.
 METHODS:
 on_link_click FOR EVENT link_click OF cl_salv_events_table
 IMPORTING row column.
ENDCLASS. "lcl_handle_events DEFINITION
*/ IMPLEMENTATION/S /*
* CLASS lcl_get_data IMPLEMENTATION
CLASS lcl_get_data IMPLEMENTATION.
* METHOD get_idocs
METHOD get_idocs.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
* PERCENTAGE = 0
 text = text-p01.
 SELECT docnum docrel status doctyp
 direct rcvpor rcvprt rcvprn
 rcvsad sndpor sndprt sndprn
 sndsad credat cretim mestyp
 idoctp
 FROM edidc
 INTO TABLE gt_edidc
 WHERE mestyp = lc_mestyp
 AND idoctp = lc_idoctp
 AND credat IN s_credat.
 IF gt_edidc[] IS NOT INITIAL.
* Get IDOC details
 CALL METHOD me->read_idocs.
 ENDIF.
ENDMETHOD. "get_idocs
* METHOD read_idocs
METHOD read_idocs.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
* PERCENTAGE = 0
 text = text-p02.
 FIELD-SYMBOLS: <fs_edidc> LIKE LINE OF gt_edidc,
 <fs_output> LIKE LINE OF gt_output,
 <fs_ekko> LIKE LINE OF gt_ekko,
 <fs_lfa1> LIKE LINE OF gt_lfa1.
 LOOP AT gt_edidc ASSIGNING <fs_edidc>.
 CLEAR ls_idoc_control.
 REFRESH: lt_edids, lt_edidd.
* Get status text of IDOC
 CALL FUNCTION 'IDOC_GET_MESSAGE_ATTRIBUTE'
 EXPORTING
 idoc_number = <fs_edidc>-docnum
 IMPORTING
 idoc_message = lv_stat_message.
* Get IDOC details
 CALL FUNCTION 'IDOC_READ_COMPLETELY'
 EXPORTING
 document_number = <fs_edidc>-docnum
 IMPORTING
 idoc_control = ls_idoc_control
 number_of_data_records = lv_tot_data_recs
 number_of_status_records = lv_tot_status_recs
 TABLES
 int_edids = lt_edids
 int_edidd = lt_edidd
 EXCEPTIONS
 document_not_exist = 1
 document_number_invalid = 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.
* Pass data to output table
 CALL METHOD me->process_data
 EXPORTING
 im_docnum = <fs_edidc>-docnum.
 ENDLOOP.
 DELETE gt_output WHERE ebeln IS INITIAL.
 IF gt_output[] IS NOT INITIAL.
* Get vendor for fetched POs
 SELECT ebeln lifnr
 FROM ekko
 INTO TABLE gt_ekko
 FOR ALL ENTRIES IN gt_output
 WHERE ebeln = gt_output-ebeln.
 IF gt_ekko[] IS NOT INITIAL.
* Get name of vendors
 SELECT lifnr name1
 FROM lfa1
 INTO TABLE gt_lfa1
 FOR ALL ENTRIES IN gt_ekko
 WHERE lifnr = gt_ekko-lifnr.
 ENDIF.
* Pass vendor details to output table
 LOOP AT gt_output ASSIGNING <fs_output>.
 READ TABLE gt_ekko ASSIGNING <fs_ekko>
 WITH TABLE KEY ebeln = <fs_output>-ebeln.
 IF sy-subrc = 0.
 READ TABLE gt_lfa1 ASSIGNING <fs_lfa1>
 WITH TABLE KEY lifnr = <fs_ekko>-lifnr.
 IF sy-subrc = 0.
 <fs_output>-lifnr = <fs_lfa1>-lifnr.
 <fs_output>-name1 = <fs_lfa1>-name1.
 ENDIF.
 ENDIF.
 ENDLOOP.
 CREATE OBJECT o_lcl_alv_routines.
 CALL METHOD o_lcl_alv_routines->display_data
 EXPORTING
 im_output = gt_output[].
 ENDIF.
ENDMETHOD. "read_idocs
* METHOD process_data
METHOD process_data.
 FIELD-SYMBOLS: <fs_edidd> LIKE LINE OF lt_edidd.
 IF lv_stat_message CP 'ok' OR
 lv_stat_message CP 'positive'.
 wa_output-exception = lc_green.
 ELSEIF lv_stat_message CP 'error' OR
 lv_stat_message CP 'negative'.
 wa_output-exception = lc_red.
 ELSE.
 wa_output-exception = lc_yellow.
 ENDIF.
 READ TABLE lt_edidd ASSIGNING <fs_edidd>
 WITH KEY docnum = im_docnum
 segnam = lc_segnam.
 IF sy-subrc = 0.
 wa_output-ebeln = <fs_edidd>-sdata+0(10).
 ENDIF.
 wa_output-credat = ls_idoc_control-credat.
 wa_output-cretim = ls_idoc_control-cretim.
 APPEND wa_output TO gt_output.
 CLEAR wa_output.
ENDMETHOD. "process_data
ENDCLASS. "lcl_get_data IMPLEMENTATION
* CLASS lcl_alv_routines IMPLEMENTATION
CLASS lcl_alv_routines IMPLEMENTATION.
* METHOD display_data
METHOD display_data.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 percentage = 0
 text = text-p03.
 gt_output[] = im_output[].
 TRY.
 cl_salv_table=>factory(
 EXPORTING
 list_display = ''
 IMPORTING
 r_salv_table = lcl_table
 CHANGING
 t_table = gt_output ).
 CATCH cx_salv_msg. "#EC NO_HANDLER
 ENDTRY.
 lcl_functions = lcl_table->get_functions( ).
* Set all standard ALV functions
 lcl_functions->set_all( abap_true ).
 lcl_columns = lcl_table->get_columns( ).
 lcl_columns->set_optimize( '' ).
* Set display to striped pattern
 lcl_display = lcl_table->get_display_settings( ).
 lcl_display->set_striped_pattern( cl_salv_display_settings=>true ).
*/Sort columns
 TRY.
 lcl_sorts = lcl_table->get_sorts( ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 lcl_sorts->set_group_active( ).
 TRY.
 lcl_sorts->add_sort(
 columnname = 'EBELN'
 subtotal = '' ).
 CATCH cx_salv_not_found cx_salv_existing cx_salv_data_error."#EC NO_HANDLER
 ENDTRY.
*/Set column names
 TRY.
 lcl_columns->set_exception_column( 'EXCEPTION' ).
 CATCH cx_salv_data_error. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'EXCEPTION' ).
 lcl_column->set_short_text( text-h01 ).
 lcl_column->set_medium_text( text-h01 ).
 lcl_column->set_long_text( text-h01 ).
 lcl_column->set_output_length( '6' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'EBELN' ).
 lcl_column->set_short_text( text-h02 ).
 lcl_column->set_medium_text( text-h02 ).
 lcl_column->set_long_text( text-h02 ).
 lcl_column->set_output_length( '9' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'LIFNR' ).
* lcl_column->set_short_text( text-h03 ).
 lcl_column->set_medium_text( text-h03 ).
 lcl_column->set_long_text( text-h03 ).
 lcl_column->set_output_length( '11' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'NAME1' ).
* lcl_column->set_short_text( text-h04 ).
* lcl_column->set_medium_text( text-h04 ).
 lcl_column->set_long_text( text-h04 ).
 lcl_column->set_output_length( '30' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'CREDAT' ).
* lcl_column->set_short_text( text-h05 ).
* lcl_column->set_medium_text( text-h05 ).
 lcl_column->set_long_text( text-h05 ).
 lcl_column->set_output_length( '13' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'CRETIM' ).
* lcl_column->set_short_text( text-h06 ).
* lcl_column->set_medium_text( text-h06 ).
 lcl_column->set_long_text( text-h06 ).
 lcl_column->set_output_length( '13' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
*/Set aggregations
* TRY.
* lcl_aggregations = lcl_table->get_aggregations( ).
* CATCH cx_salv_not_found. "#EC NO_HANDLER
* ENDTRY.
* TRY.
* lcl_aggregations->add_aggregation( '' ).
* CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing."#EC NO_HANDLER
* ENDTRY.
*/Hide columns
* TRY.
* lcl_column ?= lcl_columns->get_column( 'DESCRIPT' ).
* lcl_column->set_visible( if_salv_c_bool_sap=>false ).
* CATCH cx_salv_not_found. "#EC NO_HANDLER
* ENDTRY.
*/Display top of page
 CALL METHOD me->display_top_of_page.
 lcl_table->set_top_of_list( lcl_content ).
*/Handle ALV events
 lcl_events2 = lcl_table->get_event( ).
 CREATE OBJECT lcl_handle_events.
 SET HANDLER lcl_handle_events->on_link_click FOR lcl_events2.
 lcl_display_settings = lcl_table->get_display_settings( ).
 lcl_table->display( ).
ENDMETHOD. "display_data
* METHOD display_top_of_page
METHOD display_top_of_page.
 CREATE OBJECT lcl_grid.
 lv_title = text-t01.
 lcl_grid->create_header_information(
 row = 1
 column = 1
 text = lv_title
 tooltip = lv_title ).
 lcl_grid->add_row( ).
 lcl_grid_1 = lcl_grid->create_grid(
 row = 3
 column = 1 ).
 CLEAR lv_string.
 CONCATENATE: sy-datum+4(2) '/' sy-datum+6(2) '/' sy-datum+0(4)
 INTO lv_date1.
 CONCATENATE: text-t02 lv_date1
 INTO lv_string
 SEPARATED BY space.
 lcl_label = lcl_grid_1->create_label(
 row = 1
 column = 1
 text = lv_string
 tooltip = lv_string ).
 CLEAR lv_string.
 CONCATENATE: sy-uzeit+0(2) ':' sy-uzeit+2(2) ':' sy-uzeit+4(2)
 INTO lv_time.
 CONCATENATE: text-t03 lv_time
 INTO lv_string
 SEPARATED BY space.
 lcl_label = lcl_grid_1->create_label(
 row = 2
 column = 1
 text = lv_string
 tooltip = lv_string ).
 lcl_content = lcl_grid.
ENDMETHOD. "display_top_of_page
ENDCLASS. "lcl_alv_routines IMPLEMENTATION
* CLASS lcl_handle_events IMPLEMENTATION
CLASS lcl_handle_events IMPLEMENTATION.
* METHOD on_link_click
METHOD on_link_click.
ENDMETHOD. "on_link_click
ENDCLASS. "lcl_handle_events IMPLEMENTATION
* START-OF-SELECTION *
START-OF-SELECTION.
DATA: o_lcl_get_data TYPE REF TO lcl_get_data.
CREATE OBJECT o_lcl_get_data.
CALL METHOD o_lcl_get_data->get_idocs.

Printing format control in ALV TREE

Hello there,
I searched all over SDN but I couldn't find a solution for my problem ! It would be nice of you if you can help me sort it out.
I'm using an ALV TREE :
DATA: gv_tree             TYPE REF TO cl_gui_alv_tree
CALL METHOD gv_tree->set_table_for_first_display
    EXPORTING
      is_hierarchy_header = gv_hierarchy_header
      it_list_commentary = gv_report_title
      i_save              = 'A'
      is_variant          = gv_variant
    CHANGING
      it_outtab           = gt_output_empty      "Must be empty
      it_fieldcatalog     = gt_fieldcat.
I need to change printing format from X_65_255 to X_44_120.
In this method, there is no IS_PRINT to insert the new format (it exists only for GRID).
Do you have any idea?

I could not find a way to do it in CL_GUI_ALV_TREE but you can use CL_GUI_ALV_GRID and the same method SET_TABLE_FOR_FIRST_DISPLAY in this class you can pass the print parameters to IS_PRINT (the component is PRINT_CTRL).
Revert back if it works.
Regards,
Felipe Simionatto
Edited by: fsimionatto on Sep 9, 2010 4:13 PM

Coloring column in an ALV tree

Hi all,
What I want to do is set background color for columns in a tree-view ALV(class cl_gui_alv_tree). However no matter how I set the field EMPHASIZE in the fieldcatalog internal table, the display of the ALV tree keeps unchange. Anyone can help me on this?
Thanks,
Chen Chang

Hi,
If u want to change the node colr in ALV tree do as follows
Adding Root Nodes for the tree.
Key:
NODE_KEY, RELATKEY, RELATSHIP, HIDDEN, DISABLED, ISFOLDER, N_IMAGE,
EXP_IMAGE, STYLE, LAST_HITEM, NO_BRANCH, EXPANDER, DRAGDROPID, TEXT
perform f9101_node_list using: '1' 'ROOT' '' '' '' c_x '' '' '' '' ''
 c_x '' text-003.
Adding subitems for the root node.
perform f9101_node_list using:
 Material Details
 'MATRL' '1' '' '' '' '' '' '' '' '' '' '' ''
 text-001,
 Document Details
 'DOCU' '1' '' '' '' '' '' '' '' '' '' '' ''
 text-002.
form f9101_node_list using value(pnodekey)
 value(prelatkey)
 value(prelatship)
 value(phidden)
 value(pdisabled)
 value(pisfolder)
 value(pimage)
 value(pexpimage)
 value(pstyle)
 value(plastitem)
 value(pnobranch)
 value(pexpander)
 value(pdragdropid)
 value(ptext).
w_nodes-node_key = pnodekey.
w_nodes-relatkey = prelatkey.
w_nodes-relatship = prelatship. "Natural number
w_nodes-hidden = phidden.
w_nodes-disabled = pdisabled.
w_nodes-isfolder = pisfolder.
w_nodes-n_image = pimage. "Icons / embedded bitmap
w_nodes-exp_image = pexpimage. "Icons / embedded bitmap
 w_nodes-style = pstyle. w_nodes-last_hitem = plastitem. "Tree Control: Column Name / Item
"Name
w_nodes-no_branch = pnobranch.
w_nodes-expander = pexpander.
w_nodes-dragdropid = pdragdropid.
w_nodes-text = ptext.
append w_nodes to i_nodes.
endform. " f9101_node_list
Try changing the style so that u can change the column color.
If u want that in ALV grid
1. different color in line of alv
2. Coloring Cells/rows in ALV Grid.
Got this from forum
report .
Use of colours in ALV grid (cell, line and column) *
Table
tables : mara.
Type
types : begin of ty_mara,
matnr like mara-matnr,
matkl like mara-matkl,
counter(4) type n,
free_text(15) type c,
color_line(4) type c, " Line color
color_cell type lvc_t_scol, " Cell color
end of ty_mara.
Structures
data : wa_mara type ty_mara,
wa_fieldcat type lvc_s_fcat,
is_layout type lvc_s_layo,
wa_color type lvc_s_scol.
Internal table
data : it_mara type standard table of ty_mara,
it_fieldcat type standard table of lvc_s_fcat,
it_color type table of lvc_s_scol.
Variables
data : okcode like sy-ucomm,
w_alv_grid type ref to cl_gui_alv_grid,
w_docking_container type ref to cl_gui_docking_container.
parameters : p_column as checkbox,
p_line as checkbox,
p_cell as checkbox.
at selection-screen output.
perform get_data.
perform fill_catalog.
if w_docking_container is initial.
perform create_objects.
endif.
*& Form create_objects
form create_objects.
create object w_docking_container
exporting
ratio = 60
exceptions
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
others = 6.
create object w_alv_grid
exporting
i_parent = w_docking_container.
Field that identify color line in internal table
move 'COLOR_LINE' to is_layout-info_fname.
Field that identify cell color in inetrnal table
move 'COLOR_CELL' to is_layout-ctab_fname.
call method w_alv_grid->set_table_for_first_display
exporting
is_layout = is_layout
changing
it_outtab = it_mara
it_fieldcatalog = it_fieldcat
exceptions
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
others = 4.
endform.
*& Form get_data
form get_data.
select * from mara up to 5 rows.
clear : wa_mara-color_line, wa_mara-color_cell.
move-corresponding mara to wa_mara.
add 1 to wa_mara-counter.
move 'Blabla' to wa_mara-free_text.
if wa_mara-counter = '0002'
and p_line = 'X'.
Color line move 'C410' to wa_mara-color_line.
elseif wa_mara-counter = '0004'
and p_cell = 'X'.
Color cell
move 'FREE_TEXT' to wa_color-fname.
move '6' to wa_color-color-col.
move '1' to wa_color-color-int.
move '1' to wa_color-color-inv.
append wa_color to it_color.
wa_mara-color_cell[] = it_color[].
endif.
append wa_mara to it_mara.
endselect.
endform.
*& Form fill_catalog
form fill_catalog.
Colour code : *
Colour is a 4-char field where : *
- 1st char = C (color property) *
- 2nd char = color code (from 0 to 7) *
0 = background color *
1 = blue *
2 = gray *
3 = yellow *
4 = blue/gray *
5 = green *
6 = red *
7 = orange *
- 3rd char = intensified (0=off, 1=on) *
- 4th char = inverse display (0=off, 1=on) *
Colour overwriting priority : *
1. Line *
2. Cell *
3. Column *
data : w_position type i value '1'.
clear wa_fieldcat.
move w_position to wa_fieldcat-col_pos.
move 'MATNR' to wa_fieldcat-fieldname.
move 'MARA' to wa_fieldcat-ref_table.
move 'MATNR' to wa_fieldcat-ref_field.
append wa_fieldcat to it_fieldcat.
add 1 to w_position.
clear wa_fieldcat.
move w_position to wa_fieldcat-col_pos.
move 'MATKL' to wa_fieldcat-fieldname.
move 'MARA' to wa_fieldcat-ref_table.
move 'MATKL' to wa_fieldcat-ref_field.
Color column
if p_column = 'X'.
move 'C610' to wa_fieldcat-emphasize.
endif.
append wa_fieldcat to it_fieldcat.
add 1 to w_position.
clear wa_fieldcat.
move w_position to wa_fieldcat-col_pos.
move 'COUNTER' to wa_fieldcat-fieldname.
move 'N' to wa_fieldcat-inttype.
move '4' to wa_fieldcat-intlen.
move 'Counter' to wa_fieldcat-coltext.
append wa_fieldcat to it_fieldcat.
add 1 to w_position.
clear wa_fieldcat.
move w_position to wa_fieldcat-col_pos.
move 'FREE_TEXT' to wa_fieldcat-fieldname.
move 'C' to wa_fieldcat-inttype.
move '20' to wa_fieldcat-intlen.
move 'Text' to wa_fieldcat-coltext.
append wa_fieldcat to it_fieldcat.
endform.
Check this link to get code for different colors http://www.sapdesignguild.org/resources/ma_guidelines/VisualDesignRules/colors.html
Try this out the same thing will work for Reuse also.
Thanks & Regards,
Judith.
Message was edited by: Judith Jessie Selvi

ALV Tree Grid...

Similar Messages

Maybe you are looking for