topic Re: alv tree in Application Development and Automation Discussions

alv tree

Former Member — Tue, 27 Jun 2006 07:41:37 GMT

Hi all,

I need code for creating simple alv tree .

please any of you give the code.

Thankx,

Vani.

Re: alv tree

Former Member — Tue, 27 Jun 2006 07:44:12 GMT

1)Go through this program . Hope it might be helpful to you...

http://www.sap-img.com/abap/a-sample-tree-programming.htm

2)In SE38 give BCALV*,

press F4,

you will get a list of demo programs for ALV grid and ALV Tree.

You can check the demo programs.

Re: alv tree

Former Member — Tue, 27 Jun 2006 07:45:33 GMT

Hi,

Look at the program BCALV_TREE_SIMPLE_DEMO

Regards,

Anand Mandalika.

Re: alv tree

Former Member — Tue, 27 Jun 2006 07:46:21 GMT

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_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)

Reward points if it helps

Regards

Gunjan

Re: alv tree

Former Member — Tue, 27 Jun 2006 07:46:42 GMT

Hi Vani,

check the following programs.

BCALV_TREE_01

BCALV_TREE_02

BCALV_TREE_03

BCALV_TREE_04

BCALV_TREE_05

BCALV_TREE_06

BCALV_TREE_DEMO

regards,

Kinshuk

Re: alv tree

Former Member — Tue, 27 Jun 2006 07:49:53 GMT

Hai Vani

Check with the following Link

http://www.sapdevelopment.co.uk/reporting/alv/alvtree.htm

Go through the following F.Modules

call function 'RS_TREE_CONSTRUCT'

tables

nodetab = i_snodetext

exceptions

tree_failure = 1

id_not_found = 2

wrong_relationship = 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 function 'RS_TREE_LIST_DISPLAY'

exporting

callback_program = v_program

importing

f15 = f15

you can also check BCALVTREE programs in SE38 for your refrence.

Do you want B2 Node to be Under Node B, it can be done. is it the same thing you are asking or some thing else.check this example BCALV_TREE_05

Thanks & regards

Sreenivasulu P

Message was edited by: Sreenivasulu Ponnadi

Re: alv tree

Former Member — Tue, 27 Jun 2006 07:50:14 GMT

Hello Vani,

I see that you are a new user here on SDN. So, while the other users try and get you the answers to your questions, it would be really nice to say thank you to the helpful answers the SDN Way.

What you need to do is just click on one of the radio buttons against each answer. The designated points will be allotted to the user who gave that reply. this would really help a lot. Hope you will use this feature and reward the answers that have helped you.

Regards,

Anand Mandalika.

Re: alv tree

Former Member — Tue, 27 Jun 2006 07:58:57 GMT

Thank you all for your repond , but my problem is not solved.

Anand thank you for your kind suggestion.

I have gone through the example and tried out but going for dump.

can any of you check where I went wrong.

*&----

*& Report YALV_TREE3 *

*& *

&----

*& *

&----

REPORT YALV_TREE3 .

TABLES: ekko.

TYPE-POOLS: slis. "ALV Declarations

include <icon>.

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,

END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

it_ekpo TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

it_emptytab TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_ekko TYPE t_ekko,

wa_ekpo TYPE t_ekko.

DATA: ok_code like sy-ucomm, "OK-Code

save_ok like sy-ucomm.

*ALV data declarations

DATA: fieldcatalog TYPE lvc_t_fcat WITH HEADER LINE.

DATA: gd_fieldcat TYPE lvc_t_fcat,

gd_tab_group TYPE slis_t_sp_group_alv,

gd_layout TYPE slis_layout_alv.

*ALVtree data declarations

CLASS cl_gui_column_tree DEFINITION LOAD.

CLASS cl_gui_cfw DEFINITION LOAD.

DATA: gd_tree TYPE REF TO cl_gui_alv_tree,

gd_hierarchy_header TYPE treev_hhdr,

gd_report_title TYPE slis_t_listheader,

gd_logo TYPE sdydo_value,

gd_variant TYPE disvariant.

*Create container for alv-tree

DATA: gd_tree_container_name(30) TYPE c,

gd_custom_container TYPE REF TO cl_gui_custom_container.

**********************************************************************

**Includes

**INCLUDE ZDEMO_ALVTREEO01. "Screen PBO Modules

**INCLUDE ZDEMO_ALVTREEI01. "Screen PAI Modules

**INCLUDE ZDEMO_ALVTREEF01. "ABAP Subroutines(FORMS)

************************************************************************

*Start-of-selection.

START-OF-SELECTION.

ALVtree setup data

PERFORM data_retrieval.

PERFORM build_fieldcatalog.

PERFORM build_layout.

PERFORM build_hierarchy_header CHANGING gd_hierarchy_header.

PERFORM build_report_title USING gd_report_title gd_logo.

PERFORM build_variant.

Display ALVtree report

call screen 100.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

module STATUS_0100 output.

SET PF-STATUS 'STATUS'.

SET TITLEBAR 'xxx'.

IF gd_tree IS INITIAL.

Create container for alv-tree

PERFORM create_alvtree_container.

PERFORM create_object_in_container.

* Create empty ALVtree control ready for first display

PERFORM create_empty_alvtree_control.

Create ALVtree Hierarchy

PERFORM create_alvtree_hierarchy.

ENDIF.

CALL METHOD cl_gui_cfw=>flush.

endmodule. " STATUS_0100 OUTPUT

&----

*& Form DATA_RETRIEVAL

&----

Retrieve data into Internal tables

----

FORM data_retrieval.

SELECT ebeln

UP TO 10 ROWS

FROM ekko

INTO corresponding fields of TABLE it_ekko.

loop at it_ekko into wa_ekko.

SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh

FROM ekpo

appending TABLE it_ekpo

where ebeln eq wa_ekko-ebeln.

endloop.

ENDFORM. " DATA_RETRIEVAL

&----

*& Form BUILD_FIELDCATALOG

&----

Build Fieldcatalog for ALV Report

----

FORM build_fieldcatalog.

ALVtree fieldcatalogs and ALVgrid fieldcatalogs.
For example the field seltext_m is replace by scrtext_m in ALVtree.

fieldcatalog-fieldname = 'EBELN'. "Field name in itab

fieldcatalog-scrtext_m = 'Purchase Order'. "Column text

fieldcatalog-col_pos = 0. "Column position

fieldcatalog-outputlen = 15. "Column width

fieldcatalog-emphasize = 'X'. "Emphasize (X or SPACE)

fieldcatalog-key = 'X'. "Key Field? (X or SPACE)

fieldcatalog-do_sum = 'X'. "Sum Column?
fieldcatalog-no_zero = 'X'. "Don't display if zero

APPEND fieldcatalog TO gd_fieldcat.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'EBELP'.

fieldcatalog-scrtext_m = 'PO Iten'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 1.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'STATU'.

fieldcatalog-scrtext_m = 'Status'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 2.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'AEDAT'.

fieldcatalog-scrtext_m = 'Item change date'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 3.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MATNR'.

fieldcatalog-scrtext_m = 'Material Number'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 4.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MENGE'.

fieldcatalog-scrtext_m = 'PO quantity'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 5.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'MEINS'.

fieldcatalog-scrtext_m = 'Order Unit'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 6.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'NETPR'.

fieldcatalog-scrtext_m = 'Net Price'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 7.

fieldcatalog-datatype = 'CURR'.

APPEND fieldcatalog TO gd_fieldcat..

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'PEINH'.

fieldcatalog-scrtext_m = 'Price Unit'.

fieldcatalog-outputlen = 15.

fieldcatalog-col_pos = 8.

APPEND fieldcatalog TO gd_fieldcat..

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).

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 build_hierarchy_header

&----

build hierarchy-header-information

----

-->P_L_HIERARCHY_HEADER structure for hierarchy-header

----

FORM build_hierarchy_header CHANGING

p_hierarchy_header TYPE treev_hhdr.

p_hierarchy_header-heading = 'Hierarchy Header'(013).

p_hierarchy_header-tooltip = 'This is the Hierarchy Header !'(014).

p_hierarchy_header-width = 30.

p_hierarchy_header-width_pix = ''.

ENDFORM. " build_hierarchy_header

&----

*& Form BUILD_REPORT_TITLE

&----

Build table for ALVtree header

----

<-> p1 Header details
<-> p2 Logo value

----

FORM build_report_title CHANGING

pt_report_title TYPE slis_t_listheader

pa_logo TYPE sdydo_value.

DATA: ls_line TYPE slis_listheader,

ld_date(10) TYPE c.

List Heading Line(TYPE H)

CLEAR ls_line.

ls_line-typ = 'H'.

ls_line-key "Not Used For This Type(H)

ls_line-info = 'PO ALVTree Display'.

APPEND ls_line TO pt_report_title.

Status Line(TYPE S)

ld_date(2) = sy-datum+6(2).

ld_date+2(1) = '/'.

ld_date3(2) = sy-datum4(2).

ld_date+5(1) = '/'.

ld_date+6(4) = sy-datum(4).

ls_line-typ = 'S'.

ls_line-key = 'Date'.

ls_line-info = ld_date.

APPEND ls_line TO pt_report_title.

Action Line(TYPE A)

CLEAR ls_line.

ls_line-typ = 'A'.

CONCATENATE 'Report: ' sy-repid INTO ls_line-info SEPARATED BY space.

APPEND ls_line TO pt_report_title.

ENDFORM.

&----

*& Form BUILD_VARIANT

&----

Build variant

----

form build_variant.

Set repid for storing variants

gd_variant-report = sy-repid.

endform. " BUILD_VARIANT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

module USER_COMMAND_0100 input.

*data:

ok_code like sy-ucomm.

case ok_code.

when 'EXIT' or 'BACK' or 'CANC'.

call method gd_tree->free.

leave program.

when others.

call method cl_gui_cfw=>dispatch.

endcase.

clear ok_code.

call method cl_gui_cfw=>flush.

endmodule. " USER_COMMAND_0100 INPUT

&----

*& Form create_alvtree_container

&----

text

----

--> p1 text
<-- p2 text

----

FORM create_alvtree_container.

GD_tree_container_name = 'CONTAINER'.

create object gd_custom_container

exporting

container_name = gd_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'.

endif.

endform. " create_alvtree_container

&----

*& Form create_object_in_container

&----

text

----

--> p1 text
<-- p2 text

----

form create_object_in_container .

create object gd_tree

exporting

parent = gd_custom_container

node_selection_mode = cl_gui_column_tree=>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'.

endif.

endform. " create_object_in_container

&----

*& Form create_empty_alvtree_control

&----

text

----

--> p1 text
<-- p2 text

----

form create_empty_alvtree_control .

Create emty tree-control

CLEAR: it_emptytab.

REFRESH: it_emptytab.

CALL METHOD gd_tree->set_table_for_first_display

EXPORTING

is_hierarchy_header = gd_hierarchy_header

it_list_commentary = gd_report_title

i_logo = gd_logo

i_background_id = 'ALV_BACKGROUND'

i_save = 'A'

is_variant = ls_variant

CHANGING

it_outtab = it_emptytab "Must be empty

it_fieldcatalog = gd_fieldcat.

endform. " create_empty_alvtree_control

&----

*& Form create_alvtree_hierarchy

&----

text

----

--> p1 text
<-- p2 text

----

form create_alvtree_hierarchy .

data: ls_sflight type sflight,

lt_sflight type sflight occurs 0.

data: ld_ebeln_key type lvc_nkey,

ld_ebelp_key type lvc_nkey.

loop at it_ekko into wa_ekko.

perform add_ekko_node using wa_ekko

changing ld_ebeln_key.

loop at it_ekpo into wa_ekpo where ebeln eq wa_ekko-ebeln.

perform add_ekpo_line using wa_ekpo

ld_ebeln_key

changing ld_ebelp_key.

endloop.

calculate totals

call method gd_tree->update_calculations.

this method must be called to send the data to the frontend

call method gd_tree->frontend_update.

endform. " create_alvtree_hierarchy

&----

*& Form add_ekko_node

&----

text

----

-->P_WA_EKKO text
-->P_0671 text
<--P_LD_EBELN_KEY text

----

form add_ekko_node using ps_ekko like wa_ekko

value(p_relate_key)

changing p_node_key.

data: ld_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 = gd_tree->c_hierarchy_column_name.

ls_item_layout-style = cl_gui_column_tree=>style_default.

ld_node_text = ps_ekko-ebeln.

append ls_item_layout to lt_item_layout.

Add node

call method gd_tree->add_node

exporting

i_relat_node_key = p_relate_key

i_relationship = cl_gui_column_tree=>relat_last_child

i_node_text = ld_node_text

is_outtab_line = ps_ekko

it_item_layout = lt_item_layout

importing

e_new_node_key = p_node_key.

endform. " add_ekko_node

&----

*& Form add_ekpo_line

&----

text

----

-->P_WA_EKPO text
-->P_LD_EBELN_KEY text
<--P_LD_EBELP_KEY text

----

form add_ekpo_line using ps_ekpo like wa_ekpo

value(p_relate_key)

changing p_node_key.

data: ld_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 = gd_tree->c_hierarchy_column_name.

ls_item_layout-style = cl_gui_column_tree=>style_default.

ld_node_text = ps_ekpo-ebelp.

append ls_item_layout to lt_item_layout.

Add node

call method gd_tree->add_node

exporting

i_relat_node_key = p_relate_key

i_relationship = cl_gui_column_tree=>relat_last_child

i_node_text = ld_node_text

is_outtab_line = ps_ekpo

it_item_layout = lt_item_layout

importing

e_new_node_key = p_node_key.

endform. " add_ekpo_line

Thankx,

Vani.

Re: alv tree

venkat_o — Tue, 27 Jun 2006 08:18:28 GMT

Hi Vani,

In ur program 100 screen is called .If u dont define that it gives if u run .

to Create 100.Double click and create Custome container with name CONTAINER .Save and Activate .

ComeBack and save and Activate and Run .

It works ,

<b>Thanks,

Venkat.O</b>

Re: alv tree

Former Member — Tue, 27 Jun 2006 08:19:56 GMT

please,

I am unable to trace where I went wrong.

Thanks.

Re: alv tree

Former Member — Tue, 27 Jun 2006 08:21:30 GMT

Thank you venkat , but I have defined the screen

and activated it.

Re: alv tree

Former Member — Tue, 27 Jun 2006 08:45:13 GMT

Hi Vani,

Try to find out where it goed to dump by executing the program in the debug mode....Put a break-point in PBO and press F5 to find out where actually the program goes to dump and which line is causing the problem.

Also can you tell us what message is coming after it goes to dump...?

Regards,

SP.

Re: alv tree

Former Member — Tue, 27 Jun 2006 08:49:52 GMT

Hi vani,

1. Its quite simple.

2. Basically there are TWO FMs,

which do the job.

3. just copy paste in new program

and u will know the whole logic.

REPORT abc.

DATA : tr LIKE TABLE OF snodetext WITH HEADER LINE.

*----

data

tr-id = '1'.

tr-tlevel = 1.

tr-name = 'amit'.

APPEND tr.

tr-id = '2'.

tr-tlevel = 2.

tr-name = 'mittal'.

APPEND tr.

*----

display

CALL FUNCTION 'RS_TREE_CONSTRUCT'

TABLES

nodetab = tr

EXCEPTIONS

tree_failure = 1

OTHERS = 4.

CALL FUNCTION 'RS_TREE_LIST_DISPLAY'

regards,

amit m.

Re: alv tree

Former Member — Tue, 27 Jun 2006 09:43:34 GMT

Thank you prasad.

the header is getting displayed but the following message is been popuped.

"Layout parameter program name is missing".

vani.

Re: alv tree

Former Member — Tue, 27 Jun 2006 11:19:25 GMT

Hi Vani,

Are you just interested in ALV tree.

you can even look for the options for column tree.

here is the code.

copy paste the following code, create a screen 100 and make a control area on the screen by name 'CCAREA'


REPORT COLTREE                                                    .

DATA:  lref_ccontainer  TYPE REF TO cl_gui_custom_container,
       gref_column_tree TYPE REF TO cl_column_tree_model,
       ls_treemhhdr  TYPE treemhhdr,
       lt_treemcnota TYPE treemcnota,
       lt_treemcitac TYPE treemcitac,
       ls_treemcitac LIKE LINE OF lt_treemcitac,
       ls_treemcnota like line of lt_treemcnota.




call screen 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'STAT'.
*  SET TITLEBAR 'xxx'.


  IF gref_column_tree IS INITIAL.
    CREATE OBJECT lref_ccontainer
       EXPORTING
       container_name              = 'CCAREA'.


    ls_treemhhdr-heading = 'Hierarchy'.
    ls_treemhhdr-width   =  70.

    CREATE OBJECT gref_column_tree
     EXPORTING
     node_selection_mode   =  cl_column_tree_model=>node_sel_mode_single
     item_selection        = 'X'
     hierarchy_column_name = 'COL1'
     hierarchy_header      =  ls_treemhhdr.

    CALL METHOD gref_column_tree->create_tree_control
      EXPORTING
        parent                       = lref_ccontainer
            .

    CALL METHOD gref_column_tree->add_column
      EXPORTING
        name        = 'COL2'
        width       = 50
        header_text = 'column2'.

    CALL METHOD gref_column_tree->add_column
      EXPORTING
        name        = 'COL3'
        width       = 50
        header_text = 'column3'.

    ls_treemcnota-node_key  = 'ROOT'.
    ls_treemcnota-relatkey  = space.
    ls_treemcnota-relatship = space.
    APPEND ls_treemcnota TO lt_treemcnota.

    ls_treemcnota-node_key  = 'CH1'.
    ls_treemcnota-relatkey  = 'ROOT'.
    ls_treemcnota-relatship = cl_column_tree_model=>relat_last_child.
    APPEND ls_treemcnota TO lt_treemcnota.

    CALL METHOD gref_column_tree->add_nodes
  EXPORTING
    node_table          = lt_treemcnota
        .

    ls_treemcitac-node_key   = 'ROOT'.
    ls_treemcitac-item_name  = 'COL1'.
    ls_treemcitac-text       = 'ROOT'.
    ls_treemcitac-class    = cl_column_tree_model=>item_class_link.
    APPEND ls_treemcitac TO lt_treemcitac.

    ls_treemcitac-node_key   = 'ROOT'.
    ls_treemcitac-item_name  = 'COL2'.
    ls_treemcitac-text       = 'RCOL2'.
    ls_treemcitac-class    = cl_column_tree_model=>item_class_link.
    APPEND ls_treemcitac TO lt_treemcitac.

    ls_treemcitac-node_key   = 'ROOT'.
    ls_treemcitac-item_name  = 'COL3'.
    ls_treemcitac-text       = 'RCOL3'.
    ls_treemcitac-class    = cl_column_tree_model=>item_class_link.
    APPEND ls_treemcitac TO lt_treemcitac.

    ls_treemcitac-node_key   = 'CH1'.
    ls_treemcitac-item_name  = 'COL1'.
    ls_treemcitac-text       = 'CHILD1'.
    ls_treemcitac-class    = cl_column_tree_model=>item_class_link.
    APPEND ls_treemcitac TO lt_treemcitac.

    ls_treemcitac-node_key   = 'CH1'.
    ls_treemcitac-item_name  = 'COL2'.
    ls_treemcitac-text       = 'CCOL2'.
    ls_treemcitac-class    = cl_column_tree_model=>item_class_link.
    APPEND ls_treemcitac TO lt_treemcitac.

    ls_treemcitac-node_key   = 'CH1'.
    ls_treemcitac-item_name  = 'COL3'.
    ls_treemcitac-text       = 'CCOL3'.
    ls_treemcitac-class    = cl_column_tree_model=>item_class_link.
    APPEND ls_treemcitac TO lt_treemcitac.

  CALL METHOD gref_column_tree->add_items
    EXPORTING
      item_table          = lt_treemcitac
          .

  endif.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
data : ok_code type sy-ucomm.

case ok_code.
  when 'BACK'.
    leave to screen 0.
endcase.

hope this helps.

Regards,

Kinshuk

Re: alv tree

Former Member — Tue, 27 Jun 2006 11:25:06 GMT

Hi,

Lot of demo and its source code is available in the transaction DWDM. Kindly check.

Regs,

Venkat Ramanan

Re: alv tree

Former Member — Mon, 15 Oct 2007 08:10:07 GMT

Hi Kinshuk,

I was having a problem in ALV tree tried and run your program i gt the required thing. One small querry where u insert a selection-criteria in the program.

and where you write the querries for data fetching.

Pls if you can help it will be gr8 as its very urgent from our side.

Thanks a lot

Anubhav Jain

Re: alv tree

Former Member — Mon, 15 Oct 2007 08:51:22 GMT

Hi Vani,

The problem occurs in subroutine create_empty_alvtree_control. You have to use exporting parameter IS_VARIANT. See sample code below. Hope it helps.

DATA: gd_variant TYPE disvariant.

gd_variant-report = sy-repid.

CALL METHOD gd_tree->set_table_for_first_display

EXPORTING

is_variant = gd_variant.

Shin Na Rah