Subversion Repositories DevTools

'|		          RequestProductLocation		 	 |

'|                RequestProductLocation             |

Dim parBomId

Dim parProdBomId

Dim objWSH

Dim parProdBomProdId

Dim rsPkg, pkgName, pkgVersion, pkgId

' parameters refering this BOM items

Dim rsProj, projName, branchName

Dim parThisProdId

Dim rsOS, OSName

Dim parThisPkgId

parBomId = Request("bom_id")

parProdBomId     = Request("bom_id")

'	QueryName = "BomRemovedProductLocation.sql"

'   QueryName = "BomRemovedProductLocation.sql"

'	IsProductInNewBom = FALSE

'   IsProductInNewBom = FALSE

'	QueryName = "BomUpdatedProductLocation.sql"

'   QueryName = "BomUpdatedProductLocation.sql"

'	IsProductInNewBom = FALSE

'   IsProductInNewBom = FALSE

	QueryName = "BomAddedProductLocation.sql"

   QueryName = "BomAddedProductLocation.sql"

'	IsProductInNewBom = TRUE

'   IsProductInNewBom = TRUE

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

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

        <tr>

   <tr>

			<td background="images/bg_form_lightgray.gif" nowrap class="body_txt">

      <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">

			<SPAN id="IMG_EXPAND_PROD_<%=Request("new_prod_id")%>" style="display:block;"><a href="javascript:;" class="menu_link" onClick="RequestProductNotes('?prod_id=<%=Request("prod_id")%>&new_prod_id=<%=request("new_prod_id")%>', '<%=Request("new_prod_id")%>');"><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_EXPAND_PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>" style="display:block;">

			<SPAN id="IMG_COLLAPSE_PROD_<%=Request("new_prod_id")%>" style="display:none;"><a href="javascript:;" class="menu_link" onClick="ToggleDisplay( 'PROD_<%=Request("new_prod_id")%>', 'IMG_EXPAND_PROD_<%=Request("new_prod_id")%>', 'IMG_COLLAPSE_PROD_<%=Request("new_prod_id")%>');"><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>

            <a href="javascript:;" class="menu_link" onClick="RequestProductNotes('?prod_id=<%=parProdBomProdId%>&new_prod_id=<%=parThisProdId%>', '<%=parThisBomId%>_<%=parThisProdId%>');">

			</td>

               <img src="icons/i_plus.gif" border="0" align="absmiddle" hspace="3">

		</tr>	

               <img src="icons/i_product.gif" border="0" align="absmiddle" hspace="3">Product Notes

		<tr>

            </a>

	    	<td nowrap valign="top" class="body_row" colspan="3">

         </SPAN>

			<DIV id="PROD_<%=Request("new_prod_id")%>" name="PROD_<%=Request("new_prod_id")%>" style="display:none;"><%=enumLOADING%></DIV>

         <SPAN id="IMG_COLLAPSE_PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>" style="display:none;">

			</td>

            <a href="javascript:;" class="menu_link" onClick="ToggleDisplay( 'PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>', 'IMG_EXPAND_PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>', 'IMG_COLLAPSE_PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>');">

	    </tr>	

               <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

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

            </a>

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

         </SPAN>

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

      </td>

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

   </tr>

   <tr>

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

      <td nowrap valign="top" class="body_row" colspan="3">

		  bgColor = NULL

         <DIV id="PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>" name="PRODNOTES_<%=parThisBomId%>_<%=parThisProdId%>" style="display:none;"><%=enumLOADING%></DIV>

      </td>

		  If rsQry.RecordCount < 1 Then

   </tr>

		  %>

   <%

		  <tr>

   ' parThisBomId is the ID of the BOM under which exists the package version that was clicked that led to this file being processed.

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

   ' It is not the production BOM, which is referred to by parProdBomId.

			</td>

   ' parThisProdId is the ID of the product in the BOM refered to by parThisBomId

          </tr>

   ' 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

		  End If

   OraDatabase.Parameters.Add "PROD_ID",  parThisProdId, ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "PKG_ID",   parThisPkgId,  ORAPARM_INPUT, ORATYPE_NUMBER

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

   Dim rsQryThisBom

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

		  	If IsNull( bgColor ) Then

				bgColor = "bgcolor='#F5F5F5'"

   Dim bgColor

			Else

   bgColor = NULL

				bgColor = NULL

			End If

   If rsQryThisBom.RecordCount < 1 Then

      %>

      <tr>

If Request("bom_id") <> "" AND Request("prod_id") <> "" Then

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

      </tr>

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

      <%

   End If

	pkgName = rsPkg("pkg_name")

	pkgVersion = rsPkg("pkg_version")

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

	pkgId = rsPkg("pkg_id")

      If IsNull( bgColor ) Then

	rsPkg.Close()

         bgColor = "bgcolor='#F5F5F5'"

	Set rsPkg = nothing

      Else

         bgColor = NULL

	Set rsProj = OraDatabase.DbCreateDynaset( "select br.branch_name, prj.proj_name from boms bm, branches br, dm_projects prj where bm.bom_id = "&Request("bom_id")&" and br.BRANCH_ID = bm.RTAG_ID_FK and prj.PROJ_ID = br.PROJ_ID", cint(0))

      End If

	projName = rsProj("proj_name")	

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

	branchName = rsProj("branch_name")

         ' Get information from package_versions table for this product

	rsProj.Close()

         Dim rsQryThisBomPkgVer, ThisBomPkgName, ThisBomPkgVersion, ThisBomPkgId

	Set rsProj = nothing

         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))

	Set rsOS = OraDatabase.DbCreateDynaset( "select bt.bos_type from os_base_env obe, base_env be, bos_types bt where obe.OS_ID = "&rsQry("os_id")&" and be.BASE_ENV_ID = obe.BASE_ENV_ID and bt.BOS_ID = be.BOS_ID", cint(0))

         ThisBomPkgName    = rsQryThisBomPkgVer("pkg_name")

         ThisBomPkgVersion = rsQryThisBomPkgVer("pkg_version")

	OSName = rsOS("bos_type")

         ThisBomPkgId      = rsQryThisBomPkgVer("pkg_id")

	If OSName = "Windows" OR OSName = "MOS" Then

         rsQryThisBomPkgVer.Close()

		OSName = "win32"

         Set rsQryThisBomPkgVer = nothing

	Else

		OSName = "sparc"

         ' Get the project and branch name for the production BOM

	End If	

         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))

	rsOS.Close()

	Set rsOS = nothing	

         ProdBomProjName   = rsQryProdBom("proj_name")

         ProdBomBranchName = rsQryProdBom("branch_name")

End If

         rsQryProdBom.Close()

		  %>

         Set rsQryProdBom = nothing

		  <tr>

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

         ' Get the OS name

			<%'If IsProductInNewBom Then%>

         Dim rsOS, OSName

				<img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><a href="NodeDefault.asp?node_id=<%=rsQry("node_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("node_name")%></a>

         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))

				&nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>

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

         OSName = rsOS("bos_type")

			<%'Else%>

         If OSName = "Windows" OR OSName = "MOS" Then

				&nbsp;&nbsp;<a href="LogDownload.asp?url=http://auperaunx26/releases/<%=projName%>/<%=branchName%>/<%=pkgName%>/<%=OSName%>/<%=pkgVersion%>/<%=pkgName%>-<%=pkgVersion%>-<%=OSName%>.zip&pkg_id=<%=pkgId%>&pkg_version=<%=pkgVersion%>"  target="_blank" class="body_link">Download Version: <%=Request("new_version") %></a>&nbsp;&nbsp;

            OSName = "win32"

			<%'End If%>

         Else

            OSName = "sparc"

</td>

         End If

          </tr>

	  	  <%

         rsOS.Close()

		  	rsQry.MoveNext

         Set rsOS = nothing

		  WEnd

      End If

		  OraDatabase.Parameters.Remove "BOM_ID"

		  OraDatabase.Parameters.Remove "PROD_ID"

      ' Now display the information we have gathered

		  OraDatabase.Parameters.Remove "PKG_ID_ID"

      %>

      <tr>

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

		  rsQry.Close

            <%'If IsProductInNewBom Then%>

		  Set rsQry = Nothing

            <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%>

		</table>	

            <%If InStr(APP_ROOT, "DEPLOYMAN_WWW") > 0 Then%>

               &nbsp;&nbsp;<a href="LogDownload.asp?url=http://client.erggroup.com/manager_suite/production_manager/downloads/<%=pkgName%>-<%=pkgVersion%>-<%=OSName%>.zip&pkg_id=<%=pkgId%>&pkg_version=<%=pkgVersion%>"  target="_blank" class="body_link">Download Version: <%=Request("new_version") %></a>&nbsp;&nbsp;

            <%Else%>

               &nbsp;&nbsp;<a href="LogDownload.asp?url=http://auperaunx26/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;