Display Traffic Lights in SAP ALV

 

Steps for Traffic Light in ALV Report.

1.     Add a column for traffic light.

 

            TYPES: BEGIN OF ty_mara.

            INCLUDE STRUCTURE mara.

            TYPES: icon TYPE c,  " Add field to hold traffic light value

              END OF ty_mara.

 

2.     Fetch data using select query and build a field catalog.

3.     Assign traffic light as per your requirement

    IF wa_mara-ersda  <  '01.01.2020'.
      wa_mara-icon = 1.  " Red Traffic Light.

Endif

4.     To display traffic lights in the ALV, fill the lights field name in the LIGHTS_FIELDNAME of ALV layout.

5.     Pass field catalog to function module ‘REUSE_ALV_GRID_DISPLAY’.

SAMPLE CODE : 

REPORT ZTRAFFIC_LIGHT.
TYPE-POOLS: slis.  " SLIS contains all the ALV data types
*&---------------------------------------------------------------------*
*& Data Types
*&---------------------------------------------------------------------*
TYPES: BEGIN OF ty_mara.
    INCLUDE STRUCTURE mara.
TYPES: icon TYPE c,  " Add field to hold traffic light value
       END OF ty_mara.
*&---------------------------------------------------------------------*
*& Data Declaration
*&---------------------------------------------------------------------*
DATA: it_mara      TYPE TABLE OF ty_mara.
DATA: wa_mara      TYPE ty_mara.
DATA: it_fieldcat  TYPE slis_t_fieldcat_alv,
      wa_fieldcat  TYPE slis_fieldcat_alv.
DATA: is_layout    TYPE slis_layout_alv.
DATA: g_repid      TYPE sy-repid.
*&---------------------------------------------------------------------*
*& START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
  g_repid = sy-repid.
*Fetch data from the database
  SELECT * UP TO 100 ROWS FROM mara INTO TABLE it_mara.

*Assign different traffic lights to each row based on condition
  LOOP AT it_mara INTO wa_mara.
    IF wa_mara-ersda  <  '01.01.2020'.
      wa_mara-icon = 1.  " Red Traffic Light

    ELSEIF wa_mara-ersda =  '01.01.2020'.
      wa_mara-icon = 2.  " Yellow Traffic Light

    ELSE.
      wa_mara-icon  = 3.  " Green Traffic Light
    ENDIF.

    MODIFY it_mara FROM wa_mara TRANSPORTING icon.
    CLEAR: wa_mara.
  ENDLOOP.

*Build field catalog
  wa_fieldcat-fieldname  = 'MATNR'.    " Fieldname in the data table
  wa_fieldcat-seltext_m  = 'MATNR'.   " Column description in the output
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ERSDA'.
  wa_fieldcat-seltext_m  = 'Created On'.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.



*Fill layout info.
*Fill traffic lights field name in the ALV layout
  is_layout-lights_fieldname = 'ICON'.

*Pass data and field catalog to ALV function module to display ALV list
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = g_repid
      is_layout          = is_layout
      it_fieldcat        = it_fieldcat
    TABLES
      t_outtab           = it_mara
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.