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

Similar Messages

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 refresh the ALV Tree

Hi,
I have an ALV Tree report developed using the OOPS. In my ALV Tree output, I have some buttons which will update the database after clicking. The data is correctly updating in the database. But, it is not getting updated in the ALV Tree display. That means, it is not REFRESHing the ALV Tree display. We have to again execute the program in order to see the updated output.
Could anyone please suggest me how to Refresh the ALV Tree display..?
We can't use the method 'REFRESH_TABLE_DISPLAY' as it is a PRIVATE method is the class CL_GUI_ALV_TREE.
Please share your valuable thoughts.
Thanks & Regards,
Paddu.

Hi paddu.
please check out the link mentioned below,this will help u.
How to Refresh data on ALV tree
Regards
Theres

How to alter the alv tree node text?

hi
i want to alter the alv tree node text, many people say it cann't be changed, but
i look into the sample code 'BCALV_TREE_04', the average funtion(select a column and then select average function in the tool bar) can alter the tree node text dynamically.
i try to look into the source code, the it's the sap standard code, all the funtions that user input, it goes to the statement " CALL METHOD cl_gui_cfw=>dispatch.", and i don't understand what this statement do, can someone helps me?

hi
good
The ALV tree report produces uses OBJECT METHOD functionality in-order to produce a
tree structured ALV output.
The creation of an ALVtree report first requires the creation of a simple program to build the ALV
details such as the fieldcatalog and to call a screen which will be used to display the ALVTree.
The screen should be created with a 'custom control' where you wish the ALVtree report to appear.
For the following example it will have the name 'SCREEN_CONTAINER'.
http://www.sapdevelopment.co.uk/reporting/alv/alvtree%5Calvtree_basic.htm
reward point if helpful.
thanks
mrutyun^

Tutorial do ALV Tree programming

Hai all,
I really want to create ABAP program using ALV tree, but i dunno how to use the ALV tree. Is someone have the tutorial have to do that one. or maybe sample code how to do ALV tree. Thnks in advance.

ALV TREE DEMO PROGRAM .
HOPE THIS WILL HELP YOU IN UNDERSTANDING ALV TREE.
CLASS cl_gui_column_tree DEFINITION LOAD.
CLASS cl_gui_cfw DEFINITION LOAD.
DATA: go_grid TYPE REF TO cl_gui_alv_grid.
DATA: ro_grid TYPE REF TO cl_gui_alv_grid.
DATA tree1 TYPE REF TO cl_gui_alv_tree.
DATA mr_toolbar TYPE REF TO cl_gui_toolbar.
DATA : gt_checked TYPE lvc_t_chit,
 gs_checked LIKE LINE OF gt_checked,
 l_part_key TYPE lvc_nkey,
 gt_node TYPE lvc_s_chit-nodekey.
INCLUDE <icon>.
INCLUDE zamit_alv_tree_toolbar_event.
INCLUDE zbcalv_tree_event_receiver.
*DATA: toolbar_event_receiver TYPE REF TO lcl_toolbar_event_receiver.
DATA: gt_sflight TYPE sflight OCCURS 0, "Output-Table
 gt_fieldcatalog TYPE lvc_t_fcat, "Fieldcatalog
 ok_code LIKE sy-ucomm. "OK-Code
START-OF-SELECTION.
END-OF-SELECTION.
CALL SCREEN 100.
*& Module PBO OUTPUT
 process before output
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
IF tree1 IS INITIAL.
 PERFORM init_tree.
else.
 CALL METHOD me->refresh_table_display
 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.
ENDIF.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE. " PBO OUTPUT
*& Module PAI INPUT
 process after input
MODULE pai INPUT.
CASE ok_code.
 WHEN 'EXIT' OR 'BACK' OR 'CANC'.
 PERFORM exit_program.
*mrk
 WHEN 'MOVE'.
 PERFORM check_selection.
 WHEN 'MBAK'.
 PERFORM another_selection.
 WHEN 'ALL'.
 PERFORM select_all.
 WHEN 'CLEAR'.
 PERFORM clear_all.
 WHEN 'DELETE'.
 PERFORM delete_all.
 WHEN 'EXPAND'.
 PERFORM expand_all.
 WHEN 'COLLAPSE'.
 PERFORM collapse_all.
 WHEN OTHERS.
 CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CLEAR ok_code.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE. " PAI INPUT
*& Form build_fieldcatalog
 build fieldcatalog for structure sflight
FORM build_fieldcatalog.
get fieldcatalog
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = 'SFLIGHT'
 CHANGING
 ct_fieldcat = gt_fieldcatalog.
change fieldcatalog
DATA: ls_fieldcatalog TYPE lvc_s_fcat.
LOOP AT gt_fieldcatalog INTO ls_fieldcatalog.
 CASE ls_fieldcatalog-fieldname.
 WHEN 'CARRID' OR 'CONNID' OR 'FLDATE'.
 ls_fieldcatalog-no_out = 'X'.
 ls_fieldcatalog-key = ''.
 WHEN 'PRICE' OR 'SEATSOCC' OR 'SEATSMAX' OR 'PAYMENTSUM'.
 ls_fieldcatalog-do_sum = 'X'.
 ENDCASE.
 MODIFY gt_fieldcatalog FROM ls_fieldcatalog.
ENDLOOP.
ENDFORM. " build_fieldcatalog
*& 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 exit_program
 free object and leave program
FORM exit_program.
CALL METHOD tree1->free.
LEAVE PROGRAM.
ENDFORM. " exit_program
*& Form check_selection
 text
--> p1 text
<-- p2 text
FORM check_selection .
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
 l_custom_container2 TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE2'.
IF sy-batch IS INITIAL.
 CREATE OBJECT l_custom_container2
 EXPORTING
 container_name = l_tree_container_name
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5.
 IF sy-subrc <> 0.
 MESSAGE x208(00) WITH 'ERROR'. "#EC NOTEXT
 ENDIF.
ENDIF.
CREATE OBJECT go_grid
 EXPORTING
 I_SHELLSTYLE = 0
 I_LIFETIME =
 i_parent = l_custom_container2
 I_APPL_EVENTS = space
 I_PARENTDBG =
 I_APPLOGPARENT =
 I_GRAPHICSPARENT =
 I_NAME =
EXCEPTIONS
 ERROR_CNTL_CREATE = 1
 ERROR_CNTL_INIT = 2
 ERROR_CNTL_LINK = 3
 ERROR_DP_CREATE = 4
 others = 5
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
PERFORM load_data_into_grid.
*data: lt_nodes type LVC_T_NKEY,
 ls_nodes like line of lt_nodes,
 ls_checked like line of gt_checked.
*loop at gt_checked into ls_checked.
ls_nodes = ls_checked-nodekey.
append ls_nodes to lt_nodes.
*endloop.
*CALL METHOD tree1->unselect_nodes
EXPORTING
 it_node_key = lt_nodes
EXCEPTIONS
 CNTL_SYSTEM_ERROR = 1
 DP_ERROR = 2
 MULTIPLE_NODE_SELECTION_ONLY = 3
 ERROR_IN_NODE_KEY_TABLE = 4
 FAILED = 5
 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.
ENDFORM. " check_selection
*& Form another_selection
 text
--> p1 text
<-- p2 text
FORM another_selection .
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
 l_custom_container2 TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE2'.
IF sy-batch IS INITIAL.
 CREATE OBJECT l_custom_container2
 EXPORTING
 container_name = l_tree_container_name
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5.
 IF sy-subrc <> 0.
 MESSAGE x208(00) WITH 'ERROR'. "#EC NOTEXT
 ENDIF.
ENDIF.
CREATE OBJECT ro_grid
 EXPORTING
 I_SHELLSTYLE = 0
 I_LIFETIME =
 i_parent = l_custom_container2
 I_APPL_EVENTS = space
 I_PARENTDBG =
 I_APPLOGPARENT =
 I_GRAPHICSPARENT =
 I_NAME =
EXCEPTIONS
 ERROR_CNTL_CREATE = 1
 ERROR_CNTL_INIT = 2
 ERROR_CNTL_LINK = 3
 ERROR_DP_CREATE = 4
 others = 5
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
PERFORM load_data_into_grid1.
DATA: lt_unsel TYPE lvc_t_nkey,
 ls_unsel LIKE LINE OF lt_unsel.
LOOP AT gt_checked INTO gs_checked.
 ls_unsel = gs_checked-nodekey.
 APPEND ls_unsel TO lt_unsel.
ENDLOOP.
CALL METHOD tree1->unselect_nodes
 EXPORTING
 it_node_key = lt_unsel
 EXCEPTIONS
 cntl_system_error = 1
 dp_error = 2
 multiple_node_selection_only = 3
 error_in_node_key_table = 4
 failed = 5
 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.
*CALL METHOD tree1->unselect_all
EXCEPTIONS
 CNTL_SYSTEM_ERROR = 1
 FAILED = 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.
DATA: text TYPE lvc_value,
 item TYPE lvc_t_layi,
 node TYPE lvc_s_layn,
 inode TYPE lvc_nkey.
FIELD-SYMBOLS: <wa> TYPE ANY.
DATA: l_dref_wa LIKE LINE OF gt_sflight.
ASSIGN l_dref_wa TO <wa>.
READ TABLE gt_checked INTO gs_checked WITH KEY nodekey = 3.
inode = gs_checked-nodekey.
CALL METHOD tree1->get_outtab_line
 EXPORTING
 i_node_key = inode
 IMPORTING
 e_outtab_line = <wa>
 e_node_text = text
 et_item_layout = item
 es_node_layout = node
 EXCEPTIONS
 node_not_found = 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.
DATA: lt_layout TYPE lvc_t_laci,
 layout LIKE LINE OF lt_layout.
layout-chosen = 'X'.
layout-fieldname = tree1->c_hierarchy_column_name.
ls_item_layout-chosen = 'X'. "To give default checkbox value checked
layout-class = cl_gui_column_tree=>item_class_checkbox.
layout-editable = 'X'.
LAYOUT-U_CHOSEN = 'X'.
APPEND layout TO lt_layout.
CALL METHOD tree1->change_node
 EXPORTING
 i_node_key = inode
 i_outtab_line = <wa>
 IS_NODE_LAYOUT =
 it_item_layout = lt_layout
 I_NODE_TEXT =
 I_U_NODE_TEXT =
 EXCEPTIONS
 node_not_found = 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.
*CALL METHOD tree1->change_item
EXPORTING
 i_node_key = inode
 i_fieldname = gs_checked-FIELDNAME
 i_data = <wa>
 I_U_DATA = ''
 IS_ITEM_LAYOUT = layout
EXCEPTIONS
 NODE_NOT_FOUND = 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.
*loop at lt_unsel into ls_unsel.
*CALL METHOD tree1->update_checked_items
EXPORTING
 i_node_key = ls_unsel
 i_fieldname = ''
 i_checked = ''
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.
*endif.
ENDFORM. " another_selection
*& Form select_all
 text
--> p1 text
<-- p2 text
FORM select_all .
CONSTANTS: c_x(1) TYPE c VALUE 'X'.
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
 EXCEPTIONS
 failed = 1
 cntl_system_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.
clear l_part_key.
create hierarchy
PERFORM create_hierarchy USING c_x.
CALL METHOD tree1->expand_node
 EXPORTING
 i_node_key = gt_node
 I_LEVEL_COUNT = 1
 i_expand_subtree = 'X'
 EXCEPTIONS
 failed = 1
 illegal_level_count = 2
 cntl_system_error = 3
 node_not_found = 4
 cannot_expand_leaf = 5
 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.
add own functioncodes to the toolbar
perform change_toolbar.
register events
perform register_events.
adjust column_width
call method tree1->COLUMN_OPTIMIZE.
ENDFORM. " select_all
*& Form clear_all
 text
--> p1 text
<-- p2 text
FORM clear_all .
CONSTANTS: c_x(1) TYPE c VALUE space.
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
 EXCEPTIONS
 failed = 1
 cntl_system_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.
create hierarchy
PERFORM create_hierarchy USING c_x.
CALL METHOD tree1->expand_node
 EXPORTING
 i_node_key = gt_node
 I_LEVEL_COUNT = 1
 i_expand_subtree = 'X'
 EXCEPTIONS
 failed = 1
 illegal_level_count = 2
 cntl_system_error = 3
 node_not_found = 4
 cannot_expand_leaf = 5
 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.
ENDFORM. " clear_all
*& Form delete_all
 text
--> p1 text
<-- p2 text
FORM delete_all .
*********Check box modifications.
CALL METHOD tree1->delete_all_nodes
 EXCEPTIONS
 failed = 1
 cntl_system_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.
ENDFORM. " delete_all
*& Form expand_all
 text
--> p1 text
<-- p2 text
FORM expand_all .
CALL METHOD tree1->expand_node
 EXPORTING
 i_node_key = gt_node
 I_LEVEL_COUNT = 1
 i_expand_subtree = 'X'
 EXCEPTIONS
 failed = 1
 illegal_level_count = 2
 cntl_system_error = 3
 node_not_found = 4
 cannot_expand_leaf = 5
 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.
ENDFORM. " expand_all
*& Form collapse_all
 text
--> p1 text
<-- p2 text
FORM collapse_all .
CALL METHOD tree1->collapse_all_nodes
 EXCEPTIONS
 failed = 1
 cntl_system_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.
ENDFORM. " collapse_all
*& Form load_data_into_grid
 text
--> p1 text
<-- p2 text
FORM load_data_into_grid .
DATA:
For parameter IS_VARIANT
 l_layout TYPE disvariant,
gs_layout TYPE lvc_s_layo.
DATA gi_sflight TYPE TABLE OF zsflight.
Load data into the grid and display them
l_layout-report = sy-repid.
gs_layout-grid_title = 'Amits Test Program'.
gs_layout-sel_mode = 'A'.
SELECT *
 FROM zsflight
 INTO TABLE gi_sflight.
CALL METHOD go_grid->set_table_for_first_display
 EXPORTING
 i_structure_name = 'SFLIGHT'
 is_layout = gs_layout
 is_variant = l_layout
 i_save = 'A'
 CHANGING
 it_outtab = gi_sflight.
ENDFORM. " load_data_into_grid
*& Form load_data_into_grid
 text
--> p1 text
<-- p2 text
FORM load_data_into_grid1.
DATA:
For parameter IS_VARIANT
 l_layout TYPE disvariant,
gs_layout TYPE lvc_s_layo.
DATA gi_sflight TYPE TABLE OF zapempl.
Load data into the grid and display them
l_layout-report = sy-repid.
gs_layout-grid_title = 'Rams Test Program'.
gs_layout-sel_mode = 'A'.
SELECT *
 FROM zapempl
 INTO TABLE gi_sflight.
CALL METHOD ro_grid->set_table_for_first_display
 EXPORTING
 i_structure_name = 'ZAPEMPL'
 is_layout = gs_layout
 is_variant = l_layout
 i_save = 'A'
 CHANGING
 it_outtab = gi_sflight.
ENDFORM. " load_data_into_grid1
*& Form build_header
 build table for html_header
--> p1 text
<-- p2 text
FORM build_comment USING
 pt_list_commentary TYPE slis_t_listheader
 p_logo TYPE sdydo_value.
DATA: ls_line TYPE slis_listheader.
LIST HEADING LINE: TYPE H
CLEAR ls_line.
ls_line-typ = 'H'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
ls_line-info = 'ALV-tree-demo: flight-overview'. "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
STATUS LINE: TYPE S
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = 'valid until'. "#EC NOTEXT
ls_line-info = 'January 29 1999'. "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
ls_line-key = 'time'.
ls_line-info = '2.00 pm'. "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
ACTION LINE: TYPE A
CLEAR ls_line.
ls_line-typ = 'A'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
ls_line-info = 'actual data'. "#EC NOTEXT
APPEND ls_line TO pt_list_commentary.
p_logo = 'ENJOYSAP_LOGO'.
ENDFORM. "build_comment
*& Form create_hierarchy
 text
--> p1 text
<-- p2 text
FORM create_hierarchy USING p_x.
DATA: ls_sflight TYPE sflight,
 lt_sflight TYPE sflight OCCURS 0.
get data
SELECT * FROM sflight INTO TABLE lt_sflight
 UP TO 200 ROWS .
SORT lt_sflight BY carrid connid fldate.
add data to tree
DATA: l_carrid_key TYPE lvc_nkey,
 l_connid_key TYPE lvc_nkey,
 l_last_key TYPE lvc_nkey.
 l_part_key TYPE lvc_nkey
PERFORM add_carrid_line USING ls_sflight
 CHANGING l_part_key.
gt_node = l_part_key.
LOOP AT lt_sflight INTO ls_sflight.
 ON CHANGE OF ls_sflight-carrid.
 PERFORM add_carrid_line USING ls_sflight
 l_part_key
 CHANGING l_carrid_key.
 PERFORM add_connid_line USING ls_sflight
 l_carrid_key
 CHANGING l_connid_key.
 PERFORM add_complete_line USING ls_sflight
 l_connid_key
 p_x
 CHANGING l_last_key.
 CONTINUE.
 ENDON.
 ON CHANGE OF ls_sflight-connid.
 PERFORM add_connid_line USING ls_sflight
 l_carrid_key
 CHANGING l_connid_key.
 PERFORM add_complete_line USING ls_sflight
 l_connid_key
 p_x
 CHANGING l_last_key.
 CONTINUE.
 ENDON.
 PERFORM add_complete_line USING ls_sflight
 l_connid_key
 p_x
 CHANGING l_last_key.
ENDLOOP.
calculate totals
CALL METHOD tree1->update_calculations.
this method must be called to send the data to the frontend
CALL METHOD tree1->frontend_update.
ENDFORM. " create_hierarchy
*& Form add_carrid_line
 add hierarchy-level 1 to tree
 -->P_LS_SFLIGHT sflight
 -->P_RELEATKEY relatkey
 <-->p_node_key new node-key
FORM add_carrid_line USING ps_sflight TYPE sflight
 p_relat_key TYPE lvc_nkey
 CHANGING p_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
 ls_sflight TYPE sflight.
set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
 ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@3P@'.
ls_item_layout-fieldname = tree1->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 = ps_sflight-carrid.
CALL METHOD tree1->add_node
 EXPORTING
 i_relat_node_key = p_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = l_node_text
 is_outtab_line = ls_sflight
 it_item_layout = lt_item_layout
 IMPORTING
 e_new_node_key = p_node_key.
ENDFORM. " add_carrid_line
*& Form add_connid_line
 add hierarchy-level 2 to tree
 -->P_LS_SFLIGHT sflight
 -->P_RELEATKEY relatkey
 <-->p_node_key new node-key
FORM add_connid_line USING ps_sflight TYPE sflight
 p_relat_key TYPE lvc_nkey
 CHANGING p_node_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value,
 ls_sflight TYPE sflight.
set item-layout
DATA: lt_item_layout TYPE lvc_t_layi,
 ls_item_layout TYPE lvc_s_layi.
ls_item_layout-t_image = '@3Y@'.
ls_item_layout-style =
 cl_gui_column_tree=>style_intensified.
ls_item_layout-fieldname = tree1->c_hierarchy_column_name.
APPEND ls_item_layout TO lt_item_layout.
add node
l_node_text = ps_sflight-connid.
CALL METHOD tree1->add_node
 EXPORTING
 i_relat_node_key = p_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 i_node_text = l_node_text
 is_outtab_line = ls_sflight
 it_item_layout = lt_item_layout
 IMPORTING
 e_new_node_key = p_node_key.
ENDFORM. " add_connid_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 ps_sflight TYPE sflight
 p_relat_key TYPE lvc_nkey
 p_x
 CHANGING p_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 = tree1->c_hierarchy_column_name.
ls_item_layout-chosen = p_x. "To give default checkbox value checked
ls_item_layout-class = cl_gui_column_tree=>item_class_checkbox.
ls_item_layout-editable = 'X'.
APPEND ls_item_layout TO lt_item_layout.
l_node_text = ps_sflight-fldate.
CALL METHOD tree1->add_node
 EXPORTING
 i_relat_node_key = p_relat_key
 i_relationship = cl_gui_column_tree=>relat_last_child
 is_outtab_line = ps_sflight
 i_node_text = l_node_text
 it_item_layout = lt_item_layout
 IMPORTING
 e_new_node_key = p_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.
CALL METHOD tree1->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
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
*& Form change_toolbar
 text
--> p1 text
<-- p2 text
FORM change_toolbar.
DATA: toolbar_event_receiver TYPE REF TO lcl_toolbar_event_receiver.
get toolbar control
CALL METHOD tree1->get_toolbar_object
 IMPORTING
 er_toolbar = mr_toolbar.
CHECK NOT mr_toolbar IS INITIAL.
add seperator to toolbar
CALL METHOD mr_toolbar->add_button
 EXPORTING
 fcode = ''
 icon = ''
 butn_type = cntb_btype_sep
 text = ''
 quickinfo = 'This is a Seperator'. "#EC NOTEXT
add Standard Button to toolbar (for Delete Subtree)
CALL METHOD mr_toolbar->add_button
 EXPORTING
 fcode = 'DELETE'
 icon = '@18@'
 butn_type = cntb_btype_button
 text = ''
 quickinfo = 'Delete subtree'. "#EC NOTEXT
add Dropdown Button to toolbar (for Insert Line)
CALL METHOD mr_toolbar->add_button
 EXPORTING
 fcode = 'INSERT_LC'
 icon = '@17@'
 butn_type = cntb_btype_dropdown
 text = ''
 quickinfo = 'Insert Line'. "#EC NOTEXT
set event-handler for toolbar-control
CREATE OBJECT toolbar_event_receiver.
SET HANDLER toolbar_event_receiver->on_function_selected
 FOR mr_toolbar.
SET HANDLER toolbar_event_receiver->on_toolbar_dropdown
 FOR mr_toolbar.
ENDFORM. " change_toolbar
*& Form init_tree
 text
--> p1 text
<-- p2 text
FORM init_tree.
create fieldcatalog for structure sflight
PERFORM build_fieldcatalog.
create container for alv-tree
DATA: l_tree_container_name(30) TYPE c,
 l_custom_container TYPE REF TO cl_gui_custom_container.
l_tree_container_name = 'TREE1'.
IF sy-batch IS INITIAL.
 CREATE OBJECT l_custom_container
 EXPORTING
 container_name = l_tree_container_name
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5.
 IF sy-subrc <> 0.
 MESSAGE x208(00) WITH 'ERROR'. "#EC NOTEXT
 ENDIF.
ENDIF.
create tree control
CREATE OBJECT tree1
 EXPORTING
 parent = l_custom_container
 node_selection_mode = cl_gui_column_tree=>node_sel_mode_multiple "node_sel_mode_single
 item_selection = 'X'
 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 l_hierarchy_header TYPE treev_hhdr.
PERFORM build_hierarchy_header CHANGING l_hierarchy_header.
create info-table for html-header
DATA: lt_list_commentary TYPE slis_t_listheader,
 l_logo TYPE sdydo_value.
PERFORM build_comment USING
 lt_list_commentary
 l_logo.
repid for saving variants
DATA: ls_variant TYPE disvariant.
ls_variant-report = sy-repid.
create emty tree-control
CALL METHOD tree1->set_table_for_first_display
 EXPORTING
 is_hierarchy_header = l_hierarchy_header
 it_list_commentary = lt_list_commentary
 i_logo = l_logo
 i_background_id = 'ALV_BACKGROUND'
 i_save = 'A'
 is_variant = ls_variant
 CHANGING
 it_outtab = gt_sflight "table must be emty !!
 it_fieldcatalog = gt_fieldcatalog.
CONSTANTS: c_s(1) TYPE c VALUE space.
create hierarchy
PERFORM create_hierarchy USING c_s.
add own functioncodes to the toolbar
PERFORM change_toolbar.
register events
PERFORM register_events.
adjust column_width
call method tree1->COLUMN_OPTIMIZE.
ENDFORM. " init_tree

How to make fields editable in an alv tree

hi
there is an alv grid for which tree view shud also be made. The cells that are editable in the grid should also be editable in the tree.
please let me know how to make the specific cells of the tree editable

after setting the edit field in the field catalogue its bot working.
i am posting the code snippet.
please let me know what else should be done and how to add INPUT field to the fieldcat.
field-symbols: <fs_fieldcat> type lvc_s_fcat.
data: l_tabix type sy-tabix.
data: g_fieldcatalog type lvc_t_fcat,
 wa_fcat like line of g_fieldcatalog.
data : hide type c value 'X'.
call function 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = 'RSTHIE_M'
 i_client_never_display = 'X'
 i_bypassing_buffer = 'X'
 CHANGING
 ct_fieldcat = g_fieldcatalog.
***-set table header on middle width
LOOP AT g_fieldcatalog ASSIGNING <fs_fieldcat>.
 <fs_fieldcat>-FIX_COLUMN = 'X'.
 <fs_fieldcat>-edit = 'X'.
ENDLOOP.

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

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

How to send the ALV GRID output to spool by using the print button in std t

How to send the ALV GRID output to spool by using the print button in standard tool bar.
We have created a button in the va02 transaction. If user click on the button the new screen will be display on that screen we are populating the alv grid output using the oops concept. But i am unable to send the output to spool using the print button in the standard tool bar.
I am able to display the Print parameter dialog box but i am not able to send it to spool.
Kindly help.
Thanks In Advance.
G.V.Ramana

Hi Shaik,
There is not properties button in my print screen.
MODULE user_command_0900 INPUT.
 WHEN 'EXCEL'.
 PERFORM excel_download.
 WHEN 'PRI'.
 PERFORM print_output.
form Print_output.
CALL FUNCTION 'RSPO_LIST_LAYOUT_FITS'
 EXPORTING
 columns = 80
 device = 'ANY '
 lines = 65
 maxpenality = 1999
 TABLES
 layouts = lt_layouts1
 EXCEPTIONS
 unknown_device = 1
 OTHERS = 2.
 IF sy-subrc = 0.
 LOOP AT lt_layouts1.
 IF lt_layouts1-penality < 1000 AND
 lt_layouts1-penality < l_min_penality.
 l_layout = lt_layouts1-layout.
 l_min_penality = lt_layouts1-penality.
 ENDIF.
 ENDLOOP.
 IF NOT l_layout IS INITIAL.
 CALL FUNCTION 'GET_PRINT_PARAMETERS'
 EXPORTING
 mode = 'CURRENT'
 line_size = 80 "#EC *
 new_list_id = l_new_list_id
 no_dialog = l_no_dialog
 layout = l_layout
 IMPORTING
 out_archive_parameters = rs_arc_params
 out_parameters = rs_pri_params
 valid = l_valid
 EXCEPTIONS
 archive_info_not_found = 1
 invalid_print_params = 2
 invalid_archive_params = 3
 OTHERS = 4.
 IF sy-subrc NE 0. " INS SLIN
 ENDIF. " INS SLIN
 IF rs_pri_params-linsz LT 80 OR
 rs_pri_params-linsz LT gt_stack-s_lprint-width.
 gt_stack-print_line_break = 'X'.
 ELSE.
 CLEAR gt_stack-print_line_break.
 ENDIF.
 IF l_valid NE 'X'.
 rs_pri_params = ls_pri_params_sav.
 rs_arc_params = ls_arc_params_sav.
 ENDIF.
 ENDIF.
 ENDIF.
endform. " Print_output
 CALL METHOD gv_cost_tot_alv_grand->set_table_for_first_display
 EXPORTING
 is_layout = gs_layout_cost_tot_grand
 CHANGING
 it_fieldcatalog = gt_fcat_cost_tot_grand[]
 it_outtab = gt_cost_tot_grand[].
Please check my code

How to make field editable in ALV tree in OOPs?

Hi Gems,
Again I need help from you all.
I am writing a program using OOPs and the uotput will be in ALV tree. I need to make a field editable in a perticular row.
I am doing it using layout but the program is giving error during
CALL METHOD CL_GUI_CFW=>FLUSH
 EXCEPTIONS
 CNTL_SYSTEM_ERROR = 1
 CNTL_ERROR = 2.
This method is returning sy-subrc = 2 and I am unable to get the output.
I am using below code to make the field editable:
DATA: LT_LAYOUT_ITEM TYPE LVC_T_LAYI,
 LS_LAYOUT_ITEM TYPE LVC_S_LAYI.
LS_LAYOUT_ITEM-FIELDNAME = 'ACPCKTWRT'. "ACPCKTWRT is the field name in the Internal table
LS_LAYOUT_ITEM-EDITABLE = 'X'.
APPEND LS_LAYOUT_ITEM TO LT_LAYOUT_ITEM.
CALL METHOD G_ALV_TREE->ADD_NODE
 EXPORTING
 I_RELAT_NODE_KEY = FP_RELAT_KEY
 I_RELATIONSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
 IS_OUTTAB_LINE = LS_TMP_FINFCNO "structure of the internal table
 IS_NODE_LAYOUT =
 IT_ITEM_LAYOUT = LT_LAYOUT_ITEM "Added layout to make the field editable
 I_NODE_TEXT = LV_NODE_TEXT "Node text
 IMPORTING
 E_NEW_NODE_KEY = FP_NODE_KEY
 EXCEPTIONS
 RELAT_NODE_NOT_FOUND = 1
 NODE_NOT_FOUND = 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.
Please help me and let me know how to get the solution.

Hello
The ALV tree control is not intended for making values editable (e.g. see
[How to make ALV tree columns editable|http://sap.ittoolbox.com/groups/technical-functional/sap-abap/how-to-make-alv-tree-columns-editable-2052414])
However, if you need an editable tree control then you have to use a different class (e.g. CL_ITEM_TREE_MODEL or CL_COLUMN_TREE_MODEL) but you will not have the ALV functionality of the ALV tree control.
Regards
Uwe

How to handle the check box in the alv tree display

Hello,
in my ALV Tree Report i have a check box in the output.
I have one check box in the selection screen as select all .
if this is selected then all the check boxes in the output must be selected that is (X).
am using CL_GUI_ALV_TREE for this.
Please give me some input how to make that check boxes 'X' in the above mentioned case.
With Regards,
Sumodh.P

Sumodh,
check this
Re: Select all checkbox in ALV tree
please search before posting
Thanks
Bala Duvvuri

How to avoid blank column display in output in ALV TREE

how to avoid blank column display in output while decreasing the length of other columns in ALV Tree.
Example: please refer to BCALV_TREE_01 and see the output, then decrease the length of all columns . Then you can see a blank column appearing in screen at last, i.e in container. so how to avoid that.
Thanks for reply.
Edited by: morpeous on Jul 1, 2009 1:53 PM

Hi,
Check BCALV_TREE_02 on how to hide columns.
Thanks & Regards,
Anand Patil

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

How to download the ALV Hierchial Tree Data to an Excel sheet.

Hi All,
Can any body please let me ,if there is any possibility to know How to download the ALV Hierchial Tree Data to an Excel sheet.
If yes, please let me know how could this can b acheived.
Regards,
Rohini.

Hi Rohini
There is no such functionality provided by SAP to download ALV Tree Hierarichal Tree into excel sheet .
If you had this kind of senario then i can propose one solution create two radio buttons one is to display in ALV Tree Format and the other is classical report which you can download it for futher process
Regards
Hitesh Batra

How to make some fields in ALV tree editable

Hello All,
Can any one tell me how to make some fields in ALV tree editable.
If possible please post some code.
Regards,
Lisa.

Hi Lisa,
I want to make 3 fields in the ALV tree editable and update the saved values in ztable.
I tried making the wa_fieldcat-edit = 'X' But in vain.
Also i made the layout fields wa_layout-edit = 'X' and wa_layout-edit_mode = 'X'.
But still the alv tree field appears as display.
As you have mentioned in the post as answered, So please guide me to make the field editable.
I am using oops method.
Please provide me code if any.
Thanks & Regards,
Mozila

How to 'grid' an ALV tree

Similar Messages

Maybe you are looking for