Need a sample program for hierarchial oops ALV report

[Former Member]

Hello experts,

I Need a sample program for hierarchial oops ALV report.

[Former Member]

Hi,

Check the following sample code...

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

• T A B L E S

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

tables : ekko.

----

---

• data definition

----

---

types : begin of ty_ekko,

ebeln type ekko-ebeln,

lifnr type ekko-lifnr,

bsart type ekko-bsart,

aedat type ekko-aedat,

ernam type ekko-ernam,

end of ty_ekko.

types : begin of ty_eket,

ebeln type ekpo-ebeln,

ebelp type ekpo-ebelp,

werks type ekpo-werks,

matnr type ekpo-matnr,

menge type eket-menge,

wamng type eket-wamng,

netpr type ekpo-netpr,

end of ty_eket.

data : it_ekko type table of ty_ekko,

it_eket type table of ty_eket.

data: ob_hieralv type ref to cl_salv_hierseq_table.

data: it_binding type salv_t_hierseq_binding,

is_binding type salv_s_hierseq_binding.

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

• S E L C T O P T I O N S

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

select-options : s_ebeln for ekko-ebeln.

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

• S T A R T O F S E L E C T I O N

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

start-of-selection.

select ebeln

lifnr

bsart

aedat

ernam from ekko

into corresponding fields of table it_ekko

where ebeln in s_ebeln.

if sy-subrc eq 0.

select a_{ebeln a}ebelp

a_{werks a}matnr

b_{menge b}wamng

a~netpr from ekpo as a join eket as b

on a_{mandt = b}mandt

and a_{ebeln = b}ebeln

and a_{ebelp = b}ebelp

into corresponding fields of table it_eket

where a~ebeln in s_ebeln.

endif.

is_binding-master = 'EBELN'.

is_binding-slave = 'EBELN'.

append is_binding to it_binding.

*TRY.

call method cl_salv_hierseq_table=>factory

exporting

t_binding_level1_level2 = it_binding

importing

r_hierseq = ob_hieralv

changing

t_table_level1 = it_ekko

t_table_level2 = it_eket .

*CATCH cx_salv_data_error .

*CATCH cx_salv_not_found .

*ENDTRY.

call method ob_hieralv->display( ).

Cheers,

Ram

[former_member188685]

Check the programs

BCALVTREE

Using the Classes CL_GUI_ALV_TREE

CL_GUI_LIST_TREE

CL_GUI_COLIMN_TREE

'we can show hierarchy, it is formally called Tree