<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Bom_History | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- '----------------------------------------------------------------------------------------------------------------- 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 '----------------------------------------------------------------------------------------------------------------- %>

<%Call RenderTitleWithoutVersion( 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.SelectByName("History") objTabControl.Render () %>       <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%> "&_ " "&_ " "&_ " "&_ " "&_ "" %> <%Call objRepeater.Navigator ( TRUE, TRUE )%> <% OraDatabase.Parameters.Add "BOM_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomHistory.sql") , ORADYN_DEFAULT ) 'Pass record set to Repeater objRepeater.RecordSet = rsQry 'Define Table Row with bound variables objRepeater.Row = _ " ""& <#DATE_TIME_STAMP#> &"" ""& <#TRAIL_ACTION#> &"" ""& objFormater.TextToHtml( <#TRAIL_COMMENTS#> ) &"" "&_ " ""& <#FULL_NAME#> &"" <%objRepeater.RenderDataGrid ()%> Date Action User Comments User <% OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close() Set rsQry = Nothing %> <%Call objRepeater.Navigator ( FALSE, TRUE )%>

"&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ "" %> BOM - Release Authorisation History <%Call objRepeater.Navigator ( TRUE, TRUE )%>

<% OraDatabase.Parameters.Add "BOM_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseAuthorisationHistory.sql") , ORADYN_DEFAULT ) 'Pass record set to Repeater objRepeater.RecordSet = rsQry 'Define Table Row with bound variables objRepeater.Row = _ "
""& <#PKG_NAME#> &"" ""& <#PKG_VERSION#> &""	""& <#TESTER_DATESTAMP#> &""	""& UserName( <#TESTER_ID#> ) &""	""& objFormater.TextToHtml( <#TESTER_COMMENTS#> ) &""	""& <#MANAGER_DATESTAMP#> &""	""& UserName( <#MANAGER_ID#> ) &""	""& objFormater.TextToHtml( <#MANAGER_COMMENTS#> ) &""

<%objRepeater.RenderDataGrid ()%> Package Date Tester Comments Date Manager Comments

<% OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close() Set rsQry = Nothing %> <%Call objRepeater.Navigator ( FALSE, TRUE )%>
<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%End If%>