Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'|                                                   |

'|		          RequestProductLocation		 	 |

'|                                                   |

'=====================================================

%>

<%

Option explicit

Response.Expires = 0

%>

<!--#include file="common/globals.asp"-->

<!--#include file="common/config.asp"-->

<!--#include file="common/common_subs.asp"-->

<%

'------------ VARIABLE DEFINITION -------------

Dim rsQry

Dim IsProductInNewBom

Dim bgColor

Dim QueryName

Dim parBomId

'------------ CONSTANTS DECLARATION -----------

'------------ VARIABLE INIT -------------------

parBomId = Request("current_bom_id")

'------------ CONDITIONS ----------------------

'----------------------------------------------

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_general.asp"-->

<%

'--------------------------------------------------------------------------------------------------------------

'--------------------------------------------------------------------------------------------------------------

%>

<%

'------------ RUN BEFORE PAGE RENDER ----------

If (Request("change_type") = "R") Then

	QueryName = "BomRemovedProductLocation.sql"

	IsProductInNewBom = FALSE

ElseIf (Request("change_type") = "U") Then

	QueryName = "BomUpdatedProductLocation.sql"

	IsProductInNewBom = FALSE

Else

	QueryName = "PatchCompare.sql"

	IsProductInNewBom = TRUE

End If

'----------------------------------------------

%>

		<table width="100%"  border="0" cellspacing="3" cellpadding="0">

          <%

		  OraDatabase.Parameters.Add "BOM_ID", 			Request("bom_id"),			ORAPARM_INPUT, ORATYPE_NUMBER 

		  OraDatabase.Parameters.Add "COMPARE_BOM_ID", 	Request("compare_bom_id"),	ORAPARM_INPUT, ORATYPE_NUMBER 

		  OraDatabase.Parameters.Add "PROD_ID",  		Request("prod_id"),		ORAPARM_INPUT, ORATYPE_NUMBER 

		  OraDatabase.Parameters.Add "PKG_ID",  		Request("pkg_id"),		ORAPARM_INPUT, ORATYPE_NUMBER 

		  OraDatabase.Parameters.Add "CURRENT_BOM_ID",  Request("current_bom_id"),		ORAPARM_INPUT, ORATYPE_NUMBER 

		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ( QueryName ), ORADYN_DEFAULT )

		  bgColor = NULL

		  If rsQry.RecordCount < 1 Then

		  %>

		  <tr>

            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">Product not found.

			</td>

          </tr>

		  <%

		  End If

		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

		  	If IsNull( bgColor ) Then

				bgColor = "bgcolor='#F5F5F5'"

			Else

				bgColor = NULL

			End If

		  %>

		  <tr>

            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;

			<%If IsProductInNewBom Then%>

				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("node_name")%>

				&nbsp;/&nbsp;<%=rsQry("os_name") %>

				&nbsp;/&nbsp;<%=rsQry("pkg_name") &" "& rsQry("pkg_version")%>

			<%Else%>

				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("node_name")%>

				&nbsp;/&nbsp;<%=rsQry("os_name") %>&nbsp;/&nbsp;

			<%End If%>

			</td>

		<%

			Dim rsForm, Tester, Manager

			Tester = False

			Manager = False

			If objAccessControl.IsActive("ApprovedByManager") Then

				Manager = True

			ElseIf objAccessControl.IsActive("ApprovedByTester") Then

				Tester = True

			End If

			Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&rsQry("prod_id")&" AND BOM_ID="&parBomId, ORADYN_DEFAULT)%>

			<%If rsForm.RecordCount = 0 Then%>

				<%If Tester Then%>

					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>', 'Approval Form', 'height=220,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Approve</a></td>

				<%ElseIf Manager Then%>

					<td class="body_txto">Awaiting Tester</td>

				<%Else%>

					<td class="body_txto"></td>

				<%End If%>	

			<%ElseIf IsNull(rsForm("is_official")) Then%>

				<%If NOT IsNull(rsForm("tester_id")) And Tester	Then %>

					<td class="body_txto">Awaiting</td>

				<%ElseIf NOT IsNull(rsForm("tester_id")) And Manager Then%>

					<td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>', 'Approval Form', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Approve</a></td>

				<%Else%>

					<td class="body_rowlite"></td>

				<%End If%>

			<%Else%>

				<td class="body_txtg">Approved</td>

			<%End If

			rsForm.Close()

			Set rsForm = nothing

			%>			

          </tr>

	  	  <%

		  	rsQry.MoveNext

		  WEnd

		  OraDatabase.Parameters.Remove "BOM_ID"

		  OraDatabase.Parameters.Remove "PROD_ID"

		  OraDatabase.Parameters.Remove "PKG_ID"

		  OraDatabase.Parameters.Remove "CURRENT_BOM_ID"

		  OraDatabase.Parameters.Remove "COMPARE_BOM_ID" 

		  rsQry.Close

		  Set rsQry = Nothing

		  %>

		</table>	

<%

'------------ RUN AFTER PAGE RENDER -----------

'----------------------------------------------

%><!--#include file="common/globals_destructor.asp"-->