Subversion Repositories DevTools

Rev

Rev 4216 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4216 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wUnhideProducts                  |
 5 
'|			          wUnhideProducts                  |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
Dim aProducts
 24 
Dim aProducts
25 
Dim numOfRows
 25 
Dim numOfRows
26 
Dim rowNum
 26 
Dim rowNum
27 
Dim objFormCollector
 27 
Dim objFormCollector
28 
Dim currPkg_id
 28 
Dim currPkg_id
29 
Dim objList
 29 
Dim objList
30 
Dim key
 30 
Dim key
31 
 
 31 
 
32 
'------------ CONSTANTS DECLARATION -----------
 32 
'------------ CONSTANTS DECLARATION -----------
33 
'------------ VARIABLE INIT -------------------
 33 
'------------ VARIABLE INIT -------------------
34 
parBom_id = Request("bom_id")
 34 
parBom_id = Request("bom_id")
35 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 35 
Set objFormCollector = CreateObject("Scripting.Dictionary")
36 
Set objList = CreateObject("Scripting.Dictionary")
 36 
Set objList = CreateObject("Scripting.Dictionary")
37 
 
 37 
 
38 
'------------ CONDITIONS ----------------------
 38 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
 39 
'----------------------------------------------
40 
%>
 40 
%>
41 
<%
 41 
<%
42 
'----------------------------------------------------------------------------------------------------------------------------------
 42 
'----------------------------------------------------------------------------------------------------------------------------------
43 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
 43 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
44 
	Dim rsQry, query
 44 
	Dim rsQry, query
45 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
45 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
46
46
47 
	query = _
 47 
	query = _
48 
	"  SELECT rt.RTAG_ID, "&_
 48 
	"  SELECT rt.RTAG_ID, "&_
49 
	"	      rt.RTAG_NAME "&_
 49 
	"	      rt.RTAG_NAME "&_
50 
	"	 FROM RELEASE_TAGS rt,"&_
 50 
	"	 FROM RELEASE_TAGS rt,"&_
51 
	"	 	   BOMS bo"&_
 51 
	"	 	   BOMS bo"&_
52 
	"	WHERE bo.RTAG_ID_FK = rt.RTAG_ID"&_
 52 
	"	WHERE bo.RTAG_ID_FK = rt.RTAG_ID"&_
53 
	"	  AND bo.BOM_ID = :BOM_ID"
 53 
	"	  AND bo.BOM_ID = :BOM_ID"
54
54
55 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 55 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
56 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
 56 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
57 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
 57 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
58 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 58 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
59 
	End If
 59 
	End If
60
60
61
61
62 
	OraDatabase.Parameters.Remove "BOM_ID"
 62 
	OraDatabase.Parameters.Remove "BOM_ID"
63
63
64 
	rsQry.Close
 64 
	rsQry.Close
65 
	Set rsQry = Nothing
 65 
	Set rsQry = Nothing
66 
End Sub
 66 
End Sub
67 
'----------------------------------------------------------------------------------------------------------------------------------
 67 
'----------------------------------------------------------------------------------------------------------------------------------
68 
Sub UnhideProducts()
 68 
Sub UnhideProducts()
69 
	Dim aDiffList, numOfRows, rowNum, OraParameter
 69 
	Dim aDiffList, numOfRows, rowNum, OraParameter
70 
	Const os_id_column = 2
 70 
	Const os_id_column = 2
71 
	Const old_prod_id_column = 1
 71 
	Const old_prod_id_column = 1
72
72
73 
	'/* Get Lates Release Manager */
 73 
	'/* Get Lates Release Manager */
74 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
74 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
75 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
75 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
76
76
77 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
 77 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
78
78
79
79
80 
	'-- Get Rows
 80 
	'-- Get Rows
81 
	If rsQry.RecordCount > 0 Then
 81 
	If rsQry.RecordCount > 0 Then
82 
		aDiffList = rsQry.GetRows()
 82 
		aDiffList = rsQry.GetRows()
83
83
84 
	Else
 84 
	Else
85 
		'-- No differencses with Release Manager, hence exit
 85 
		'-- No differencses with Release Manager, hence exit
86 
		OraDatabase.Parameters.Remove "BOM_ID"
 86 
		OraDatabase.Parameters.Remove "BOM_ID"
87 
		OraDatabase.Parameters.Remove "RTAG_ID"
 87 
		OraDatabase.Parameters.Remove "RTAG_ID"
88 
		Exit Sub
 88 
		Exit Sub
89
89
90 
	End If
 90 
	End If
91
91
92
92
93
93
94 
	'/* Update Versions */
 94 
	'/* Update Versions */
95 
	On Error Resume Next
 95 
	On Error Resume Next
96
96
97 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
99 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
99 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
100
100
101 
	Set OraParameter = OraDatabase.Parameters
 101 
	Set OraParameter = OraDatabase.Parameters
102
102
103
103
104
104
105 
	objEH.TryORA ( OraSession )
 105 
	objEH.TryORA ( OraSession )
106
106
107 
	numOfRows = UBound( aDiffList, 2 )
 107 
	numOfRows = UBound( aDiffList, 2 )
108
108
109 
	For rowNum = 0 To numOfRows
 109 
	For rowNum = 0 To numOfRows
110
110
111 
		If Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
 111 
		If Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
112 
			OraParameter("PROD_ID").Value = Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
 112 
			OraParameter("PROD_ID").Value = Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
113 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
 113 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
114
114
115 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Unhide_Product ( :PROD_ID, :OS_ID, :USER_ID );   END;"
 115 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Unhide_Product ( :PROD_ID, :OS_ID, :USER_ID );   END;"
116 
		End If
 116 
		End If
117
117
118 
	Next
 118 
	Next
119
119
120
120
121 
	'--- Log Action ---
 121 
	'--- Log Action ---
122 
	'objEH.LogAction  _
 122 
	'objEH.LogAction  _
123 
	'objAccessControl.UserId, _
 123 
	'objAccessControl.UserId, _
124 
	'enumAT_EVENT_COMMENT, _
 124 
	'enumAT_EVENT_COMMENT, _
125 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
 125 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
126 
	'SCRIPT_NAME, _
 126 
	'SCRIPT_NAME, _
127 
	'"Updated Products with new versions.", _
 127 
	'"Updated Products with new versions.", _
128 
	'OraDatabase
 128 
	'OraDatabase
129
129
130
130
131 
	objEH.CatchORA ( OraSession )
131 
	objEH.CatchORA ( OraSession )
132
132
133 
	OraDatabase.Parameters.Remove "BOM_ID"
 133 
	OraDatabase.Parameters.Remove "BOM_ID"
134 
	OraDatabase.Parameters.Remove "RTAG_ID"
 134 
	OraDatabase.Parameters.Remove "RTAG_ID"
135 
	OraDatabase.Parameters.Remove "PROD_ID"
 135 
	OraDatabase.Parameters.Remove "PROD_ID"
136 
	OraDatabase.Parameters.Remove "OS_ID"
 136 
	OraDatabase.Parameters.Remove "OS_ID"
137 
	OraDatabase.Parameters.Remove "USER_ID"
 137 
	OraDatabase.Parameters.Remove "USER_ID"
138 
End Sub
 138 
End Sub
139 
'----------------------------------------------------------------------------------------------------------------------------------
 139 
'----------------------------------------------------------------------------------------------------------------------------------
140 
Sub UnhidePatches()
 140 
Sub UnhidePatches()
141 
	Dim aDiffList, numOfRows, rowNum, OraParameter
 141 
	Dim aDiffList, numOfRows, rowNum, OraParameter
142 
	Const os_id_column = 2
 142 
	Const os_id_column = 2
143 
	Const old_prod_id_column = 1
 143 
	Const old_prod_id_column = 1
144
144
145 
	'/* Get Lates Release Manager */
 145 
	'/* Get Lates Release Manager */
146 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
146 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
147
147
148
148
149 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHidePatches.sql"), ORADYN_DEFAULT )
 149 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHidePatches.sql"), ORADYN_DEFAULT )
150
150
151
151
152 
	'-- Get Rows
 152 
	'-- Get Rows
153 
	If rsQry.RecordCount > 0 Then
 153 
	If rsQry.RecordCount > 0 Then
154 
		aDiffList = rsQry.GetRows()
 154 
		aDiffList = rsQry.GetRows()
155
155
156 
	Else
 156 
	Else
157 
		'-- No differencses with Release Manager, hence exit
 157 
		'-- No differencses with Release Manager, hence exit
158 
		OraDatabase.Parameters.Remove "BOM_ID"
 158 
		OraDatabase.Parameters.Remove "BOM_ID"
159 
 
 159 
 
160 
		Exit Sub
 160 
		Exit Sub
161
161
162 
	End If
 162 
	End If
163
163
164
164
165
165
166 
	'/* Unhide Products/Patches */
 166 
	'/* Unhide Products/Patches */
167 
	On Error Resume Next
 167 
	On Error Resume Next
168
168
169 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
169 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
170 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
170 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
171 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
171 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
172
172
173 
	Set OraParameter = OraDatabase.Parameters
 173 
	Set OraParameter = OraDatabase.Parameters
174
174
175
175
176
176
177 
	objEH.TryORA ( OraSession )
 177 
	objEH.TryORA ( OraSession )
178
178
179 
	numOfRows = UBound( aDiffList, 2 )
 179 
	numOfRows = UBound( aDiffList, 2 )
180
180
181
181
182 
	For rowNum = 0 To numOfRows
 182 
	For rowNum = 0 To numOfRows
183
183
184
184
185 
		If Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
 185 
		If Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
186 
			OraParameter("PROD_ID").Value = Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
 186 
			OraParameter("PROD_ID").Value = Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
187 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
 187 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
188
188
189 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Unhide_Product ( :PROD_ID, :OS_ID, :USER_ID );   END;"
 189 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Unhide_Product ( :PROD_ID, :OS_ID, :USER_ID );   END;"
190
190
191 
		End If
 191 
		End If
192
192
193 
	Next
 193 
	Next
194
194
195
195
196 
	'--- Log Action ---
 196 
	'--- Log Action ---
197 
	'objEH.LogAction  _
 197 
	'objEH.LogAction  _
198 
	'objAccessControl.UserId, _
 198 
	'objAccessControl.UserId, _
199 
	'enumAT_EVENT_COMMENT, _
 199 
	'enumAT_EVENT_COMMENT, _
200 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
 200 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
201 
	'SCRIPT_NAME, _
 201 
	'SCRIPT_NAME, _
202 
	'"Updated Products with new versions.", _
 202 
	'"Updated Products with new versions.", _
203 
	'OraDatabase
 203 
	'OraDatabase
204
204
205
205
206 
	objEH.CatchORA ( OraSession )
206 
	objEH.CatchORA ( OraSession )
207
207
208 
	OraDatabase.Parameters.Remove "BOM_ID"
 208 
	OraDatabase.Parameters.Remove "BOM_ID"
209 
 
 209 
 
210 
	OraDatabase.Parameters.Remove "PROD_ID"
 210 
	OraDatabase.Parameters.Remove "PROD_ID"
211 
	OraDatabase.Parameters.Remove "OS_ID"
 211 
	OraDatabase.Parameters.Remove "OS_ID"
212 
	OraDatabase.Parameters.Remove "USER_ID"
 212 
	OraDatabase.Parameters.Remove "USER_ID"
213 
End Sub
 213 
End Sub
214 
'----------------------------------------------------------------------------------------------------------------------------------
 214 
'----------------------------------------------------------------------------------------------------------------------------------
215 
%>
 215 
%>
216 
<%
 216 
<%
217 
'------------ RUN BEFORE PAGE RENDER ----------
 217 
'------------ RUN BEFORE PAGE RENDER ----------
218 
Call GetFormDetails ( parBom_id, objFormCollector )
 218 
Call GetFormDetails ( parBom_id, objFormCollector )
219 
 
 219 
 
220 
If Request("action") <> "" Then
220 
If Request("action") <> "" Then
221
221
222 
	' --- Form is Valid ---
 222 
	' --- Form is Valid ---
223 
	Call UnhideProducts()
 223 
	Call UnhideProducts()
224
224
225 
	Call UnhidePatches()
 225 
	Call UnhidePatches()
226
226
227 
	If objEH.Finally Then
 227 
	If objEH.Finally Then
228 
		Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 228 
		Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
229 
		Call CloseWindow()
 229 
		Call CloseWindow()
230 
	End If
 230 
	End If
231 
End If
 231 
End If
232 
 
 232 
 
233 
'----------------------------------------------
 233 
'----------------------------------------------
234 
%>
 234 
%>
235 
 
 235 
 
236 
 
 236 
 
237 
<html>
 237 
<html>
238 
<head>
 238 
<head>
239 
<SCRIPT LANGUAGE="JavaScript">
 239 
<SCRIPT LANGUAGE="JavaScript">
240 
<!-- Begin
 240 
<!-- Begin
241 
var checkflag = "false";
 241 
var checkflag = "false";
242 
function check(field) {
 242 
function check(field) {
243 
if (checkflag == "false") {
 243 
if (checkflag == "false") {
244 
  for (i = 0; i < field.length; i++) {
 244 
  for (i = 0; i < field.length; i++) {
245 
  field[i].checked = true;}
 245 
  field[i].checked = true;}
246 
  checkflag = "true";
 246 
  checkflag = "true";
247 
  return "Uncheck all"; }
 247 
  return "Uncheck all"; }
248 
else {
 248 
else {
249 
  for (i = 0; i < field.length; i++) {
 249 
  for (i = 0; i < field.length; i++) {
250 
  field[i].checked = false; }
 250 
  field[i].checked = false; }
251 
  checkflag = "false";
 251 
  checkflag = "false";
252 
  return "Check all"; }
 252 
  return "Check all"; }
253 
}
 253 
}
254 
//  End -->
 254 
//  End -->
255 
</script>
 255 
</script>
256 
 
 256 
 
257 
 
 257 
 
258 
<title>Deployment Manager</title>
 258 
<title>Deployment Manager</title>
259 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 259 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
260 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 260 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
261 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 261 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
262 
<script language="JavaScript" src="scripts/common.js"></script>
 262 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
263 
<style type="text/css">
 263 
<script language="JavaScript" src="scripts/common.js"></script>
264 
<!--
 264 
<style type="text/css">
265 
.style8 {font-size: 12px}
 265 
<!--
266 
-->
 266 
.style8 {font-size: 12px}
267 
</style>
 267 
-->
268 
</head>
 268 
</style>
269 
 
 269 
</head>
270 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 270 
 
271 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 271 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
272 
  <tr>
 272 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
273 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Unhide Patches/Products </span> <br>
 273 
  <tr>
274 
    </td>
 274 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Unhide Patches/Products </span> <br>
275 
  </tr>
275 
    </td>
276 
<%
 276 
  </tr>
277 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 277 
<%
278 
objFormComponent.FormName = "FormName"
 278 
'-- FROM START --------------------------------------------------------------------------------------------------------------
279 
objFormComponent.Action = SCRIPT_NAME
 279 
objFormComponent.FormName = "FormName"
280 
objFormComponent.OnSubmit = "ShowProgress();"
 280 
objFormComponent.Action = SCRIPT_NAME
281 
Call objFormComponent.FormStart()
 281 
objFormComponent.OnSubmit = "ShowProgress();"
282 
%>
282 
Call objFormComponent.FormStart()
283 
  <tr>
 283 
%>
284 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 284 
  <tr>
285 
      <tr>
 285 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
286 
        <td><%=ProgressBar()%>
 286 
      <tr>
287 
          <input name="btn" type="submit" class="form_btn" value="Unhide">
 287 
        <td><%=ProgressBar()%>
288 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 288 
          <input name="btn" type="submit" class="form_btn" value="Unhide">
289 
        <td align="left">&nbsp;        </td>
 289 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
290 
      </tr>
 290 
        <td align="left">&nbsp;        </td>
291 
    </table></td>
 291 
      </tr>
292 
  </tr>
 292 
    </table></td>
293 
  <tr>
 293 
  </tr>
294 
    <td>
 294 
  <tr>
295 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
295 
    <td>
296 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 296 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
297 
      <tr>
 297 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
298 
        <td width="100%" valign="top" nowrap class="body_txt">
 298 
      <tr>
299 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
299 
        <td width="100%" valign="top" nowrap class="body_txt">
300 
		  <!--#include file="messages/_msg_inline.asp"-->
 300 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
301 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 301 
		  <!--#include file="messages/_msg_inline.asp"-->
302 
		  <%
 302 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
303 
		  If objFormCollector.Item("rtag_id_fk") = "" Then
 303 
		  <%
304 
			Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
 304 
		  If objFormCollector.Item("rtag_id_fk") = "" Then
305 
		  End If
 305 
			Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
306 
		  %>
 306 
		  End If
307 
		  <!-- UNHIDE PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 307 
		  %>
308 
		  Select Products and click Unhide.
 308 
		  <!-- UNHIDE PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
309 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 309 
		  Select Products and click Unhide.
310 
            <tr>
 310 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
311 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Unhide</div></td>
311 
            <tr>
312 
              <td width="40%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
 312 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Unhide</div></td>
313 
              <td width="20%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
 313 
              <td width="40%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
314 
 
 314 
              <td width="20%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
315 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left"><img src="images/spacer.gif" width="1" height="18" align="absmiddle">Latest</div>                <div align="left"></div></td>
 315 
 
316 
              </tr>
316 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left"><img src="images/spacer.gif" width="1" height="18" align="absmiddle">Latest</div>                <div align="left"></div></td>
317 
			<%
 317 
              </tr>
318 
			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
318 
			<%
319 
			OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
319 
			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
320
320 
			OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
321 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHideProducts.sql"), ORADYN_DEFAULT )
 321
322 
			currPkg_id = 0
 322 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHideProducts.sql"), ORADYN_DEFAULT )
323 
			%>
 323 
			currPkg_id = 0
324 
			<%If rsQry.RecordCount < 1 Then%>
 324 
			%>
325 
			<tr>
 325 
			<%If rsQry.RecordCount < 1 Then%>
326 
              <td colspan="5" class="body_row">No Products to Update.                 </td>
 326 
			<tr>
327 
            </tr>
 327 
              <td colspan="5" class="body_row">No Products to Update.                 </td>
328 
			<%End If%>
 328 
            </tr>
329 
			<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
 329 
			<%End If%>
330 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
 330 
			<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
331 
            <tr>
 331 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
332 
			  <td nowrap><div align="left"><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%>                                                                     				   </span></div></td>
 332 
            <tr>
333 
              <td nowrap></td>
 333 
			  <td nowrap><div align="left"><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%>                                                                     				   </span></div></td>
334 
              <td nowrap class="body_row">&nbsp;</td>
 334 
              <td nowrap></td>
335 
              <td nowrap class="body_row"><div align="center"></div></td>
 335 
              <td nowrap class="body_row">&nbsp;</td>
336 
              <td nowrap class="body_row"></td>
 336 
              <td nowrap class="body_row"><div align="center"></div></td>
337 
              </tr>
 337 
              <td nowrap class="body_row"></td>
338 
			<tr>
 338 
              </tr>
339 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 339 
			<tr>
340 
            </tr>
 340 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
341 
			<%currPkg_id = rsQry("pkg_id")%>
 341 
            </tr>
342 
			<%End If%>
 342 
			<%currPkg_id = rsQry("pkg_id")%>
343 
            <%key = rsQry("os_id") & "_" & rsQry("prod_id")%>
 343 
			<%End If%>
344 
            <tr>
 344 
            <%key = rsQry("os_id") & "_" & rsQry("prod_id")%>
345 
              <%If objList.Exists(key) Then%>
345 
            <tr>
346 
              <td></td>
 346 
              <%If objList.Exists(key) Then%>
347 
              <%Else%>
 347 
              <td></td>
348 
              <td align="center" nowrap><input type="checkbox" name="unhide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
 348 
              <%Else%>
349 
              <%End If%>
 349 
              <td align="center" nowrap><input type="checkbox" name="unhide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
350 
              <%objList.Item(key) = objList.Item(key) + 1 %>
 350 
              <%End If%>
351 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
 351 
              <%objList.Item(key) = objList.Item(key) + 1 %>
352 
              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
 352 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
353 
              <td nowrap class="body_row"><span class="body_txtr"><%=rsQry("rm_latest_version")%></span></td>
 353 
              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
354 
              </tr>
 354 
              <td nowrap class="body_row"><span class="body_txtr"><%=rsQry("rm_latest_version")%></span></td>
355 
			<tr>
 355 
              </tr>
356 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 356 
			<tr>
357 
            </tr>
357 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
358 
            <%rsQry.MoveNext
 358 
            </tr>
359 
			Wend
 359 
            <%rsQry.MoveNext
360 
			%>
 360 
			Wend
361
361 
			%>
362 
		  <!-- UNHIDE PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 362
363 
		    <%
 363 
		  <!-- UNHIDE PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
364 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHidePatches.sql"), ORADYN_DEFAULT )
 364 
		    <%
365 
			currPkg_id = 0
 365 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHidePatches.sql"), ORADYN_DEFAULT )
366 
			%>
 366 
			currPkg_id = 0
367
367 
			%>
368 
			<%If rsQry.RecordCount > 0 Then%>
 368
369 
		    <tr>
 369 
			<%If rsQry.RecordCount > 0 Then%>
370 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Unhide</div></td>
 370 
		    <tr>
371 
              <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
 371 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Unhide</div></td>
372 
			  <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
 372 
              <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
373 
 
 373 
			  <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
374 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left">Comments<img src="images/spacer.gif" width="1" height="18" align="absmiddle"></div>                </td>
 374 
 
375 
              </tr>
 375 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left">Comments<img src="images/spacer.gif" width="1" height="18" align="absmiddle"></div>                </td>
376
376 
              </tr>
377 
			<%
 377
378 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
 378 
			<%
379 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
 379 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
380 
            <tr>
 380 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
381 
			  <td colspan="2" nowrap><div align="left"><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%></span></div></td>
 381 
            <tr>
382 
              <td nowrap class="body_row">&nbsp;</td>
 382 
			  <td colspan="2" nowrap><div align="left"><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%></span></div></td>
383 
              <td nowrap class="body_row"><div align="center"></div></td>
 383 
              <td nowrap class="body_row">&nbsp;</td>
384 
              <td nowrap class="body_row"></td>
 384 
              <td nowrap class="body_row"><div align="center"></div></td>
385 
              </tr>
 385 
              <td nowrap class="body_row"></td>
386 
			<tr>
 386 
              </tr>
387 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 387 
			<tr>
388 
            </tr>
 388 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
389 
			<%currPkg_id = rsQry("pkg_id")%>
 389 
            </tr>
390 
			<%End If%>
 390 
			<%currPkg_id = rsQry("pkg_id")%>
391
391 
			<%End If%>
392 
            <tr>
 392
393 
              <td align="center" nowrap><input type="checkbox" name="unhide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
 393 
            <tr>
394 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
 394 
              <td align="center" nowrap><input type="checkbox" name="unhide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
395 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
 395 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
396 
              <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
 396 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
397 
              </tr>
 397 
              <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
398 
			<tr>
 398 
              </tr>
399 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 399 
			<tr>
400 
            </tr>
400 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
401 
            <%rsQry.MoveNext
 401 
            </tr>
402 
			Wend
 402 
            <%rsQry.MoveNext
403 
			%>
 403 
			Wend
404
404 
			%>
405 
			<%End If%>
 405
406
406 
			<%End If%>
407 
			<tr>
 407
408 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
 408 
			<tr>
409 
            </tr>
 409 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
410 
          </table>
 410 
            </tr>
411
411 
          </table>
412
412
413 
		  <%
 413
414 
		  OraDatabase.Parameters.Remove "RTAG_ID"
 414 
		  <%
415 
		  OraDatabase.Parameters.Remove "BOM_ID"
 415 
		  OraDatabase.Parameters.Remove "RTAG_ID"
416 
		  rsQry.Close
 416 
		  OraDatabase.Parameters.Remove "BOM_ID"
417 
		  Set rsQry = Nothing
 417 
		  rsQry.Close
418 
		  %>		  </td>
 418 
		  Set rsQry = Nothing
419 
        </tr>
 419 
		  %>		  </td>
420 
    </table>
 420 
        </tr>
421 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 421 
    </table>
422 
    </td>
 422 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
423 
  </tr>
 423 
    </td>
424 
  <%=objPMod.ComposeHiddenTags()%>
 424 
  </tr>
425 
  <input type="hidden" name="action" value="true">
 425 
  <%=objPMod.ComposeHiddenTags()%>
426 
<%
 426 
  <input type="hidden" name="action" value="true">
427 
Call objFormComponent.FormEnd()
 427 
<%
428 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 428 
Call objFormComponent.FormEnd()
429 
%>
 429 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
430 
</table>
 430 
%>
431 
</body>
 431 
</table>
432 
</html>
 432 
</body>
433 
<%
 433 
</html>
434 
'------------ RUN AFTER PAGE RENDER -----------
 434 
<%
435 
'----------------------------------------------
 435 
'------------ RUN AFTER PAGE RENDER -----------
436 
%><!--#include file="common/globals_destructor.asp"-->
 436 
'----------------------------------------------
- 
 
 437 
%><!--#include file="common/globals_destructor.asp"-->