Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
13 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wSyncProducts                  |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
29 jtweddle 13 
<%
14 
'To enable the script timeout to 10 mins
15 
Server.ScriptTimeout=360
16 
%>
13 rsolanki 17 
<!--#include file="common/globals.asp"-->
18 
<!--#include file="common/config.asp"-->
19 
<!--#include file="common/common_subs.asp"-->
20 
<!--#include file="common/_popup_window_common.asp"-->
21 
<%
22 
'------------ ACCESS CONTROL ------------------
23 
%>
24 
<!--#include file="_access_control_general.asp"-->
25 
<%
26 
'------------ VARIABLE DEFINITION -------------
27 
Dim rsQry
28 
Dim aProducts
29 
Dim numOfRows
30 
Dim rowNum
31 
Dim objFormCollector
32 
Dim currPkg_id
29 jtweddle 33 
Dim	Query_String
13 rsolanki 34 
'------------ CONSTANTS DECLARATION -----------
35 
'------------ VARIABLE INIT -------------------
36 
parBom_id = Request("bom_id")
37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
38 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
40 
%>
41 
<%
42 
'----------------------------------------------------------------------------------------------------------------------------------
43 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
44 
	Dim rsQry, query
45 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
46 
 
47 
	query = _
48 
	"  SELECT rt.RTAG_ID, "&_
29 jtweddle 49 
	"	      rt.RTAG_NAME, "&_
50 
	"	      rt.PRODUCT_STATE_USED "&_
13 rsolanki 51 
	"	 FROM RELEASE_TAGS rt,"&_
52 
	"	 	   BOMS bo"&_
53 
	"	WHERE bo.RTAG_ID_FK = rt.RTAG_ID"&_
54 
	"	  AND bo.BOM_ID = :BOM_ID"
55 
 
56 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
57 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
58 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
59 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
29 jtweddle 60 
		outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
13 rsolanki 61 
	End If
62 
 
63 
 
64 
	OraDatabase.Parameters.Remove "BOM_ID"
65 
 
66 
	rsQry.Close
67 
	Set rsQry = Nothing
68 
End Sub
69 
'----------------------------------------------------------------------------------------------------------------------------------
70 
Sub UpdateProducts()
71 
	Dim aDiffList, numOfRows, rowNum, OraParameter
72 
	Const os_id_column = 2
73 
	Const old_prod_id_column = 1
74 
 
29 jtweddle 75 
	'/* Get Latest	From Release Manager */
13 rsolanki 76 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
77 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
78 
 
29 jtweddle 79 
	Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
80 
	If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
81 
		Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
82 
	End	If
13 rsolanki 83 
 
29 jtweddle 84 
	Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
13 rsolanki 85 
 
29 jtweddle 86 
 
13 rsolanki 87 
	'-- Get Rows
88 
	If rsQry.RecordCount > 0 Then
89 
		aDiffList = rsQry.GetRows()
90 
 
91 
	Else
92 
		'-- No differencses with Release Manager, hence exit
93 
		OraDatabase.Parameters.Remove "BOM_ID"
94 
		OraDatabase.Parameters.Remove "RTAG_ID"
95 
		Exit Sub
96 
 
97 
	End If
98 
 
29 jtweddle 99 
	' Get the project id so we can filter out PopulateSBOMField() for SSW later.
100 
	Dim rsProjId, proj_id
101 
	Set rsProjId = OraDatabase.DbCreateDynaset("SELECT proj_id FROM branches br, boms b WHERE br.branch_id = b.branch_id AND b.bom_id = " & parBom_id, cint(0))
102 
	proj_id = rsProjId("proj_id")
103 
	rsProjId.Close()
104 
	Set rsProjId = nothing
13 rsolanki 105 
 
106 
	'/* Update Versions */
29 jtweddle 107 
	'On Error Resume Next
13 rsolanki 108 
 
109 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
110 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
111 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
112 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
113 
 
114 
	Set OraParameter = OraDatabase.Parameters
115 
 
116 
 
117 
 
118 
	objEH.TryORA ( OraSession )
119 
 
120 
	numOfRows = UBound( aDiffList, 2 )
121 
 
122 
	For rowNum = 0 To numOfRows
123 
 
124 
		If Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
125 
			OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
126 
			OraParameter("NEW_PROD_ID").Value = Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
127 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
128 
 
29 jtweddle 129 
'******************************************************************************
130 
' This is causing problems for SSW, VTK and SEA and they don't use it, so it
131 
' has been disabled for those projects until a fix is found.
132 
'******************************************************************************
133 
			If proj_id <> 421 AND proj_id <> 361 AND proj_id <> 122 AND proj_id <> 164 Then
134 
				Call PopulateSBOMField(parBom_id, Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ), NULL, NULL )
135 
			End If
136 
 
137 
			'Response.Write("<script>alert('" &_
138 
			'							 "OLD_PROD_ID=" & OraParameter("OLD_PROD_ID").Value & "\n" &_
139 
			'							 "NEW_PROD_ID=" & OraParameter("NEW_PROD_ID").Value & "\n" &_
140 
			'							 "OS_ID=" & OraParameter("OS_ID").Value & "\n" &_
141 
			'							 "USER_ID=" & OraParameter("USER_ID").Value & "\n" &_
142 
			'							 "rtag_id_fk=" & objFormCollector.Item("rtag_id_fk") & "\n" &_
143 
			'							 "update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) &_
144 
			'							 "')</script>")
145 
 
13 rsolanki 146 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Replace_Product ( :OLD_PROD_ID, :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
147 
		End If
148 
 
149 
	Next
150 
 
151 
 
152 
	'--- Log Action ---
153 
	'objEH.LogAction  _
154 
	'objAccessControl.UserId, _
155 
	'enumAT_EVENT_COMMENT, _
156 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
157 
	'SCRIPT_NAME, _
158 
	'"Updated Products with new versions.", _
159 
	'OraDatabase
160 
 
161 
 
162 
	objEH.CatchORA ( OraSession )
163 
 
164 
	OraDatabase.Parameters.Remove "BOM_ID"
165 
	OraDatabase.Parameters.Remove "RTAG_ID"
166 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
167 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
168 
	OraDatabase.Parameters.Remove "OS_ID"
169 
	OraDatabase.Parameters.Remove "USER_ID"
170 
End Sub
171 
'----------------------------------------------------------------------------------------------------------------------------------
172 
Sub AddPatches()
173 
	Dim aDiffList, numOfRows, rowNum, OraParameter
174 
	Const os_id_column = 2
175 
	Const prod_id_column = 1
176 
 
177 
	'/* Get Lates Release Manager */
178 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
179 
 
180 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
181 
 
182 
 
183 
	'-- Get Rows
184 
	If rsQry.RecordCount > 0 Then
185 
		aDiffList = rsQry.GetRows()
186 
 
187 
	Else
29 jtweddle 188 
		'-- No differences with Release Manager, hence exit
23 rsolanki 189 
		OraDatabase.Parameters.Remove "BOM_ID"
13 rsolanki 190 
		Exit Sub
191 
	End If
192 
 
193 
 
194 
 
195 
	'/* Update Versions */
196 
	On Error Resume Next
197 
 
198 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
199 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
200 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
201 
 
202 
	Set OraParameter = OraDatabase.Parameters
203 
 
204 
 
205 
 
206 
	objEH.TryORA ( OraSession )
207 
 
208 
	numOfRows = UBound( aDiffList, 2 )
209 
 
210 
	For rowNum = 0 To numOfRows
211 
 
212 
		If Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
213 
			OraParameter("NEW_PROD_ID").Value = Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
214 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
215 
 
216 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Add_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
217 
		End If
218 
 
219 
	Next
220 
 
221 
 
222 
	objEH.CatchORA ( OraSession )
223 
 
224 
	OraDatabase.Parameters.Remove "BOM_ID"
225 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
226 
	OraDatabase.Parameters.Remove "OS_ID"
227 
	OraDatabase.Parameters.Remove "USER_ID"
228 
End Sub
229 
'----------------------------------------------------------------------------------------------------------------------------------
23 rsolanki 230 
Sub HideProducts()
231 
	Dim aDiffList, numOfRows, rowNum, OraParameter
232 
	Const os_id_column = 2
233 
	Const old_prod_id_column = 1
234 
 
29 jtweddle 235 
	'/* Get Latest from Release Manager */
23 rsolanki 236 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
237 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
238 
 
29 jtweddle 239 
	Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
240 
	If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
241 
		Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE IN (3, 5) */", " AND rc.PRODUCT_STATE IN (3, 5)")
242 
	End	If
23 rsolanki 243 
 
29 jtweddle 244 
	Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
23 rsolanki 245 
 
29 jtweddle 246 
 
23 rsolanki 247 
	'-- Get Rows
248 
	If rsQry.RecordCount > 0 Then
249 
		aDiffList = rsQry.GetRows()
250 
 
251 
	Else
29 jtweddle 252 
		'-- No differences with Release Manager, hence exit
23 rsolanki 253 
		OraDatabase.Parameters.Remove "BOM_ID"
254 
		OraDatabase.Parameters.Remove "RTAG_ID"
255 
		Exit Sub
256 
 
257 
	End If
258 
 
259 
 
260 
 
29 jtweddle 261 
	'/* Hide Versions */
23 rsolanki 262 
	On Error Resume Next
263 
 
264 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
265 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
266 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
267 
 
268 
	Set OraParameter = OraDatabase.Parameters
269 
 
270 
 
271 
 
272 
	objEH.TryORA ( OraSession )
273 
 
274 
	numOfRows = UBound( aDiffList, 2 )
275 
 
276 
	For rowNum = 0 To numOfRows
277 
 
278 
		If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
279 
			OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
280 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
281 
 
282 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
283 
		End If
284 
 
285 
	Next
286 
 
287 
 
288 
	'--- Log Action ---
289 
	'objEH.LogAction  _
290 
	'objAccessControl.UserId, _
291 
	'enumAT_EVENT_COMMENT, _
292 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
293 
	'SCRIPT_NAME, _
294 
	'"Updated Products with new versions.", _
295 
	'OraDatabase
296 
 
297 
 
298 
	objEH.CatchORA ( OraSession )
299 
 
300 
	OraDatabase.Parameters.Remove "BOM_ID"
301 
	OraDatabase.Parameters.Remove "RTAG_ID"
302 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
303 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
304 
	OraDatabase.Parameters.Remove "OS_ID"
305 
	OraDatabase.Parameters.Remove "USER_ID"
306 
End Sub
307 
'----------------------------------------------------------------------------------------------------------------------------------
308 
Sub HidePatches()
309 
	Dim aDiffList, numOfRows, rowNum, OraParameter
310 
	Const os_id_column = 2
311 
	Const prod_id_column = 1
312 
 
29 jtweddle 313 
	'/* Get Latest from Release Manager */
23 rsolanki 314 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
315 
 
316 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
317 
 
318 
 
319 
	'-- Get Rows
320 
	If rsQry.RecordCount > 0 Then
321 
		aDiffList = rsQry.GetRows()
322 
 
323 
	Else
324 
		'-- No differencses with Release Manager, hence exit
325 
		OraDatabase.Parameters.Remove "BOM_ID"
326 
		Exit Sub
327 
	End If
328 
 
329 
 
330 
 
331 
	'/* Hide Versions */
332 
	On Error Resume Next
333 
 
334 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
335 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
336 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
337 
 
338 
	Set OraParameter = OraDatabase.Parameters
339 
 
340 
 
341 
 
342 
	objEH.TryORA ( OraSession )
343 
 
344 
	numOfRows = UBound( aDiffList, 2 )
345 
 
346 
 
347 
	For rowNum = 0 To numOfRows
348 
 
349 
		If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
350 
			OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
351 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
352 
 
353 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
354 
		End If
355 
 
356 
	Next
357 
 
358 
 
359 
	objEH.CatchORA ( OraSession )
360 
 
361 
	OraDatabase.Parameters.Remove "BOM_ID"
362 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
363 
	OraDatabase.Parameters.Remove "OS_ID"
364 
	OraDatabase.Parameters.Remove "USER_ID"
365 
End Sub
366 
'----------------------------------------------------------------------------------------------------------------------------------
13 rsolanki 367 
%>
368 
<%
369 
'------------ RUN BEFORE PAGE RENDER ----------
370 
Call GetFormDetails ( parBom_id, objFormCollector )
371 
 
372 
If Request("action") <> "" Then
373 
	' --- Form is Valid ---
374 
	Call UpdateProducts()
375 
 
376 
	Call AddPatches()
377 
 
23 rsolanki 378 
	Call HideProducts()
379 
 
380 
	Call HidePatches()
381 
 
13 rsolanki 382 
	If objEH.Finally Then
29 jtweddle 383 
		Call OpenInParentWindow ("Bom_Home.asp?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
13 rsolanki 384 
		Call CloseWindow()
385 
	End If
386 
End If
387 
 
388 
'----------------------------------------------
389 
%>
390 
 
391 
 
392 
<html>
393 
<head>
394 
<SCRIPT LANGUAGE="JavaScript">
395 
<!-- Begin
396 
var checkflag = "false";
397 
function check(field) {
398 
if (checkflag == "false") {
399 
  for (i = 0; i < field.length; i++) {
400 
  field[i].checked = true;}
401 
  checkflag = "true";
402 
  return "Uncheck all"; }
403 
else {
404 
  for (i = 0; i < field.length; i++) {
405 
  field[i].checked = false; }
406 
  checkflag = "false";
407 
  return "Check all"; }
408 
}
409 
//  End -->
410 
</script>
23 rsolanki 411 
<script language="javascript">
412 
function checkAllHide()
413 
{
414 
  var args = arguments;
415 
  start_point:
416 
  for (var i=0;i<document.forms[0].elements.length;i++)
417 
  {
13 rsolanki 418 
 
23 rsolanki 419 
     found = false;
420 
     var e=document.forms[0].elements[i];
421 
     if ((e.name != 'checkall') && (e.type=='checkbox'))
422 
     {
423 
        for (var j = 0; j < args.length; j++)
424 
           if (args[j] == e.name)
29 jtweddle 425 
				{e.checked=document.forms[0].checkallhide.checked;}
23 rsolanki 426 
    }
427 
  }
428 
}
429 
function checkAllAdd()
29 jtweddle 430 
{
23 rsolanki 431 
  var args = arguments;
432 
  start_point:
433 
  for (var i=0;i<document.forms[0].elements.length;i++)
434 
  {
29 jtweddle 435 
 
23 rsolanki 436 
     found = false;
437 
     var e=document.forms[0].elements[i];
29 jtweddle 438 
 
23 rsolanki 439 
     if ((e.name != 'checkall') && (e.type=='checkbox'))
440 
     {
441 
        for (var j = 0; j < args.length; j++)
442 
           if (args[j] == e.name)
29 jtweddle 443 
           		{e.checked=document.forms[0].checkalladd.checked;}
23 rsolanki 444 
    }
445 
  }
446 
}
447 
</script>
448 
 
449 
 
13 rsolanki 450 
<title>Deployment Manager</title>
451 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
452 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
453 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
454 
<script language="JavaScript" src="scripts/common.js"></script>
455 
<style type="text/css">
456 
<!--
457 
.style8 {font-size: 12px}
458 
-->
459 
</style>
460 
</head>
461 
 
462 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
463 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
464 
  <tr>
465 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Update Products </span> <br>
466 
    Update Products, selecting the latest from "Release Manager".
467 
    </td>
468 
  </tr>
469 
<%
470 
'-- FROM START --------------------------------------------------------------------------------------------------------------
471 
objFormComponent.FormName = "FormName"
472 
objFormComponent.Action = SCRIPT_NAME
473 
objFormComponent.OnSubmit = "ShowProgress();"
474 
Call objFormComponent.FormStart()
475 
%>
476 
  <tr>
477 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
478 
      <tr>
479 
        <td><%=ProgressBar()%>
480 
          <input name="btn" type="submit" class="form_btn" value="Update">
481 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
482 
        <td align="left">&nbsp;        </td>
483 
      </tr>
484 
    </table></td>
485 
  </tr>
486 
  <tr>
487 
    <td>
488 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
489 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
490 
      <tr>
491 
        <td width="100%" valign="top" nowrap class="body_txt">
492 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
493 
		  <!--#include file="messages/_msg_inline.asp"-->
494 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
495 
		  <%
496 
		  If objFormCollector.Item("rtag_id_fk") = "" Then
497 
			Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
498 
		  End If
499 
		  %>
500 
		  <!-- UPDATE PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
501 
		  Select Products and click Update.
502 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
503 
            <tr>
504 
			  <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Update</td>
505 
              <td width="40%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
506 
              <td width="20%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
23 rsolanki 507 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
13 rsolanki 508 
              <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>
23 rsolanki 509 
              </tr>
13 rsolanki 510 
			<%
511 
			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
512 
			OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
513 
 
29 jtweddle 514 
			Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
515 
			If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
516 
				Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
517 
			End	If
518 
 
519 
			Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
13 rsolanki 520 
			currPkg_id = 0
521 
			%>
522 
			<%If rsQry.RecordCount < 1 Then%>
523 
			<tr>
23 rsolanki 524 
              <td colspan="5" class="body_row">No Products to Update.                 </td>
13 rsolanki 525 
            </tr>
526 
			<%End If%>
527 
			<%
528 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
23 rsolanki 529 
			Dim rsTemp
530 
 
531 
			Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
532 
 
533 
			If rsTemp.RecordCount = 0 Then
534 
 
535 
 
13 rsolanki 536 
			%>
537 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
538 
            <tr>
539 
			  <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>
540 
              <td nowrap></td>
541 
              <td nowrap class="body_row">&nbsp;</td>
23 rsolanki 542 
              <td nowrap class="body_row"><div align="center"></div></td>
13 rsolanki 543 
              <td nowrap class="body_row"></td>
544 
              </tr>
545 
			<tr>
23 rsolanki 546 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 547 
            </tr>
548 
			<%currPkg_id = rsQry("pkg_id")%>
549 
			<%End If%>
550 
 
551 
            <tr>
552 
              <td align="center" nowrap><input type="checkbox" name="update_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("latest_prod_id")%>"> </td>
553 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
554 
              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
23 rsolanki 555 
			  <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
13 rsolanki 556 
              <td nowrap class="body_row"><span class="body_txtr"><%=rsQry("rm_latest_version")%></span></td>
557 
              </tr>
558 
			<tr>
23 rsolanki 559 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 560 
            </tr>
23 rsolanki 561 
			<%
562 
			End If
13 rsolanki 563 
 
23 rsolanki 564 
			rsTemp.Close()
565 
			Set rsTemp = nothing
566 
 
567 
			%>
13 rsolanki 568 
            <%rsQry.MoveNext
569 
			Wend
570 
			%>
571 
 
572 
		  <!-- NEW PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
573 
		    <%
23 rsolanki 574 
			Dim strAdd, rsAdd, strHide
13 rsolanki 575 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
23 rsolanki 576 
			Set rsAdd = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
13 rsolanki 577 
			currPkg_id = 0
578 
			%>
579 
 
23 rsolanki 580 
			<%If rsQry.RecordCount > 0 Then
581 
				While (NOT rsAdd.BOF) AND (NOT rsAdd.EOF)
582 
				Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsAdd("os_id") &" AND PROD_ID="& rsAdd("prod_id"), ORADYN_DEFAULT )
583 
 
584 
				If rsTemp.RecordCount = 0 Then
585 
					strAdd = strAdd + "'add_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
586 
					strHide = strHide + "'hide_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
587 
				End If
588 
					rsAdd.MoveNext
589 
				Wend
590 
 
591 
				rsAdd.Close()
592 
				rsTemp.Close()
593 
				Set rsAdd = nothing
594 
				Set rsTemp = nothing
595 
 
596 
				If NOT IsEmpty(strAdd) Then
597 
					strAdd = Mid(strAdd, 1, Len(strAdd)-1) + ", 'checkalladd'"
598 
				End If
599 
				If NOT IsEmpty(strHide) Then
600 
					strHide = Mid(strHide, 1, Len(strHide)-1) + ", 'checkallhide'"
601 
				End If
602 
			%>
603 
 
13 rsolanki 604 
		    <tr>
605 
			  <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Add</td>
606 
              <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
607 
			  <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
23 rsolanki 608 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
13 rsolanki 609 
              <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>
610 
              </tr>
23 rsolanki 611 
			  <%If NOT IsEmpty(strAdd) Then%>
612 
			  <tr>
29 jtweddle 613 
 			   <td align="center" nowrap><INPUT type=checkbox name="checkalladd" value="Check All" onClick="checkAllAdd(<%=strAdd%>);"></td>
23 rsolanki 614 
			   <td nowrap class="body_row">&nbsp;</td>
615 
			   <td nowrap class="body_row">&nbsp;</td>
29 jtweddle 616 
 			   <td align="center" nowrap><INPUT type=checkbox name="checkallhide" value="Check All" onClick="checkAllHide(<%=strHide%>);"></td>
23 rsolanki 617 
			   <td nowrap class="body_row">&nbsp;</td>
618 
			  </tr>
619 
			<%End If%>
13 rsolanki 620 
			<%
621 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
23 rsolanki 622 
 
623 
 
624 
			Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
625 
 
626 
			If rsTemp.RecordCount = 0 Then
627 
 
13 rsolanki 628 
			%>
629 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
630 
            <tr>
631 
			  <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>
632 
              <td nowrap class="body_row">&nbsp;</td>
23 rsolanki 633 
              <td nowrap class="body_row"><div align="center"></div></td>
13 rsolanki 634 
              <td nowrap class="body_row"></td>
635 
              </tr>
636 
			<tr>
23 rsolanki 637 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 638 
            </tr>
639 
			<%currPkg_id = rsQry("pkg_id")%>
640 
			<%End If%>
641 
 
642 
            <tr>
643 
              <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
644 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
645 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
23 rsolanki 646 
              <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
13 rsolanki 647 
              <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
648 
              </tr>
649 
			<tr>
23 rsolanki 650 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 651 
            </tr>
23 rsolanki 652 
			<%
653 
			End If
13 rsolanki 654 
 
23 rsolanki 655 
			rsTemp.Close()
656 
			Set rsTemp = nothing
657 
 
658 
			%>
659 
 
13 rsolanki 660 
            <%rsQry.MoveNext
661 
			Wend
662 
			%>
663 
 
664 
			<%End If%>
665 
 
666 
			<tr>
23 rsolanki 667 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
13 rsolanki 668 
            </tr>
669 
          </table>
670 
 
671 
 
672 
		  <%
673 
		  OraDatabase.Parameters.Remove "RTAG_ID"
674 
		  OraDatabase.Parameters.Remove "BOM_ID"
675 
		  rsQry.Close
676 
		  Set rsQry = Nothing
677 
		  %>		  </td>
678 
        </tr>
679 
    </table>
680 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
681 
    </td>
682 
  </tr>
683 
  <%=objPMod.ComposeHiddenTags()%>
684 
  <input type="hidden" name="action" value="true">
685 
<%
686 
Call objFormComponent.FormEnd()
687 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
688 
%>
689 
</table>
690 
</body>
691 
</html>
692 
<%
693 
'------------ RUN AFTER PAGE RENDER -----------
694 
'----------------------------------------------
695 
%><!--#include file="common/globals_destructor.asp"-->