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 IsProductInNewBom
Dim QueryName

' parameters refering to production BOM items
Dim parProdBomId
Dim parProdBomProdId

' parameters refering this BOM items
Dim parThisBomId
Dim parThisProdId
Dim parThisPkgId
Dim parThisVersion

'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
parProdBomId     = Request("bom_id")
parProdBomProdId = Request("prod_id")

parThisBomId     = Request("compare_bom_id")
parThisProdId    = Request("new_prod_id")
parThisPkgId     = Request("pkg_id")
parThisVersion   = Request("new_version")

'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------
%>
<%
'------------ 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 = "BomAddedProductLocation.sql"
'   IsProductInNewBom = TRUE

'End If
'----------------------------------------------
%>


<table width="100%"  border="0" cellspacing="3" cellpadding="0">
   <tr>
      <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
         <SPAN id="IMG_EXPAND_PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>" style="display:block;">
            <a href="javascript:;" class="menu_link" onClick="RequestProductNotes('?prod_id=<%=parProdBomProdId%>&new_prod_id=<%=parThisProdId%>', '<%=parThisBomId%>_<%=parThisProdId%>');">
               <img src="icons/i_plus.gif" border="0" align="absmiddle" hspace="3">
               <img src="icons/i_product.gif" border="0" align="absmiddle" hspace="3">Product Notes
            </a>
         </SPAN>
         <SPAN id="IMG_COLLAPSE_PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>" style="display:none;">
            <a href="javascript:;" class="menu_link" onClick="ToggleDisplay( 'PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>', 'IMG_EXPAND_PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>', 'IMG_COLLAPSE_PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>');">
               <img src="icons/i_minus.gif" border="0" align="absmiddle" hspace="3">
               <img src="icons/i_product.gif" border="0" align="absmiddle" hspace="3">Product Notes
            </a>
         </SPAN>
      </td>
   </tr>
   <tr>
      <td nowrap valign="top" class="body_row" colspan="3">
         <DIV id="PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>" name="PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>" style="display:none;"><%=enumLOADING%></DIV>
      </td>
   </tr>
   <%
   ' parThisBomId is the ID of the BOM under which exists the package version that was clicked that led to this file being processed.
   ' It is not the production BOM, which is referred to by parProdBomId.
   ' parThisProdId is the ID of the product in the BOM refered to by parThisBomId
   ' parThisPkgId is the ID of the package of which the product is just one instance (version) of.
   OraDatabase.Parameters.Add "BOM_ID",   parThisBomId,  ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "PROD_ID",  parThisProdId, ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "PKG_ID",   parThisPkgId,  ORAPARM_INPUT, ORATYPE_NUMBER

   Dim rsQryThisBom
   Set rsQryThisBom = OraDatabase.DbCreateDynaset( GetQuery ( QueryName ), ORADYN_DEFAULT )

   Dim bgColor
   bgColor = NULL

   If rsQryThisBom.RecordCount < 1 Then
      %>
      <tr>
         <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">Product not found.</td>
      </tr>
      <%
   End If

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

      If IsNull( bgColor ) Then
         bgColor = "bgcolor='#F5F5F5'"
      Else
         bgColor = NULL
      End If

      If parProdBomId <> "" AND parThisProdId <> "" Then

         ' Get information from package_versions table for this product
         Dim rsQryThisBomPkgVer, ThisBomPkgName, ThisBomPkgVersion, ThisBomPkgId

         Set rsQryThisBomPkgVer = OraDatabase.DbCreateDynaset( "select * from package_versions pv, packages pkg where pv.pv_id = "&parThisProdId&" and pkg.pkg_id = pv.pkg_id", cint(0))

         ThisBomPkgName    = rsQryThisBomPkgVer("pkg_name")
         ThisBomPkgVersion = rsQryThisBomPkgVer("pkg_version")
         ThisBomPkgId      = rsQryThisBomPkgVer("pkg_id")

         rsQryThisBomPkgVer.Close()
         Set rsQryThisBomPkgVer = nothing

         ' Get the project and branch name for the production BOM
         Dim rsQryProdBom, ProdBomProjName, ProdBomBranchName
         Set rsQryProdBom = OraDatabase.DbCreateDynaset( "select br.branch_name, prj.proj_name from boms bm, branches br, dm_projects prj where bm.bom_id = "&parProdBomId&" and br.BRANCH_ID = bm.RTAG_ID_FK and prj.PROJ_ID = br.PROJ_ID", cint(0))

         ProdBomProjName   = rsQryProdBom("proj_name")
         ProdBomBranchName = rsQryProdBom("branch_name")

         rsQryProdBom.Close()
         Set rsQryProdBom = nothing

         ' Get the OS name
         Dim rsOS, OSName
         Set rsOS = OraDatabase.DbCreateDynaset( "select bt.bos_type from os_base_env obe, base_env be, bos_types bt where obe.OS_ID = "&rsQryThisBom("os_id")&" and be.BASE_ENV_ID = obe.BASE_ENV_ID and bt.BOS_ID = be.BOS_ID", cint(0))

         OSName = rsOS("bos_type")

         If OSName = "Windows" OR OSName = "MOS" Then
            OSName = "win32"
         Else
            OSName = "sparc"
         End If

         rsOS.Close()
         Set rsOS = nothing

      End If

      ' Now display the information we have gathered
      %>
      <tr>
         <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
            <%'If IsProductInNewBom Then%>
            <img hspace="4" src="icons/<%=rsQryThisBom("node_icon")%>" align="absmiddle" border="0"><a href="NodeDefault.asp?node_id=<%=rsQryThisBom("node_id")%>&bom_id=<%=parThisBomId%>" class="body_link"><%=rsQryThisBom("node_name")%></a>
            &nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQryThisBom("os_id")%>&bom_id=<%=parThisBomId%>" class="body_link"><%=rsQryThisBom("os_name") %></a>
            &nbsp;/&nbsp;<%=rsQryThisBom("pkg_name") &" "& rsQryThisBom("pkg_version")%>
            <%'Else%>
            <%If InStr(APP_ROOT, "DEPLOYMAN_WWW") > 0 Then%>
               &nbsp;&nbsp;<a href="LogDownload.asp?url=http://bms:8002/manager_suite/production_manager/downloads/<%=ThisBomPkgName%>-<%=ThisBomPkgVersion%>-<%=OSName%>.zip&pkg_id=<%=ThisBomPkgId%>&pkg_version=<%=ThisBomPkgVersion%>"  target="_blank" class="body_link">Download Version: <%=Request("new_version") %></a>&nbsp;&nbsp;
            <%Else%>
               &nbsp;&nbsp;<a href="LogDownload.asp?url=http://bms:8002/releases/<%=ProdBomProjName%>/<%=ProdBomBranchName%>/<%=ThisBomPkgName%>/<%=OSName%>/<%=ThisBomPkgVersion%>/<%=ThisBomPkgName%>-<%=ThisBomPkgVersion%>-<%=OSName%>.zip&pkg_id=<%=ThisBomPkgId%>&pkg_version=<%=ThisBomPkgVersion%>"  target="_blank" class="body_link">Download Version: <%=parThisVersion %></a>&nbsp;&nbsp;
            <%End If%>
            <%'End If%>

         </td>
      </tr>
      <%
      rsQryThisBom.MoveNext
   WEnd

   OraDatabase.Parameters.Remove "BOM_ID"
   OraDatabase.Parameters.Remove "PROD_ID"
   OraDatabase.Parameters.Remove "PKG_ID"

   rsQryThisBom.Close
   Set rsQryThisBom = Nothing
   %>

</table>

<%
'------------ RUN AFTER PAGE RENDER -----------
'----------------------------------------------
%><!--#include file="common/globals_destructor.asp"-->