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

 	If rsQry.RecordCount > 0 Then
 		aDiffList = rsQry.GetRows()
 	Else
 		'-- No differencses with Release Manager, hence exit
+		OraDatabase.Parameters.Remove "BOM_ID"
 		Exit Sub
 	End If
 	OraDatabase.Parameters.Remove "NEW_PROD_ID"
 	OraDatabase.Parameters.Remove "OS_ID"
 	OraDatabase.Parameters.Remove "USER_ID"
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------
+Sub HideProducts()
+	Dim aDiffList, numOfRows, rowNum, OraParameter
+	Const os_id_column = 2
+	Const old_prod_id_column = 1
+	'/* Get Lates 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
+	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
+	'-- Get Rows
+	If rsQry.RecordCount > 0 Then
+		aDiffList = rsQry.GetRows()
+	Else
+		'-- No differencses with Release Manager, hence exit
+		OraDatabase.Parameters.Remove "BOM_ID"
+		OraDatabase.Parameters.Remove "RTAG_ID"
+		Exit Sub
+	End If
+	'/* Update 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
+	Set OraParameter = OraDatabase.Parameters
+	objEH.TryORA ( OraSession )
+	numOfRows = UBound( aDiffList, 2 )
+	For rowNum = 0 To numOfRows
+		If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
+			OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
+			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
+			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
+		End If
+	Next
+	'--- Log Action ---
+	'objEH.LogAction  _
+	'objAccessControl.UserId, _
+	'enumAT_EVENT_COMMENT, _
+	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
+	'SCRIPT_NAME, _
+	'"Updated Products with new versions.", _
+	'OraDatabase
+	objEH.CatchORA ( OraSession )
+	OraDatabase.Parameters.Remove "BOM_ID"
+	OraDatabase.Parameters.Remove "RTAG_ID"
+	OraDatabase.Parameters.Remove "OLD_PROD_ID"
+	OraDatabase.Parameters.Remove "NEW_PROD_ID"
+	OraDatabase.Parameters.Remove "OS_ID"
+	OraDatabase.Parameters.Remove "USER_ID"
+End Sub
+'----------------------------------------------------------------------------------------------------------------------------------
+Sub HidePatches()
+	Dim aDiffList, numOfRows, rowNum, OraParameter
+	Const os_id_column = 2
+	Const prod_id_column = 1
+	'/* Get Lates Release Manager */
+	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
+	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
+	'-- Get Rows
+	If rsQry.RecordCount > 0 Then
+		aDiffList = rsQry.GetRows()
+	Else
+		'-- No differencses with Release Manager, hence exit
+		OraDatabase.Parameters.Remove "BOM_ID"
+		Exit Sub
+	End If
+	'/* 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
+	Set OraParameter = OraDatabase.Parameters
+	objEH.TryORA ( OraSession )
+	numOfRows = UBound( aDiffList, 2 )
+	For rowNum = 0 To numOfRows
+		If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
+			OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
+			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
+			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
+		End If
+	Next
+	objEH.CatchORA ( OraSession )
+	OraDatabase.Parameters.Remove "BOM_ID"
+	OraDatabase.Parameters.Remove "NEW_PROD_ID"
+	OraDatabase.Parameters.Remove "OS_ID"
+	OraDatabase.Parameters.Remove "USER_ID"
+End Sub
+'----------------------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '------------ RUN BEFORE PAGE RENDER ----------
 Call GetFormDetails ( parBom_id, objFormCollector )
 	' --- Form is Valid ---
 	Call UpdateProducts()
 	Call AddPatches()
+	Call HideProducts()
+	Call HidePatches()
 	If objEH.Finally Then
 		Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 		Call CloseWindow()
 	End If
 End If
   checkflag = "false";
   return "Check all"; }
+}
 //  End -->
 </script>
+<script language="javascript">
+function checkAllHide()
+{
+  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].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;
+    }
+  }
+}
+</script>
 <title>Deployment Manager</title>
 <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
           <table width="100%"  border="0" cellspacing="3" cellpadding="0">
             <tr>
 			  <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Update</td>
               <td width="40%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
               <td width="20%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</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"><img src="images/spacer.gif" width="1" height="18" align="absmiddle">Latest</div>                <div align="left"></div></td>
               </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
 			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
 			currPkg_id = 0
 			%>
 			<%If rsQry.RecordCount < 1 Then%>
 			<tr>
-              <td colspan="4" class="body_row">No Products to Update.                 </td>
+              <td colspan="5" class="body_row">No Products to Update.                 </td>
             </tr>
 			<%End If%>
 			<%
 			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+			Dim rsTemp
+			Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
+			If rsTemp.RecordCount = 0 Then
 			%>
 			<%If currPkg_id <> rsQry("pkg_id") Then%>
             <tr>
 			  <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>
               <td nowrap></td>
               <td nowrap class="body_row">&nbsp;</td>
+              <td nowrap class="body_row"><div align="center"></div></td>
               <td nowrap class="body_row"></td>
               </tr>
 			<tr>
-              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
             </tr>
 			<%currPkg_id = rsQry("pkg_id")%>
 			<%End If%>
             <tr>
               <td align="center" nowrap><input type="checkbox" name="update_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("latest_prod_id")%>"> </td>
               <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
               <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
+			  <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
               <td nowrap class="body_row"><span class="body_txtr"><%=rsQry("rm_latest_version")%></span></td>
               </tr>
 			<tr>
-              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
             </tr>
+			<%
+			End If
+			rsTemp.Close()
+			Set rsTemp = nothing
+			%>
             <%rsQry.MoveNext
 			Wend
 			%>
 		  <!-- NEW PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 		    <%
+			Dim strAdd, rsAdd, strHide
 			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
+			Set rsAdd = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
 			currPkg_id = 0
 			%>
-			<%If rsQry.RecordCount > 0 Then%>
+			<%If rsQry.RecordCount > 0 Then
+				While (NOT rsAdd.BOF) AND (NOT rsAdd.EOF)
+				Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsAdd("os_id") &" AND PROD_ID="& rsAdd("prod_id"), ORADYN_DEFAULT )
+				If rsTemp.RecordCount = 0 Then
+					strAdd = strAdd + "'add_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
+					strHide = strHide + "'hide_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
+				End If
+					rsAdd.MoveNext
+				Wend
+				rsAdd.Close()
+				rsTemp.Close()
+				Set rsAdd = nothing
+				Set rsTemp = nothing
+				If NOT IsEmpty(strAdd) Then
+					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" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</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 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 nowrap class="body_row">&nbsp;</td>
+			  </tr>
+			<%End If%>
 			<%
 			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+			Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
+			If rsTemp.RecordCount = 0 Then
 			%>
 			<%If currPkg_id <> rsQry("pkg_id") Then%>
             <tr>
 			  <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>
               <td nowrap class="body_row">&nbsp;</td>
+              <td nowrap class="body_row"><div align="center"></div></td>
               <td nowrap class="body_row"></td>
               </tr>
 			<tr>
-              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
             </tr>
 			<%currPkg_id = rsQry("pkg_id")%>
 			<%End If%>
             <tr>
               <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
               <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
               <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
+              <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
               <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
               </tr>
 			<tr>
-              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
             </tr>
+			<%
+			End If
+			rsTemp.Close()
+			Set rsTemp = nothing
+			%>
             <%rsQry.MoveNext
 			Wend
 			%>
 			<%End If%>
 			<tr>
-              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
+              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
             </tr>
           </table>
 		  <%

Subversion Repositories DevTools

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