<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| NewBom | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim isSelectDisabled '------------ CONSTANTS DECLARATION ----------- Const enumBOM_EDITMODE = "" Const enumBOM_NEW = "" Const enumBOM_ACCEPTED = "" Const enumBOM_REJECTED = "" '------------ VARIABLE INIT ------------------- parProj_id = Request("proj_id") parBranch_id = Request("branch_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetRecentBoms ( nBranch_id ) Dim rsQry, query OraDatabase.Parameters.Add "BRANCH_ID", nBranch_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RecentBomsInBranch.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount < 1 Then Response.write "There are no recent BOMs found." End If While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Response.write ""&_ BomIcon( rsQry("is_readonly"), rsQry("is_rejected") ) & rsQry("bom_name").Value &" "& rsQry("bom_version") &"."& rsQry("bom_lifecycle") &"
" rsQry.MoveNext WEnd OraDatabase.Parameters.Remove "BRANCH_ID" rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Function GetProjectList ( nProjId ) Dim rsQry, Selected, aComboItems, lastItem, i OraDatabase.Parameters.Add "PROJ_ID", nProjId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then aComboItems = rsQry.GetRows() Else Err.Raise 8, "Sub GetProjectList", "Empty record set returned. nProjId="& nProjId End If OraDatabase.Parameters.Remove "PROJ_ID" rsQry.Close Set rsQry = Nothing '-- Alter combo item link column to work with OnChange javascript lastItem = Ubound( aComboItems, 2 ) For i = 0 To lastItem aComboItems(0, i) = SCRIPT_NAME &"?from_proj_id="& aComboItems(0, i) &"&"& objPMod.ComposeURL() Next '-- Return Combo Items Array GetProjectList = aComboItems End Function '-------------------------------------------------------------------------------------------------------------------------- Function GetBranchList ( nProjId, nBranch_id ) Dim rsQry, Selected, aComboItems, lastItem, i OraDatabase.Parameters.Add "PROJ_ID", nProjId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", nBranch_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BranchesCombo.sql"), ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then aComboItems = rsQry.GetRows() End If OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "BRANCH_ID" rsQry.Close Set rsQry = Nothing If IsArray(aComboItems) Then '-- Alter combo item link column to work with OnChange javascript lastItem = Ubound( aComboItems, 2 ) For i = 0 To lastItem aComboItems(0, i) = SCRIPT_NAME &"?from_proj_id="& nProjId &"&from_branch_id="& aComboItems(0, i) &"&"& objPMod.ComposeURL() Next End If '-- Return Combo Items Array GetBranchList = aComboItems End Function '-------------------------------------------------------------------------------------------------------------------------- Function GetBomList ( nProjId, nBranch_id ) Dim rsQry, Selected, aComboItems, lastItem, i OraDatabase.Parameters.Add "PROJ_ID", nProjId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", nBranch_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BOM_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BomsCombo.sql"), ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then GetBomList = rsQry.GetRows() End If OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close Set rsQry = Nothing End Function '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '-- Redirect if known from_bom_id If Request("bom_id_list") <> "" Then Call OpenInWindow ( "AddBomFrom.asp?from_bom_id="& Request("bom_id_list") &"&"& objPMod.ComposeURL() ) End If '---------------------------------------------- %> <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = "AddBomFrom.asp" Call objFormComponent.FormStart() %> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

<%=objPMod.ComposeHiddenTags()%> New BOM Create New Bill of Materials (BOM) by selecting available options below. Create New Blank Create from Recent <%Call GetRecentBoms ( parBranch_id )%> Create From Other <%=objFormComponent.Combo ( "from_proj_id", GetProjectList( Request("from_proj_id") ), TRUE, "class='form_ivalue' onChange=""MM_jumpMenu('parent',this,0)"" " )%> <% If Request("from_proj_id") <> "" Then Response.write objFormComponent.Combo ( "from_branch_id", GetBranchList( Request("from_proj_id"), Request("from_branch_id") ), TRUE, "class='form_ivalue' onChange=""MM_jumpMenu('parent',this,0)"" " ) Response.write " " End If %> <% isSelectDisabled = "disabled" If Request("from_branch_id") <> "" Then Response.write objFormComponent.Combo ( "from_bom_id", GetBomList( Request("from_proj_id"), Request("from_branch_id") ), FALSE, "class='form_ivalue' " ) Response.write " " isSelectDisabled = "" End If %> <%=objFormComponent.SubmitButton ( "Select", "class='form_ivalue' "& isSelectDisabled )%> <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", Request("rfile") &"?CANCEL=OK"& objPMod.ComposeURLWithout("rfile") )%>

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