Production Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ProdDefault | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim nOldProdID Dim rsQry Dim sMessage Dim parBase_env_id Dim objFormCollector 'Dim objOldProdCollector '------------ CONSTANTS DECLARATION ----------- Const LIMG_NOTE_NEW = "

" Const LIMG_NOTE_EDIT = "

" '------------ VARIABLE INIT ------------------- 'Set objOldProdCollector = CreateObject("Scripting.Dictionary") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER '/* Get Project Details */ query = _ " SELECT proj.RM_PROJECTS_FK, bo.rtag_id_fk"&_ " FROM BOMS bo,"&_ " BRANCHES br,"&_ " DM_PROJECTS proj"&_ " WHERE br.PROJ_ID = proj.PROJ_ID"&_ " AND bo.BRANCH_ID = br.BRANCH_ID"&_ " AND bo.BOM_ID = :BOM_ID" Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk") outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk") Else Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id End If OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close Set rsQry = Nothing End Sub '----------------------------------------------------------------------------------------------------------------- Sub GetOldProdDetails ( nProd_id, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "PROD_ID", nProd_id, ORAPARM_INPUT, ORATYPE_NUMBER query = _ " SELECT pkg.pkg_name, cpv.pkg_version, ppv.pkg_version AS previous_version, cpv.last_pv_id AS old_prod_id"&_ " FROM PACKAGE_VERSIONS cpv,"&_ " PACKAGE_VERSIONS ppv,"&_ " PACKAGES pkg"&_ " WHERE cpv.LAST_PV_ID = ppv.pv_id"&_ " AND cpv.pkg_id = pkg.pkg_id"&_ " AND cpv.pv_id = :PROD_ID" Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then outobjDetails.Item ("old_prod_id") = rsQry("old_prod_id") outobjDetails.Item ("pkg_name") = rsQry("pkg_name").Value outobjDetails.Item ("pkg_version") = rsQry("pkg_version").Value outobjDetails.Item ("previous_version") = rsQry("previous_version").Value End If OraDatabase.Parameters.Remove "PROD_ID" rsQry.Close Set rsQry = Nothing End Sub '----------------------------------------------------------------------------------------------------------------- Sub RowStyle ( nStatus, ByRef outIcon, ByRef outStyle ) Select Case CInt( nStatus ) Case enumDB_DIFF_NO_CHANGE outStyle = "body_rowg" outIcon = NULL Case enumDB_DIFF_UPDATED outStyle = "body_rowbold" outIcon = LIMG_UPDATED Case enumDB_DIFF_NEW outStyle = "body_rowbold" outIcon = LIMG_ADDED Case enumDB_DIFF_REMOVED outStyle = "body_rowthru" outIcon = LIMG_REMOVED End Select End Sub '----------------------------------------------------------------------------------------------------------------- Function UserName (nUserId) If nUserId <> "" Then Dim rsTemp, user_name Set rsTemp = OraDatabase.DbCreateDynaset( "select * from users where user_id ="&nUserId , ORADYN_DEFAULT ) user_name = rsTemp("full_name") rsTemp.Close() Set rsTemp = Nothing UserName = user_name Else UserName = NULL End If End Function '----------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, Request("bom_id"), objFormCollector ) '---------------------------------------------- %> Production Manager

	<%Call RenderTitle( objProdCollector )%>
	<% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrProdTabDef ) objTabControl.Render () %>

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

<% OraDatabase.Parameters.Add "PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER %>

Changes since version <%=objPMod.ComposeHiddenTags()%>

<% If objProdCollector.Item ("is_rejected") = enumDB_YES Then OraDatabase.Parameters.Add "ENTITY_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", "enumENTITY_TYPE_PRODUCT", ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT ) sMessage = "" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) sMessage = sMessage & "" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" rsQry.MoveNext WEnd rsQry.Close sMessage = sMessage &"

Product is REJECTED!	Create Note"& LIMG_NOTE_NEW &"

" If rsQry("is_rejected") = enumDB_YES Then sMessage = sMessage &"Product is REJECTED! " Else sMessage = sMessage &"Product is Accepted! " End If sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &" "& rsQry("creator") &"	Edit Note"& LIMG_NOTE_EDIT &"

" Call Messenger ( sMessage, "i_product_rejected.gif", "100%" ) Response.write "
" OraDatabase.Parameters.Remove "ENTITY_ID" OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE" End If %> Module Changes <% Dim style, icon Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsDiff.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Call RowStyle ( rsQry("status"), icon, style ) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd %>

Module Name

Current Version

Previous Version

Owner

<%=icon%>

<%=rsQry("pkg_name").Value%>

<%=rsQry("pkg_version").Value%>

<%=rsQry("previous_version").Value%>

" class="body_link" title="Send Email to <%=rsQry("user_email")%>"><%=LIMG_EMAIL & rsQry("full_name").Value%>

NOTE: <%=LIMG_UPDATED%> Updated, <%=LIMG_ADDED%> Added, <%=LIMG_REMOVED%> Removed, [Blank] No change

Reasons For This Version <% Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReasonsForVersionList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd %>

<%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%>
<% If IsNull(rsQry("comments")) OR rsQry("comments") = "" Then Response.write "Not specified. Check Issues list." Else Response.write objFormater.TextToHtml( rsQry("comments") ) End If %>

<% OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "V_EXT" OraDatabase.Parameters.Remove "OLD_PROD_ID" OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "FILTER_ON" %>

Release Authorisation <% Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_authorisation where pv_id="&dbPARprod_id, ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then %>

<%'objRepeater.RenderDataGrid ()%>

Date	Regional Tester	Tester Comments
<%=rsQry("tester_datestamp")%>	<%=UserName(rsQry("tester_id"))%>	<%=rsQry("tester_comments")%>

<%'objRepeater.RenderDataGrid ()%>

Date	Regional Manager	Manager Comments
<%=rsQry("manager_datestamp")%>	<%=UserName(rsQry("manager_id"))%>	<%=rsQry("manager_comments")%>

<% Else %> No Information <% End If rsQry.Close() Set rsQry = Nothing %>

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

<%=GetNodeImage ( dbPARnode_id )%>

Reason for release

Fixed Issues

<%End If%>