<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| BomStates | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim StateId, StateTypeEnum Dim objFormCollector Dim parState_id Dim RowColor '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objFormCollector = CreateObject("Scripting.Dictionary") parState_id = Request("state_id") RowColor = NULL '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Function GetIsDisplayedIcon ( cIsDisplayed ) If cIsDisplayed = enumDB_YES Then GetIsDisplayedIcon = "" Else GetIsDisplayedIcon = "" End If End Function '-------------------------------------------------------------------------------------------------------------------------- Sub ToggleDisplay() Dim aDiffList, numOfRows, rowNum, OraParameter Const bom_id_column = 0 On Error Resume Next OraDatabase.Parameters.Add "STATE_ID", parState_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT ) aDiffList = rsQry.GetRows() numOfRows = UBound( aDiffList, 2 ) For rowNum = 0 To numOfRows If Request("hide_"& aDiffList( bom_id_column, rowNum )) <> "" Then OraDatabase.Parameters.Add "BOM_ID", aDiffList( bom_id_column, rowNum ), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "DISPLAY", "N", ORAPARM_INPUT, ORATYPE_VARCHAR objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_State.Toggle_Is_Displayed ( :STATE_ID, :BOM_ID, :DISPLAY ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "DISPLAY" Else OraDatabase.Parameters.Add "BOM_ID", aDiffList( bom_id_column, rowNum ), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "DISPLAY", "Y", ORAPARM_INPUT, ORATYPE_VARCHAR objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_State.Toggle_Is_Displayed ( :STATE_ID, :BOM_ID, :DISPLAY ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "DISPLAY" End If Next rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "STATE_ID" OraDatabase.Parameters.Remove "BRANCH_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nState_id, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "STATE_ID", nState_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateDetails.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then outobjDetails.Item ("state_id") = rsQry("state_id") outobjDetails.Item ("state_name") = rsQry("state_name").Value outobjDetails.Item ("state_type_enum") = rsQry("state_type_enum") End If OraDatabase.Parameters.Remove "STATE_ID" rsQry.Close Set rsQry = Nothing End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- Sub NewBOMList ( rsQry ) %>
<% While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (NOT IsNull(rsQry("bom_id")))) If IsNull( RowColor ) Then RowColor = "bgcolor='#F5F5F5'" Else RowColor = NULL End If %> <% rsQry.MoveNext WEnd %>

	BOM Name	Version	Bom Comments	Released By	Arrived	Hide
valign="top">">	nowrap valign="top">" class="menu_link"><%=BomIcon( rsQry("is_readonly"), rsQry("is_rejected") )%><%=rsQry("bom_name")%>	nowrap valign="top">" class="menu_link"><%=rsQry("bom_version") &"."& rsQry("bom_lifecycle")%>	class="body_rowlite"><%=objFormater.TextToHtml( rsQry("bom_comments") )%>	nowrap valign="top">" title="Send email to <%=rsQry("user_email")%>" class="body_link"><%=rsQry("full_name").Value%>	nowrap align="right" valign="top" class="body_txt"> <%=objFormater.FormatDate ( rsQry("arrived_date"), 1 ) %>	align="left" valign="top">" value="<%=rsQry("bom_id")%>" <%If rsQry("is_displayed") = "Y" Then%> > <%Else%> checked > <%End If%>

<% End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- Sub NewState ( rsQry ) %>

<%=objFormCollector.Item("state_name")%>

<%=objPMod.ComposeHiddenTags()%>

<% '-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER- 'objAccessControl.BeginRegion ( "SomeName" ) %> <% 'objAccessControl.EndRegion ( "SomeName" ) '-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER- %> <%Call NewBOMList( rsQry )%>

<% End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call objPMod.PersistInQryString ( aPersistList(enumPAR_STATE_ID) ) Call GetFormDetails ( parState_id, objFormCollector ) If (Request("action") <> "") Then Call ToggleDisplay() '-- Select Action Call ActionRedirection ( Request("action") ) If objEH.Finally Then Call OpenInWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") ) End If End If '---------------------------------------------- %>

	<%=objFormCollector.Item("state_name")%> Explorer
	" class="body_link">Release Explorer

<%If (dbPARproj_id <> enumDB_DEFAULT_EMPTY) AND (dbPARbranch_id <> enumDB_DEFAULT_EMPTY) Then%> <% OraDatabase.Parameters.Add "STATE_ID", parState_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT ) StateId = objFormCollector.Item("state_id") StateTypeEnum = objFormCollector.Item("state_type_enum") If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then Call NewState ( rsQry ) End If rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "STATE_ID" OraDatabase.Parameters.Remove "BRANCH_ID" %> <%End If%>