<%@ LANGUAGE="VBScript" %>
<%
Dim Action_Name(50)
Dim Action_Description(50)
Dim Action_Performed(50)
Dim Action_Result(50)
Dim Action_Web(50)
Dim Action_Order(50)
Dim Action_Yellow(50)
Dim Action_Color(50)
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt0 = "select ACTION,DESCRIPTION,WEBACCESS,ACTION_ORDER from ASSEMBLY.ASM_HYBRID_ACTION where ACTION_ORDER<3000 and HYBRIDS LIKE '%"+Request("REQ_HYBRID_TYPE")+"%' order by ACTION_ORDER"
'response.write(SQLStmt0)
Set RS0 = Connection.Execute(SQLStmt0)
SQLStmt1 = "select ahi.HYBRID_ID,ahl.ACTION,ahl.LOCATION,ahl.CONFIG,to_char(ahl.LOGDATE,'MM/DD/YYYY') LDATE "
SQLStmt1 = SQLStmt1 & " from ASSEMBLY.ASM_HYBRID_LOG ahl,ASSEMBLY.ASM_HYBRID_ID ahi "
SQLStmt1 = SQLStmt1 & " where ahl.HYBRID_ID (+) =ahi.HYBRID_ID and ahi.HYBRID_TYPE='"+Request("REQ_HYBRID_TYPE")+"' "
SQLStmt1 = SQLStmt1 & " and ahi.HYBRID_ID not like '%x%' "
SQLStmt1 = SQLStmt1 & " order by ahi.HYBRID_ID,ahl.LOGDATE"
Set RS1 = Connection.Execute(SQLStmt1)
SQLStmt2 = "select count(HYBRID_ID) as HYBRID_COUNT from ASSEMBLY.ASM_HYBRID_ID where HYBRID_TYPE='"+Request("REQ_HYBRID_TYPE")+"' "
SQLStmt2= SQLStmt2 & " and HYBRID_ID not like '%x%' "
Set RS2 = Connection.Execute(SQLStmt2)
naction=0
Do While Not RS0.EOF
Action_Name(naction)=CStr(RS0("ACTION"))
Action_Description(naction)=RS0("DESCRIPTION")
Action_Performed(naction)=0
Action_Web(naction)=CInt(RS0("WEBACCESS"))
Action_Order(naction)=CInt(RS0("ACTION_ORDER"))
If (Action_Order(naction)>1200 And Action_Order(naction)<1300) Or (Action_Description(naction)="Special Test of Hybrid") Then
Action_Yellow(naction)=1
Else
Action_Yellow(naction)=0
End If
naction=naction+1
RS0.MoveNext
Loop
naction=naction-1
'
' fill status arrays, brute force !
'
%>
Hybrid Status, all hybrids
HYBRID TYPE : <%= Request("REQ_HYBRID_TYPE")%>
Total Count of this Hybrid Type: <%= Cstr(RS2("HYBRID_COUNT"))%>
To be done
To be done, optional
test conducted, chips assigned
OK
NOT OK
Hybrid
<%
For iaction=0 To naction
%>
<%=iaction%>
<% Next %>
Last seen at
<%
old_hybrid="XXXXXX"
Do While Not RS1.EOF
If old_hybrid<>"XXXXXX" Then
If Not IsNull(RS1("ACTION")) Then
Action_Done=CStr(RS1("ACTION"))
For iaction=0 To naction
If Action_Done=Action_Name(iaction) Then
Action_Performed(iaction)=Action_Performed(iaction)+1
'
' Define color codes
'
If Not IsNull(RS1("CONFIG")) Then
If RS1("CONFIG")="NOT OK" Then
Action_Color(iaction)=3 ' Red
Elseif RS1("CONFIG")="OK" Then
Action_Color(iaction)=2 ' Green
Else
Action_Color(iaction)=4 ' Blue
End If
Else
Action_Color(iaction)=4 ' Blue
End If
Exit For
End If
Next
End If
If Not IsNull(RS1("LOCATION")) Then
Location=CStr(RS1("LOCATION"))
End If
If Not IsNull(RS1("LDATE")) Then
ddate=(date-datevalue(CStr(RS1("LDATE"))))
End If
RS1.MoveNext
End If
If RS1.EOF Then
present_hybrid="YYYYYY"
Else
present_hybrid=RS1("HYBRID_ID")
End If
If present_hybrid<>old_hybrid Then
'
' print the collected data
'
If old_hybrid<>"XXXXXX" Then
%>
<%
Case 1
%><%
Case 2
%><%
Case 3
%><%
Case 4
%> <%
Case Else
%>???<%
End Select
%>
<%
Next
%>
<%=Location %>
<%
End If
'
' reset counters
'
For iaction=0 To naction
Action_Performed(iaction)=0
'
' Prepare default colors
'
' Prepared now
' 0 Grey - action not done, it needs to be done
' 1 Yellow - action not done, it is optional
' Set later while scanning the data
' 2 Green - action done, OK or automatic entry
' 3 Red - action done, NOT OK
'
If Action_Yellow(iaction)=1 Then
Action_Color(iaction)=1
Else
Action_Color(iaction)=0
End If
Next
Location="Unknown"
ddate=999
old_hybrid=present_hybrid
End If
Loop
%>
<% End if %>