<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| BomStates | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim StateId, StateTypeEnum Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBranch_id = Request("branch_id") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nBranch_id, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "BRANCH_ID", nBranch_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BranchDetails.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then outobjDetails.Item ("branch_id") = rsQry("branch_id") outobjDetails.Item ("branch_name") = rsQry("branch_name").Value outobjDetails.Item ("proj_name") = rsQry("proj_name").Value End If OraDatabase.Parameters.Remove "BRANCH_ID" rsQry.Close Set rsQry = Nothing End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- Sub NewBOMList ( rsQry ) %> <%rsQry.MoveNext%> <%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%> <% If (NOT IsNull(rsQry("bom_id"))) Then Dim RowColor RowColor = NULL 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 End If rsQry.MovePrevious %> <%Else rsQry.MovePrevious %> <%End If%>

	BOM Version	Arrived
>">	nowrap>" class="menu_link"><%=BomIcon( rsQry("is_readonly"), rsQry("is_rejected") )%><%=rsQry("bom_name").Value &" "& rsQry("bom_version") &"."& rsQry("bom_lifecycle")%>	align="left" nowrap class="body_txt"> <%=objFormater.FormatDate ( rsQry("date_stamp"), 1 ) %>

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

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

<%=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 )%>  More...

<% End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetFormDetails ( parBranch_id, objFormCollector ) If (Request("action") <> "") Then '-- Select Action Call ActionRedirection ( Request("action") ) End If '---------------------------------------------- %>

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

<%If (dbPARproj_id <> enumDB_DEFAULT_EMPTY) AND (dbPARbranch_id <> enumDB_DEFAULT_EMPTY) Then%> <% OraDatabase.Parameters.Add "PROJ_ID", dbPARproj_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStatesMain.sql") , ORADYN_DEFAULT ) Dim tempCnt tempCnt = 0 While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (tempCnt < 50)) StateId = rsQry("state_id") StateTypeEnum = rsQry("state_type_enum") Call NewState ( rsQry ) rsQry.MoveNext tempCnt = tempCnt + 1 WEnd 'Response.write tempCnt rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "BRANCH_ID" %> <%End If%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing Set objCrumbs = Nothing '---------------------------------------------- %>