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

Similar Messages

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.

How to defocus/blur certain areas using adobe light room

I need to make certain things blur or defoucs in the photo. For Eg: in the below link apart from the face rest of the background should be defoucsed. Is there any filter or setting to make only background as defocused?
http://www.hackfew.com/7-simple-tips-live-life-happily/

To add to what Rikk said..
Local Sharpness = -1 will mask .5% of global sharpening
Local Sharpness = -50 will mask 100% of global sharpening (without blurring) - I still use this setting along with noise reduction to clean up sky etc.
Local Sharpness = -51 will blur a tiny bit.
Local Sharpness = -100 will blur as much as possible.
Summary:
========
local sharpness has 3 distinct ranges:
positive: add to global sharpening
negative (-1 to -50): mask global sharpening
more negative (-51 to -100): blur
In my opinion, it's worthwhile knowing where the cut-off is, exactly, since an inadvertent blur when you don't want blurring is a real bummer, and if you think you'll be blurring a little at -50, you won't be.
Beware: overlapping pins are additive, so if you have two pins at -50, overlapping strokes will blur, whereas non-overlapping strokes will not..
Rob

ALV Traffic lights for subtotal

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

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

Set Traffic Light for Individual Cell in a Row

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

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

Traffic Lights in ALV Tree

Hi Experts ,
Could you suggest if we can use traffic lights in ALV tree Display and if possible program(T-code ) you have gone thorugh.
I already checked BCALV_TREE_06 , its totally different just showing icons .
Regards,
Karan
Edited by: Karan_Chowdary on Dec 24, 2011 7:28 AM

First in your output table for ALV.. add the light coloum.
for example:
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.
Then in the get data section, you have to put if-else class and upate that column as follows
WRITE ICON_GREEN_LIGHT AS ICON TO IMARA-LIGHT.
The use that light column in the catalog section
Regards,
Venkat

Using Helvetica Light in Mail?

I noticed this problem in Lion. I would like to use Helvetica light as my default font in Mail. I have set it to be so in:
Mail/Preferences/Fonts & Colours/Message font Helvetica Light 12 pt.
However, even though it is set to an available font, it does not actually appear in the body of the message. Only Helvetica will appear. It's confusing because Helvetica Light is one of the possible options.
Does anyone have any idea how I can force it to use Helvetica Light?

HI natmac. Sorry but i have to ask, i have read your previous post about 3-4 years ago about the the printer hp psc 1350. I wanna know how did you made it work with your macbook and airport express? i want to print/scan/copy via my own network (wifi) at home using the airport express. Please help me. I was able to do that if the printer is attached to usb. I was able to print and scan. I dont know how to use the copier though even if it's attached to usb. Im using iphoto to print photos because i dont have the complete package of HP software. (i dont know how and where to download that?) Back to my main question, how am i going to do all those things with the use of airport express via my network or wifi???? wirelessly
Please acknowledge this for you are my only hope. Thanks.

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.

How to detect defect for ampoule product?

Hi,
I am out of idea..anybody can give idea how to differentiate which one is the shadow and defect for image attached in this problem? One image is the perfect..one image caused of excess plastic defect as painted...and the other one is water spot occured at the surface of the ampoules...and particle defect and scracth at the surface..I already try sobel, threshold and filter...but cannot get result...and also using edge still failed due to it also detect the shadow...intensity also i have done but same issue due to of the shadow...
Attachments:
ampoule image.zip ‏2713 KB

Lots of clarrification needed. The perfect one also have some water defects and a hole/crack. Why is the illumination not constant? Can you try increasing the posistional accuracy. This though not highlighted enough will help you a lot is attaining repeatablity.

How to differentiate issues

How to differentiate issues between Oracle SOA Suite and an application installed on the top?
Is it possible to recognize when a eventual error is in Oracle SOA?
How ?

qpulos has provided a very good explanation.
- The fundamental difference between a router and a Layer 3 switch is that Layer 3 switches have optimized hardware to pass data as fast as Layer 2 switches, yet they make decisions on how to transmit traffic at Layer 3, just like a router. Within the LAN environment, a Layer 3 switch is usually faster than a router because it is built on switching hardware. In fact, many of Cisco's Layer 3 switches are actually routers that operate faster because they are built on "switching" hardware with customized chips inside the box.
- Layer 3 Switching / Routing
Layer 3 switches are essentially Layer 2 switches with a routing engine
Designed to specifically route traffic between VLANs in a LAN environment
Routing over WAN networks can still be supported, simply by plugging a traditional router that connects to the WAN networks into the LAN
- Using Layer 3 switches for inter-VLAN routing as opposed to traditional routers is popular for the following reasons
Performance versus Cost-Layer 3 switches are much more cost effective than routers for delivering high-speed inter-VLAN routing. Routers have many more features and can support a wide variety of WAN media options; however, many of these extra features are not required for inter-VLAN routing.
Port density-Layer 3 switches have the same high port densities that Layer 2 switches have.
Flexibility-Layer 3 switches allow you to mix and match Layer 2 and Layer 3 switching
Check the below link for diffrence between l2 and l3 swith.
http://www.cisco.com/web/about/ac123/ac147/archived_issues/ipj_1-2/switch_evolution.html
Regrads,
Pravin

How to differentiate between Parent and Child in IBASE?

Hi. I am working on enhancing a BAPI :BAPI_GOODSMVT_CREATE by calling the following function module IBPP_CREATE_IBASE at its exit.
The BAPI is being called from an SAP ME system and will be passing MATNR and Serial Number of Parent and Child materials to create the IBASE in ECC system. I am confused as to how to differentiate between whether a object is Parent or a Child when the BAPI: BAPI_GOODSMVT_CREATE is called.

if you have NULL valued fields. If
you do a compare and one or both are NULL, then the result is always NULL,
never true or false. Even comparing two fields which are both NULL will
give NULL as result, not true! Or if you have something like "select
sum(field) from ..." and one or more are NULL, then the result will be
NULL. Use always "if field is NULL ..." for NULL checking and for safety
maybe something like "select sum( IsNull(field,0) ) from ...". Check the
function ISNULL() in the manual.

How to hide system tables when using the Oracle SQL Developer?

Hi,
I would like to know how can I show only the tables that I created under the Tables tree? I didnt find a way to create a separate database using the Oracle Sql Developer. I see all the tables together, and would like to differentiate between different databases.
Can anyone explain to me how to do these things?
Thanks,

Hi,
I would like to know how can I show only the tables that I created under the Tables tree? Your posting is not clear,again tell something more on tables tree,what u want to achieve with it.
How to hide system tables when using the Oracle SQL Developer? if u connected with sys, system or user with dba role then u have a privilege to see these tables,so revoke the privilege/role from ur user to view this tables if ur connected other then sys,system,
I didnt find a way to create a separate database using the Oracle Sql Developer. DBCA is a tool for creating the new database.
Kuljeet

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.

In MD06, how to define Traffic lights

Hi to All,
We are having more than one plants and every one are using MRP.
After MRP run, we are using MD06 in order to evaluate numerous materials based on same controller.
I would like to define or set traffic lights based on Supply & exception groups which will be applicable for users who
would using this MD06 tcode.
How to define this?
Thanks & Regards
Nitin

please check whether this helps...
https://forums.sdn.sap.com/click.jspa?searchID=31913209&messageID=4081312

Traffic light how to be given in ALV

Dear Freinds,
iam able to get the data in the ouput using
REUSE_ALV_GRID_DISPLAY , as per the requiremnt i want to display the first column of the record if success Green color light and failed records display in the first column a Red .
Could any one let me know please how i can give the traffic lights in the ALV .
Thanks & regards
Srinivas.

Hi,
To display icons in ALV is as follow...
Define a field in the internal table LIKE ICON-ID, not char(4). For example...
DATA: BEGIN OF ITAB...
icon_field LIKE ICON-ID,
END OF ITAB.
Then fill the field icon, for example...
itab-icon_field = @0A@ "Red light
Preparing the fieldcatalog...
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'ICON_FIELD'.
wa_fieldcat-icon = 'X'.
There is another way to display icons, but is only for lights...
icon_field(1) TYPE C.
itab-icon_field = '1'. "Red
itab-icon_field = '2'. "Yellow
itab-icon_field = '3'. "Green
wa_layout-lights_tabname = 'ITAB'.
wa_layout-lights_fieldname = 'ICON_FIELD'.
regards,
Advait

How to differentiate defects in QA32 using Traffic light

Similar Messages

Maybe you are looking for