ALV

[Former Member]

HOW CAN USE THE STRUCTURE SLIS_COLOR IN THE ALV CODE .

AND GIVE ME AN EXAMPLE OF HIERARCHIEL PROGRAM USING ALV

[Former Member]

Hi Carol,

Search Forum with key word <b>ZUS_SDN_</b>, you will get plenty of example codes on ALV.

Regards,

Satish

[Former Member]

Simple ALV program for Hierarchical ALV.

REPORT ZALVHIER .
tables: vbak, vbpa.
TYPE-POOLS: SLIS.
data: t_vbak type standard table of vbak,
      t_vbpa type standard table of vbpa,
         T_KEYINFO  TYPE SLIS_KEYINFO_ALV.


selection-screen: begin of block 1 with frame title text-001.
select-options: s_vbeln for vbak-vbeln.
selection-screen: end of block 1.

      select * from vbak
      into table t_vbak
      where vbeln in s_vbeln.

      select * from vbpa
      into table t_vbpa
      for all entries in t_vbak
      where vbeln = t_vbak-vbeln.



   T_KEYINFO-HEADER01 = 'VBELN'.
   T_KEYINFO-ITEM01   = 'VBELN'.

      CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
        EXPORTING

          I_TABNAME_HEADER               = 't_vbak'
          I_TABNAME_ITEM                 = 't_vbpa'
         I_STRUCTURE_NAME_HEADER        = 'vbak'
         I_STRUCTURE_NAME_ITEM          = 'vbpa'
          IS_KEYINFO                     = t_keyinfo

        TABLES
          T_OUTTAB_HEADER                =  t_vbak
          T_OUTTAB_ITEM                  =  t_vbpa

                .

[Former Member]

Hi,

Check the below thread..You have sample codes.

Regards,

Maha

[Former Member]

hi,

here is the example of hierarhical ALV.

TYPE-POOLS : slis.

TABLES : mseg.

DATA : BEGIN OF itab_head OCCURS 0,

matnr LIKE mseg-matnr,

werks LIKE mseg-werks,

END OF itab_head.

DATA : BEGIN OF itab_item OCCURS 0,

matnr LIKE mseg-matnr,

werks LIKE mseg-werks,

mblnr LIKE mseg-mblnr,

menge LIKE mseg-menge,

END OF itab_item.

DATA : t_fcat TYPE slis_t_fieldcat_alv,

key_info TYPE slis_keyinfo_alv,

t_eve TYPE slis_t_event,

gt_subtot TYPE slis_t_sortinfo_alv,

subtot LIKE LINE OF gt_subtot,

t_listhead TYPE slis_t_listheader,

st_line TYPE slis_listheader.

DATA : t_mtdoc LIKE mseg-mblnr.

SELECT-OPTIONS : mat FOR mseg-matnr.

INITIALIZATION.

PERFORM build_cat USING t_fcat.

PERFORM build_eve.

START-OF-SELECTION.

PERFORM get_data.

PERFORM dis_data.

&----

---

*& Form build_cat

&----

---

• text

----

---

• -->TEMP_FCAT text

----

---

FORM build_cat USING temp_fcat TYPE slis_t_fieldcat_alv.

DATA : wa_fcat TYPE slis_fieldcat_alv.

wa_fcat-tabname = 'ITAB_HEAD'.

wa_fcat-fieldname = 'MATNR'.

wa_fcat-seltext_m = 'Material'.

APPEND wa_fcat TO temp_fcat.

CLEAR wa_fcat.

wa_fcat-tabname = 'ITAB_HEAD'.

wa_fcat-fieldname = 'WERKS'.

wa_fcat-seltext_m = 'Plant'.

APPEND wa_fcat TO temp_fcat.

CLEAR wa_fcat.

wa_fcat-tabname = 'ITAB_ITEM'.

wa_fcat-fieldname = 'MBLNR'.

wa_fcat-seltext_m = 'Material Doc.'.

APPEND wa_fcat TO temp_fcat.

CLEAR wa_fcat.

wa_fcat-tabname = 'ITAB_ITEM'.

wa_fcat-fieldname = 'MENGE'.

wa_fcat-seltext_m = 'Quantity'.

• wa_fcat-do_sum = 'Y'.

APPEND wa_fcat TO temp_fcat.

CLEAR wa_fcat.

• subtot-spos = 1.

• subtot-fieldname = 'MATNR'.

• subtot-tabname = 'ITAB_HEAD'.

• subtot-up = 'X'.

• subtot-group = 'X'.

• subtot-subtot = 'X'.

• subtot-expa = 'X'.

• APPEND subtot TO gt_subtot.

ENDFORM. "build_cat

&----

---

*& Form build_eve

&----

---

• text

----

---

FORM build_eve.

DATA : wa_eve TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = t_eve

• EXCEPTIONS

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

• READ TABLE t_eve INTO wa_eve WITH KEY name = 'TOP_OF_PAGE'.

• IF sy-subrc = 0.

• wa_eve-form = 'TOP_OF_PAGE'.

• MODIFY t_eve FROM wa_eve INDEX sy-tabix.

• ENDIF.

*

ENDFORM. "build_eve

&----

---

*& Form get_data

&----

---

• text

----

---

FORM get_data.

SELECT matnr werks mblnr menge FROM mseg INTO CORRESPONDING FIELDS OF TABLE itab_item

WHERE matnr IN mat.

ENDFORM. "get_data

&----

---

*& Form dis_data

&----

---

• text

----

---

FORM dis_data.

key_info-header01 = 'MATNR'.

key_info-item01 = 'MATNR'.

key_info-header02 = 'WERKS'.

key_info-item02 = 'WERKS'.

REFRESH itab_head.

LOOP AT itab_item.

ON CHANGE OF itab_item-matnr OR itab_item-werks.

MOVE-CORRESPONDING itab_item TO itab_head.

APPEND itab_head.

ENDON.

ENDLOOP.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

i_callback_program = 'ZHEIRALV_PRDS'

• i_callback_user_command = 'USER_COMMAND'

it_fieldcat = t_fcat

it_sort = gt_subtot

it_events = t_eve[]

i_tabname_header = 'ITAB_HEAD'

i_tabname_item = 'ITAB_ITEM'

is_keyinfo = key_info

TABLES

t_outtab_header = itab_head

t_outtab_item = itab_item

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

&----

---

*& Form top_of_page

&----

---

• text

----

---

FORM top_of_page.

CLEAR st_line.

st_line-typ = 'H'.

st_line-info = 'Dhwani Shah'.

APPEND st_line TO t_listhead.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_listhead

• I_LOGO =

• I_END_OF_LIST_GRID =

• I_ALV_FORM =

.

ENDFORM. "top_of_page

[Former Member]

thanks i got it

[Former Member]

hi,

If u got answer than please reward oints and close this thread...

[Former Member]

HI

/community [original link is broken]