WebSVN – DevTools – Diff – /ManagerSuite/Deployment_Manager/trunk/wSyncProducts.asp

 %>
 <%
 Option explicit
 Response.Expires = 0
 %>
+<%
+'To enable the script timeout to 10 mins
+Server.ScriptTimeout=360
+%>
 <!--#include file="common/globals.asp"-->
 <!--#include file="common/config.asp"-->
 <!--#include file="common/common_subs.asp"-->
 <!--#include file="common/_popup_window_common.asp"-->
 <%
 Dim aProducts
 Dim numOfRows
 Dim rowNum
 Dim objFormCollector
 Dim currPkg_id
+Dim	Query_String
 '------------ CONSTANTS DECLARATION -----------
 '------------ VARIABLE INIT -------------------
 parBom_id = Request("bom_id")
 Set objFormCollector = CreateObject("Scripting.Dictionary")
 '------------ CONDITIONS ----------------------
 	Dim rsQry, query
 	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
 	query = _
 	"  SELECT rt.RTAG_ID, "&_
-	"	      rt.RTAG_NAME "&_
+	"	      rt.RTAG_NAME, "&_
+	"	      rt.PRODUCT_STATE_USED "&_
 	"	 FROM RELEASE_TAGS rt,"&_
 	"	 	   BOMS bo"&_
 	"	WHERE bo.RTAG_ID_FK = rt.RTAG_ID"&_
 	"	  AND bo.BOM_ID = :BOM_ID"
 	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
 		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
 		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
+		outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
 	End If
 	OraDatabase.Parameters.Remove "BOM_ID"
 Sub UpdateProducts()
 	Dim aDiffList, numOfRows, rowNum, OraParameter
 	Const os_id_column = 2
 	Const old_prod_id_column = 1
-	'/* Get Lates Release Manager */
+	'/* Get Latest	From Release Manager */
 	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
+	Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
+	If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
+		Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
+	End	If
-	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
+	Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
 	'-- Get Rows
 	If rsQry.RecordCount > 0 Then
 		aDiffList = rsQry.GetRows()
 		OraDatabase.Parameters.Remove "RTAG_ID"
 		Exit Sub
 	End If
+	' Get the project id so we can filter out PopulateSBOMField() for SSW later.
+	Dim rsProjId, proj_id
+	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))
+	proj_id = rsProjId("proj_id")
+	rsProjId.Close()
+	Set rsProjId = nothing
 	'/* Update Versions */
-	On Error Resume Next
+	'On Error Resume Next
 	OraDatabase.Parameters.Add "OLD_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 		If Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
 			OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
 			OraParameter("NEW_PROD_ID").Value = Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
 			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
+'******************************************************************************
+' This is causing problems for SSW, VTK and SEA and they don't use it, so it
+' has been disabled for those projects until a fix is found.
+'******************************************************************************
+			If proj_id <> 421 AND proj_id <> 361 AND proj_id <> 122 AND proj_id <> 164 Then
+				Call PopulateSBOMField(parBom_id, Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ), NULL, NULL )
+			End If
+			'Response.Write("<script>alert('" &_
+			'							 "OLD_PROD_ID=" & OraParameter("OLD_PROD_ID").Value & "\n" &_
+			'							 "NEW_PROD_ID=" & OraParameter("NEW_PROD_ID").Value & "\n" &_
+			'							 "OS_ID=" & OraParameter("OS_ID").Value & "\n" &_
+			'							 "USER_ID=" & OraParameter("USER_ID").Value & "\n" &_
+			'							 "rtag_id_fk=" & objFormCollector.Item("rtag_id_fk") & "\n" &_
+			'							 "update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) &_
+			'							 "')</script>")
 			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Replace_Product ( :OLD_PROD_ID, :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
 		End If
 	Next
 	'-- Get Rows
 	If rsQry.RecordCount > 0 Then
 		aDiffList = rsQry.GetRows()
 	Else
-		'-- No differencses with Release Manager, hence exit
+		'-- No differences with Release Manager, hence exit
 		OraDatabase.Parameters.Remove "BOM_ID"
 		Exit Sub
 	End If
 Sub HideProducts()
 	Dim aDiffList, numOfRows, rowNum, OraParameter
 	Const os_id_column = 2
 	Const old_prod_id_column = 1
-	'/* Get Lates Release Manager */
+	'/* Get Latest from Release Manager */
 	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
+	Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
+	If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
+		Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE IN (3, 5) */", " AND rc.PRODUCT_STATE IN (3, 5)")
+	End	If
-	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
+	Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
 	'-- Get Rows
 	If rsQry.RecordCount > 0 Then
 		aDiffList = rsQry.GetRows()
 	Else
-		'-- No differencses with Release Manager, hence exit
+		'-- No differences with Release Manager, hence exit
 		OraDatabase.Parameters.Remove "BOM_ID"
 		OraDatabase.Parameters.Remove "RTAG_ID"
 		Exit Sub
 	End If
-	'/* Update Versions */
+	'/* Hide Versions */
 	On Error Resume Next
 	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 Sub HidePatches()
 	Dim aDiffList, numOfRows, rowNum, OraParameter
 	Const os_id_column = 2
 	Const prod_id_column = 1
-	'/* Get Lates Release Manager */
+	'/* Get Latest from Release Manager */
 	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
 	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
 	Call HideProducts()
 	Call HidePatches()
 	If objEH.Finally Then
-		Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
+		Call OpenInParentWindow ("Bom_Home.asp?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 		Call CloseWindow()
 	End If
 End If
 '----------------------------------------------
      var e=document.forms[0].elements[i];
      if ((e.name != 'checkall') && (e.type=='checkbox'))
+     {
         for (var j = 0; j < args.length; j++)
            if (args[j] == e.name)
-             continue start_point;
-       e.checked=document.forms[0].checkallhide.checked;
+				{e.checked=document.forms[0].checkallhide.checked;}
+    }
+  }
+}
 function checkAllAdd()
 {
   var args = arguments;
   start_point:
   for (var i=0;i<document.forms[0].elements.length;i++)
+  {
      found = false;
      var e=document.forms[0].elements[i];
      if ((e.name != 'checkall') && (e.type=='checkbox'))
+     {
         for (var j = 0; j < args.length; j++)
            if (args[j] == e.name)
-             continue start_point;
-       e.checked=document.forms[0].checkalladd.checked;
+           		{e.checked=document.forms[0].checkalladd.checked;}
+    }
+  }
+}
 </script>
               </tr>
 			<%
 			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
 			OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
+			Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
+			If	objFormCollector.Item ("product_state_used")	=	"Y"	Then
+				Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
+			End	If
-			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
+			Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
 			currPkg_id = 0
 			%>
 			<%If rsQry.RecordCount < 1 Then%>
 			<tr>
               <td colspan="5" class="body_row">No Products to Update.                 </td>
 					strAdd = Mid(strAdd, 1, Len(strAdd)-1) + ", 'checkalladd'"
 				End If
 				If NOT IsEmpty(strHide) Then
 					strHide = Mid(strHide, 1, Len(strHide)-1) + ", 'checkallhide'"
 				End If
 			%>
 		    <tr>
 			  <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Add</td>
               <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
               <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
               <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>
               </tr>
 			  <%If NOT IsEmpty(strAdd) Then%>
 			  <tr>
-			   <td align="center" nowrap><INPUT type=checkbox name="checkalladd" value="Check All" onClick="checkAllAdd(<%=strHide%>);"></td>
+ 			   <td align="center" nowrap><INPUT type=checkbox name="checkalladd" value="Check All" onClick="checkAllAdd(<%=strAdd%>);"></td>
 			   <td nowrap class="body_row">&nbsp;</td>
 			   <td nowrap class="body_row">&nbsp;</td>
-			   <td align="center" nowrap><INPUT type=checkbox name="checkallhide" value="Check All" onClick="checkAllHide(<%=strAdd%>);"></td>
+ 			   <td align="center" nowrap><INPUT type=checkbox name="checkallhide" value="Check All" onClick="checkAllHide(<%=strHide%>);"></td>
 			   <td nowrap class="body_row">&nbsp;</td>
 			  </tr>
 			<%End If%>
 			<%
 			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/trunk/wSyncProducts.asp @ 29 – Rev 23 → 29