Traffic Light CLD Critique please

Have at it. Go ahead be harsh. There may be some extra junk in the project I didn't clean up like some subVIs I ended up not using or elements in my cluster I didn't use, so feel free to ignore those
CLA, LabVIEW Versions 2010-2013
Attachments:
traffic light.zip ‏111 KB

Yes you definitly missed some documentation points (maincluster.vi), the traffic lights on the FP (look at the context help), your typedefs.
Second your timer.vi and lightcluster indicators have no customized icons.
Third, you let the user close the window, but you don't handle the close event, that's bad.
Ton
Message Edited by TCPlomp on 22-05-2010 02:19 PM
Free Code Capture Tool! Version 2.1.3 with comments, web-upload, back-save and snippets!
Nederlandse LabVIEW user groep www.lvug.nl
My LabVIEW Ideas
LabVIEW, programming like it should be!

Similar Messages

CLD Traffic light

Hi all,
I have a timing question on the sample CLD traffic light exam (see attachment). I am seeing a possible discrepency between the spec and the solution.
On the spec, it says that the duration for each type of light is as follow:
Red: 4sec
Yellow: 2sec
Green: 4sec
However, if you look at the sample solution provided, you will see that the red light will light for 6 second. Doesn't that exceed the spec? Anybody has a better (more accurate) solution than provided?
Thanks!
Yik
Kudos and Accepted as Solution are welcome!
Attachments:
2419.zip ‏426 KB

Hello Yik,
If you look at the specification, the sequence is listed as Green, Yellow, Red, Red. This second Red is necessary to prevent all lanes of traffic from proceeding at once.
If you only keep the Red light on for 4 seconds, the East and West bound traffic will recieve a Green light while the North and South bound lights have just changed from Green to Yellow, resulting a traffic light which does not operate correctly.
The "8" seconds of Red light on will also create a time period where all lights are Red, allowing any slow cars to exit the intersection.

CLD Traffic Light Sample Exam.

I am posting my solution for the CLD Traffic
Light Sample Exam. Comments and input is appreciated. The main VI is
Traffic Lite.vi.
Thanks in advance.
Attachments:
TrafficLite_5.22.10.zip ‏47 KB

Nice work, VI Joe. I heve just a few comments. The first two will get you more points from the judges, the third is personal style preference.
Add descriptions and tip strips to your controls (and indicators).
You go to either Idle or Display from almost every state; poll the controls before your main Case Structure executes and update the indicators afterwards instead. You wouldn't need to use a State Queue any more if you did this.This would also get your Stop button to work as required. As VENKATESH.J mentioned, it needs to respond immediately.
This is a cleaner way to queue up multiple states:
Jim
You're entirely bonkers. But I'll tell you a secret. All the best people are. ~ Alice

Traffic light on the basis of last month

Hi guys,
I have a question about the traffic light in the model Visual Composer. I would like to have a traffic light besids a table or graphic that wil be shown the status ( Green, red, yellow!) on the basis of the last month. In the table or in a graphic wil be shown several data of several months. But the traffic light have to respond on the basis of last month. That means that, if the last month exception( in the query) is green, the traffic light also wil be green.
Can anybody help me please?
Another question.
How can i get only two types of order as example in a pie chart? I have seen that in a pie chart you can only add one formula, not two.So!!
Thanks,
Regards,
Esrat

In the VC model create an Expression Box. Double click on this box to open up its Properties.
In the control properties window there is tab "Styles", here give Green color to the column 'Style' and in the next column 'Condition' select 'Enter Formula...'
Select the field and enter the condition.
Like
Style      Condition
Style 1   @CITY == 'Frankfurt'
Style2    @BANK_CTRY == 'DE'

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

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

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.

Traffic lights both in header&item level in REUSE_ALV_HIERSEQ_LIST_DISPLAY

Hi all,
I am using 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'. I need to display traffic lights both in header and item level. here is the piece of code I used.
DATA : e_alvly TYPE slis_layout_alv.
    e_alvly-expand_fieldname = 'LIGHT'.
    e_alvly-lights_fieldname = 'LIGHT'.
    e_alvly-lights_tabname   = 'TS_HEADER_DETAILS'.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      i_callback_program = w_prog
      is_layout          = e_alvly
      it_fieldcat        = it_fieldcat
      it_events          = ts_events
      i_tabname_header   = c_ts_header_details
      i_tabname_item     = c_ts_item_details
      is_keyinfo         = key
    TABLES
      t_outtab_header    = ts_header_details
      t_outtab_item      = ts_item_details.
IF sy-subrc <> 0.
    MESSAGE 'Error in ALV ' TYPE 'I'.
ENDIF.
Using this I could get traffic lights only at header level. if I replace 'TS_HEADER_DETAILS' with 'TS_ITEM_DETAILS' , i can see lights only at item level.
Insummary I can get lights eithere in Header or item level, but I need at both the levels.
Please suggest some solution to overcome this problem..
Thanks in Advance,
Vishal..

H,
Have you tried this,
e_alvly-expand_fieldname = 'LIGHT'.
e_alvly-lights_fieldname = 'LIGHT'.
e_alvly-lights_tabname = 'TS_HEADER_DETAILS'.
append e_alvly-lights_tabname.
e_alvly-expand_fieldname = 'LIGHT'.
e_alvly-lights_fieldname = 'LIGHT'.
e_alvly-lights_tabname = 'TS_ITEM_DETAILS'.
append e_alvly-lights_tabname.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
i_callback_program = w_prog
is_layout = e_alvly
it_fieldcat = it_fieldcat
it_events = ts_events
i_tabname_header = c_ts_header_details
i_tabname_item = c_ts_item_details
is_keyinfo = key
TABLES
t_outtab_header = ts_header_details
t_outtab_item = ts_item_details.
IF sy-subrc 0.
MESSAGE 'Error in ALV ' TYPE 'I'.
ENDIF.
hope it works,
Regards,
Abhijit G. Borkar

LED in field of ALV(OOPs oriented)- Traffic lights in ALV filter popup

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.

Hi,
Use the fuction module 'ICON_CREATE' as follows.
CALL FUNCTION 'ICON_CREATE'
    "To create Red/Yellow/Green traffic icons
      EXPORTING
        name   = wrk_light
      IMPORTING
        RESULT = ip_status.
wrk_light can be;
'ICON_RED_LIGHT'
'ICON_YELLOW_LIGHT'
or 'ICON_GREEN_LIGHT' according to your scenario, that you can use the logic for your scondition.
Use it in PBO.
Regards,
Renjith Michael.

How to use traffic lights concept in alv in webdynpro abap

Hai ,
How to use traffic lights concept for alv in webdynpro abap. If possible give me some code.

Hi Ravi,
You can create ICON to get traffic light.
Go through this step by step.. in this example
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/1190424a-0801-0010-84b5-ef03fd2d33d9?quicklink=index&overridelayout=true
Please go through this...
Re: Display ICON in the ALV table column
Re: Image in ALV
cheers,
Kris.

Traffic Lights

Hi,
I want to know the concept of Traffic light(Red=Error,Amber=Warning,Green=Information).
I want to know in which context we can enable Traffic lights in Production Planning. Can any one give the configuration path to enable Traffic light feature in the Production Order release. Traffic light should be green if the Production Order release has no error. Please suggest how to enable this feature during Order Release, Order confirmation etc.
Thanks in advance

Hi,
Can anyone give some suggestions/inputs to my below query.
thanks in advance

Traffic light in RF monitor screen (LRF1) - how it is derive from?

Hi,
This is a question about WM-RF. My question is how does the system determine the traffic light color in the RF monitor screen (LRF1). I read the SAP help portal and compare it to the screen and it still doesn't make any sense out of it..
On the SPRO, there is DEFINE QUEUE table, with thefollowing setup:
WS--QUEUEQName-CapacUsed-CapacUsed----AccessLim
110--B01_GEN-GenName610--
2StrictLimitation
Thus the relation is: 6/10 = 0.6
Next, I went to LRF1 and saw this record with warehouse 110, and Queue B01GEN, and having the following value_:
QUEUE -
TOs--LOADProc.By--
Propotion
B01_GEN----150.0002--
Green
Thus the relation is: 15/2 = 7.5
Why is it green? SAP help portal give the following explaination, and I don't know to derive it?
A- The queue tranffic light is green if the relation is less than the value given in the left relation field.
B - The queue traffic light is yellow if the relation is greater than or the same as the value specified in the right field.
C - The queue traffic light is red if the relation is greater than or the same as the value specified in the left relation field.
Please share if you know.
Thanks..Tuff

Hello,
Does anyone know my question?
Appreciate some help here.
Thanks,
tuff

Traffic light showing the red colour in vl10g after all status completed

Hi Team,
My client facing one issue regarding the vl10g traffic light it show red colour after all document status is completed so please let me know I have to used which oss note / I have to debug the program(this is the standard T.code) or which way i have to used for resolved this issue so please replay argentely this great help to me and I am very thankful for corporation.
Regrads,
Ravi SAP SD

RaviSAPSD wrote:
it show's the error i.e. "No delivery-relevant items in order 0527087193, order type OR"
With this in mind, I'd doubt the previous statement that the order status is 'completed'. Such orders wouldn't be picked up for the Delivery Due list. It is possible that either there is a line item that is not relevant to delivery yet it makes the order header status incomplete. Thus Delivery Due list picks up the order # based on the header status but when it checks the line items, there is nothing relevant for delivery.
Check again the order statuses, not just on screen but in the tables VBUK/VBUP. Additionally, you can search for the notes yourself using the message ID/number (e.g. VL 001, which you should see, along with the long text, when you double-click on the message).

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 Light CLD Critique please

Similar Messages

Maybe you are looking for