ALV Traffic lights for subtotal

Hi,
How can I use "traffic lights" that depend on the subtotals of one field in one ALV?
Thank you

Hi Nuno Barros,
Please check the below link... it will guide you to fulfill your requirement..
http://wiki.sdn.sap.com/wiki/display/Snippets/ALVGRIDCOMPLETEEXAMPLEWITHTOOLBARBUTTONSUSINGCLASS.
http://www.erpgenie.com/sap/abap/controls/alvgrid.htm
http://wiki.sdn.sap.com/wiki/display/Snippets/TrafficlightsinALVdisplay
Or check this code...you may find it easy
*& Declaration part
TYPES: BEGIN OF t_lights,
      matnr TYPE mard-matnr,
      werks TYPE mard-werks,
      lgort TYPE mard-lgort,
      lights TYPE char4,       "Variable is needs to be declared with length 4 char
   END OF t_lights.
DATA: w_lights TYPE t_lights.
DATA: i_lights TYPE STANDARD TABLE OF t_lights.
FORM get_data .
SELECT matnr werks lgort
FROM mard
INTO CORRESPONDING FIELDS OF TABLE i_lights UP TO 10 ROWS.
"Just pass 1=red or 2=yellow or 3=green to lights fields ( HERE YOU CAN CHECK FOR YOUR CONDITION AND ASSIGN LIGHTS ACCORDIGLY)
LOOP AT i_lights INTO w_lights .
IF sy-tabix BETWEEN 1 AND 3.
w_lights-lights = '1'.
ELSEIF sy-tabix BETWEEN 4 AND 7.
w_lights-lights = '2'.
ELSEIF sy-tabix BETWEEN 8 AND 10.
w_lights-lights = '3'.
ENDIF.
MODIFY i_lights FROM w_lights INDEX sy-tabix TRANSPORTING lights.
ENDLOOP.
ENDFORM.                    " get_data
*&      Form build_layout
FORM build_layout .
w_layout-colwidth_optimize = 'X'.
w_layout-zebra             = 'X'.
w_layout-lights_fieldname = 'LIGHTS'.
w_layout-lights_tabname    = 'I_LIGHTS'.
w_layout-lights_rollname   = 'Hits'.
ENDFORM.                    " build_layout
*&      Form list_display
FORM list_display .
DATA:
l_program TYPE sy-repid.
l_program = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = l_program
is_layout          = w_layout
it_fieldcat        = i_fieldcat
TABLES
t_outtab           = i_lights
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.                    " list_display
Thanks
Shankar

Similar Messages

Traffic Lights For Hyperlinks panel not showing. INDESIGN.

My traffic lights for the hyperlinks panels are not showing and I have the latest version of CC. How do I show/hide them? Thanks

First, make sure you have InDesign CC 9.2.1. Choose InDesign > About InDesign (Mac) or Help > About InDesign (Windows).
If you're up-to-date, try restoring your preferences:
Trash, Replace, Reset, or Restore the application Preferences

Red Traffic Light for Datasources Delta Queues

Hi all,
Our R/3 source system is connected to our BW system.
Between the two systems we operated standard logistics datasources delta queues, by filling the setup tables and performing an initial update.
The datasources delta queues were created and used over a month (according to the RSA7 they all marked with green traffic light).
Now, we copied the R/3 source system to a new one.
After doing so, all the delta queues traffic light turned to be red.
Does anyone can provide a technical explanation/reason to this problem?
Also, is there something we could do to "save" this delta queue, without needed to delete it and create it all over again?
Thanks ahead,
Shani Bashkin

Hi Eddo,
Thanks for your help.
Yes, I'm using the same system name and system id. The new copied system has the same name and id like the productive system.
Also, it seems like the RFC connection to the BW is lost.
The question is why?
Thanks,
Shani Bashkin

Set Traffic Light for Individual Cell in a Row

Hi,
I have 3 columns in one Row and I need to show 3 COLUMNS using Traffic lights one with Red, Yellow, Green. How it is possible in SET_TABLE_FOR_FIRST_DISPLAY.
Regards,
Deepthi.

I got the answer:
Go to SE11 Tcode and ICON and press F7.
Look for F4 help of field ID.
See code below:
if ls_fieldcatalog-fieldname eq 'LIGHT1'
or ls_fieldcatalog-fieldname eq 'LIGHT2'
or ls_fieldcatalog-fieldname eq 'LIGHT3'.
     ls_fieldcatalog-ICON = 'X'.
endif.
BEGIN OF t_final,
bukrs   TYPE bukrs,     "Company Code
gjahr   TYPE gjahr,     "Fiscal Year
light1 TYPE ICON_D,
light2 TYPE ICON_D,
light3 TYPE ICON_D,
end of t_final.
data: i_final type standard table of t_final.
LOOP AT i_anlp_temp INTO w_anlp.
    IF sy-tabix = 1.
      w_final-bukrs = w_anlp-bukrs.
      w_final-gjahr = w_anlp-gjahr.
    ENDIF.
    CASE w_anlp-peraf.
      WHEN '001'.
        w_final-peraf1 = w_anlp-peraf.
        w_final-light1 = '@0A@'. "RED.
      WHEN '002'.
        w_final-peraf2 = w_anlp-peraf.
        w_final-light2 = '@09@'. "Yellow.
      WHEN '003'.
        w_final-peraf3 = w_anlp-peraf.
        w_final-light3 = '@08@'. "Green.
endcase.
append w_final to i_final.
endloop,

' Define traffic light' for MRP

hi
I am using the collective list to view planning results using 'define traffic light'. I am able to define traffic light by user profile. I want to define traffic light by the MRP controller. Is there a way I can do it?
thanks a lot

Hi,
The SAP help talks about creation of evaluation profile & defining limits via MRP controllers in customizing, but i am unable to find the same. If anyone can point where to do this setup, it would be quite helpful.
Quoting from SAP help:
● You have created an evaluation profile in Customizing for Material Requirements Planning and defined the limit values for the ranges of coverage there.
● You have assigned the evaluation profile to an MRP group.
● You have assigned the evaluation profile to the plant parameters.
I guess your need can be met via BADI - MD_SET_TRAFFIC_LIGHTS_DS in the enhancement spot ES_MD_MRP_EVALUATIONS
Hope the above helps.
Regards,
Vivek
Added
Just found this SAP Note - 947983, this helps in defining the Evaluation profile.
Edited by: Vivek on May 19, 2009 9:52 AM

ALV & Traffic Light

Hi Expert,
I have a problem after filter the traffic light in ALV and I try to filter again at the traffic light or anoters column I will be got an information message "Filter internal error: 15".
Could anyone please tell me how to fixed this problem?
P.S. I have this problem both BCALV_GRID_04 and another my programs.
Regards,
Tiwa Noitawee.
Message was edited by:
        Tiwa Noitawee

Hi tiwa,
1. In my program its working fine.
2. just copy paste,
   run,
   and then filter.
3.
REPORT abc.
TYPE-POOLS : slis.
DATA : alvly TYPE slis_layout_alv.
DATA : alvfc TYPE slis_t_fieldcat_alv.
DATA : BEGIN OF itab OCCURS 0,
lt TYPE i,
matnr LIKE mara-matnr,
END OF itab.
END-OF-SELECTION.
itab-lt = 1.
APPEND itab.
itab-lt = 2.
APPEND itab.
itab-lt = 3.
APPEND itab.
itab-lt = 1.
APPEND itab.
itab-lt = 3.
APPEND itab.
itab-lt = 3.
APPEND itab.
itab-lt = 3.
APPEND itab.
APPEND itab.
APPEND itab.
APPEND itab.
APPEND itab.
APPEND itab.
APPEND itab.
APPEND itab.
APPEND itab.
alvly-lights_fieldname = 'LT'.
alvly-lights_tabname = 'ITAB'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'ITAB'
i_inclname = sy-repid
CHANGING
ct_fieldcat = alvfc.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_fieldcat = alvfc
is_layout = alvly
i_save = 'A'
TABLES
t_outtab = itab.
regards,
amit m.

IW38 Traffic Light for Custom Date field

Hi Experts,
I am trying use the Reference Field for Monitor. It has got 1. Priority, 2. Order/Start/End, 3. Scheduled Start/End.
We have created a custom date field as Original start/Finish dates. I want to create traffic light based on this date.
Can you please help me where and how to do this configuration. I have already searched the forum. But no help found.
Thanks,
Panneer

Panneer,
You can use Enhancement Spot ES_EAM_LIST_ENHANCEMENTS for this purpose (see SE18)
PeteA

Exception groups & Traffic Lights for MRP run shortage quantities

Hi Guys:
How to define Traffic Lights and Exception groups in MD04/Mdo5 transaction?
Or any literature available ?
Thanks
kodali

Kodali,
You can customize the exception message and grouping in configuration.
Please follow below mentioned path and do necessary config.
SPRO -> Production --> Materials Requirement Planning --> Evaluation --> Exception Messages.
Regards,
Himanshu

Traffic light project for Multisim

Hello, I am trying to design a working traffic light for both N/S and E/W sides of traffic (i.e., six lights). I will build it later, for real, using the Elvis II breadboard. I have been looking around at other schematics on the web, I have drawn many of these on Multisim and none of them work. It also needs to be a U.S. traffic light, as the ones in the U.K. are different. I have tried many different combinations, with the 555 timer and the 4017 decade counter, but I don't know how these components actually work. I need help. The simplest circuit would be better, I know, like some kind of RS flip-flop or JK flip-flop (?). I don't know how these components really hook up together or how I am supposed to get the timing right, where the red and green on opposite times will stay on for a required time, like 15 seconds for demo purposes, and then go to yellow on the side the green was on for 3 seconds ( after the green goes out and the red stays on with the yellow) and then it flip-flops to green and red on the other side for 15 seconds. I don't know how to go about this. A good example would be very helpful. Thank you, brett1405
Solved!
Go to Solution.

Hi -
I am trying to build the same type of circuit in Multisim and am unable to get any simulation to run. The error keeps saying my "timestep is too short", which I have no idea what that means... Do you have any suggestions? I wasn't able to find the sample circuit in my Multisim version for the traffic light either.
I have what looks like a mess of a circuit and I don't even know where to begin to trouble shoot it...
Attachments:
Final Circuit2.ms10 ‏266 KB

Web item analysis Modification -- Traffic lights

Hi all,
I am using BI 7.0 WAD and I would like to display traffic lights icons in the data of web template.
I was able to do this in 3.5 by using a super class CL_RSR_WWW_MODIFY_ TABLE and modifying the CHARACTERISTIC_CELL field.
Then i used to add <param name="MODIFY_CLASS" value="myclass"/> into the table item object tag.
But this was using table interfaces.
In BI 7.0, the table interfaces are replaced by Web Interfaces and hardly find any help documentation as it is very very limited.
I am trying to display images (traffic lights) for specific characteristic values
zstatus = g then display green
zstatus = y then display yellow
zstatus = r then display red
Could some one please help me resolve this issue.
Thanks a lot
Phani.
Edited by: Phani Kothwali on Oct 27, 2008 3:21 AM

Hi
Table Interface Class was a wonderful thing wasn't it ... such a pity they took that functionality away from us ... maybe one day they'll bring it back.
Back to your question ... you could use exception reporting in the query. In the query you should be able to specify that when a certain value is encountered, then show that cell in a certain colour, or show a symbol.
Alternately, the best way I have found to date to replicate table interface functionality, is to write some JavaScript that will process the HTML once it has loaded. There is no reason why you couldn't have some script to go through your table and check the values in a certain column. I have written JavaScript to perform custom calculations in a certain column, so you could use a similar approach to simply check the value of the cell, and then change the contents to an image instead of a value.
Hope this helps you .
Cheers,
Andrew

Display Traffic Lights in ALV TREE

Hi,
I have to display traffic light in ALV tree but i am not able to find out what parameter i should pass like in ALV grid where we can set is_layout (BCALV_GRID_04).
Thanks in advance.
Regards,
Harsh

Hi,
Please take a look at my code below. Hope it suits your requirement.
P.S. Please award points if it helps...
*& Report ZMM_R_PO_TO_IPURCH_XI
*& PROGRAM TYPE : Report
*& RICEF ID      :
*& TITLE         : ZMM_R_PO_TO_IPURCH_XI
*& SAP Module    : MM
*& CREATION DATE : 02/06/2008
*& AUTHOR        : Aris Hidalgo
*& DESIGNER      : Aris Hidalgo
*& DESCRIPTION   :
*$**********************************************************************
*$     CHANGE HISTORY
*$----------------------------------------------------------------------
*$   DATE        | T-Num      | Description                  | Reference
**               |            |                              |
*$**********************************************************************
REPORT zmm_r_po_to_ipurch_xi
        NO STANDARD PAGE HEADING
        MESSAGE-ID zmm.
* Data Dictionary Table/s                      *
TABLES: edidc.
* SELECTION-SCREEN                             *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_credat FOR edidc-credat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: rb_sum RADIOBUTTON GROUP grp1,
            rb_det RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b2.
*/ CLASS DEFINITION/S /*
*       CLASS lcl_data_def DEFINITION
CLASS lcl_data_def DEFINITION ABSTRACT.
PUBLIC SECTION.
    TYPES: BEGIN OF t_edidc,
            docnum TYPE edidc-docnum,
            docrel TYPE edidc-docrel,
            status TYPE edidc-status,
            doctyp TYPE edidc-doctyp,
            direct TYPE edidc-direct,
            rcvpor TYPE edidc-rcvpor,
            rcvprt TYPE edidc-rcvprt,
            rcvprn TYPE edidc-rcvprn,
            rcvsad TYPE edidc-rcvsad,
            sndpor TYPE edidc-sndpor,
            sndprt TYPE edidc-sndprt,
            sndprn TYPE edidc-sndprn,
            sndsad TYPE edidc-sndsad,
            credat TYPE edidc-credat,
            cretim TYPE edidc-cretim,
            mestyp TYPE edidc-mestyp,
            idoctp TYPE edidc-idoctp,
           END OF t_edidc.
    TYPES: BEGIN OF t_output,
            exception TYPE char1,
            ebeln     TYPE ekko-ebeln,
            lifnr     TYPE lfa1-lifnr,
            name1     TYPE lfa1-name1,
            credat    TYPE edidc-credat,
            cretim    TYPE edidc-cretim,
           END OF t_output.
    TYPES: BEGIN OF t_ekko,
            ebeln TYPE ekko-ebeln,
            lifnr TYPE ekko-lifnr,
           END OF t_ekko.
    TYPES: BEGIN OF t_lfa1,
            lifnr TYPE lfa1-lifnr,
            name1 TYPE lfa1-name1,
           END OF t_lfa1.
    DATA: gt_edidc TYPE STANDARD TABLE OF t_edidc,
          gt_output TYPE STANDARD TABLE OF t_output,
          wa_output LIKE LINE OF gt_output,
          gt_ekko   TYPE HASHED TABLE OF t_ekko
                    WITH UNIQUE KEY ebeln,
          gt_lfa1   TYPE HASHED TABLE OF t_lfa1
                    WITH UNIQUE KEY lifnr.
ENDCLASS.                    "lcl_data_def DEFINITION
CLASS lcl_alv_routines DEFINITION DEFERRED.
CLASS lcl_handle_events DEFINITION DEFERRED.
*       CLASS lcl_get_data DEFINITION
CLASS lcl_get_data DEFINITION INHERITING FROM lcl_data_def.
PUBLIC SECTION.
    METHODS: get_idocs,
             read_idocs,
             process_data
               IMPORTING
                 im_docnum TYPE edidc-docnum.
PRIVATE SECTION.
    CONSTANTS: lc_mestyp     TYPE edidc-mestyp VALUE 'ZMARKETSITE_PURCHASE_ORDER',
               lc_idoctp     TYPE edidc-idoctp VALUE 'ZMARKETSITE_PURCHASE_ORDER01',
               lc_segnam     TYPE edid4-segnam VALUE 'ZMARKETSITE_ORDER_HEADER1'.
    CONSTANTS: lc_red        TYPE i VALUE 1,
               lc_yellow     TYPE i VALUE 2,
               lc_green      TYPE i VALUE 3.
    DATA: lv_stat_message    TYPE bdidocattr-message,
          o_lcl_alv_routines TYPE REF TO lcl_alv_routines.
    DATA: ls_idoc_control    TYPE edidc,
          lv_tot_data_recs   TYPE sy-dbcnt,                 "#EC NEEDED
          lv_tot_status_recs TYPE sy-dbcnt.                 "#EC NEEDED
    DATA: lt_edids TYPE STANDARD TABLE OF edids,
          lt_edidd TYPE STANDARD TABLE OF edidd.
ENDCLASS.                    "lcl_get_data DEFINITION
*       CLASS lcl_alv_routines DEFINITION
CLASS lcl_alv_routines DEFINITION INHERITING FROM lcl_get_data.
PUBLIC SECTION.
    DATA: lcl_table            TYPE REF TO cl_salv_table,
          lcl_container        TYPE REF TO cl_gui_custom_container,
          lcl_handle_events    TYPE REF TO lcl_handle_events,
          lcl_columns          TYPE REF TO cl_salv_columns_table,
          lcl_column           TYPE REF TO cl_salv_column_table,
          lcl_events2          TYPE REF TO cl_salv_events_table,
          lcl_display_settings TYPE REF TO cl_salv_display_settings,
          lcl_functions        TYPE REF TO cl_salv_functions_list,
          lcl_display          TYPE REF TO cl_salv_display_settings,
          lcl_aggregations     TYPE REF TO cl_salv_aggregations,
          lcl_sorts            TYPE REF TO cl_salv_sorts,
          lcl_content          TYPE REF TO cl_salv_form_element,
          lcl_header           TYPE REF TO cl_salv_form_header_info,
          ls_color             TYPE lvc_s_colo.
    DATA: lcl_grid            TYPE REF TO cl_salv_form_layout_grid,
          lcl_grid_1          TYPE REF TO cl_salv_form_layout_grid,
          lcl_grid_2          TYPE REF TO cl_salv_form_layout_grid,
          lcl_label           TYPE REF TO cl_salv_form_label,"#EC NEEDED
          lcl_text            TYPE REF TO cl_salv_form_text,
          gt_t247             TYPE STANDARD TABLE OF t247,
          wa_t247             LIKE LINE OF gt_t247,
          lv_text             TYPE string.
    METHODS: display_data
               IMPORTING
                 im_output LIKE gt_output,
             display_top_of_page.
PRIVATE SECTION.
    DATA: lv_string TYPE string,
          lv_date1 TYPE c LENGTH 10,
          lv_time   TYPE c LENGTH 10,
          lv_title TYPE string.
ENDCLASS.                    "lcl_alv_routines DEFINITION
*       CLASS lcl_handle_events DEFINITION
CLASS lcl_handle_events DEFINITION.
PUBLIC SECTION.
    METHODS:
      on_link_click FOR EVENT link_click OF cl_salv_events_table
        IMPORTING row column.
ENDCLASS.                    "lcl_handle_events DEFINITION
*/ IMPLEMENTATION/S /*
*       CLASS lcl_get_data IMPLEMENTATION
CLASS lcl_get_data IMPLEMENTATION.
* METHOD get_idocs
METHOD get_idocs.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
*       PERCENTAGE       = 0
        text             = text-p01.
    SELECT docnum docrel status doctyp
           direct rcvpor rcvprt rcvprn
           rcvsad sndpor sndprt sndprn
           sndsad credat cretim mestyp
           idoctp
      FROM edidc
      INTO TABLE gt_edidc
     WHERE mestyp = lc_mestyp
       AND idoctp = lc_idoctp
       AND credat IN s_credat.
    IF gt_edidc[] IS NOT INITIAL.
*     Get IDOC details
      CALL METHOD me->read_idocs.
    ENDIF.
ENDMETHOD.                    "get_idocs
* METHOD read_idocs
METHOD read_idocs.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
*       PERCENTAGE       = 0
        text             = text-p02.
    FIELD-SYMBOLS: <fs_edidc> LIKE LINE OF gt_edidc,
                   <fs_output> LIKE LINE OF gt_output,
                   <fs_ekko>   LIKE LINE OF gt_ekko,
                   <fs_lfa1>   LIKE LINE OF gt_lfa1.
    LOOP AT gt_edidc ASSIGNING <fs_edidc>.
      CLEAR ls_idoc_control.
      REFRESH: lt_edids, lt_edidd.
*     Get status text of IDOC
      CALL FUNCTION 'IDOC_GET_MESSAGE_ATTRIBUTE'
        EXPORTING
          idoc_number = <fs_edidc>-docnum
        IMPORTING
          idoc_message = lv_stat_message.
*     Get IDOC details
      CALL FUNCTION 'IDOC_READ_COMPLETELY'
        EXPORTING
          document_number          = <fs_edidc>-docnum
        IMPORTING
          idoc_control             = ls_idoc_control
          number_of_data_records   = lv_tot_data_recs
          number_of_status_records = lv_tot_status_recs
        TABLES
          int_edids                = lt_edids
          int_edidd                = lt_edidd
        EXCEPTIONS
          document_not_exist       = 1
          document_number_invalid = 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.
*     Pass data to output table
      CALL METHOD me->process_data
        EXPORTING
          im_docnum = <fs_edidc>-docnum.
    ENDLOOP.
    DELETE gt_output WHERE ebeln IS INITIAL.
    IF gt_output[] IS NOT INITIAL.
*     Get vendor for fetched POs
      SELECT ebeln lifnr
        FROM ekko
        INTO TABLE gt_ekko
         FOR ALL ENTRIES IN gt_output
       WHERE ebeln = gt_output-ebeln.
      IF gt_ekko[] IS NOT INITIAL.
*       Get name of vendors
        SELECT lifnr name1
          FROM lfa1
          INTO TABLE gt_lfa1
           FOR ALL ENTRIES IN gt_ekko
         WHERE lifnr = gt_ekko-lifnr.
      ENDIF.
*     Pass vendor details to output table
      LOOP AT gt_output ASSIGNING <fs_output>.
        READ TABLE gt_ekko ASSIGNING <fs_ekko>
                           WITH TABLE KEY ebeln = <fs_output>-ebeln.
        IF sy-subrc = 0.
          READ TABLE gt_lfa1 ASSIGNING <fs_lfa1>
                             WITH TABLE KEY lifnr = <fs_ekko>-lifnr.
          IF sy-subrc = 0.
            <fs_output>-lifnr = <fs_lfa1>-lifnr.
            <fs_output>-name1 = <fs_lfa1>-name1.
          ENDIF.
        ENDIF.
      ENDLOOP.
      CREATE OBJECT o_lcl_alv_routines.
      CALL METHOD o_lcl_alv_routines->display_data
        EXPORTING
          im_output = gt_output[].
    ENDIF.
ENDMETHOD.                    "read_idocs
* METHOD process_data
METHOD process_data.
    FIELD-SYMBOLS: <fs_edidd> LIKE LINE OF lt_edidd.
    IF lv_stat_message CP 'ok' OR
       lv_stat_message CP 'positive'.
      wa_output-exception = lc_green.
    ELSEIF lv_stat_message CP 'error' OR
           lv_stat_message CP 'negative'.
      wa_output-exception = lc_red.
    ELSE.
      wa_output-exception = lc_yellow.
    ENDIF.
    READ TABLE lt_edidd ASSIGNING <fs_edidd>
                        WITH KEY docnum = im_docnum
                                 segnam = lc_segnam.
    IF sy-subrc = 0.
      wa_output-ebeln = <fs_edidd>-sdata+0(10).
    ENDIF.
    wa_output-credat = ls_idoc_control-credat.
    wa_output-cretim = ls_idoc_control-cretim.
    APPEND wa_output TO gt_output.
    CLEAR wa_output.
ENDMETHOD.                    "process_data
ENDCLASS.                    "lcl_get_data IMPLEMENTATION
*       CLASS lcl_alv_routines IMPLEMENTATION
CLASS lcl_alv_routines IMPLEMENTATION.
* METHOD display_data
METHOD display_data.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = 0
        text       = text-p03.
    gt_output[] = im_output[].
    TRY.
        cl_salv_table=>factory(
          EXPORTING
            list_display = ''
          IMPORTING
            r_salv_table = lcl_table
          CHANGING
            t_table      = gt_output ).
      CATCH cx_salv_msg.                                "#EC NO_HANDLER
    ENDTRY.
    lcl_functions = lcl_table->get_functions( ).
*   Set all standard ALV functions
    lcl_functions->set_all( abap_true ).
    lcl_columns = lcl_table->get_columns( ).
    lcl_columns->set_optimize( '' ).
*   Set display to striped pattern
    lcl_display = lcl_table->get_display_settings( ).
    lcl_display->set_striped_pattern( cl_salv_display_settings=>true ).
*/Sort columns
    TRY.
        lcl_sorts = lcl_table->get_sorts( ).
      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
    ENDTRY.
    lcl_sorts->set_group_active( ).
    TRY.
        lcl_sorts->add_sort(
          columnname = 'EBELN'
          subtotal   = '' ).
      CATCH cx_salv_not_found cx_salv_existing cx_salv_data_error."#EC NO_HANDLER
    ENDTRY.
*/Set column names
    TRY.
        lcl_columns->set_exception_column( 'EXCEPTION' ).
      CATCH cx_salv_data_error.                         "#EC NO_HANDLER
    ENDTRY.
    TRY.
        lcl_column ?= lcl_columns->get_column( 'EXCEPTION' ).
        lcl_column->set_short_text( text-h01 ).
        lcl_column->set_medium_text( text-h01 ).
        lcl_column->set_long_text( text-h01 ).
        lcl_column->set_output_length( '6' ).
      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
    ENDTRY.
    TRY.
        lcl_column ?= lcl_columns->get_column( 'EBELN' ).
        lcl_column->set_short_text( text-h02 ).
        lcl_column->set_medium_text( text-h02 ).
        lcl_column->set_long_text( text-h02 ).
        lcl_column->set_output_length( '9' ).
      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
    ENDTRY.
    TRY.
        lcl_column ?= lcl_columns->get_column( 'LIFNR' ).
*        lcl_column->set_short_text( text-h03 ).
        lcl_column->set_medium_text( text-h03 ).
        lcl_column->set_long_text( text-h03 ).
        lcl_column->set_output_length( '11' ).
      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
    ENDTRY.
    TRY.
        lcl_column ?= lcl_columns->get_column( 'NAME1' ).
*        lcl_column->set_short_text( text-h04 ).
*        lcl_column->set_medium_text( text-h04 ).
        lcl_column->set_long_text( text-h04 ).
        lcl_column->set_output_length( '30' ).
      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
    ENDTRY.
    TRY.
        lcl_column ?= lcl_columns->get_column( 'CREDAT' ).
*        lcl_column->set_short_text( text-h05 ).
*        lcl_column->set_medium_text( text-h05 ).
        lcl_column->set_long_text( text-h05 ).
        lcl_column->set_output_length( '13' ).
      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
    ENDTRY.
    TRY.
        lcl_column ?= lcl_columns->get_column( 'CRETIM' ).
*        lcl_column->set_short_text( text-h06 ).
*        lcl_column->set_medium_text( text-h06 ).
        lcl_column->set_long_text( text-h06 ).
        lcl_column->set_output_length( '13' ).
      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
    ENDTRY.
*/Set aggregations
*    TRY.
*        lcl_aggregations = lcl_table->get_aggregations( ).
*      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
*    ENDTRY.
*    TRY.
*        lcl_aggregations->add_aggregation( '' ).
*      CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing."#EC NO_HANDLER
*    ENDTRY.
*/Hide columns
*    TRY.
*        lcl_column ?= lcl_columns->get_column( 'DESCRIPT' ).
*        lcl_column->set_visible( if_salv_c_bool_sap=>false ).
*      CATCH cx_salv_not_found.                          "#EC NO_HANDLER
*    ENDTRY.
*/Display top of page
    CALL METHOD me->display_top_of_page.
    lcl_table->set_top_of_list( lcl_content ).
*/Handle ALV events
    lcl_events2 = lcl_table->get_event( ).
    CREATE OBJECT lcl_handle_events.
    SET HANDLER lcl_handle_events->on_link_click FOR lcl_events2.
    lcl_display_settings = lcl_table->get_display_settings( ).
    lcl_table->display( ).
ENDMETHOD.                    "display_data
* METHOD display_top_of_page
METHOD display_top_of_page.
    CREATE OBJECT lcl_grid.
    lv_title = text-t01.
    lcl_grid->create_header_information(
                row     = 1
                column = 1
                text    = lv_title
                tooltip = lv_title ).
    lcl_grid->add_row( ).
    lcl_grid_1 = lcl_grid->create_grid(
                   row    = 3
                   column = 1 ).
    CLEAR lv_string.
    CONCATENATE: sy-datum+4(2) '/' sy-datum+6(2) '/' sy-datum+0(4)
           INTO lv_date1.
    CONCATENATE: text-t02 lv_date1
           INTO lv_string
      SEPARATED BY space.
    lcl_label = lcl_grid_1->create_label(
                  row     = 1
                  column = 1
                  text    = lv_string
                  tooltip = lv_string ).
    CLEAR lv_string.
    CONCATENATE: sy-uzeit+0(2) ':' sy-uzeit+2(2) ':' sy-uzeit+4(2)
           INTO lv_time.
    CONCATENATE: text-t03 lv_time
           INTO lv_string
      SEPARATED BY space.
    lcl_label = lcl_grid_1->create_label(
                  row     = 2
                  column = 1
                  text    = lv_string
                  tooltip = lv_string ).
    lcl_content = lcl_grid.
ENDMETHOD.                    "display_top_of_page
ENDCLASS.                    "lcl_alv_routines IMPLEMENTATION
*       CLASS lcl_handle_events IMPLEMENTATION
CLASS lcl_handle_events IMPLEMENTATION.
* METHOD on_link_click
METHOD on_link_click.
ENDMETHOD.                    "on_link_click
ENDCLASS.                    "lcl_handle_events IMPLEMENTATION
* START-OF-SELECTION                           *
START-OF-SELECTION.
DATA: o_lcl_get_data TYPE REF TO lcl_get_data.
CREATE OBJECT o_lcl_get_data.
CALL METHOD o_lcl_get_data->get_idocs.

How to put up the traffic lights icon in the ALV Grid. OO output

Hi all,
I have a requriement that after all the report execution parts are done, i need to display the posted or unposted document using the Traffic light icon in the report output, i am displaying the report in ALV OO form and i already geta field with a conent X of the document is posted else that field is blank currently.
Regards

Sample code here for this.
*& Report Z_50657_ALV_EX2                                             *
*& Program Name: Test Program for ALV                                  *
* Developer Name: ADCDEV (Rahul Kavuri )                              *
* Description: ALV Report to Display Vendor Details                   *
*& Date:7th April 2006                                                 *
REPORT Z_50657_ALV_EX2
        NO STANDARD PAGE HEADING
        LINE-COUNT 65(3)
        LINE-SIZE 220
        MESSAGE-ID ZZ.
*                             Type Pools                               *
TYPE-POOLS: SLIS, ICON.
*                              Tables                                  *
TABLES: VBAK. "Sales Document Data
*                         Internal Tables                              *
* TABLE TO HOLD DATA OF SALES DOCUMENT
DATA: BEGIN OF IT_VBAK OCCURS 0,
      VBELN LIKE VBAK-VBELN, "Sales Document
      VBTYP LIKE VBAK-VBTYP, "SD document category
      AUDAT LIKE VBAK-AUDAT, "Document date (date received/sent)
      AUGRU LIKE VBAK-AUGRU, "Order reason (reason for the business)
      AUART LIKE VBAK-AUART, "Sales Document Type
      NETWR LIKE VBAK-NETWR, "Net Sales Order in Doc. Currency
      WAERK LIKE VBAK-WAERK, "SD document currency
      ICON TYPE ICON-ID,     "traffic lights
      END OF IT_VBAK.
*                             Work Areas                               *
*WORK AREAS DEFINED FOR ALV'S
DATA: WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,      "field catalog
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,     "field catalog ITAB
      WA_SORT TYPE SLIS_SORTINFO_ALV,           "SORT work area
      IT_SORT TYPE SLIS_T_SORTINFO_ALV,         "SORT ITAB
      LAYOUT TYPE SLIS_LAYOUT_ALV,              "LAYOUT
      WA_FCODE TYPE SLIS_EXTAB,                 "FUN CODE
      I_FCODE_EXTAB TYPE SLIS_T_EXTAB,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_EVENTS TYPE SLIS_T_EVENT.
*                       Selection-Screen                               *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN.
PARAMETERS: P_VBTYP LIKE VBAK-VBTYP DEFAULT 'C'.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
PARAMETERS: LIST RADIOBUTTON GROUP G1,
            GRID RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B2.
*                     At Selection-Screen                             *
*VALIDATION
*                       Start of Selection                             *
START-OF-SELECTION.
*POPULATION OF DATA INTO INTERNAL TABLE ITAB
PERFORM GET_DATA.
*DEFINE USER DEFINED FIELDCATALOG
PERFORM DEFINE_FIELDCATALOG.
*SUBTOTALS AND TOTALS DISPLAY USING SORT
PERFORM SORT_LIST.
*CHANGE FCODE OF STATUS
PERFORM CHANGE_FCODE.
*CHECK RADIOBUTTON OPTION AND ACCORDINGLY FINAL DISPLAY
PERFORM CHECK_OPTION.
*&      Form GET_DATA
*       text
FORM GET_DATA.
SELECT VBELN
         VBTYP
         AUDAT
         AUGRU
         AUART
         NETWR
         WAERK FROM VBAK INTO TABLE IT_VBAK
         WHERE VBELN IN S_VBELN AND VBTYP = P_VBTYP
         AND ERDAT > '01.01.2004' AND NETWR > 0.
LOOP AT IT_VBAK.
    IF IT_VBAK-NETWR < 10000.
      IT_VBAK-ICON = '@08@'.
    ELSEIF IT_VBAK-NETWR > 100000.
      IT_VBAK-ICON = '@0A@'.
    ELSE.
      IT_VBAK-ICON = '@09@'.
    ENDIF.
    MODIFY IT_VBAK INDEX SY-TABIX.
ENDLOOP.
ENDFORM.                    "GET_DATA
*&      Form CHECK_OPTION
*       text
FORM CHECK_OPTION.
WA_EVENTS-NAME = 'TOP_OF_PAGE'.
WA_EVENTS-FORM = 'TOP'.
APPEND WA_EVENTS TO IT_EVENTS.
CLEAR WA_EVENTS.
WA_EVENTS-NAME = 'END_OF_LIST'.
WA_EVENTS-FORM = 'END_LIST'.
APPEND WA_EVENTS TO IT_EVENTS.
CLEAR WA_EVENTS.
IF LIST = 'X'.
    PERFORM LIST_DISP.
ENDIF.
IF GRID = 'X'.
    PERFORM GRID_DISP.
ENDIF.
ENDFORM.                    "CHECK_OPTION
*&      Form DEFINE_FIELDCATALOG
*       text
FORM DEFINE_FIELDCATALOG.
WA_FIELDCAT-COL_POS = 1.
WA_FIELDCAT-FIELDNAME = 'ICON'.
WA_FIELDCAT-SELTEXT_L = 'ICON'.
WA_FIELDCAT-ICON = 'X'.
WA_FIELDCAT-OUTPUTLEN = 8.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 2.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC NO.'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 3.
WA_FIELDCAT-FIELDNAME = 'AUDAT'.
WA_FIELDCAT-SELTEXT_L = 'CREATED ON'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 4.
WA_FIELDCAT-FIELDNAME = 'VBTYP'.
WA_FIELDCAT-SELTEXT_L = 'CATEGORY'.
WA_FIELDCAT-OUTPUTLEN = 1.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 6.
WA_FIELDCAT-FIELDNAME = 'AUGRU'.
WA_FIELDCAT-SELTEXT_L = 'REASON'.
WA_FIELDCAT-OUTPUTLEN = 3.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 5.
WA_FIELDCAT-FIELDNAME = 'AUART'.
WA_FIELDCAT-SELTEXT_L = 'DOC TYPE'.
WA_FIELDCAT-OUTPUTLEN = 4.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 7.
WA_FIELDCAT-FIELDNAME = 'NETWR'.
WA_FIELDCAT-SELTEXT_L = 'NET VALUE'.
WA_FIELDCAT-OUTPUTLEN = 17.
WA_FIELDCAT-DECIMALS_OUT = 2.
* WA_FIELDCAT-DO_SUM = 'X'.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 8.
WA_FIELDCAT-FIELDNAME = 'WAERK'.
WA_FIELDCAT-SELTEXT_L = 'UNIT'.
WA_FIELDCAT-OUTPUTLEN = 50.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    "DEFINE_FIELDCATALOG
*&      Form DEFINE_LAYOUT
*       text
FORM DEFINE_LAYOUT.
LAYOUT-ZEBRA = 'X'.
LAYOUT-SUBTOTALS_TEXT = 'SUBTOTAL SUM'.
LAYOUT-WINDOW_TITLEBAR = 'EXERCISE 2'.
LAYOUT-TOTALS_TEXT = 'TOTAL'.
ENDFORM.                    "DEFINE_LAYOUT
*&      Form SORT_LIST
*       text
FORM SORT_LIST.
WA_SORT-FIELDNAME = 'VBELN'.
WA_SORT-TABNAME = 'IT_VBAK'.
WA_SORT-SPOS = 1.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
CLEAR WA_SORT.
WA_SORT-FIELDNAME = 'NETWR'.
WA_SORT-TABNAME = 'IT_VBAK'.
WA_SORT-UP = 'X'.
WA_SORT-SPOS = 2.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
CLEAR WA_SORT.
ENDFORM.                    "SORT_LIST
*&      Form LIST_DISP
*       text
FORM LIST_DISP.
PERFORM DEFINE_LAYOUT.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM             = SY-REPID
     IT_FIELDCAT                    = IT_FIELDCAT
     IS_LAYOUT                      = LAYOUT
     IT_SORT                        = IT_SORT
     I_CALLBACK_PF_STATUS_SET       = 'STATUS'
     IT_EXCLUDING                   = I_FCODE_EXTAB
     I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
     IT_EVENTS                      = IT_EVENTS[]
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER        =
*     ES_EXIT_CAUSED_BY_USER         =
    TABLES
     T_OUTTAB                       = IT_VBAK
*   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.                    "LIST_DISP
*&      Form GRID_DISP
*       text
FORM GRID_DISP.
PERFORM DEFINE_LAYOUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      IS_LAYOUT                = LAYOUT
      IT_FIELDCAT              = IT_FIELDCAT
      IT_SORT                  = IT_SORT
      I_CALLBACK_PF_STATUS_SET = 'STATUS'
      IT_EXCLUDING             = I_FCODE_EXTAB
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IT_EVENTS                = IT_EVENTS[]
    TABLES
      T_OUTTAB                 = IT_VBAK.
* 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.                    "GRID_DISP
*&      Form STATUS
*       text
*      -->P_EXTAB    text
FORM STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STATUS' EXCLUDING P_EXTAB.
ENDFORM.                    "STATUS
*&      Form USER_COMMAND
*       text
*      -->R_UCOMM      text
*      -->RS_SELFIELD text
FORM USER_COMMAND USING R_UCOMM     LIKE SY-UCOMM
                               RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'BACK' OR 'CANC' OR 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN '&IC1'.
      SET PARAMETER ID 'AUN' FIELD RS_SELFIELD-VALUE.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.                    "USER_COMMAND
*&      Form CHANGE_FCODE
*       text
FORM CHANGE_FCODE.
WA_FCODE = 'PRNT'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&OAD'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&AVE'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&EB9'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&SUM'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&UMC'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&XPA'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&OMP'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
ENDFORM.                    "CHANGE_FCODE
*&      Form TOP
*       text
FORM TOP.
IF LIST = 'X'.
    WRITE:/ SY-ULINE.
    WRITE:/ 'DATE:', SY-DATUM,55 'INTELLIGROUP ASIA PVT LTD'.
    WRITE:/ 'TIME:', SY-UZEIT.
    WRITE:/ 'USER NAME:', SY-UNAME,60 SY-TITLE.
    WRITE:/ 'PAGE', SY-PAGNO.
    WRITE:/ SY-ULINE.
ENDIF.
IF GRID = 'X'.
    DATA: LS_LINE TYPE SLIS_LISTHEADER,
          E04_LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
*   Listenüberschrift: Typ H
    CLEAR LS_LINE.
    LS_LINE-TYP = 'H'.
*   LS_LINE-KEY: not used for this type
    LS_LINE-INFO = 'Summary'.
    APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
*   Kopfinfo: Typ S
    CLEAR LS_LINE.
    LS_LINE-TYP = 'S'.
    LS_LINE-KEY = 'Intelligroup'.
    LS_LINE-INFO = ''.
    APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
    LS_LINE-KEY = 'ASIA'.
    LS_LINE-INFO = 'PVT LTD'.
    APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
*   Aktionsinfo: Typ A
    CLEAR LS_LINE.
    LS_LINE-TYP = 'A'.
*   LS_LINE-KEY: not used for this type
    LS_LINE-INFO = 'truman'.
    APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        IT_LIST_COMMENTARY = E04_LT_TOP_OF_PAGE
        I_LOGO             = 'ENJOY_SAP_LOGO'.
ENDIF.
ENDFORM.                    "TOP
*&      Form END_LIST
*       text
FORM END_LIST.
IF LIST = 'X'.
    SKIP 2.
    WRITE:/60 'END OF PAGE'.
ENDIF.
IF GRID = 'X'.
      DATA: LS_LINE TYPE SLIS_LISTHEADER,
          E04_LT_END_OF_LIST TYPE SLIS_T_LISTHEADER.
*   Listenüberschrift: Typ H
    CLEAR LS_LINE.
    LS_LINE-TYP = 'H'.
*   LS_LINE-KEY: not used for this type
    LS_LINE-INFO = 'Summary'.
    APPEND LS_LINE TO E04_LT_END_OF_LIST.
*   Kopfinfo: Typ S
    CLEAR LS_LINE.
    LS_LINE-TYP = 'S'.
    LS_LINE-KEY = 'Intelligroup'.
    LS_LINE-INFO = ''.
    APPEND LS_LINE TO E04_LT_END_OF_LIST.
    LS_LINE-KEY = 'ASIA'.
    LS_LINE-INFO = 'PVT LTD'.
    APPEND LS_LINE TO E04_LT_END_OF_LIST.
*   Aktionsinfo: Typ A
    CLEAR LS_LINE.
    LS_LINE-TYP = 'A'.
*   LS_LINE-KEY: not used for this type
    LS_LINE-INFO = TEXT-105.
    APPEND LS_LINE TO E04_LT_END_OF_LIST.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        IT_LIST_COMMENTARY = E04_LT_END_OF_LIST.
ENDIF.
ENDFORM.                    "END_LIST

Traffic lights in ALV list header

how do i display traffic lights as icons in ALV list header. for example, in the code below, i want to display a green icon at the end of closed items and a red icon at the end of the open items:
closed : 4 [green-icon]
open : 2 [red-icon]
CLEAR header_alv_wa-info.
header_alv_wa-key = 'closed:'.
header_alv_wa-info = gv_closed.
header_alv_wa-typ = 'S'.
APPEND header_alv_wa TO headeralv.
CLEAR header_alv_wa-info.
header_alv_wa-typ = 'S'.
header_alv_wa-key = 'open:'.
header_alv_wa-info = gv_open.
APPEND header_alv_wa TO headeralv.

Hi,
http://www.sapfans.com/forums/viewtopic.php?t=79424
http://www.sapfans.com/forums/viewtopic.php?t=24512
the above links will give u the code for the same..
Regards,
Aparna

How we can drill-down, sorting, traffic lights, in ALV report

hi gurus ,
how we can drill-down, sorting, traffic lights, in ALV report .
please any one suggest that...
regards,
praveen

Check the sample code for drill-down, sorting, traffic lights, in ALV report.
REPORT YMS_COLOURALV NO STANDARD PAGE HEADING.
TYPE-POOLS: SLIS, ICON.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: BEGIN OF IMARA OCCURS 0,
LIGHT(4) TYPE C,
MATNR TYPE MARA-MATNR,
MTART TYPE MARA-MTART,
MAKTX TYPE MAKT-MAKTX,
COLOR_LINE(4) TYPE C,
TCOLOR TYPE SLIS_T_SPECIALCOL_ALV, "cell
END OF IMARA.
DATA: XCOLOR TYPE SLIS_SPECIALCOL_ALV.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM WRITE_REPORT.
FORM GET_DATA.
WRITE ICON_GREEN_LIGHT AS ICON TO IMARA-LIGHT.
IMARA-MATNR = 'ABC'.
IMARA-MTART = 'ZCFG'.
IMARA-MAKTX = 'This is description for ABC'.
APPEND IMARA.
WRITE ICON_YELLOW_LIGHT AS ICON TO IMARA-LIGHT.
IMARA-MATNR = 'DEF'.
IMARA-MTART = 'ZCFG'.
IMARA-MAKTX = 'This is description for DEF'.
APPEND IMARA.
WRITE ICON_RED_LIGHT AS ICON TO IMARA-LIGHT.
IMARA-MATNR = 'GHI'.
IMARA-MTART = 'ZCFG'.
IMARA-MAKTX = 'This is description for GHI'.
APPEND IMARA.
LOOP AT IMARA.
IF SY-TABIX = 1.
IMARA-COLOR_LINE = 'C410'. " color line
ENDIF.
IF SY-TABIX = 2. " color CELL
CLEAR XCOLOR.
XCOLOR-FIELDNAME = 'MTART'.
XCOLOR-COLOR-COL = '3'.
XCOLOR-COLOR-INT = '1'. " Intensified on/off
XCOLOR-COLOR-INV = '0'.
APPEND XCOLOR TO IMARA-TCOLOR.
ENDIF.
MODIFY IMARA.
ENDLOOP.
ENDFORM. "get_data
FORM WRITE_REPORT.
DATA: LAYOUT TYPE SLIS_LAYOUT_ALV.
LAYOUT-COLTAB_FIELDNAME = 'TCOLOR'.
LAYOUT-INFO_FIELDNAME = 'COLOR_LINE'.
PERFORM BUILD_FIELD_CATALOG.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IS_LAYOUT = LAYOUT
IT_FIELDCAT = FIELDCAT
TABLES
T_OUTTAB = IMARA.
ENDFORM. "write_report
FORM BUILD_FIELD_CATALOG.
DATA: FC_TMP TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
CLEAR: FIELDCAT. REFRESH: FIELDCAT.
CLEAR: FC_TMP.
FC_TMP-REPTEXT_DDIC = 'Status'.
FC_TMP-FIELDNAME = 'LIGHT'.
FC_TMP-TABNAME = 'IMARA'.
FC_TMP-OUTPUTLEN = '4'.
FC_TMP-ICON = 'X'.
APPEND FC_TMP TO FIELDCAT.
CLEAR: FC_TMP.
FC_TMP-REPTEXT_DDIC = 'Material Number'.
FC_TMP-FIELDNAME = 'MATNR'.
FC_TMP-TABNAME = 'IMARA'.
FC_TMP-OUTPUTLEN = '18'.
APPEND FC_TMP TO FIELDCAT.
CLEAR: FC_TMP.
FC_TMP-REPTEXT_DDIC = 'Material Type'.
FC_TMP-FIELDNAME = 'MTART'.
FC_TMP-TABNAME = 'IMARA'.
FC_TMP-OUTPUTLEN = '10'.
APPEND FC_TMP TO FIELDCAT.
CLEAR: FC_TMP.
FC_TMP-REPTEXT_DDIC = 'Material'.
FC_TMP-FIELDNAME = 'MAKTX'.
FC_TMP-TABNAME = 'IMARA'.
FC_TMP-OUTPUTLEN = '40'.
APPEND FC_TMP TO FIELDCAT.
ENDFORM. "build_field_catalog

LED in field and traffic lights in ALV filter

Hi experts,
Am showing LED in field of ALV(OOPs oriented)and when i click on ALV filter for led field..it shows me Traffic lights in poup for filter.Please help me to get LED in filter popup also.
Thanks,
Sajay.

Solved

ALV Traffic lights for subtotal

Similar Messages

Maybe you are looking for