alv using class (CL_GUI_ALV_TREE)

[Former Member]

hi guys,

i want a small example on the class CL_GUI_ALV_TREE_using alv......... its urgent so plx reply immediately.............

Thanks with regards,

Vishnu. R

[Former Member]

hi guys,

i want a small example on the class CL_GUI_ALV_TREE_using alv......... its urgent so plx reply immediately.............

Thanks with regards,

Vishnu. R

[Former Member]

DATA: control_container TYPE REF TO cl_gui_custom_container,

control_container2 TYPE REF TO cl_gui_custom_container,

alv_tree_control TYPE REF TO cl_gui_alv_tree,

alv_tree_control2 TYPE REF TO cl_gui_alv_tree,

fieldcatalog TYPE STANDARD TABLE OF lvc_s_fcat,

hierarchy_header TYPE treev_hhdr.

DATA splitter TYPE REF TO cl_gui_splitter_container.

DATA container TYPE REF TO cl_gui_custom_container.

DATA container_1 TYPE REF TO cl_gui_container.

DATA container_2 TYPE REF TO cl_gui_container.

DATA: lt_list_commentary TYPE slis_t_listheader,

lt_list_commentary2 TYPE slis_t_listheader,

gs_variant TYPE disvariant,

gs_variant2 TYPE disvariant.

• PBO of screen 0100

CREATE OBJECT container

EXPORTING container_name = 'CUSTOM'.

CREATE OBJECT splitter

EXPORTING parent = container

rows = 2

columns = 1.

CALL METHOD splitter->get_container

EXPORTING

row = 1

column = 1

RECEIVING

container = container_1.

CALL METHOD splitter->get_container

EXPORTING

row = 2

column = 1

RECEIVING

container = container_2.

IF alv_tree_control IS INITIAL.

• initialization-fieldcatalog

PERFORM build_fieldcatalog

CHANGING fieldcatalog.

• create info-table for header

PERFORM build_comment

USING lt_list_commentary lt_list_commentary2.

• create alv_tree control

CREATE OBJECT alv_tree_control

EXPORTING

parent = container_1 " control_container

item_selection = ' '

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

OTHERS = 8.

IF sy-subrc <> 0.

internal_error 'CREATE OBJECT alv_tree_control' .

ENDIF.

CREATE OBJECT alv_tree_control2

EXPORTING

parent = container_2 " control_container2

item_selection = ' '

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

OTHERS = 8.

CREATE OBJECT event_receiver.

CREATE OBJECT event_receiver2.

SET HANDLER event_receiver->proc_events FOR alv_tree_control.

SET HANDLER event_receiver2->proc_events2 FOR alv_tree_control2.

• define the events which will be passed to the backend

wa_events-eventid =cl_gui_simple_tree=>eventid_node_double_click .

wa_events-appl_event = 'X'. " process PAI if event occurs

APPEND wa_events TO i_events.

CALL METHOD alv_tree_control->set_registered_events

EXPORTING

events = i_events

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

illegal_event_combination = 3

OTHERS = 4.

CALL METHOD alv_tree_control2->set_registered_events

EXPORTING

[Former Member]

hi,

use the following code, if it useful reward the points.

REPORT zdemo_alvgrid .

*Data Declaration

*----

---

TABLES: ekko.

TYPE-POOLS: slis. "ALV Declarations

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: l_tree_container_name(30) TYPE c,

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

&----

---

*& 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.

• Please not there are a number of differences between the structure of

• 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

[Former Member]

hi subas,

in screen 100 what should i do........ for me the output comes as a blank screen..........

[Former Member]

hi check this..

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

regards,

venkat