<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| AdminProjectIterations | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim i Dim LastRow Dim aIterationCollector Dim parAction '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parAction = Request("action") parBranch_id = Request("branch_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------------- Sub GetIterations ( aIterationCollector, nProj_id ) Dim rsQry OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("AdminProductionList.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then aIterationCollector = rsQry.GetRows() Else aIterationCollector = NULL End If rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "PROJ_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub RenderPMBOMCombo( nVtree_id, nRMProj_fk ) Dim rsQry, Disabled, Query Disabled = "" If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled" OraDatabase.Parameters.Add "RM_PROJ_FK", nRMProj_fk, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "VTREE_ID", nVtree_id, ORAPARM_INPUT, ORATYPE_NUMBER Query = "select * from"&_ " branches br, boms bm, bom_names bn"&_ " where br.proj_id = "&Request("PROJ_ID")&""&_ " and bm.BRANCH_ID = br.BRANCH_ID"&_ " and bn.BOM_NAME_ID = bm.BOM_NAME_ID"&_ " and bm.bom_id not in (select bom_id from production_bom)" Set rsQry = OraDatabase.DbCreateDynaset( Query, ORADYN_DEFAULT ) Response.write "" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Response.write ""& rsQry("bom_name").Value &""&VBNewLine&""& rsQry("bom_version") &"."&rsQry("bom_lifecycle")&"" rsQry.MoveNext WEnd Response.write "" rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "RM_PROJ_FK" OraDatabase.Parameters.Remove "VTREE_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub RenderPMBranchesCombo( nVtree_id, nRMProj_fk ) Dim rsQry, Disabled Disabled = "" If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled" Set rsQry = OraDatabase.DbCreateDynaset( "select * from branches where proj_id = "&nRMProj_fk&" and is_hidden is null order by branch_id desc", ORADYN_DEFAULT ) Response.write "" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Response.write ""& rsQry("branch_name").Value &"" rsQry.MoveNext WEnd Response.write "" rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub RenderState( nVtree_id, nRMProj_fk ) Dim rsQry, Disabled Disabled = "" If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled" Set rsQry = OraDatabase.DbCreateDynaset( "select * from states where proj_id = "&nRMProj_fk, ORADYN_DEFAULT ) Response.write "" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Response.write ""& rsQry("state_name").Value &"" rsQry.MoveNext WEnd Response.write "" rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub AddProductionBOM () On Error Resume Next OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BRANCH_ID", Request("branch_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "STATE_ID", Request("state_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Production.Add_Production_Bom ( :BOM_ID, :BRANCH_ID, :STATE_ID, :PROJ_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "STATE_ID" OraDatabase.Parameters.Remove "PROJ_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- 'Call GetFormDetails ( Request("bom_id"), objFormCollector ) ' --- Load Validation Rules --- 'Call objForm.LoadValidationRules ( Array("branch_name","branch_comments"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- ' --- RUN onPostBack --- If Request("doit") <> "" Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Select Case Request("action") Case "new" Call AddProductionBOM() Case "edit" Call EditBranch() End Select If objEH.Finally Then Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() ) End If End If End If '---------------------------------------------- %>

		<% Call GetIterations ( aIterationCollector, parProj_id ) %> <%=objPMod.ComposeHiddenTags()%> <% If NOT IsNull(aIterationCollector) Then LastRow = Ubound( aIterationCollector, 2 ) For i = 0 To LastRow %> <%If parAction = "" Then%> <%Else%> <%If CStr(aIterationCollector(0, i)) <> parBranch_id Then%> <%End If%> <%End If%> <% Next End If %> <%If parAction = "new" Then%> <%End If%> <%If parAction = "" Then%> <%End If%> Production Branch Production BOM Production State <%=aIterationCollector(9, i)%> <%=aIterationCollector(7, i)%><%=VBNewLine%><%=aIterationCollector(12, i)%> <%=( aIterationCollector(11, i) )%> <%=aIterationCollector(9, i)%> <%=aIterationCollector(7, i)%><%=VBNewLine%><%=aIterationCollector(12, i)%> <%=( aIterationCollector(11, i) )%> <%=LIMG_POINTER%> <%Call RenderPMBranchesCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%> <%Call RenderPMBOMCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%> <%Call RenderState( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%> <%=LIMG_ROW_SUBMIT%><%=LIMG_ROW_CANCEL%> <%=LIMG_NEW_ENTRY%>

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