| Line 42... |
Line 42... |
| 42 |
GetIsDisplayedIcon = "<img src='icons/b_tick.gif' width='13' height='13' border='0' title='Click to SHOW this BOM in Release Explorer'>"
|
42 |
GetIsDisplayedIcon = "<img src='icons/b_tick.gif' width='13' height='13' border='0' title='Click to SHOW this BOM in Release Explorer'>"
|
| 43 |
End If
|
43 |
End If
|
| 44 |
|
44 |
|
| 45 |
End Function
|
45 |
End Function
|
| 46 |
'--------------------------------------------------------------------------------------------------------------------------
|
46 |
'--------------------------------------------------------------------------------------------------------------------------
|
| - |
|
47 |
Sub ToggleDisplay()
|
| - |
|
48 |
Dim aDiffList, numOfRows, rowNum, OraParameter
|
| - |
|
49 |
|
| - |
|
50 |
Const bom_id_column = 0
|
| - |
|
51 |
|
| - |
|
52 |
OraDatabase.Parameters.Add "STATE_ID", parState_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
53 |
OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
54 |
|
| - |
|
55 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT )
|
| - |
|
56 |
|
| - |
|
57 |
aDiffList = rsQry.GetRows()
|
| - |
|
58 |
numOfRows = UBound( aDiffList, 2 )
|
| - |
|
59 |
|
| - |
|
60 |
For rowNum = 0 To numOfRows
|
| - |
|
61 |
If Request("hide_"& aDiffList( bom_id_column, rowNum )) <> "" Then
|
| - |
|
62 |
|
| - |
|
63 |
|
| - |
|
64 |
OraDatabase.Parameters.Add "BOM_ID", aDiffList( bom_id_column, rowNum ), ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
65 |
OraDatabase.Parameters.Add "DISPLAY", "N", ORAPARM_INPUT, ORATYPE_VARCHAR
|
| - |
|
66 |
|
| - |
|
67 |
objEH.TryORA ( OraSession )
|
| - |
|
68 |
|
| - |
|
69 |
OraDatabase.ExecuteSQL _
|
| - |
|
70 |
"BEGIN pk_State.Toggle_Is_Displayed ( :STATE_ID, :BOM_ID, :DISPLAY ); END;"
|
| - |
|
71 |
|
| - |
|
72 |
objEH.CatchORA ( OraSession )
|
| - |
|
73 |
|
| - |
|
74 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| - |
|
75 |
OraDatabase.Parameters.Remove "DISPLAY"
|
| - |
|
76 |
Else
|
| - |
|
77 |
|
| - |
|
78 |
OraDatabase.Parameters.Add "BOM_ID", aDiffList( bom_id_column, rowNum ), ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
79 |
OraDatabase.Parameters.Add "DISPLAY", "Y", ORAPARM_INPUT, ORATYPE_VARCHAR
|
| - |
|
80 |
objEH.TryORA ( OraSession )
|
| - |
|
81 |
|
| - |
|
82 |
OraDatabase.ExecuteSQL _
|
| - |
|
83 |
"BEGIN pk_State.Toggle_Is_Displayed ( :STATE_ID, :BOM_ID, :DISPLAY ); END;"
|
| - |
|
84 |
|
| - |
|
85 |
objEH.CatchORA ( OraSession )
|
| - |
|
86 |
|
| - |
|
87 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| - |
|
88 |
OraDatabase.Parameters.Remove "DISPLAY"
|
| - |
|
89 |
End If
|
| - |
|
90 |
Next
|
| - |
|
91 |
|
| - |
|
92 |
rsQry.Close
|
| - |
|
93 |
Set rsQry = Nothing
|
| - |
|
94 |
|
| - |
|
95 |
OraDatabase.Parameters.Remove "STATE_ID"
|
| - |
|
96 |
OraDatabase.Parameters.Remove "BRANCH_ID"
|
| - |
|
97 |
|
| - |
|
98 |
End Sub
|
| - |
|
99 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 47 |
Sub GetFormDetails ( nState_id, ByRef outobjDetails )
|
100 |
Sub GetFormDetails ( nState_id, ByRef outobjDetails )
|
| 48 |
Dim rsQry, query
|
101 |
Dim rsQry, query
|
| 49 |
OraDatabase.Parameters.Add "STATE_ID", nState_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
102 |
OraDatabase.Parameters.Add "STATE_ID", nState_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 50 |
|
103 |
|
| 51 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateDetails.sql"), ORADYN_DEFAULT )
|
104 |
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateDetails.sql"), ORADYN_DEFAULT )
|
| Line 99... |
Line 152... |
| 99 |
<td <%=RowColor%> nowrap valign="top"><a href="Bom_Home.asp?bom_id=<%=rsQry("bom_id")%>" class="menu_link"><%=BomIcon( rsQry("is_readonly"), rsQry("is_rejected") )%><%=rsQry("bom_name")%></a></td>
|
152 |
<td <%=RowColor%> nowrap valign="top"><a href="Bom_Home.asp?bom_id=<%=rsQry("bom_id")%>" class="menu_link"><%=BomIcon( rsQry("is_readonly"), rsQry("is_rejected") )%><%=rsQry("bom_name")%></a></td>
|
| 100 |
<td <%=RowColor%> nowrap valign="top"><a href="Bom_Home.asp?bom_id=<%=rsQry("bom_id")%>" class="menu_link"><%=rsQry("bom_version") &"."& rsQry("bom_lifecycle")%></a></td>
|
153 |
<td <%=RowColor%> nowrap valign="top"><a href="Bom_Home.asp?bom_id=<%=rsQry("bom_id")%>" class="menu_link"><%=rsQry("bom_version") &"."& rsQry("bom_lifecycle")%></a></td>
|
| 101 |
<td <%=RowColor%> class="body_rowlite"><%=objFormater.TextToHtml( rsQry("bom_comments") )%></td>
|
154 |
<td <%=RowColor%> class="body_rowlite"><%=objFormater.TextToHtml( rsQry("bom_comments") )%></td>
|
| 102 |
<td <%=RowColor%> nowrap valign="top"><a href="mailto:<%=rsQry("user_email")%>" title="Send email to <%=rsQry("user_email")%>" class="body_link"><img src="icons/i_email.gif" width="15" height="10" hspace="2" border="0" align="absmiddle"><%=rsQry("full_name").Value%></a></td>
|
155 |
<td <%=RowColor%> nowrap valign="top"><a href="mailto:<%=rsQry("user_email")%>" title="Send email to <%=rsQry("user_email")%>" class="body_link"><img src="icons/i_email.gif" width="15" height="10" hspace="2" border="0" align="absmiddle"><%=rsQry("full_name").Value%></a></td>
|
| 103 |
<td <%=RowColor%> nowrap align="right" valign="top" class="body_txt"> <%=objFormater.FormatDate ( rsQry("arrived_date"), 1 ) %></td>
|
156 |
<td <%=RowColor%> nowrap align="right" valign="top" class="body_txt"> <%=objFormater.FormatDate ( rsQry("arrived_date"), 1 ) %></td>
|
| 104 |
<td <%=RowColor%> align="center" valign="top"><a href="_ToggleIsDisplayedBom.asp?rfile=<%=SCRIPT_NAME%>&bom_id_list=<%=rsQry("bom_id")%>&<%=objPMod.ComposeURL()%>"><%=GetIsDisplayedIcon( rsQry("is_displayed") )%></a></td>
|
157 |
<td <%=RowColor%> align="left" valign="top"><input type="checkbox" name="hide_<%=rsQry("bom_id")%>" value="<%=rsQry("bom_id")%>"
|
| - |
|
158 |
<%If rsQry("is_displayed") = "Y" Then%>
|
| - |
|
159 |
>
|
| - |
|
160 |
<%Else%>
|
| - |
|
161 |
checked >
|
| - |
|
162 |
<%End If%>
|
| - |
|
163 |
</td>
|
| - |
|
164 |
|
| 105 |
</tr>
|
165 |
</tr>
|
| 106 |
|
166 |
|
| 107 |
<%
|
167 |
<%
|
| 108 |
rsQry.MoveNext
|
168 |
rsQry.MoveNext
|
| 109 |
WEnd
|
169 |
WEnd
|
| Line 113... |
Line 173... |
| 113 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
173 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
| 114 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
174 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
| 115 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
175 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
| 116 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
176 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
| 117 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
177 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
| 118 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
178 |
<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"><input name="btn" type="submit" class="form_btn" value="Execute"></td>
|
| 119 |
</tr>
|
179 |
</tr>
|
| 120 |
</table>
|
180 |
</table>
|
| 121 |
<%
|
181 |
<%
|
| 122 |
End Sub
|
182 |
End Sub
|
| 123 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
183 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
| Line 169... |
Line 229... |
| 169 |
Call objPMod.PersistInQryString ( aPersistList(enumPAR_STATE_ID) )
|
229 |
Call objPMod.PersistInQryString ( aPersistList(enumPAR_STATE_ID) )
|
| 170 |
|
230 |
|
| 171 |
Call GetFormDetails ( parState_id, objFormCollector )
|
231 |
Call GetFormDetails ( parState_id, objFormCollector )
|
| 172 |
|
232 |
|
| 173 |
If (Request("action") <> "") Then
|
233 |
If (Request("action") <> "") Then
|
| - |
|
234 |
|
| - |
|
235 |
Call ToggleDisplay()
|
| 174 |
'-- Select Action
|
236 |
'-- Select Action
|
| 175 |
Call ActionRedirection ( Request("action") )
|
237 |
Call ActionRedirection ( Request("action") )
|
| 176 |
|
238 |
|
| - |
|
239 |
If objEH.Finally Then
|
| - |
|
240 |
Call OpenInWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
|
| - |
|
241 |
End If
|
| - |
|
242 |
|
| 177 |
End If
|
243 |
End If
|
| 178 |
|
244 |
|
| 179 |
'----------------------------------------------
|
245 |
'----------------------------------------------
|
| 180 |
%>
|
246 |
%>
|
| 181 |
<html>
|
247 |
<html>
|