Production Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Product Issues | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim errNumber Dim objIssueCollector Dim altRowColor Dim currRowColor Dim outORDER_BY Dim parFilter_on Dim parBase_env_id Dim objFormCollector Dim a, b, VersionList, sqlstrA '------------ CONSTANTS DECLARATION ----------- Const LIMG_FIXED = " Latest Fixed Issue

" Const LIMG_OLD_FIXED = " Old Fixed Issue

" '------------ VARIABLE INIT ------------------- errNumber = 0 Set objIssueCollector = CreateObject("Scripting.Dictionary") Set objFormCollector = CreateObject("Scripting.Dictionary") parProd_id = Request("prod_id_list") parOs_id = Request("os_id") parBom_id = Request("bom_id") parFilter_on = Request("filter_on") parBase_env_id = Request("base_env_id") '------------ 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 GetIssueDetails ( nIssID, nIssDB, oIssueCollector, nErrNumber ) Dim query, rsCQ If objFormCollector.Item("rm_projects_fk") = 122 Then query = GetQuery ("IssuesList_cqVTSUP.sql") query = Replace( query, "/*VTSUPiss*/", nIssID ) Else query = GetQuery ("IssuesList_cqDEVI.sql") query = Replace( query, "/*DEVIiss*/", nIssID ) End If nErrNumber = GetCQIssue ( query, rsCQ ) If nErrNumber = 0 Then If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then oIssueCollector.Item ("iss_id") = CStr( rsCQ("iss_id") ) oIssueCollector.Item ("iss_num") = CStr( rsCQ("iss_num") ) oIssueCollector.Item ("summary") = CStr( rsCQ("summary") ) oIssueCollector.Item ("status") = CStr( rsCQ("status") ) oIssueCollector.Item ("priority") = CStr( rsCQ("priority") ) oIssueCollector.Item ("issue_type") = CStr( rsCQ("issue_type") ) End If End If End Sub '---------------------------------------------------------------------------------------------------------------------------------------- Function GetCQIssue ( sSQL, oRsCQ ) On Error Resume Next Set oRsCQ = OraDatabase.DbCreateDynaset( sSQL, cint(0)) GetCQIssue = Err.Number End Function '---------------------------------------------------------------------------------------------------------------------------------------- Function SetRowColor( cRowColor ) If cRowColor = "" Then SetRowColor = altRowColor Else SetRowColor = "" End If End Function '---------------------------------------------------------------------------------------------------------------------------------------- Sub PreviousVersions(a, b) If CLng(a) < CLng(b) Then While CLng(a) < CLng(b) b = LastPvId(b) If CLng(a) < CLng(b) Then VersionList = VersionList + ","& b End If Wend End If If CLng(b) < CLng(a) Then While CLng(b) < CLng(a) a = LastPvId(a) If CLng(b) < CLng(a) Then VersionList = VersionList + ","& a End If Wend End If End Sub '---------------------------------------------------------------------------------------------------------------------------------------- Sub GetDependencies(pv_id_a, pv_id_b) VersionList = "0" Set sqlstrA = OraDatabase.DbCreateDynaset("select distinct dpv_id from package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" ) order by dpv_id desc", cint(0)) If sqlstrA.RecordCount <> 0 Then While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF)) VersionList = VersionList + ","& sqlstrA("dpv_id") sqlstrA.MoveNext Wend End If sqlstrA.Close() Set sqlstrA = Nothing End Sub '---------------------------------------------------------------------------------------------------------------------------------------- Function LastPvId(pvId) Dim qryA Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0)) LastPvId = pvId If pvId <> qryA("last_pv_id") Then LastPvId = qryA("last_pv_id") Else errormsg = true End If qryA.Close() Set qryA = Nothing End Function '---------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_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.SelectByName ("Issues") objTabControl.Render () %>
	<% '-- Define Action buttons on this tab 'aTabBtnsDef = Array("btnAddOs", "width=10", "btnCopyOs", "btnPasteOs") 'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) 'objBtnControl.Render( aTabBtnsDef ) %>
		<%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()%>

<% VersionList = "0" On Error Resume Next Dim rsQryLast Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& Request("old_prod_id"), cint(0)) If rsQryLast("last_pv_id") <> Request("prod_id") Then Call PreviousVersions( Request("prod_id"), Request("old_prod_id") ) End If Call GetDependencies(Request("prod_id"), VersionList + ","+ Request("old_prod_id")) Set rsQry = OraDatabase.DbCreateDynaset( "select * from cq_issues cq, packages pkg, package_versions pv "&_ " where cq.iss_db = 7 and pv.pv_id IN ("&VersionList&") and pv.pkg_id = pkg.pkg_id and cq.pv_id = pv.pv_id order by pv.pv_id desc", ORADYN_DEFAULT ) 'Response.Write VersionList Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber ) currRowColor = SetRowColor( currRowColor ) If errNumber <> 0 Then Exit Do %> <%If IsEmpty(objIssueCollector.Item ("summary")) Then%> <%Else%> <%End If%> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% Loop rsQry.Close() Set rsQry = Nothing rsQryLast.Close() Set rsQryLast = Nothing OraDatabase.Parameters.Add "PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OLD_PROD_ID", objProdCollector.Item("last_pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OTHER_PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER If objFormCollector.Item("rm_projects_fk") = 122 Then Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("VTIssuesList.sql") & outORDER_BY, ORADYN_DEFAULT ) Else Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT ) End If altRowColor = "bgcolor='#F7F7F8'" currRowColor = "" Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber ) currRowColor = SetRowColor( currRowColor ) If errNumber <> 0 Then Exit Do %> <%If IsEmpty(objIssueCollector.Item ("summary")) Then%> <%Else%> <%End If%> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% Loop OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "OLD_PROD_ID" OraDatabase.Parameters.Remove "OTHER_PROD_ID" %> <%If errNumber <> 0 Then '--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%> <%End If%>

nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%>

valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%>

nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%>

nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%>

nowrap valign="top" class="body_rowlite">