Traffic lights in classical report

Hi All,
Is it possible display traffic lights in classical report ?
if so please help me
Regs,
Murthy

hi,
check below logic
use type pools as TYPE-POOLS : icon.
Types:
   BEGIN OF ty_display,
        status     TYPE icon-id,
        bukrs      TYPE bseg-bukrs,
        gjahr      TYPE bseg-gjahr,
        monat      TYPE monat,
        work_order TYPE z_work_order,
        glaccount TYPE saknr,
        message    TYPE string,
      END OF ty_display.
data : it_display     TYPE TABLE OF ty_display,
         wa_display    TYPE ty_display.
WRITE icon_led_green AS ICON TO wa_display-status.
        wa_display-gjahr = p_year.
        wa_display-bukrs = p_cc.
        wa_display-monat = p_period.
        wa_display-work_order = v_aufnr.
        wa_display-glaccount = wa_bseg-hkont.
        APPEND wa_display TO it_display.
WRITE icon_led_red AS ICON TO wa_display-status.
        wa_display-gjahr = p_year.
        wa_display-bukrs = p_cc.
        wa_display-monat = p_period.
        wa_display-work_order = v_aufnr.
        wa_display-glaccount = wa_bseg-hkont.
        APPEND wa_display TO it_display.
regards,
srilatha
Edited by: srilatha kurapati on Aug 21, 2008 1:51 PM

Similar Messages

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

Custom traffic lighting with Interactive Reporting

Has anyone written a custom javascript solution for cell-based traffic lighting in Interactive Reports? It does not appear that the object model gives access to cell-level properties in either the pivot or OLAPquery objects although spotlighting can be applied to individual columns and rows.

Oh yes, understand perfectly what you want, sighing...
I planned to write another blog post about reporting partial scores, but since Posterous closed down in March, I am not blogging any more, just paying to keep the old posts online on demand of a lot of users. There are several reasons for that, which I will not explain but it is mainly because I feel really exploited.
Two possiblities:
Using the mastery widget of InfoSemantics (but limited to SWF-output)
Using JavaScript
Lilybiri

How to add Traffic Lights to a Report?

Hi,
How do U create a Traffic Light? and how to you change the Light? That's all I need.
Thanks,
Kishan

hi dude,
This is the way u add lights to ur alv report.
I'm following this method and i'm getting lights. This will work for sure.
In data declaration along with your alv display structure as a field named lights(any name).
DATA : BEGIN OF wa_srr,
vbeln LIKE vbak-vbeln, "Sales Order number
posnr LIKE vbap-posnr, "Item nunmber
matnr LIKE makt-matnr, "Material number Desc
maktx LIKE makt-maktx, "Material Description
gbstk LIKE vbuk-gbstk, "Completion status
bukrs LIKE knb1-bukrs, "Company Code
butxt LIKE t001-butxt, "Company Code description
vkorg LIKE vbak-vkorg, "Sales organization
vtext LIKE tvkot-vtext, "Sales Org description
vtweg LIKE vbak-vtweg, "Distribution Channel
dtext LIKE tvtwt-vtext, "Dist Channel description
spart LIKE vbak-spart, "Division
dvtxt LIKE tspat-vtext, "Division Description
kunnr LIKE vbak-kunnr, "Customer Number
name1 LIKE kna1-name1, "Customer Name
land1 LIKE kna1-land1, "Country
regio LIKE kna1-regio, "State
ort01 LIKE kna1-ort01, "City
erdat LIKE vbak-erdat, "Creation Date
vdatu LIKE vbak-vdatu, "Due date
kwmeng LIKE vbap-kwmeng, "Material Quantity
netpr LIKE vbap-netpr, "unit net price
netwr LIKE vbap-netwr, "Price
wavwr LIKE vbap-wavwr, "Cost price
bzirk LIKE vbkd-bzirk, "Sales District
bztxt LIKE t171t-bztxt, "Sales District Discription
lights, "Diplaying Status
END OF wa_srr.
While you are building the field cat do as follows
FORM build_layout CHANGING l_wa_layout TYPE slis_layout_alv.
l_wa_layout-zebra = cb_zebr. "Set alterante colored line
l_wa_layout-colwidth_optimize = cb_colop. "Optimize column width
l_wa_layout-no_vline = cb_novli. "No vertical line
l_wa_layout-no_colhead = cb_nocol. "no column Header
l_wa_layout-lights_fieldname = 'LIGHTS'. "Set light field
(assigning the field u have added in ur structure here as light field in alv report)
ENDFORM. " BUILD_LAYOUT
Then as per the logic, u make green, yellow or red light
Example,
FORM build_light .
LOOP AT it_srr INTO wa_srr. "for all entries in the table
IF wa_srr-gbstk = 'C'. "If status is 'completed',
wa_srr-lights = '3'. "Show green signal light
ELSEIF wa_srr-gbstk = 'B'. "If status is 'Partial'
wa_srr-lights = '2'. "Show yellow signal light
ELSE. "If status is 'incomplete'
wa_srr-lights = '1'. "Show red signal light
ENDIF.
MODIFY it_srr FROM wa_srr. "Update to table
ENDLOOP.
ENDFORM. " build_light
after building ur layout, Pass it to ur alv function module like this.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_top_of_page = 'TOP_OF_PAGE'
i_background_id = 'ALV_BACKGROUND'
i_grid_title = text-011
pass ur layout structure here********
is_layout = wa_layout
it_fieldcat = it_fcat
it_sort = it_sort
i_save = v_save
is_variant = wa_variant
is_print = wa_print
TABLES
t_outtab = it_srr
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE i001. "List cannot be displayed
ENDIF.
wat all i did to add light is,
1) adding an extra field in the main structure.
2)create internal table with this structure as data table for alv report
3) add 'field name' field in layout
4) I have passed values(3, 2, 1) for green, yellow and red light resp, to the field(LIGHTS) in the internal table that is passed to alv function module.(Based on some condition)
5) pass the layout structure layout to alv function module
Thats it. If u do all this teps, u r done with it.
Lemme know u solved it by giving points.
with regards,
praveen.

How to print traffic lights in ALV reports

hi how to print traffic lights on selection screen in alv reports

HI,
check below code
TYPE-POOLS : icon.
types: BEGIN OF ty_display,
        status     TYPE icon-id,
        bukrs      TYPE bseg-bukrs,
        gjahr      TYPE bseg-gjahr,
        monat      TYPE monat,
        work_order TYPE z_work_order,
        glaccount TYPE saknr,
        message    TYPE string,
      END OF ty_display.
data : it_display     TYPE TABLE OF ty_display,
         wa_display TYPE ty_display.
WRITE icon_led_green AS ICON TO wa_display-status.
        wa_display-gjahr = p_year.
        wa_display-bukrs = p_cc.
        wa_display-monat = p_period.
        wa_display-work_order = v_aufnr.
        wa_display-glaccount = wa_bseg-hkont.
    APPEND wa_display TO it_display.
WRITE icon_led_red AS ICON TO wa_display-status.
          wa_display-gjahr      = p_year.
          wa_display-bukrs      = p_cc.
          wa_display-monat      = p_period.
          wa_display-work_order = v_aufnr.
          wa_display-glaccount = wa_bseg-hkont.
          wa_display-message    = text-010.
          APPEND wa_display TO it_display.
change the icon color based on your requirement and append it to the internal table which you have to display in ALV.
reward points if it is helpful.
Regards,
Srilatha

Unable to display the Traffic Lights in a simple Classical Report.

Hi to all..
            I'm creating a simple Program where i need to display traffic lights based upon the the value i enter into it..
i have used AS ICON and type-pools ICON too in my program... but it is not displaying traffic lights.. can anyone provide a solution for it..
type-pools : icon.
data : v_light(4) type c,
           p_tno type i.
p_no = 5.
DO p_tno TIMES.
WRITE: / v_light AS ICON.
ENDDO.

use this code
TABLES: icon.
DATA: t_text(4) TYPE c.
Name
Length
Is button?
Is status?
Is message?
Is Function?
SELECT-OPTIONS:
so_name FOR icon-name,
so_len FOR icon-oleng,
so_butt FOR icon-button,
so_stat FOR icon-status,
so_mess FOR icon-message,
so_fn   FOR icon-function.
SELECT * FROM icon
WHERE
    name     IN so_name AND
    oleng    IN so_len AND
    button   IN so_butt AND
    status   IN so_stat AND
    message IN so_mess AND
    function IN so_fn.
WRITE: /1 icon-id+1(2), icon-name.
CONCATENATE '@' icon-id+1(2) '@' INTO t_text.
WRITE: 35 t_text AS ICON.
WRITE: 40 icon-oleng, 50 icon-button, 60 icon-status,
         70 icon-message, 80 icon-function.
ENDSELECT.
TOP-OF-PAGE.
WRITE: 40 'Length', 50 'Button', 60 'Status',
         70 'Message', 80 'Function'.
Nabheet

Displaying traffic lights in alv grid report?

Hi everyone,
I have an alv grid report.I m using the FM reuse_alv_grod_display to display my alv report.I am passing the fieldcatalogue automatically.I m getting the output perfectly.Now i have to add traffic lights to that alv report.
Since i m passing the fieldcatalogue automatically i m confused to display the traffic lights?
any suggestions please?
Thank you.

hi dp,
look at the program i made... se the bold part you will be able to impelment lights easily,
DECLARING TYPES POOL *
All the definitions of internal tables, structures and constants
are declared in a type-pool called SLIS.
type-pools: slis.
TABLES *
tables: vbak,vbap,kna1.
TYPES *
*&--defining types for TABLE VBAK
types: begin of t_vbak,
vbeln type vbeln_va, "sales document
kunnr type kunag,
erdat type erdat,
auart type auart,
netwr type netwr_ak,
waerk type waerk,
vkorg type vkorg,
vtweg type vtweg,
spart type spart,
name1 type name1_gp,
stras type stras_gp,
ort01 type ort01_gp,
pstlz type pstlz,
regio type regio,
land1 type land1_gp,
telf1 type telf1,
end of t_vbak.
*&--Defining types for TABLE VBAP
types: begin of t_vbap,
vbeln type vbeln_va,
posnr type posnr_va,
matnr type matnr,
maktx type maktx,
end of t_vbap.
*&--MERGED FINAL SALES TABLE
types: begin of t_sales_final,
vbeln type vbeln_va,
kunnr type kunag,
posnr type posnr_va,
erdat type erdat, "date of creation
auart type auart,
netwr type netwr_ak,
waerk type waerk,
vkorg type vkorg,
vtweg type vtweg,
spart type spart,
name1 type name1_gp,
v_lights type c,
stras type stras_gp,
ort01 type ort01_gp,
pstlz type pstlz,
regio type regio,
land1 type land1_gp,
telf1 type telf1,
matnr type matnr,
maktx type maktx,
end of t_sales_final.
defining wrokarea and IT.
WORK AREA DECLARATION *
*&---work area for Internal Tables
data: wa_vbak type t_vbak.
data: wa_vbap type t_vbap.
data: wa_sales_final type t_sales_final.
*&--work area for layout
data: wa_layout type slis_layout_alv.
INTERNAL TABLES DECLARATION *
*&---Internal tables without Header Line.
data : i_vbak type standard table of t_vbak,
i_vbap type standard table of t_vbap,
i_sales_final type standard table of t_sales_final.
*&---Internal table for field catalog
data : i_fieldcat type slis_t_fieldcat_alv,
*&---Internal table for the sorting sequence.
i_sortinfo type slis_t_sortinfo_alv,
*&---Internal table for the event catalog.
i_eventcat type slis_t_event,
*&---Internal table for the top of page event
i_listheader type slis_t_listheader.
VARIABLE DECLARATION *
data : v_progname like sy-repid, "Program name(system defined)
v_gridtitle type lvc_title. "Grid Title
INITIALIZATION EVENT *
initialization.
v_progname = sy-repid.
refresh:i_vbak,
i_vbap,
i_sales_final,
i_fieldcat,
i_sortinfo,
i_eventcat,
i_listheader.
clear: wa_vbak,
wa_vbap,
wa_sales_final,
wa_layout.
SELECTION SCREEN *
SCREEN FOR ENTERING INFORMATION
selection-screen begin of block b1 with frame title text-001.
select-options: r_vbeln for wa_vbak-vbeln obligatory.
select-options: r_erdat for wa_vbak-erdat obligatory.
selection-screen end of block b1 .
AT SELECTION SCREEN *
at selection-screen.
perform zf_validate_sales_doc_no.
perform zf_validate_date.
START OF SELECTION EVENT
start-of-selection.
perform zf_populate_header.
perform zf_populate_detail.
perform zf_append_sales_final.
END OF SELECTION EVENT
end-of-selection.
*If Internal Table Is Populated Then Only Display Alv Report.
if i_sales_final is not initial.
Prepare fieldcatalog .
perform zf_build_fieldcat using i_fieldcat.
MODIFY the records IN the internal TABLE for the traffic lights.
perform zf_modify_final.
build event catalogue
perform zf_eventcat using i_eventcat.
build sorting
perform zf_sorting using i_sortinfo.
&---Build Listheader for TOP OF PAGE EVENT.
perform zf_build_listheader using i_listheader.
&---Build layout.
perform zf_layout.
&---Initializating Grid Title
perform zf_build_grid_title.
&---Display alv grid.
perform zf_display_alv_grid.
else.
*If Table is not Populated ie Records Does not exist
message 'Record Does Not Exist' type 'S'.
endif.
*& Form zf_validate_sales_doc_no
text
--> p1 text
<-- p2 text
form zf_validate_sales_doc_no .
select single vbeln into wa_vbak-vbeln from vbak where vbeln in r_vbeln .
if sy-subrc <> 0.
message i101.
endif.
endform. " zf_validate_sales_doc_no
*& Form zf_validate_date
text
--> p1 text
<-- p2 text
form zf_validate_date .
if date is future
if r_erdat-low >= sy-datum.
message e102.
elseif r_erdat-high >= sy-datum.
message e103.
endif.
endform. " zf_validate_date
*& Form zf_populate_header
text
--> p1 text
<-- p2 text
form zf_populate_header .
select vbeln
kunnr
erdat
auart
netwr
waerk
vkorg
vtweg
spart
into table i_vbak from vbak where vbeln in r_vbeln.
if sy-subrc <> 0.
message 'RECORD DOES NOT EXIST' type 'E'.
endif.
sort i_vbak by vbeln.
*&--LOGIC TO GET FIELDS FROM TABLE KNA1 INTO INTERNAL TABLE I_VBAK
loop at i_vbak into wa_vbak.
select single name1 stras ort01 pstlz regio land1 telf1 into (wa_vbak-name1,
wa_vbak-stras,
wa_vbak-ort01,
wa_vbak-pstlz,
wa_vbak-regio,
wa_vbak-land1,
wa_vbak-telf1)
from kna1
where kunnr = wa_vbak-kunnr.
modifying it_header.
modify i_vbak from wa_vbak.
clear wa_vbak.
endloop.
endform. " zf_populate_header
*& Form zf_populate_detail
text
--> p1 text
<-- p2 text
form zf_populate_detail .
if i_vbak[] is not initial.
select vbeln
posnr
matnr
into table i_vbap from vbap
for all entries in i_vbak where vbeln = i_vbak-vbeln.
endif.
sort i_vbap by vbeln.
sort i_vbap by posnr.
*&--LOGIC TO GET FIELDS FROM TABLE MAKT INTO INTERNAL TABLE I_VBAP
loop at i_vbap into wa_vbap.
select single maktx into (wa_vbap-maktx)
from makt where matnr = wa_vbap-matnr and spras = sy-langu.
modifying it_header.
modify i_vbap from wa_vbap.
clear wa_vbap.
endloop.
endform. " zf_populate_detail
*& Form zf_append_sales_final
text
--> p1 text
<-- p2 text
form zf_append_sales_final .
sort i_vbak by vbeln.
sort i_vbap by vbeln posnr.
loop at i_vbak into wa_vbak.
move-corresponding wa_vbak to wa_sales_final.
read table i_vbap with key vbeln = wa_vbak-vbeln
binary search transporting no fields.
loop at i_vbap into wa_vbap from sy-tabix.
if wa_vbap-vbeln <> wa_vbak-vbeln.
exit.
endif.
move-corresponding wa_vbap to wa_sales_final.
append wa_sales_final to i_sales_final.
endloop.
endloop.
endform. " zf_append_sales_final
*& Form zf_build_fieldcat
text
-->P_I_FIELDCAT text
form zf_build_fieldcat using p_i_fieldcat type slis_t_fieldcat_alv.
data: l_fieldcat type slis_fieldcat_alv. "local Workarea used
clear l_fieldcat.
FOR LIGHT IN COLUMN
clear l_fieldcat.
l_fieldcat-col_pos = '1'. " POSITION OF THE COLUMN.
l_fieldcat-fieldname = 'V_LIGHTS'.
" FIELD FOR WHICH CATALOG ID FILLED.
*We are passing final internal table 'I_FINAL' to l_fieldcat(local
*variable
l_fieldcat-tabname = 'I_SALES_FINAL'.
" INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
l_fieldcat-just = 'C'. " FOR JUSTIFICATION.
l_fieldcat-outputlen = 20.
" TO DEFINE OUTPUT LENGTH OF THE COLUMN.
append l_fieldcat to p_i_fieldcat.
FIRST COLUMN ********************************
l_fieldcat-col_pos = '2'. " POSITION OF THE COLUMN
l_fieldcat-fieldname = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED
l_fieldcat-tabname = 'I_SALES_FINAL'. " INTERNAL TABLE BELONGS TO
l_fieldcat-key = 'X'. " SO THAT this field is not scrollable hiddable.
l_fieldcat-just = 'L'. " FOR JUSTIFICATION
*l_fieldcat-hotspot = 'X'. " MARK THIS field as hotsopt
l_fieldcat-lzero = 'X'. " OUTPUT WITH leading zeros.
l_fieldcat-seltext_l = 'Sales Document'. " long text for header.
l_fieldcat-seltext_m = 'Sales Doc'. " medium text for header.
l_fieldcat-seltext_s = 'Sales Doc'. " sort text for header.
l_fieldcat-outputlen = 20. " SET THE output length.
l_fieldcat-ref_tabname = 'VBAK'. " FOR F1 & F4 help as
append l_fieldcat to p_i_fieldcat.
clear l_fieldcat.
**************************SECOND COLUMN ********************************
*l_fieldcat-col_pos = '3'. " POSITION OF THE COLUMN
l_fieldcat-row_pos = '2'. " POSITION OF THE COLUMN
l_fieldcat-fieldname = 'POSNR'. " FIELD FOR WHICH CATALOG ID FILLED
l_fieldcat-tabname = 'I_SALES_FINAL'. " INTERNAL TABLE BELONGS TO
l_fieldcat-key = 'X'. " SO THAT this field is not scrollable hiddable.
l_fieldcat-just = 'L'. " FOR JUSTIFICATION
l_fieldcat-hotspot = 'X'. " MARK THIS field as hotsopt
l_fieldcat-lzero = 'x'. " OUTPUT WITH leading zeros.
l_fieldcat-seltext_l = 'Sales Document Item'. " long text for header.
l_fieldcat-seltext_m = 'Sales Document Item'. " medium text for header.
l_fieldcat-seltext_s = 'Sales Document Item'. " sort text for header.
l_fieldcat-outputlen = 20. " SET THE output length.
l_fieldcat-ref_tabname = 'VBAP'. " FOR F1 & F4 help as
append l_fieldcat to p_i_fieldcat.
clear l_fieldcat.
endform. " zf_build_fieldcat
*& Form zf_eventcat
text
-->P_I_EVENTCAT text
form zf_eventcat using p_i_eventcat type slis_t_event.
data: l_eventcat type slis_alv_event.
clear l_eventcat.
call function 'REUSE_ALV_EVENTS_GET'
exporting
i_list_type = 0
importing
et_events = p_i_eventcat
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.
TOP OF PAGE FORM
clear l_eventcat.
read table p_i_eventcat into l_eventcat with key
name = slis_ev_top_of_page.
"(COMPONENT "NAME"of structure)
if sy-subrc = 0. "if success
move 'ZF_TOP_OF_PAGE' to l_eventcat-form.
"matches name and moves form to workarea and modifies table
modify p_i_eventcat from l_eventcat index sy-tabix
transporting form.
endif.
PF_STATUS_SET FORM
clear l_eventcat.
read table p_i_eventcat into l_eventcat with key
name = slis_ev_pf_status_set.
if sy-subrc = 0.
move 'ZF_PF_STATUS_SET' to l_eventcat-form.
modify p_i_eventcat from l_eventcat index sy-tabix
transporting form.
endif.
USER_COMMAND FORM
clear l_eventcat.
read table p_i_eventcat into l_eventcat with key
name = slis_ev_user_command.
if sy-subrc = 0.
move 'ZF_USER_COMMAND' to l_eventcat-form.
modify p_i_eventcat from l_eventcat index sy-tabix
transporting form.
endif.
endform. " zf_eventcat
*& Form zf_sorting
text
-->P_I_SORTINFO text
form zf_sorting using p_i_sortinfo.
endform. " zf_sorting
*& Form zf_build_listheader
text
-->P_I_LISTHEADER text
form zf_build_listheader using p_i_listheader type slis_t_listheader.
data: l_listheader type slis_listheader.
refresh p_i_listheader.
clear l_listheader.
HEADER
l_listheader-typ = 'H'.
l_listheader-info = 'FUJITSU CONSULTING INDIA LTD.'.
append l_listheader to p_i_listheader.
SELECTION
l_listheader-typ = 'S'.
l_listheader-key = 'Date:'.
l_listheader-info = sy-datum.
append l_listheader to p_i_listheader.
ACTION
l_listheader-typ = 'A'.
*l_listheader-key =
l_listheader-info = 'SALES ORDER ALV REPORT By Rohan Malik'.
append l_listheader to p_i_listheader.
endform. " zf_build_listheader
*& Form zf_build_grid_title
text
--> p1 text
<-- p2 text
form zf_build_grid_title .
v_gridtitle = 'List of Purchase Order'.
endform. " zf_build_grid_title
*& Form zf_display_alv_grid
text
--> p1 text
<-- p2 text
form zf_display_alv_grid .
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = v_progname
i_grid_title = v_gridtitle
is_layout = wa_layout
it_fieldcat = i_fieldcat
it_sort = i_sortinfo
it_events = i_eventcat
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
tables
t_outtab = i_sales_final
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. " zf_display_alv_grid
*& Form zf_top_of_page
text
--> p1 text
<-- p2 text
form zf_top_of_page .
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = i_listheader
i_logo = 'ENJOYSAP_LOGO'
I_END_OF_LIST_GRID =
endform. " zf_top_of_page
*& Form zf_user_command
text
--> p1 text
<-- p2 text
form zf_user_command using r_ucomm like sy-ucomm
rs_selfield type slis_selfield .
case r_ucomm. "FCODE
when 'VA03'.
read table i_sales_final into wa_sales_final index rs_selfield-tabindex.
set parameter id 'AUN' field rs_selfield-value.
call transaction 'VA03' and skip first screen .
message i102 with rs_selfield-value .
when '&IC1'. "for hotspot with VBELN, POSNR, MATNR, KUNNR.
if rs_selfield-fieldname = 'MATNR'.
set parameter id 'MAT' field rs_selfield-value.
call transaction 'MM03' and skip first screen.
return.
message i103 with rs_selfield-value .
endif.
if rs_selfield-fieldname = 'VBELN'.
set parameter id 'AUN' field rs_selfield-value.
call transaction 'VA03' and skip first screen.
return.
message i104 with rs_selfield-value .
endif.
endcase.
endform. " zf_user_command
*& Form ZF_PF_STATUS_SET
text
--> p1 text
<-- p2 text
form zf_pf_status_set using rt_extab type slis_t_extab.
set pf-status 'Z11_RM_ALV_SO'.
endform. " ZF_PF_STATUS_SET
*& Form zf_layout
text
--> p1 text
<-- p2 text
form zf_layout .
wa_layout-zebra = 'X'.
wa_layout-lights_fieldname = 'V_LIGHTS'.
wa_layout-lights_tabname = 'I_SALES_FINAL'.
" 1, 2 or 3 for red, yellow and green respectively.
endform. " zf_layout
*& Form zf_modify_final
text
--> p1 text
<-- p2 text
form zf_modify_final .
CODE TO EXECUTE LIGHTS
*start of loop
loop at i_sales_final into wa_sales_final.
*giving conditions and modifying as we want to change many rows
if wa_sales_final-netwr <= 10000.
wa_sales_final-v_lights = '1'.
modify i_sales_final from wa_sales_final transporting v_lights.
elseif wa_sales_final-netwr > 10000 and wa_sales_final-netwr <= 100000.
wa_sales_final-v_lights = '2'. " Exception.
modify i_sales_final from wa_sales_final transporting v_lights.
else.
wa_sales_final-v_lights = '3'. " Exception.
modify i_sales_final from wa_sales_final transporting v_lights.
endif.
endloop.
reward point s if helpful
rohan malik

Traffic lights on reports disappears

Hi Experts,
I have made the traffic lights settings in WAD exceptions and saved that by Personalising it.Now this report is integrated in portal and it working fine with traffic light since its saved as an View,but in the report I have many fields in Free Chars as drag n drop functionality when I drag n drop anything from free chars column the trafffic lights disappears.
Can anyone guide me on this issue ASAP.
Regards,
Preethi

Hi Danny,
Yes after drill drop also my Keyfigure values show between exception ranges only,but traffic light disappears,
Can you guide me on this.
Regards,
Preethi

Financial Reporting Studio Traffic Lighting

I need to create traffic lighting in FR similar what is seen in Excel. Lighting will depend on data values. Web Analysis is not an option. However, the only literature I can find on traffic lighting is with WA. Has anyone successfully completed this in FR? The user guide has no instructions for this. The best I can come up with is conditional formatting to color the cells, but I need to have an icon.
Thanks

I've done that once using conditional format and wending font.
You can't get icons in there. However you can get different fonts which resemble icon. I had something like a tick an arrow and a - to show nothing changed.
Regards
Celvin
http://www.orahyplabs.com

Traffic light icon

Hi All,
How can I display traffic light icon in classic report?
if possible send me sample code please...
Thanks in advance..

use this link,
http://www1.sapdesignguild.org/resources/ma_guidelines_2/interaction/status_icons.html
if useful reward me with points.
Thanks
Sanket.

Classic report - Highlight row

APEX 4.2.1
With all the latest and greatest dynamic action and jQuery goodness in 4.2.1, what is the easiest, declarative way to highlight rows in a classic report region (Generic Column Template) based on data condition using values on the row, using #COL# notation? e.g. If SAL > 1000 and DEPT = Marketing, highlight row in red or some such.
In prior versions, this involved copying the Generic Column Template to one used just by this report and use the (up to 4) Column Templates with a PL/SQL expression.
Thanks

Custom report templates are okay if your needs are straightforward. But you said it already, there are only four different flavors to chose from.
Here is a solution that'll work on all pages if once installed and can be extended to a multitude of visual attributes. Only an example that you may want to adapt to your liking.
Edit Page, "CSS, Inline", or via Shared Components > CSS files
td.color1 {background-color:#9F9} /* Table cell gets colored in light green */
td.color2 {background-color:#FF9} /* Table cell gets colored in light yellow */
td.color3 {background-color:#F99} /* Table cell gets colored in light red */
/** and so forth, followed by as many declarations as you need... */Page Template, "Function and Global Variable Declaration":
/** Change the visual appearance of your classic report as you like after it's rendered */
function customClassicReportDisplay(){
/** Transfer the color class from the text to the table cell */
$('td span.color1').closest('td').addClass('color1');
$('td span.color2').closest('td').addClass('color2');
$('td span.color3').closest('td').addClass('color3');
// and so forth, followed by as many declarations as you need...
}This jQuery code can be simplified, especially the handling of many lines for many colors can still be compacted, which makes it more difficult to understand though.
Page Template, "Execute when Page Loads":
/** Perform the function on Page Load */
customClassicReportDisplay();
/** Perform the function after Partial Page Rendering */
$('form').bind('apexafterrefresh', function(){
customClassicReportDisplay();
});Here comes the trick. In the SQL statement, you wrap a HTML tag with a different class declaration around each value that you want to color.
SELECT ' 100 then '2' else null end || '">' || some_value || '' AS some_value
 , '' || some_other_value || '' AS some_other_value
 , '<span class="color' || case when last_value between 0 and 10 then '1'
 when last_value between 11 and 50 then '2'
 when last_value between 51 and 100 then '3'
 else null end || '">' || last_value || '' AS last_value
FROM ...This obviously makes the SQL a bit more complicated but in my opinion, I think this is a data driven topic and therefore just fine. Hence you say "depending on value ranges I want to change something" - and that belongs to SQL. WHAT you want to do (here: change color) is then up to your JS and CSS declaration. If you shift the SQL code into a view it's better to maintain and won't get spoiled by non-savvy third party developers...
I know that's not what you originally asked for, because there is no #COL# notation, but for me it's the most flexible solution I can think of under APEX.

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.

Multiple traffic lights in ALV

Hi friends,
is it possible to have more than one traffic lights colomn in ALV OO ?
i displayed the first one, but i need to display 3 traffic lights in 3 different colomns in my ALV (wich has 10 columns)
Thanks in advance,
Soufiane

Copy this and paste in your test program. execute it and see
REPORT ysam_test5 MESSAGE-ID zsummit.
TYPE-POOLS: icon.
DATA: marc TYPE marc.
TYPES: BEGIN OF t_marc,
       matnr TYPE matnr,
       werks TYPE werks_d,
       mmsta TYPE mmsta,
       maabc TYPE maabc,
       action(4) TYPE c,
       action1(4) type c,
       action2(4) type c,
       END OF t_marc.
DATA: it_marc TYPE TABLE OF t_marc,
      wa_marc TYPE t_marc.
FIELD-SYMBOLS: .
DATA: w_recipient     TYPE swc_object,
      w_recipient_obj TYPE swotobjid.
*container macro
swc_container      w_swc_container.
*batch job information
INCLUDE lbtchdef.
DATA: w_job       TYPE tbtcjob.
*constants
CONSTANTS: c_on VALUE 'X',
           c_off VALUE space,
           c_int(11) VALUE ' 0123456789'.
Objects for handling the events
CLASS lcl_handle_events DEFINITION DEFERRED.
DATA: w_events_grid TYPE REF TO lcl_handle_events.
      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
      CLASS lcl_handle_events IMPLEMENTATION
CLASS lcl_handle_events IMPLEMENTATION.
METHOD on_link_click.
    IF column = 'ACTION'.
      READ TABLE it_marc ASSIGNING refresh.
    ENDIF.
ENDMETHOD.                    "on_single_click
ENDCLASS.                    "lcl_handle_events IMPLEMENTATION
SELECTION-SCREEN BEGIN OF BLOCK main WITH FRAME.
SELECT-OPTIONS: s_matnr FOR marc-matnr,
                s_werks FOR marc-werks.
SELECTION-SCREEN BEGIN OF BLOCK back WITH FRAME TITLE text-ss2.
PARAMETERS: p_fore RADIOBUTTON GROUP proc DEFAULT 'X', "foreground
            p_ball RADIOBUTTON GROUP proc,
            p_berr RADIOBUTTON GROUP proc.
SELECTION-SCREEN END OF BLOCK back.
SELECTION-SCREEN BEGIN OF BLOCK mail WITH FRAME TITLE text-ss3.
PARAMETERS: p_print RADIOBUTTON GROUP mail DEFAULT 'X',
            p_email RADIOBUTTON GROUP mail.
SELECTION-SCREEN END OF BLOCK mail.
SELECTION-SCREEN END OF BLOCK main.
START-OF-SELECTION.
PERFORM select_data.
END-OF-SELECTION.
PERFORM salv_grid.
*&      Form salv_grid
      text
FORM salv_grid .
DATA:      lref TYPE REF TO cx_root .
DATA:      lr_layout TYPE REF TO cl_salv_layout,
             ls_key    TYPE salv_s_layout_key.
Icon
DATA: l_columns TYPE REF TO cl_salv_columns,
      l_column TYPE REF TO cl_salv_column_table.
DATA: l_icon TYPE REF TO cl_salv_column_list.
TRY.
      cl_salv_table=>factory(
        IMPORTING
          r_salv_table   = gr_table
        CHANGING
          t_table        = it_marc ).
    CATCH cx_salv_msg INTO lref.
ENDTRY.
***Sub Total
PERFORM sub_total.
***Layout
lr_layout = gr_table->get_layout( ).
ls_key-report = sy-cprog.
lr_layout->set_key( ls_key ).
lr_layout->set_default( 'X' ).
lr_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
***toolbar
gr_functions = gr_table->get_functions( ).
gr_functions->set_all( 'X' ).
icon
l_columns = gr_table->get_columns( ).
TRY.
      l_column ?= l_columns->get_column( 'ACTION' ).
      l_column->set_short_text( 'Execute' ).
    l_column->set_icon( IF_SALV_C_BOOL_SAP=>FALSE ).
    CATCH cx_salv_not_found.
ENDTRY.
TRY.
      l_column ?= l_columns->get_column( 'ACTION' ).
      l_column->set_icon( if_salv_c_bool_sap=>true ).
    CATCH cx_salv_not_found.
ENDTRY.
TRY.
      l_column ?= l_columns->get_column( 'ACTION' ).
      l_column->set_cell_type( if_salv_c_cell_type=>hotspot ).
    CATCH cx_salv_not_found.                            "#EC NO_HANDLER
ENDTRY.
*... §6.5 register to the event LINK_CLICK
DATA: lr_events TYPE REF TO cl_salv_events_table.
lr_events = gr_table->get_event( ).
CREATE OBJECT w_events_grid.
SET HANDLER w_events_grid->on_link_click FOR lr_events.
*final display
gr_table->display( ).
ENDFORM.                    " salv
*&      Form sub_total
FORM sub_total .
DATA: lr_aggregations TYPE REF TO cl_salv_aggregations.
lr_aggregations = gr_table->get_aggregations( ).
lr_aggregations->clear( ).
TRY.
      lr_aggregations->add_aggregation( columnname = 'Z_BALANCE_REM' ).
    CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing.
ENDTRY.
TRY.
      lr_aggregations->add_aggregation( columnname = 'Z_PAY_AMT' ).
    CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing.
ENDTRY.
ENDFORM.                    " sub_total
*&      Form select_data
FORM select_data .
SELECT matnr werks mmsta maabc
         INTO CORRESPONDING FIELDS OF TABLE it_marc
         FROM marc
         WHERE matnr IN s_matnr
           AND werks IN s_werks.
IF sy-subrc = 0.
    LOOP AT it_marc ASSIGNING -action = icon_execute_object.
    ENDLOOP.
ENDIF.
ENDFORM.                    " select_data
enter material number and press execute icon - just come back from mm02 and it will display three lights.

AVL - traffic Light

Someone have documentation about the icon 'traffic light' in the ALV?
thanks

Hi mpm,
1. Its simple
2. We have to use the layout of alv also.
and one extra field in the internal table.
3. Just copy paste in new program.
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.
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.

Traffic Light in Dynamic ALV

Hi All,
I created dynamic ALV.I wan to show trafic light color RED,Yellow etc..
If Quantity is less than some 'X' then traffic light should be Red.
Please advise how to follow.This is possible in classical but in dynamic alv i need to do.
Thank You,
Anu.

Hi,
But in Dynamic alv we dont know the values.How we can fill up the field catalog for one value.
Please advise if any coding.
Thank You,
Anu

Traffic lights in classical report

Similar Messages

Maybe you are looking for