Re: Traffic Light in Stock Overview List

Hi All,
I want some advice regarding the traffic light.
How is it confiured.Please explain me,how to configure it. I want that, whenever there is shortage for the child items, the traffic light should be red.
Please advice.
Regards,
Vivek

Dear,
Since these traffic lights are user settings
Go to MD04 Collective access -
Enter MRP Area / Plant
Enter MRP Contoller /Vendor
Collective list of materials will appear.
At the top of the screen , Define Traffic light button will be there.When you click on that you can visit the screen for defining traffic lights
Define traffic light depending on ranges of coverage
Define traffic light depending on exception groups.
You carryout the necessary settings for traffic light and save.
Try using MD06 as well. or in MD05
After executing the report in MRP list:mayerial list screen click on push button ---> define tarffic light
Please refer my reply from this thread.
[Traffic Light |Re: Traffic lights - MRP]
Regards,
R.Brahmankar

Similar Messages

Mrp run and seeing the stock in md04 with green traffic light showing green

Hi,
i am running a mto scenario in which sale order is created and mrp run is done and i checked the stock md04 of a finished product in that the rawmaterials and semifinshed products are showing the traffic light green light of show overview tree in md04 when it is first time created there is no stock of the rawmaterial and semfinished product.
with out any stock why it is showing the traffic light green and what is the procedure to show the light red when stock is not there.
rawmaterial is of consumable like paint in which it is not supporting in the bom and it is giving the message it is of process material can any body pls help me how paint is created as a consumable in bom creation.
regards,
muralidhar.t

Hi muralidhar,
MRP is a planning tool, not an availability check one.
It means that you are getting a green light even though there's no stock because the lead time to procure is shorter than the requirement date.
Regarding consumables, I'm not sure what you include in that, but you can either define them as non stock items in the BOM (in which case they will be specifically purchased for the production order), or maybe you meant that these materials are planned using consumption based planning; in this case they are defined normally as a stock item in the BOM, the difference being that they are not exploded in MRP, and the requirements are not triggered by the higher level.
Regards,
Mario

Traffic lights in ALV list header

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

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

Traffic lights - MRP

Can I change default traffic lights setting?
How?

Traffic Lights can be defined.
You can use the exception groups to define under which conditions materials are indicated by red, yellow, or green traffic lights. Example: You want all materials, whose dates lie in the past, to be indicated by a red traffic light.
The definition of traffic lights applies to both types of list.
Prerequisites-
You have accessed the material list in collective access, or the MRP list or stock/requirements list for a material.
In case of individual lists: you have displayed the material tree.
Procedure
1. Choose Green Dot
The system displays the Define traffic light dialog box.
2. Enter the number of workdays for the parameters Days' supply, 1st receipt days' supply and 2nd receipt days' supply, and under which circumstances the materials are to be displayed with red, yellow, and green traffic lights.
You want the traffic light to be red when the days' supply for a material is <= 0, yellow when the days' supply is > 0 and <= 10 days, and green when the days' supply is > 10 days.
Enter:
Color     Days supply
Red        0
Yellow     10
Green      999,9
4. Use the exception groups to define under which conditions materials are indicated by red, yellow, or green traffic lights.
You want materials with exception messages in exception group 4 to be indicated by a yellow traffic light and materials with exception messages in exception group 5 to be indicated by a red traffic light.
Choose:
                 Exception group 5          Exception group 5
Red                 X
Yellow                                                  X
Green
6. Save
Reward if cleared and close the thread.

Traffic lights Vs day's supply

Hi,
In MRP collective lists, system is showing red signal lights to all the materials and showing the message "3.0- days is less than limiting value of 0.1-"
In the day's supply,1stRDS and 2nd columns system is showing the value 3.0-.
In this case, how to change the signal light from red to green?
Can any body please explain the concept behind this?
Thanks in advance.
Sekhar.

hi
traffic light depends upon the day's supply and exception messages.
in md04 collective access , display all materials with MRP controller wise. Press the Tab " define traffic lights" there u can put ur own criterion of days supply and R days supply.
Example how system calculates days supply.
Calculation of the range of coverage: Starting from the current plant stock, the requirements are deducted one after the other along the time axis. This is done until there is a shortage (requirement > stock). The range of coverage is then the number of workdays between todays date and the date of the requirement that causes the shortage minus one day. The value after the decimal point is the ratio between the opening stock on the day of the shortage and the requirement on the day of the shortage.
Stock = 240 pcs
1st day: Requirement for 90 pcs => Stock = 150 pcs
2nd day: Requirement for 70 pcs => Stock = 80 pcs
3rd day: Requirement for 100 pcs => Shortage
Range of coverage = 3 workdays minus 1 + 80/100
= 2 + 0,8
= 2,8
Reward if useful
Amit

ALV editable with traffic lights

Hello all,
I need some help about ALV editable; my reports display an ALV grid editable, and update all the new values on the DB table, but I have traffic lights as values on the DB table.
More informations:
So this is my internal table
<i>DATA: BEGIN OF it_table OCCURS 0,
      document    TYPE admi-document,
      status           TYPE admi-status,          (traffic</i> lights from the table able to modify)
      archiv_key TYPE admi_files-archiv_key,
      status_opt TYPE admi_files-status_opt,     (traffic lights from the table able to modify )
      status_fil    TYPE admi_files-status_fil,     (traffic lights from the table able to modify )
      END OF it_report.
</i>
I got all the match code form the table (DB) , so on my report I could modify all the traffic lights but when I save the modifications, I got a message error.
And the second problem was, I couldnt come back to the value initial and I getting the same message.
Can anybody help me please?
Thanks you.

see the program and i am using traffic lights in my program --
REPORT ZWM_BIN_STOCK_REQ no standard page heading
                    message-id zwave.
D A T A   D E C L A R A T I O N ****************************
Tables
tables : zpwvbap,
         mara,
         marc,
         makt,
         vbap,
         zshift,
         marm,
         lqua.
TYPE-POOLS: SLIS.
Internal Table for Sales order
data : begin of i_vbap occurs 0,
       matnr like zpwvbap-matnr," Material #
       ZZCUTOFF like zpwvbak-ZZCUTOFF," Cutoff Time
       vlpla like zpwvbap-vlpla,
       kwmeng like zpwvbap-kwmeng," Quantity
       vrkme like zpwvbap-vrkme, " Sales Unit
       meins like zpwvbap-meins, " Unit of measure
       end of i_vbap.
Internal Table for final Processing
data : begin of i_final occurs 0,
       date(8) type c,
       matnr like zpwvbap-matnr," Material #
       zzshift like zshift-zzshift, " Wave Drop
       maktx like makt-maktx," Desc
       lgpla like lagp-lgpla, " Pick Bin
       pverme like lqua-verme," Stock at Pick Bin
       prverme like lqua-verme," Stock at Prod Bin
       kwmeng like zpwvbap-kwmeng," Requiremnet from Wave Drop
       vrkme like zpwvbap-vrkme, " Sales Unit
      meins like zpwvbap-meins," Unit of measure
       end of i_final.
Internal Table for Output
data : begin of i_output occurs 0,
       field type c, " Traffic Lights
       zzshift like zshift-zzshift, " Wave Drop
       matnr like zpwvbap-matnr," Material #
       maktx like makt-maktx," Desc
       lgpla like lagp-lgpla, " Pick Bin
       pverme like lqua-verme," Stock at Pick Bin
       prverme like lqua-verme," Stock at Prod Bin
       kwmeng like zpwvbap-kwmeng," Requiremnet from Wave Drop
       vrkme like zpwvbap-vrkme," Sales Unit
      meins like zpwvbap-meins," Unit of measure
       diff like zpwvbap-kwmeng, " Diffrence
       end of i_output.
Work Area for Final Internal Table
data wa_final like i_final.
data : w_zzcutoff(12) TYPE c,
        v_date type sy-datum,
        v_time(4) type c,
        v_fldate(12) type c,
        v_fhdate(12) type c,
        v_pverme like lqua-verme,
        v_prverme like lqua-verme,
        v_diff like zpwvbap-kwmeng.
Variables for new check box
data : v_nverme like lqua-verme.
Internal Table for Pick Bin
data : begin of i_verme occurs 0,
       verme like lqua-verme,
       end of i_verme.
Internal table for Prod Bin
data : begin of i_pverme occurs 0,
       verme like lqua-verme,
       end of i_pverme.
Variables for ALV
DATA: FIELDCAT           TYPE SLIS_T_FIELDCAT_ALV,
      FIELDCAT_LN        LIKE LINE OF FIELDCAT,
      SORTCAT            TYPE SLIS_T_SORTINFO_ALV,
      SORTCAT_LN         LIKE LINE OF SORTCAT,
      EVENTCAT           TYPE SLIS_T_EVENT,
      EVENTCAT_LN        LIKE LINE OF EVENTCAT,
      LAYOUT             TYPE SLIS_LAYOUT_ALV,
      C_TOP_OF_PAGE      TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
      g_user_command TYPE slis_formname VALUE 'USER_COMMAND',
      GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: COL_POS TYPE I,
      P_LIGNAM TYPE SLIS_FIELDNAME VALUE 'FIELD'.
DATA : V_REPID LIKE SY-REPID,
       flag type c.
S E L E C T I O N - S C R E E N *************************
selection-screen : begin of block blk with frame title text-001.
parameter : p_plant like marc-werks obligatory default '1000'.
select-options : s_date for sy-datum obligatory ,
                 s_shift for zshift-zzshift,
                 s_matnr for mara-matnr,
                 s_dept for zpwvbap-zzdept,
                 s_pdept for marc-ZZPRODDEPT.
selection-screen: end of block blk.
parameters : p_check as checkbox ."default 'X'.
ranges r_cutoff for w_zzcutoff.
I N I T I A L I Z A T I O N ****************************
initialization.
V_REPID = SY-REPID.
s_date-low = sy-datum + 1.
append s_date.
S T A R T - O F - S E L E C T I O N ***********************
start-of-selection.
Get the Shift Data.
PERFORM GET_SHIFT_DETAILS.
Get the data from ZPWVBAP Table
PERFORM GET_DATA_VBAP.
E N D - O F - S E L E C T I O N **********************
end-of-selection.
if not i_output[] is initial.
    sort i_output by field zzshift matnr.
Reset the all Fiedcatlog.
    PERFORM RESETVALUES.
Traffic Lights
    PERFORM BUILD_LAYOUT.
Fill the fieldcatlog values
    PERFORM FILL_FIELDCATLOG.
Call the List Function module
    PERFORM CALL_lIST.
endif.
*&      Form GET_SHIFT_DETAILS
      Get the Cutoff Time.
FORM GET_SHIFT_DETAILS.
clear : v_fldate,
          v_fhdate.
if not s_shift-low is initial.
    clear: v_time,
           v_date.
    if s_shift-low = '1'.
      v_time = '2000'.
    elseif s_shift-low = '2'.
      v_time = '2300'.
    endif.
    v_date = s_date-low - 1.
    concatenate v_date v_time into v_fldate.
endif.
if not s_shift-high is initial.
    clear : v_date,
            v_time.
    if s_shift-high = '1'.
      v_time = '2000'.
    elseif s_shift-high = '2'.
      v_time = '2300'.
    endif.
    if not s_date-high is initial.
      v_date = s_date-high - 1.
    else.
      v_date = s_date-low - 1.
    endif.
    concatenate v_date v_time into v_fhdate.
endif.
if not v_fhdate is initial.
    r_cutoff-low = v_fldate.
    r_cutoff-high = v_fhdate.
    r_cutoff-sign = 'I'.
    r_cutoff-option = 'BT'.
    append r_cutoff.
endif.
ENDFORM.                    " GET_SHIFT_DETAILS
*&      Form GET_DATA_VBAP
      Get the data from ZPWVBAP Table
FORM GET_DATA_VBAP.
Get the data from ZPWVBAP and ZPWVBAK Table
if not v_fhdate is initial.
    select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
                 into table i_vbap
                 from zpwvbap as a inner join zpwvbak as b on
                               a~vbeln = b~vbeln
                               where a~werks = p_plant
                               and   a~matnr in s_matnr
                               and b~vdatu in s_date
                               and a~zzdept in s_dept
                               and b~zzcutoff in r_cutoff
                              group by matnr zzcutoff vlpla vrkme meins.
elseif not v_fldate is initial.
    select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
                       into table i_vbap
                       from zpwvbap as a inner join zpwvbak as b on
                               a~vbeln = b~vbeln
                               where a~werks = p_plant
                               and   a~matnr in s_matnr
                               and b~vdatu in s_date
                               and a~zzdept in s_dept
                               and b~zzcutoff = v_fldate
                           group by matnr zzcutoff vlpla vrkme meins.
else.
    select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
                          into table i_vbap
       from zpwvbap as a inner join zpwvbak as b on
                               a~vbeln = b~vbeln
                               where a~werks = p_plant
                               and   a~matnr in s_matnr
                               and b~vdatu in s_date
                               and a~zzdept in s_dept
                               and b~zzcutoff in r_cutoff
                            group by matnr zzcutoff vlpla vrkme meins .
endif.
if sy-subrc ne 0.
    message i000(zwave) with 'No data found for given selection'.
    stop.
endif.
sort i_vbap by zzcutoff matnr.
loop at i_vbap.
    clear : v_pverme,
            v_prverme.
Compare the data with pick method
    select single zzpick from marc into marc-zzpick
                         where matnr = i_vbap-matnr
                         and   werks = p_plant
                         and   zzpick = '01'.
    if sy-subrc ne 0.
      continue.
    endif.
Compare the data from MARC Table with Production Department
    select single zzPRODdept from marc into marc-zzPRODdept
                         where matnr = i_vbap-matnr
                         and werks = p_plant
                         and zzPRODdept in s_pdept.
    if sy-subrc ne 0.
      continue.
    endif.
Get the Material Description from MAKT Table
    Select single maktx from makt into makt-maktx
                        where matnr = i_vbap-matnr
                        and   spras = 'E'.
    if sy-subrc eq 0.
      i_final-maktx = makt-maktx.
    endif.
Get the Pick Bin
    i_final-lgpla = i_vbap-vlpla.
    refresh i_verme.
    clear i_verme.
Get the stock at Pick bin
    select verme from lqua into table i_verme
                        where lgpla = i_vbap-vlpla
                        and   matnr = i_vbap-matnr
                        and   LGNUM = '100'.
    if sy-subrc eq 0.
      loop at i_verme.
        v_pverme = v_pverme + i_verme-verme.
      endloop.
      if sy-subrc eq 0.
        i_final-pverme = v_pverme.
      endif.
    endif.
    refresh i_pverme.
    clear i_pverme.
Get the stock at Production bin
    select verme from lqua into table i_pverme
                       where matnr = i_vbap-matnr
                       and   LGNUM = '100'
                   and ( lgpla = '9595959595' or
                         lgpla = '2222222222' or
                         lgpla = '5555555555' or
                         lgpla = '3232323232' or
                         lgpla = '8080808080' or
                         lgpla = '4040404040' or
                         lgpla = '9090909090' ).
    if sy-subrc eq 0.
      loop at i_pverme.
        v_prverme = v_prverme + i_pverme-verme.
      endloop.
      if sy-subrc eq 0.
        i_final-prverme = v_prverme.
      endif.
    endif.
Compare the unit of measure and sales unit
    if i_vbap-vrkme ne i_vbap-meins.
Get the data from MARM Table ( Unit of measure )
      select single * from marm into marm
                           where matnr = i_vbap-matnr
                           and   meinh = i_vbap-vrkme.
      if sy-subrc eq 0.
        i_final-pverme = ( i_final-pverme * marm-umren ) / marm-umrez.
      endif.
    endif.
Material #
    i_final-matnr = i_vbap-matnr.
Quantity from ZPWVBAP
    i_final-kwmeng = i_vbap-kwmeng.
Unit of Measure
   i_final-meins = i_vbap-meins.
Sales Unit
    i_final-vrkme = i_vbap-vrkme.
Wave Drop
    if i_vbap-ZZCUTOFF+8(4) = '2000' .
      i_final-zzshift = '1'.
    endif.
    if i_vbap-zzcutoff+8(4) = '2300'.
      i_final-zzshift = '2'.
    endif.
    i_final-date = i_vbap-zzcutoff+0(8).
    append i_final.
    clear : i_final,
            i_vbap.
**Difference
   i_output-diff = i_output-pverme - i_vbap-kwmeng.
Traffic Lights Depends on value
   if i_output-pverme > i_output-kwmeng.
     i_output-field = '3'.
   elseif i_output-pverme < i_output-kwmeng.
     i_output-field = '1'.
   elseif i_output-pverme = i_output-kwmeng.
     i_output-field = '2'.
   endif.
   append i_output.
   clear : i_output,
           i_vbap.
endloop.
refresh i_vbap.
sort i_final by date matnr zzshift.
Processing the internal table to get same material with pick quantity
deduction even it for 2nd shift
loop at i_final.
Move the data into work area in order remove #
    move i_final to wa_final.
    clear : flag.
    at new matnr.
      move : wa_final-matnr to i_output-matnr," Material #
             wa_final-maktx to i_output-maktx," Desc
             wa_final-lgpla to i_output-lgpla," Pick Bin
             wa_final-kwmeng to i_output-kwmeng," Order qty
             wa_final-zzshift to i_output-zzshift," Shift
             wa_final-pverme to i_output-pverme, " Pick bin qty
             wa_final-vrkme to i_output-vrkme," Sales Unit
             wa_final-prverme to i_output-prverme. " Prod Bin Qty
      break sreddy.
Difference
      i_output-diff = i_output-pverme - i_output-kwmeng.
New logic for Only HMR Department
      if p_check = 'X'.
        if i_output-pverme < i_output-kwmeng.
          v_nverme = i_output-pverme + i_output-prverme.
          if v_nverme > i_output-kwmeng.
           if i_output-pverme < i_output-kwmeng.
           i_output-field = '2'.
            else.
Traffic Lights Depends on value
            i_output-field = '3'.
            endif.
          elseif v_nverme < i_output-kwmeng.
            i_output-field = '1'.
          elseif v_nverme = i_output-kwmeng.
            i_output-field = '2'.
          endif.
        elseif i_output-pverme > i_output-kwmeng.
          i_output-field = '3'.
        elseif i_output-pverme = i_output-kwmeng.
          i_output-field = '3'.
        endif.
      else.
Traffic Lights Depends on value
        if i_output-pverme > i_output-kwmeng.
          i_output-field = '3'.
        elseif i_output-pverme < i_output-kwmeng.
          i_output-field = '1'.
        elseif i_output-pverme = i_output-kwmeng.
          i_output-field = '2'.
        endif.
      endif.
      move i_output-diff to v_diff.
      flag = 'X'.
    endat.
    if flag ne 'X'.
      move : wa_final-matnr to i_output-matnr," Material #
             wa_final-maktx to i_output-maktx," Desc
             wa_final-lgpla to i_output-lgpla," Pick Bin
             wa_final-kwmeng to i_output-kwmeng," Order qty
             wa_final-zzshift to i_output-zzshift," Shift
             wa_final-vrkme to i_output-vrkme," Sales Unit
             wa_final-prverme to i_output-prverme. " Prod Bin Qty
Move Diffrence value
      move v_diff to i_output-pverme.
      clear: v_diff.
New logic for Only HMR Department
New logic for Only HMR Department
      if p_check = 'X'.
        if i_output-pverme < i_output-kwmeng.
          v_nverme = i_output-pverme + i_output-prverme.
          if v_nverme > i_output-kwmeng.
          if i_output-pverme < i_output-kwmeng.
           i_output-field = '2'.
            else.
Traffic Lights Depends on value
            i_output-field = '3'.
            endif.
Traffic Lights Depends on value
           i_output-field = '3'.
          elseif v_nverme < i_output-kwmeng.
            i_output-field = '1'.
          elseif v_nverme = i_output-kwmeng.
            i_output-field = '2'.
          endif.
        elseif i_output-pverme > i_output-kwmeng.
          i_output-field = '3'.
        elseif i_output-pverme = i_output-kwmeng.
          i_output-field = '3'.
        endif.
i_output-diff = i_output-pverme - i_output-kwmeng.
      else.
Difference
        i_output-diff = i_output-pverme - i_output-kwmeng.
Traffic Lights Depends on value
        if i_output-pverme > i_output-kwmeng.
          i_output-field = '3'.
        elseif i_output-pverme < i_output-kwmeng.
          i_output-field = '1'.
        elseif i_output-pverme = i_output-kwmeng.
          i_output-field = '2'.
        endif.
      endif.
    endif.
    append i_output.
    clear : i_output,
            wa_final,
            i_final,
             v_nverme.
endloop.
sort i_output by field zzshift matnr.
ENDFORM.                    " GET_DATA_VBAP
*&      Form RESETVALUES
      Reset the all fieldcatlogs
FORM RESETVALUES.
FIELDCAT_LN-KEY = SPACE.
FIELDCAT_LN-DO_SUM = SPACE.
FIELDCAT_LN-NO_OUT = SPACE.
FIELDCAT_LN-QFIELDNAME = SPACE.
FIELDCAT_LN-HOTSPOT = SPACE.
FIELDCAT_LN-OUTPUTLEN = '0'.
CLEAR: fieldcat_ln-seltext_l, fieldcat_ln-seltext_m,
         fieldcat_ln-seltext_s, fieldcat_ln-reptext_ddic.
ENDFORM.                    " RESETVALUES
*&      Form FILL_FIELDCATLOG
      Fill the Fieldcatlog values
FORM FILL_FIELDCATLOG.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
Trafiic Light
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'FIELD'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 7.
LS_FIELDCAT-col_pos    = '1'.
ls_fieldcat-seltext_L = 'Lights'.
ls_fieldcat-seltext_s = 'Lights'.
ls_fieldcat-seltext_m = 'Lights'.
APPEND LS_FIELDCAT TO FIELDCAT.
Wave Drop
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'ZZSHIFT'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 9.
LS_FIELDCAT-col_pos    = '2'.
ls_fieldcat-seltext_L = 'Wave Drop'.
APPEND LS_FIELDCAT TO FIELDCAT.
Material
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MATNR'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 18.
LS_FIELDCAT-col_pos    = '3'.
ls_fieldcat-seltext_L = 'Material'.
APPEND LS_FIELDCAT TO FIELDCAT.
Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MAKTX'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 40.
LS_FIELDCAT-col_pos    = '4'.
ls_fieldcat-seltext_L = 'Description'.
APPEND LS_FIELDCAT TO FIELDCAT.
Pick Bin
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'LGPLA'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 15.
LS_FIELDCAT-col_pos    = '5'.
ls_fieldcat-seltext_L = 'Pick Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Trafiic Light
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'PVERME'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 16.
LS_FIELDCAT-col_pos    = '6'.
ls_fieldcat-seltext_L = 'Stock at Pick Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Stock at Prod Bin
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'PRVERME'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 16.
LS_FIELDCAT-col_pos    = '7'.
ls_fieldcat-seltext_L = 'Stock at Prod Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Req from wave drop
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'KWMENG'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 23.
LS_FIELDCAT-col_pos    = '8'.
ls_fieldcat-seltext_L = 'Requirement from Wave Drop'.
APPEND LS_FIELDCAT TO FIELDCAT.
Sales Unit
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'VRKME'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 12.
LS_FIELDCAT-col_pos    = '9'.
ls_fieldcat-seltext_L = 'Sales Unit'.
APPEND LS_FIELDCAT TO FIELDCAT.
Unit of Measure
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MEINS'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 9.
LS_FIELDCAT-col_pos    = '10'.
ls_fieldcat-seltext_L = 'UNIT'.
ls_fieldcat-no_out = 'X'.
APPEND LS_FIELDCAT TO FIELDCAT.
Diffference
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'DIFF'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN    = 12.
LS_FIELDCAT-col_pos    = '11'.
ls_fieldcat-seltext_L = 'Difference'.
APPEND LS_FIELDCAT TO FIELDCAT.
ENDFORM.                    " FILL_FIELDCATLOG
*&      Form CALL_lIST
      Use ALV Function module to display output
FORM CALL_lIST.
Top - of - Page
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                =
I_BUFFER_ACTIVE                   = ' '
      I_CALLBACK_PROGRAM                = V_REPID
I_CALLBACK_PF_STATUS_SET          = ' '
    I_CALLBACK_USER_COMMAND           = g_user_command
      I_CALLBACK_TOP_OF_PAGE            = C_TOP_OF_PAGE
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
      IS_LAYOUT                         = LAYOUT
      IT_FIELDCAT                       = FIELDCAT
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         =
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
IT_ALV_GRAPHICS                   =
IT_ADD_FIELDCAT                   =
IT_HYPERLINK                      =
I_HTML_HEIGHT_TOP                 =
I_HTML_HEIGHT_END                 =
IT_EXCEPT_QINFO                   =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = I_OUTPUT
   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.                    " CALL_lIST
*&      Form BUILD_LAYOUT
      text
FORM BUILD_LAYOUT.
LAYOUT-GET_SELINFOS = 'X'.
Now we want a traffic light to say if the Truck is deleted
the variable p_lignam contains the name in IREPO which stores the
value for the traffic light
LAYOUT-LIGHTS_FIELDNAME = P_LIGNAM.
layout-HEADER_TEXT = 'Lights'.
LAYOUT-LIGHTS_CONDENSE = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form COMMENT_BUILD
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM COMMENT_BUILD USING    LT_TOP_OF_PAGE TYPE
                                        SLIS_T_LISTHEADER.
data : v_day(2) type c,
         v_mon(2) type c,
         v_year(4) type c,
         v_ldate(10) type c,
         v_hdate(10) type c.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
data: d_date like sy-datum.
clear : v_ldate,
          v_hdate.
Header Information.
LIST HEADING LINE: TYPE H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
LS_LINE-INFO = 'Bin Replenishment report for HMR'.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-003.
LS_LINE-INFO = TEXT-003.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-003.
LS_LINE-INFO = TEXT-003.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
Get the data ( s_date_low) into proper format.
v_year = s_date-low+0(4).
v_mon = s_date-low+4(2).
v_day = s_date-low+6(2).
concatenate v_mon '/' v_day '/' v_year into v_ldate.
clear : v_mon,
          v_year,
          v_day.
Get the data ( s_date_high) into proper format.
v_year = s_date-high+0(4).
v_mon = s_date-high+4(2).
v_day = s_date-high+6(2).
concatenate v_mon '/' v_day '/' v_year into v_hdate.
clear : v_mon,
          v_year,
          v_day.
Delivery date
if not s_date-low is initial .
    if not s_date-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Delivery date From:'.
      LS_LINE-INFO = v_ldate.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Delivery date To :'.
      LS_LINE-INFO = v_hdate.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
if not s_date-low is initial.
    if s_date-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Delivery date :'.
      LS_LINE-INFO = v_ldate.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
Wave Drop
if not S_SHIFT-LOW is initial.
    if not S_SHIFT-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Wave Drop From :'.
      LS_LINE-INFO = s_shift-low.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Wave Drop to :'.
      LS_LINE-INFO = s_shift-high.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
if not S_SHIFT-LOW is initial.
    if S_SHIFT-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Wave Drop :'.
      LS_LINE-INFO = s_shift-low.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
     CLEAR LS_LINE.
     LS_LINE-TYP = 'S'.
     LS_LINE-KEY = 'Wave Drop to :'.
     LS_LINE-INFO = s_shift-high.
     APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
Department
if not s_dept-low is initial .
    if not s_dept-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Department From :'.
      LS_LINE-INFO = s_dept-low.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Department to :'.
      LS_LINE-INFO = s_dept-high.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
if not s_dept-low is initial .
    if s_dept-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Department :'.
      LS_LINE-INFO = s_dept-low.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
Production Department
if not S_PDEPT-LOW is initial.
    if not S_PDEPT-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Production Department From :'.
      LS_LINE-INFO = S_PDEPT-LOW.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Production Department to :'.
      LS_LINE-INFO = S_PDEPT-high.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
if not S_PDEPT-LOW is initial.
    if S_PDEPT-high is initial.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'Production Department :'.
      LS_LINE-INFO = S_PDEPT-LOW.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
    endif.
endif.
ENDFORM.                    " COMMENT_BUILD
      FORM TOP_OF_PAGE                                              *
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = GT_LIST_TOP_OF_PAGE
I_LOGO                   =
I_END_OF_LIST_GRID       =
ENDFORM.
      FORM USER_COMMAND                                             *
FORM user_command USING r_ucomm LIKE sy-ucomm
            rs_selfield TYPE slis_selfield.                 "#EC CALLED
CASE R_UCOMM.
    WHEN '&IC1'.
      read table i_output index rs_selfield-tabindex.
      SET PARAMETER ID 'MAT' FIELD i_output-matnr.
      SET PARAMETER ID 'WRK' FIELD p_plant.
      if not i_output-matnr is initial.
        call transaction 'MD04' and skip first screen.
      endif.
ENDCASE.
ENDFORM.

MMBE stock overview - S Loc Level stock not getting displayed - ECC 6 0

Hello,
In ECC 6,0 Version, in the MMBE (stock overview) stock is getting displayed only at the Plant level. It is not showing at levels below for eg. S Loc level/Valuation type level. Is there any setting to be activated for this?
Can any one throw some light?
Thanks
Regards
Kumaran

Hi
Before executing MMBE
have you selected on the initial screen the following :-
Selection of Display levels
COCD
Plant
Storage location
batch and
special stock
thanks
Prasanna
awrd if usefull

ABAP OO: traffic lights in ALV

Hello,
Instead of going the easy way, I decided to practise a bit of ABAP OO (which I am still quite unfamiliar with), and do ALV list to my new report by using CL_SALV_TABLE class.
This seems to be quite clear if I just follow Rich's great instructions:
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/eac1fa0b-0e01-0010-0990-8530de4908a6
The only thing that is not so clear is that how can I add traffic (or led) lights to my ALV list when using class CL_SALV_TABLE. Does someone has an example?
Another bonus question: Do I always have to define the field catalog (with CL_SALV_TABLE) when using internal table of my own type?

Hello
Have a look at the sample report
SALV_DEMO_TABLE_COLUMNS.Following is the in-line documentation of the report:
*& Report SALV_DEMO_TABLE_COLUMNS
report salv_demo_table_columns no standard page heading.
*... This report demonstrates the settings for the columns.
*    The demonstration uses the new ALV API
*      - cl_salv_table (Fullscreen Grid, Fullscreen List, Grid)
*      - cl_salv_hierseq_table (hierseq. lists)
*    If the table ALV_T_T2 is empty, please create data for the demo
*    by running report BCALV_GENERATE_ALV_T_T2
* §1   select data into global output table
* §2   create ALV Table
*      create instance of cl_salv_table for displaying a list of your
*      output table
* §2.1 create a ALV List by setting the parameter LIST_DISPLAY of the
*      constructor cl_salv_table to 'X'
* §2.2 create a ALV Fullscreen Grid by not setting the parameter
*      LIST_DISPLAY of the constructor cl_salv_table to 'X'
* §2.3 create a Grid by creating a Dynpro with a container in it. In
*      PBO check if the container has been instantiated. If the
*      container has not yet been instantiated then this is the first
*      call:
*            (1) create the container
*            (2) create an instance of cl_salv_table
* §3   Functions
* §3.1 activate ALV generic Functions
* §3.2 include own functions
* §4   Cell Types
* §4.1 Exception Column
* §4.2 Icon Column
* §4.3 Symbol Column
* §4.4 Checkbox Column
* §4.5 Hotspot Column
* §4.6 Button Column
* §4.7 Hyperlink Column
* §4.8 Dropdown Column
* §4.9 Tooltip Information for Exceptions, Icons and Symbols
* §5   Color
* §5.1 set the color of a complete column by calling the method
*      set_color of cl_salv_column of the column
* §5.2 set the color of a complete row
*      note: by setting the columnname information the same
*            technique can be used for setting the color of cells
*      (1) register the column in which the color information
*          for the row is held
*      (2) set the color information to the row in the output
*          table
*          note: do not fill the parameter FNAME for setting the
*                color of the complete row
*                fill the parameter FNAME for setting the color
*                of a cell (Row and Column are definied)
* §6   Event Handler
*      define a handler for the events of cl_salv_table
* §6.1 define a local class for handling events of cl_salv_table
*      define methods for the events which are to be handled
* §6.2 implement the defined methods for handling the events of
*      cl_salv_table
* §7   Events
*      register to events of cl_salv_table
* §7.1 register to the event USER_COMMAND of cl_salv_table
*      for receiving information when own functions has been selected
* §7.2 register to the event DOUBLE_CLICK of cl_salv table
*      for receiving information when user has double clicked on a line
* §7.3 register to the event LINK_CLICK of cl_salv_table
*      for receiving information when user has initiated a hotspot click
* §8   Display
*      display the configurated ALV Table by calling the method
*      display of cl_salv_table.
Regards
Uwe

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

How to differentiate defects in QA32 using Traffic light

Hi QM Experts,
My scenario is,
How to set Monitor control in QA32 screen.
In the QA32 screen list of inspection lot will be displayed, for that inspection lot if any characteristics value is within / outside the limit, ie. for example specification is A2,R3 and i found 1 defect also defect is 4.
how to differentiate this with the help of Traffic light.
Regards,
Krish

Hi Krish,
As per best of my information, the traffic lights in QA32, depends on the Start Sate and End Date of the inspection lot.
If the End Date is not passed away (the current date is between the Start Date and End Date) it will be yellow.
If the End Date is Passed away and UD is not not for the Lot then the traffic light will be RED and as soon as UD done at any date/stage the light will become Green.
Conclusively, the light can't be linked with Defect Codes.
Regards,
Shyamal

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).

Transistion in SAP to know The Stock For List Of Material

Dear Sir,
Is there any transistion in SAP.
To know the stock for list of material.
For Ex=
I want to know the stock for below material in one shot
1) A
2) B
3) C
4) D
Pls solve my problem soon
Thanks & Regards
Ajay Pareek

Hi Ajay,
Following are the some of Useful T.Codes for the stock Report.
LT51 Maintain Preallocated Stock
LVASE Exit stock from Work Center
LX02 Stock list
LX23 Stock comparison IM - WM
LX27 Stock levels by shelf life exp.date
MB52 List of Warehouse Stocks on Hand
MB53 Display Plant Stock Availability
MB54 Consignment Stocks
MB5B Stocks for Posting Date
MB5K Stock Consistency Check
MB5L List of Stock Values: Balances
MB5OA Display Valuated GR Blocked Stock
MB5T Stock in transit CC
MB5TD Stock in Transit on Key Date
MB5W List of Stock Values
MBBS Display valuated special stock
MBLB Stocks at Subcontractor
MBSF Release Blocked Stock via Mat. Doc.
MBW1 Special stocks via WWW
MC.1 INVCO: Plant Anal. Selection: Stock
MC.5 INVCO: SLoc Anal. Selection, Stock
MC.9 INVCO: Material Anal.Selection,Stock
MC.D INVCO: MRP Cntrllr.Anal.Sel. Stock
MC.H INVCO: Business Area Anal.Sel. Stock
MC.L INVCO: Mat.Group Analysis Sel. Stock
MC.P INVCO: Division Analysis Sel. Stock
MC.T INVCO: Mat.Type Anal.Selection Stock
MC48 INVCO: Anal. of Current Stock Values
MC49 INVCO: Mean Stock Values
MC50 INVCO: Analysis of Dead Stock
MC8M Read Opening Stocks
MCB) INVCO: Long-Term Stock Selection
MCC4 Set Up INVCO Info Structs.from Stock
MCH: RIS: STRPS/Mvmts + Stock - Selection
MCKJ Selection version tree: Stock
MCKR User-spec. sel. vers. tree: Stock
MCNB BW: Initialize Stock Balances
MCSK Call Standard Analyses of Stocks
MD04 Display Stock/Requirements Situation
ME27 Create Stock Transport Order
ME2O SC Stock Monitoring (Vendor)
MF65 Stock Transfer for Reservation
MI35 Batch Input: Post Zero Stock Balance
MILL_ Cutting Stock Transfer
MIQ1 Batch Input: PhInvDoc. Project Stock
MM73 Special Stocks: Preparation
MM74 Archive Special Stocks
MM75 Display Archive of Special Stocks
MMBE Stock Overview
MMBE_ Stock Overview
MMCL Stock Overview by Characteristic
Or you can refer the thread [stock overview;, search there are several threads already available regarding this.
Regards,
Shyamal

Traffice light in ALV

hi experts
i have itab having a field status and its data ( 'open' , 'complete')
pls explain the needed steps to be followed for setting the traffic light in ALV.
open --red light
complete -- green light.
pls, explain me the step by step procedure.
thanks in advance.
Regards
Rajaram

Hi Raja,
Try this source coode and you can able to do it.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'
            i_callback_html_end_of_list = 'END_OF_LIST_HTML'
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
            i_save                  = 'X'
       tables
            t_outtab                = it_ekko
       exceptions
            program_error           = 1
            others                  = 2.
*&      Form end_of_list_html
      output at the end of the list - not in printed output       *
FORM end_of_list_html USING end TYPE REF TO cl_dd_document.
DATA: ls_text TYPE sdydo_text_element,
        l_grid     TYPE REF TO cl_gui_alv_grid,
        f(14) TYPE c VALUE 'SET_ROW_HEIGHT'.
ls_text = 'Footer title'.
adds and icon (red triangle)
CALL METHOD end->add_icon
    EXPORTING
      sap_icon = 'ICON_MESSAGE_ERROR_SMALL'.
adds test (via variable)
CALL METHOD end->add_text
    EXPORTING
      text         = ls_text
      sap_emphasis = 'strong'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(bold)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Bold text'
      sap_emphasis = 'strong'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(normal)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Normal text'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(bold)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Yellow triangle'
      sap_emphasis = 'strong'.
adds and icon (yellow triangle)
CALL METHOD end->add_icon
    EXPORTING
      sap_icon = 'ICON_LED_YELLOW'.
display text(normal)
CALL METHOD end->add_text
    EXPORTING
      text         = 'More text'.
*set height of this section
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = l_grid.
CALL METHOD l_grid->parent->parent->(f)
    EXPORTING
      id     = 3
      height = 14.
ENDFORM. "end_of_list_html.
Regards,
Ameer Baba.

Using InDesign CS6 onWindows PC. Apple icon and traffic lights in L top corner are missing.

Using InDesign CS6 onWindows PC. Apple icon and traffic lights in L top corner are missing and so are some of the editing features. I fixed this once before by accident but can't remember how I did it. All I remember is it had something to do with the veiw % in other applications - I think!

I've been using a tutorial that is obviously been done on a Mac.
I used to have a link somewhere that was basically a list of all of the differences between the two platforms, but I can't lay hands on it. I'm sure if you asked us about the features that were missing or broken, we could answer fairly easily - you know, like "Preferences are under the InDesign menu on a Mac, but in Windows they're under Edit."
The worst of these differences is in keyboard shortcuts - Macs have an extra modifier key, so whenever I switch platforms I always spend twenty minutes flopping my hands around and muttering uncomplimentary things about Cupertino and Redmond, at least until muscle memory takes over.

Define traffic light in MD04

Hi Gurus,
Can anybody please explain me the define traffic light button in MD04 in detail
Thanks
Anusha

Dear,
Go to MD04 Collective access -
Enter MRP Area / Plant
Enter MRP Contoller /Vendor
Collective list of materials will appear.
At the top of the screen , Define Traffic light button will be there.When you click on that you can visit the screen for defining traffic lights
Define traffic light depending on ranges of coverage.
Define traffic light depending on exception groups.
You carryout the necessary settings for traffic light and save.
Regards,
R.Brahmankar

Re: Traffic Light in Stock Overview List

Similar Messages

Maybe you are looking for