Deployment Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Bom_Home | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, rsTemp Dim aProductList Dim parProd_id_select Dim parShowall Dim numOfRows Dim rowNum Dim objFormCollector Dim objFormComponent Dim sMessage Dim ProdId Dim ChangeType '------------ CONSTANTS DECLARATION ----------- Const LIMG_UPDATED = "

" Const LIMG_ADDED = "

" Const LIMG_REMOVED = "

" Const LIMG_NOTE_NEW = "

" Const LIMG_NOTE_EDIT = "

" '------------ VARIABLE INIT ------------------- parProd_id_select = Request("prod_id_select") parShowall = Request("showall") Set objFormCollector = CreateObject("Scripting.Dictionary") Set objFormComponent = New FormComponent '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------- Sub GetProductList ( nBom_id, nComparedBomId, outProductList, Flag ) Dim rsQry, query, showAll '' Use SHOWALL parameter is BOM has old bom 'showAll = "Y" 'If nBom_id <> nComparedBomId Then ' showAll = parShowall 'End If OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMPARE_BOM_ID", nComparedBomId, ORAPARM_INPUT, ORATYPE_NUMBER If Flag = TRUE Then Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare.sql"), ORADYN_DEFAULT ) Else Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomCompare_BaseConfig.sql"), ORADYN_DEFAULT ) End If If rsQry.RecordCount > 0 Then outProductList = rsQry.GetRows() Else outProductList = NULL End If OraDatabase.Parameters.Remove "COMPARE_BOM_ID" OraDatabase.Parameters.Remove "BOM_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nBom_id, ByRef outobjDetails ) Call GetBomDetails ( nBom_id, outobjDetails ) outobjDetails.Item("root_version") = GetRootVersion ( outobjDetails.Item("bom_version") ) '-- Set compare_bom_id If Request("compare_bom_id") <> "" Then outobjDetails.Item("compare_bom_id") = Request("compare_bom_id") Else outobjDetails.Item("compare_bom_id") = outobjDetails.Item("parent_bom_id") End If End Sub '-------------------------------------------------------------------------------------------------------------- Function GetBomTreeList () Dim rsQry, query OraDatabase.Parameters.Add "BOM_NAME_ID", objFormCollector.Item("bom_name_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", objFormCollector.Item("branch_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BOM_VERSION", objFormCollector.Item("root_version"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "LIKE_BOM_VERSION", objFormCollector.Item("root_version") &".%",ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "COMPARE_BOM_ID", objFormCollector.Item("compare_bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomTreeCombo.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then GetBomTreeList = rsQry.GetRows() Else GetBomTreeList = NULL End If OraDatabase.Parameters.Remove "BOM_NAME_ID" OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "BOM_VERSION" OraDatabase.Parameters.Remove "LIKE_BOM_VERSION" OraDatabase.Parameters.Remove "COMPARE_BOM_ID" rsQry.Close Set rsQry = Nothing End Function '-------------------------------------------------------------------------------------------------------------- Function GetCompareBomDetails ( nBomId ) Dim rsQry, query OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then GetCompareBomDetails = rsQry("proj_name") &" / "& rsQry("branch_name") &" / "& rsQry("bom_name") &" "& rsQry("bom_version") &"."& rsQry("bom_lifecycle") Else GetBomTreeList = NULL End If OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close Set rsQry = Nothing End Function '-------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ( Array("compare_bom_id") ) Call GetFormDetails ( dbPARbom_id, objFormCollector ) '---------------------------------------------- %> Deployment Manager

	<%Call RenderTitle( objBomCollector )%>
	<% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrBomTabDef ) objTabControl.Render () %>
	<% '-- Define Action buttons on this tab aTabBtnsDef = Array("abtnSyncProdLatest", "abtnUnhideProducts", "abtnRevertProdLatest") Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) ' -- Tell control if buttons need to be readonly actions objBtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly") ' -- Render Buttons Call objBtnControl.Render ( aTabBtnsDef ) %>
		<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%>

<%If objBomCollector.Item ("is_readonly") = enumDB_YES Then%>

<% OraDatabase.Parameters.Add "ENTITY_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", "enumENTITY_TYPE_BOM", ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT ) sMessage = "" sMessage = sMessage &"" sMessage = sMessage &"" If rsQry.RecordCount = 0 Then sMessage = sMessage &"" Else sMessage = sMessage &"" End If sMessage = sMessage &"" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) sMessage = sMessage & "" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" rsQry.MoveNext WEnd sMessage = sMessage &"

BOM NOTES	Create Note"& LIMG_NOTE_NEW &"	Create Note"& LIMG_NOTE_NEW &"

" If rsQry("is_rejected") = enumDB_YES Then sMessage = sMessage &"BOM is REJECTED! " ElseIf (rsQry("is_rejected")) = "N" Then sMessage = sMessage &"BOM is ACCEPTED! " Else sMessage = sMessage &"BOM is LOCKED! " End If sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &" "& rsQry("creator") &"	Edit Note"& LIMG_NOTE_EDIT &"

" If objBomCollector.Item ("is_rejected") = enumDB_YES Then Call Messenger ( sMessage, "bi_rejected.gif", "100%" ) ElseIf objBomCollector.Item ("is_rejected") = "N" Then Call Messenger ( sMessage, "bi_accepted.gif", "100%" ) Else Call Messenger ( sMessage, "bi_new.gif", "100%" ) End If Response.write "
" rsQry.Close() Set rsQry = Nothing OraDatabase.Parameters.Remove "ENTITY_ID" OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE" %>

<%End If%> <%If (objBomCollector.Item("bom_comments") <> "") Then%> <%End If%>

BOM Comments

<%= objFormater.TextToHTML( objBomCollector.Item("bom_comments") )%>

<% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "OldVersion" objFormComponent.Action = SCRIPT_NAME objFormComponent.Method = "get" Call objFormComponent.FormStart() %> <%Call RenderTitle( objBomCollector )%>
compared with <%= GetCompareBomDetails( objFormCollector.Item("compare_bom_id") ) %>
Upload PDF

<%If NOT IsNull(objFormCollector.Item("pdf_attachment_path")) Then%> ">Download PDF

<%End If%>

Show changes since BOM version <%=objFormComponent.Combo ( "compare_bom_id", GetBomTreeList(), TRUE, "class='form_ivalue'" )%> <%=objPMod.ComposeHiddenTagsWithout("compare_bom_id")%> <%=objFormComponent.SubmitButton ( "Compare", "class='form_btn'" )%> <% Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, TRUE ) If NOT IsNull( aProductList ) Then numOfRows = UBound( aProductList, 2 ) For rowNum = 0 To numOfRows ProdId = aProductList( 0, rowNum ) ChangeType = aProductList( 3, rowNum ) %> <%If rowNum <> numOfRows Then%> <%End If%> <% Next Else%> <%End If%> <% Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, FALSE ) If NOT IsNull( aProductList ) Then numOfRows = UBound( aProductList, 2 ) For rowNum = 0 To numOfRows ProdId = aProductList( 0, rowNum ) ChangeType = aProductList( 3, rowNum ) %> <%If rowNum <> numOfRows Then%> <%End If%> <% Next Else%> <%End If%>

Product

Version

<%=Eval( aProductList( 5, rowNum ) )%>

<% Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PRODUCT_DETAILS PD WHERE PD.PROD_ID(+) = PV.PV_ID AND PV.PV_ID ="&ProdId, ORADYN_DEFAULT ) %> &change_type=<%=ChangeType%>&pkg_name=<%=aProductList( 1, rowNum )%>', '<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) & aProductList( 1, rowNum )%> <% rsTemp.Close() Set rsTemp = nothing %>

/dependencies.asp?pv_id=<%=aProductList( 0, rowNum )%> TARGET="_blank"> <%=aProductList( 2, rowNum )%>

No Changes Found.

Base Configuration Changes.

<%=Eval( aProductList( 5, rowNum ) )%>

<% Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PRODUCT_DETAILS PD WHERE PD.PROD_ID(+) = PV.PV_ID AND PV.PV_ID ="&ProdId, ORADYN_DEFAULT ) %> &change_type=<%=ChangeType%>&pkg_name=<%=aProductList( 1, rowNum )%>', 'BASE_<%=ProdId & ChangeType%>');"><%=LIMG_EXPAND & GetProductIcon( rsTemp ) & aProductList( 1, rowNum )%> <% rsTemp.Close() Set rsTemp = nothing %>

/dependencies.asp?pv_id=<%=aProductList( 0, rowNum )%> TARGET="_blank"> <%=aProductList( 2, rowNum )%>

No Changes Found.

LEGEND: <%=LIMG_ADDED%> Added, <%=LIMG_UPDATED%> Updated, <%=LIMG_REMOVED%> Removed <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>

<%=GetNodeImage ( dbPARnode_id )%>

Reason for release

Fixed Issues

<%End If%>