Collapsible Area

[Former Member]

How to create a collapsible area?

Plz, give me some examples of its coding.

[Former Member]

How to create a collapsible area?

Plz, give me some examples of its coding.

[Former Member]

hi,

u want output in tree format?

R u using ALV and total and subtotal?

[Former Member]

Actually, i don't know that how to and where to use it.

So, will u please send me the code regarding it and the

help on its detailed use.

[Former Member]

hi,

try this

TABLES vbak.

TYPE-POOLS slis.

• Data Declaration

TYPES : BEGIN OF t_vbak,

vbeln TYPE vbak-vbeln,

erdat TYPE vbak-erdat,

ernam TYPE vbak-ernam,

audat TYPE vbak-audat,

vbtyp TYPE vbak-vbtyp,

netwr TYPE vbak-netwr,

vkorg TYPE vbak-vkorg,

vkgrp TYPE vbak-vkgrp,

line_color(4) TYPE c,

END OF t_vbak.

DATA : it_vbak TYPE STANDARD TABLE OF t_vbak INITIAL SIZE 0,

wa_vbak TYPE t_vbak.

• ALV Data Declaration

DATA : fldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,

gd_layout TYPE slis_layout_alv,

gd_repid TYPE sy-repid,

i_events TYPE slis_t_event,

it_sortinfo TYPE slis_t_sortinfo_alv WITH HEADER LINE,

w_events LIKE LINE OF i_events.

DATA : i_comment TYPE slis_t_listheader,

wa_comment TYPE slis_listheader.

START-OF-SELECTION.

PERFORM data_retrieval.

PERFORM bld_fldcat.

PERFORM it_sortinfo.

PERFORM bld_layout.

PERFORM display_alv_report.

• Build Field Catalog for ALV Report

FORM bld_fldcat.

fldcat-fieldname = 'VBELN'.

fldcat-seltext_m = 'Sales Document'.

fldcat-col_pos = 0.

*FLDCAT-EMPHASIZE = 'C411'.

fldcat-outputlen = 20.

fldcat-key = 'X'.

APPEND fldcat TO fldcat.

CLEAR fldcat.

fldcat-fieldname = 'ERDAT'.

fldcat-seltext_l = 'Record Date created'.

fldcat-col_pos = 1.

fldcat-key = 'X'.

APPEND fldcat TO fldcat.

CLEAR fldcat.

fldcat-fieldname = 'ERNAM'.

fldcat-seltext_l = 'Cteated Object Person Name'.

APPEND fldcat TO fldcat.

CLEAR fldcat.

fldcat-fieldname = 'AUDAT'.

fldcat-seltext_m = 'Document Date'.

fldcat-col_pos = 3.

fldcat-emphasize = 'C110'.

APPEND fldcat TO fldcat.

CLEAR fldcat.

fldcat-fieldname = 'VBTYP'.

fldcat-seltext_l = 'SD Document category'.

fldcat-col_pos = 4.

APPEND fldcat TO fldcat.

CLEAR fldcat.

fldcat-fieldname = 'NETWR'.

fldcat-seltext_l = 'Net Value of the SO in Document Currency'.

fldcat-col_pos = 5.

fldcat-outputlen = 60.

fldcat-do_sum = 'X'.

fldcat-datatype = 'CURR'.

APPEND fldcat TO fldcat.

CLEAR fldcat.

fldcat-fieldname = 'VKORG'.

fldcat-seltext_l = 'Sales Organization'.

fldcat-col_pos = 6.

APPEND fldcat TO fldcat.

CLEAR fldcat.

fldcat-fieldname = 'VKGRP'.

fldcat-seltext_m = 'Sales Group'.

fldcat-col_pos = 7.

fldcat-emphasize = 'C801'.

APPEND fldcat TO fldcat.

CLEAR fldcat.

ENDFORM. "BLD_FLDCAT

• Build Layout for ALV Grid Report

FORM bld_layout.

gd_layout-no_input = 'X'.

gd_layout-colwidth_optimize = 'X'.

gd_layout-info_fieldname = 'LINE_COLOR'.

ENDFORM. "BLD_LAYOUT

• Display report using ALV grid

FORM display_alv_report.

DATA t_event TYPE slis_t_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = t_event.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

gd_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = gd_repid

is_layout = gd_layout

it_events = i_events

it_fieldcat = fldcat[]

it_sort = it_sortinfo[]

i_save = 'X'

TABLES

t_outtab = it_vbak

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

EXIT.

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

DATA ld_color(1) TYPE c.

SELECT vbeln erdat ernam audat vbtyp netwr vkorg

UP TO 100 ROWS

FROM vbak

INTO TABLE it_vbak.

ENDFORM. "DATA_RETRIEVAL

&----

---

*& Form CALL_EVENTS

&----

---

• text

----

---

&----

---

*& Form it_sortinfo

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM it_sortinfo .

it_sortinfo-fieldname = 'ERNAM'.

it_sortinfo-tabname = 'IT_VBAK'.

it_sortinfo-subtot = 'X'.

it_sortinfo-obligatory = 'X'.

it_sortinfo-up = 'X'.

it_sortinfo-spos = '1'.

it_sortinfo-expa = 'X'.

APPEND it_sortinfo.

ENDFORM. " it_sortinfo

reward if usefull....

[Former Member]

there is an example for Collapsible Area:example_entry_screen