alv lights

[Former Member]

how we can use layout-lights_fieldname.

how to display lights coloum using layout-lights_fieldname.

[former_member705122]

Hi,

Check this thread:

http://www.sapnet.ru/viewtopic.php?t=446&view=next&sid=bdcde2a234183579243aff572b7c539f

Please search SDN forum.

Regards

Adil

[Former Member]

Hi,

The Following Code will be helpful to you.

REPORT zs_icons .

TYPE-POOLS: slis.

INCLUDE <icon>.

TABLES :mara.

DATA: c_sel(4) TYPE c VALUE '&IC1'.

DATA: ws_repname TYPE sy-repid,

• I_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

• I_FIELDTAB1 TYPE SLIS_T_FIELDCAT_ALV,

• L_FIELDTAB TYPE SLIS_FIELDCAT_ALV,

alv_spec TYPE slis_layout_alv,

i_events TYPE slis_t_event.

DATA: eventstab TYPE slis_t_event WITH HEADER LINE,

heading TYPE slis_t_listheader WITH HEADER LINE,

heading1 TYPE slis_t_listheader WITH HEADER LINE,

i_fieldtab TYPE slis_t_fieldcat_alv WITH HEADER LINE,

i_fieldtab1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,

l_fieldtab TYPE slis_t_fieldcat_alv WITH HEADER LINE.

DATA: BEGIN OF itab OCCURS 0,

matnr LIKE mara-matnr,

carrid-tab(10) TYPE c,

ersda LIKE mara-ersda,

ernam LIKE mara-ernam,

wa_color(4) TYPE c,

colcolor TYPE lvc_t_scol,

END OF itab.

ws_repname = sy-repid.

SELECT * FROM mara INTO CORRESPONDING FIELDS

OF TABLE itab UP TO 100 ROWS.

DATA: is_cellcolor TYPE lvc_s_scol.

LOOP AT itab.

DATA : temp TYPE i.

temp = sy-tabix MOD 2.

IF temp EQ 0.

is_cellcolor-fname = 'ERNAM'.

is_cellcolor-color-col = '6'.

is_cellcolor-color-int = '1'.

is_cellcolor-nokeycol = 'X'.

APPEND is_cellcolor TO itab-colcolor.

MODIFY itab.

CLEAR is_cellcolor.

ENDIF.

DATA: temp1 TYPE i.

temp1 = sy-tabix MOD 3.

IF temp1 EQ 0.

is_cellcolor-fname = 'MATNR'.

is_cellcolor-color-col = '5'.

is_cellcolor-color-int = '1'.

is_cellcolor-nokeycol = 'X'.

APPEND is_cellcolor TO itab-colcolor.

MODIFY itab.

CLEAR is_cellcolor.

ENDIF.

DATA: temp2 TYPE i.

temp2 = sy-tabix MOD 3.

IF temp2 EQ 0.

is_cellcolor-fname = 'ERSDA'.

is_cellcolor-color-col = '4'.

is_cellcolor-color-int = '1'.

is_cellcolor-nokeycol = 'X'.

APPEND is_cellcolor TO itab-colcolor.

MODIFY itab.

CLEAR is_cellcolor.

ENDIF.

ENDLOOP.

LOOP AT itab.

IF sy-tabix EQ '2' OR sy-tabix EQ '4'.

itab-wa_color = 'C311'.

MODIFY itab.

ENDIF.

MOVE icon_red_light TO itab-carrid-tab.

MODIFY itab.

• ENDIF.

IF sy-tabix > 10.

MOVE icon_green_light TO itab-carrid-tab.

MODIFY itab.

ENDIF.

ENDLOOP.

l_fieldtab-tabname = 'ITAB'.

l_fieldtab-fieldname = 'MATNR'.

l_fieldtab-col_pos = '1'.

l_fieldtab-hotspot = 'X'.

APPEND l_fieldtab.

l_fieldtab-tabname = 'ITAB'.

l_fieldtab-fieldname = 'CARRID-TAB'.

l_fieldtab-col_pos = '2'.

l_fieldtab-seltext_l = 'ICON'.

l_fieldtab-hotspot = 'X'.

l_fieldtab-rollname = 'ZDOM1'.

APPEND l_fieldtab.

l_fieldtab-tabname = 'ITAB'.

l_fieldtab-fieldname = 'ERSDA'.

l_fieldtab-col_pos = '3'.

l_fieldtab-hotspot = 'X'.

APPEND l_fieldtab.

l_fieldtab-tabname = 'ITAB'.

l_fieldtab-fieldname = 'ERNAM'.

l_fieldtab-col_pos = '4'.

l_fieldtab-hotspot = 'X'.

APPEND l_fieldtab.

• I_FIELDTAB1[] = I_FIELDTAB[].

****ALV****

alv_spec-zebra = ' '.

alv_spec-confirmation_prompt = ' '.

alv_spec-no_vline = ' '.

alv_spec-no_hline = ' '.

alv_spec-window_titlebar = 'ALV ICON REPORT'.

alv_spec-info_fieldname = 'WS_COLOR'.

alv_spec-coltab_fieldname = 'COLCOLOR'.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

i_inclname = sy-repid

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE =

CHANGING

ct_fieldcat = l_fieldtab[]

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3

.

IF sy-subrc <> 0.

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

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

ENDIF.

GoodLuck

Regards,

sharmista

[Former Member]

simple and helpful example, thank you.

[former_member181995]

Pingala,

i would suggest you to search in SDN with term

treffic light in ALV you will get your answer.

Amit.

[Former Member]

Hi Ravi,

Go through this link...

http://saptechnical.com/Tutorials/ALV/Lights/ALV.htm

If Found Help Full Do Reward.

Regards.

Eshwar.