WebSVN – DevTools – Diff – /ManagerSuite/Production_Manager/trunk/StateExplorer.asp

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 '=====================================================
 '|                                                   |
 '|			          BomStates 				 	 |
 '|                                                   |
 '=====================================================
 %>
 <%
 Option explicit
 Response.Expires = 0
 %>
 <!--#include file="common/globals.asp"-->
 <!--#include file="common/config.asp"-->
 <!--#include file="common/common_subs.asp"-->
 <!--#include file="common/_explorer_common.asp"-->
 <%
 '------------ ACCESS CONTROL ------------------
 %>
 <!--#include file="_access_control_general.asp"-->
 <%
 '------------ VARIABLE DEFINITION -------------
 Dim rsQry
 Dim StateId, StateTypeEnum
 Dim objFormCollector
 Dim parState_id
 Dim RowColor
 '------------ CONSTANTS DECLARATION -----------
 '------------ VARIABLE INIT -------------------
 Set objFormCollector = CreateObject("Scripting.Dictionary")
 parState_id = Request("state_id")
 RowColor = NULL
 '------------ CONDITIONS ----------------------
 '----------------------------------------------
 %>
 <%
 '--------------------------------------------------------------------------------------------------------------------------
 Function GetIsDisplayedIcon ( cIsDisplayed )
 	If cIsDisplayed = enumDB_YES Then
 		GetIsDisplayedIcon = "<img src='icons/b_box.gif' width='13' height='13' border='0' title='Click to HIDE this BOM in Release Explorer'>"
 	Else
 		GetIsDisplayedIcon = "<img src='icons/b_tick.gif' width='13' height='13' border='0' title='Click to SHOW this BOM in Release Explorer'>"
 	End If
 End Function
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetFormDetails ( nState_id, ByRef outobjDetails )
 	Dim rsQry, query
 	OraDatabase.Parameters.Add "STATE_ID", 		nState_id,		ORAPARM_INPUT, ORATYPE_NUMBER
 	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateDetails.sql"), ORADYN_DEFAULT )
 	If rsQry.RecordCount > 0 Then
 		outobjDetails.Item ("state_id")  = rsQry("state_id")
 		outobjDetails.Item ("state_name")  = rsQry("state_name").Value
 		outobjDetails.Item ("state_type_enum")  = rsQry("state_type_enum")
 	End If
 	OraDatabase.Parameters.Remove "STATE_ID"
 	rsQry.Close
 	Set rsQry = Nothing
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------------------
 Sub NewBOMList ( rsQry )
 %>
 	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
 	  <tr>
 	    <td width="1"><img src="images/spacer.gif" width="20" height="1"></td>
 	    <td width="20%" nowrap class="body_scol">BOM&nbsp;Name</td>
 		<td width="20%" nowrap class="body_scol">Version</td>
 	    <td width="60%" nowrap class="body_scol">Bom&nbsp;Comments</td>
 		<td width="1%" nowrap class="body_scol">Released&nbsp;By</td>
 		<td width="1%" nowrap class="body_scol">Arrived</td>
 		<td width="1%" nowrap class="body_scol">Hide</td>
 	  </tr>
 	  <tr>
 	    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td><br>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 	  </tr>
 	  <%
 	  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (NOT IsNull(rsQry("bom_id"))))
 		If IsNull( RowColor ) Then
 			RowColor = "bgcolor='#F5F5F5'"
 		Else
 			RowColor = NULL
 		End If
 	  %>
 	  <tr>
 	    <td <%=RowColor%> valign="top"><input type="checkbox" name="bom_id_list" value="<%=rsQry("bom_id")%>"></td>
 	    <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>
 		<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>
 		<td <%=RowColor%> class="body_rowlite"><%=objFormater.TextToHtml( rsQry("bom_comments") )%></td>
 		<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>
 	    <td <%=RowColor%> nowrap align="right" valign="top" class="body_txt">&nbsp;<%=objFormater.FormatDate ( rsQry("arrived_date"), 1 ) %></td>
 		<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>
 	  </tr>
 	  <%
 	  	rsQry.MoveNext
 	  WEnd
   	  %>
 	  <tr>
 	    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 	  </tr>
 	</table>
 <%
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------------------
 Sub NewState ( rsQry )
 %>
 	<td valign="top">
 		<table width="100%"  border="0" cellspacing="0" cellpadding="2">
 		  <tr>
 		    <td class="body_txt"><b><%=objFormCollector.Item("state_name")%></b></td>
 		  </tr>
 		</table>
 		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 		  <form name="FormState<%=StateId%>" method="post" action="<%=SCRIPT_NAME%>">
 		  <tr>
 		    <td width="1"><img src="images/spacer.gif" width="10" height="300"></td>
 		    <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 		    <td width="100%" valign="top">
 			<%
 			'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
 			'objAccessControl.BeginRegion ( "SomeName" )
 			%>
 		      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 		        <tr>
 		          <td width="1" valign="top"><img src="<%=GetStateImage( StateTypeEnum )%>"></td>
 		          <!-- OPTIONS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 				  <!--#include file="_state_menu_options.asp"-->
 		          <!-- OPTIONS END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 		          </td>
 		        </tr>
 	      </table>
 			<%
 			'objAccessControl.EndRegion ( "SomeName" )
 			'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
 			%>
 		    <%Call NewBOMList( rsQry )%>
 		    </td>
 		  </tr>
 		  <%=objPMod.ComposeHiddenTags()%>
 		  <input type="hidden" name="action" value="true">
 		  </form>
 		</table>
 	</td>
 <%
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '------------ RUN BEFORE PAGE RENDER ----------
 Call objPMod.PersistInQryString ( aPersistList(enumPAR_STATE_ID) )
 Call GetFormDetails ( parState_id, objFormCollector )
 If (Request("action") <> "") Then
 	'-- Select Action
 	Call ActionRedirection ( Request("action") )
 End If
 '----------------------------------------------
 %>
 <html>
 <head>
 <title>Deployment Manager</title>
-<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
+<link rel="shortcut icon" href="<%=FavIcon%>"/>
-<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
-<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-<script language="JavaScript" src="scripts/common.js"></script>
+<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
-</head>
+<script language="JavaScript" src="scripts/common.js"></script>
+</head>
-<body leftmargin="0" topmargin="0">
-<!-- HEADER ++++++++++++++++ -->
+<body leftmargin="0" topmargin="0">
-<!--#include file="_header.asp"-->
+<!-- HEADER ++++++++++++++++ -->
-<!-- +++++++++++++++++++++++ -->
+<!--#include file="_header.asp"-->
-<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
+<!-- +++++++++++++++++++++++ -->
-<!--#include file="_main_menu.asp"-->
+<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
-<!-- +++++++++++++++++++++++++++++++++++++ -->
+<!--#include file="_main_menu.asp"-->
-<table width="100%"  border="0" cellspacing="0" cellpadding="0">
+<!-- +++++++++++++++++++++++++++++++++++++ -->
-  <tr>
+<table width="100%"  border="0" cellspacing="0" cellpadding="0">
-    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+  <tr>
-    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
-  </tr>
+    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
-  <tr>
+  </tr>
-    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
+  <tr>
-    <td background="images/bg_bage_0.gif">&nbsp;</td>
+    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
-  </tr>
+    <td background="images/bg_bage_0.gif">&nbsp;</td>
-  <tr>
+  </tr>
-    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+  <tr>
     <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
-  </tr>
+    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
-  <tr>
+  </tr>
-    <td><img src="images/spacer.gif" width="1" height="1"></td>
+  <tr>
-    <td><img src="images/spacer.gif" width="1" height="8"></td>
+    <td><img src="images/spacer.gif" width="1" height="1"></td>
-  </tr>
+    <td><img src="images/spacer.gif" width="1" height="8"></td>
-  <tr>
+  </tr>
-    <td>&nbsp;</td>
+  <tr>
-    <td class="body_ttl1"><%=objFormCollector.Item("state_name")%> Explorer </td>
+    <td>&nbsp;</td>
-  </tr>
+    <td class="body_ttl1"><%=objFormCollector.Item("state_name")%> Explorer </td>
-  <tr>
+  </tr>
-    <td><img src="images/spacer.gif" width="1" height="1"></td>
+  <tr>
-    <td><img src="images/spacer.gif" width="1" height="30"><a href="BomStates.asp?BACK=OK<%=objPMod.ComposeURLWithout("state_id")%>" class="body_link"><img src="icons/i_caretone.gif" width="11" height="7" hspace="2" border="0">Release Explorer</a></td>
+    <td><img src="images/spacer.gif" width="1" height="1"></td>
-  </tr>
+    <td><img src="images/spacer.gif" width="1" height="30"><a href="BomStates.asp?BACK=OK<%=objPMod.ComposeURLWithout("state_id")%>" class="body_link"><img src="icons/i_caretone.gif" width="11" height="7" hspace="2" border="0">Release Explorer</a></td>
-</table>
+  </tr>
-<table width="100%"  border="0" cellspacing="0" cellpadding="0">
+</table>
-  <tr>
+<table width="100%"  border="0" cellspacing="0" cellpadding="0">
-    <td width="1%">&nbsp;</td>
+  <tr>
-    <td width="100%" rowspan="2" valign="top">
+    <td width="1%">&nbsp;</td>
-	<!-- PAGE DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+    <td width="100%" rowspan="2" valign="top">
-	<!-- STATES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+	<!-- PAGE DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-	 <%If (dbPARproj_id <> enumDB_DEFAULT_EMPTY) AND (dbPARbranch_id <> enumDB_DEFAULT_EMPTY) Then%>
+	<!-- STATES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-	 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
+	 <%If (dbPARproj_id <> enumDB_DEFAULT_EMPTY) AND (dbPARbranch_id <> enumDB_DEFAULT_EMPTY) Then%>
-      <tr>
+	 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
-		<%
+      <tr>
-		OraDatabase.Parameters.Add "STATE_ID",   parState_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
+		<%
-		OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
+		OraDatabase.Parameters.Add "STATE_ID",   parState_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
-		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT )
+		OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
+		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT )
-		StateId = objFormCollector.Item("state_id")
-		StateTypeEnum = objFormCollector.Item("state_type_enum")
+		StateId = objFormCollector.Item("state_id")
+		StateTypeEnum = objFormCollector.Item("state_type_enum")
-		If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
-			Call NewState ( rsQry )
+		If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
+			Call NewState ( rsQry )
-		End If
+		End If
-		rsQry.Close
-		Set rsQry = Nothing
+		rsQry.Close
-		OraDatabase.Parameters.Remove "STATE_ID"
+		Set rsQry = Nothing
-		OraDatabase.Parameters.Remove "BRANCH_ID"
+		OraDatabase.Parameters.Remove "STATE_ID"
-		%>
+		OraDatabase.Parameters.Remove "BRANCH_ID"
+		%>
-      </tr>
-    </table>
+      </tr>
-	<%End If%>
+    </table>
-	<!-- STATES END +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+	<%End If%>
-	<br><br>
+	<!-- STATES END +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-	<!-- PAGE DETAILS END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+	<br><br>
-	</td>
+	<!-- PAGE DETAILS END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-  </tr>
+	</td>
-  <tr>
+  </tr>
-    <td valign="bottom"><img src="images/ill_bom_location.jpg" width="146" height="300"></td>
+  <tr>
-  </tr>
+    <td valign="bottom"><img src="images/ill_bom_location.jpg" width="146" height="300"></td>
-</table>
+  </tr>
+</table>
-<table width="100%"  border="0" cellspacing="0" cellpadding="0">
-  <tr>
+<table width="100%"  border="0" cellspacing="0" cellpadding="0">
-    <td><img src="images/spacer.gif" width="8" height="20"></td>
+  <tr>
-  </tr>
+    <td><img src="images/spacer.gif" width="8" height="20"></td>
-</table>
+  </tr>
-<!-- FOOTER ++++++++++++++++ -->
+</table>
-<!--#include file="_footer.asp"-->
+<!-- FOOTER ++++++++++++++++ -->
-<!-- +++++++++++++++++++++++ -->
+<!--#include file="_footer.asp"-->
-</body>
+<!-- +++++++++++++++++++++++ -->
-</html>
+</body>
-<%
+</html>
-'------------ RUN AFTER PAGE RENDER -----------
+<%
-Set objPMod = Nothing
+'------------ RUN AFTER PAGE RENDER -----------
-Set objCrumbs = Nothing
+Set objPMod = Nothing
-'----------------------------------------------
+Set objCrumbs = Nothing
+'----------------------------------------------
 %><!--#include file="common/globals_destructor.asp"-->

Subversion Repositories DevTools

(root)/ManagerSuite/Production_Manager/trunk/StateExplorer.asp @ 5356 – Rev 62 → 5356