<%@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 ("BranchList.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 RenderRMBranchesCombo( nVtree_id, nRMProj_fk ) Dim rsQry, Disabled 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 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMBranchList.sql"), ORADYN_DEFAULT ) Response.write "" Response.write "" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Response.write ""& rsQry("rtag_name").Value &"" rsQry.MoveNext WEnd Response.write "" rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "RM_PROJ_FK" OraDatabase.Parameters.Remove "VTREE_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub AddBranch () On Error Resume Next OraDatabase.Parameters.Add "BRANCH_NAME", Request("branch_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RM_PROJECTS_FK", Request("rm_vtree_fk"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_COMMENTS", Request("branch_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Project.Add_Branch ( :BRANCH_NAME, :PROJ_ID, :RM_PROJECTS_FK, :BRANCH_COMMENTS ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BRANCH_NAME" OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "RM_PROJECTS_FK" OraDatabase.Parameters.Remove "BRANCH_COMMENTS" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub EditBranch () On Error Resume Next OraDatabase.Parameters.Add "BRANCH_ID", Request("branch_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_NAME", Request("branch_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "RM_PROJECTS_FK", Request("rm_vtree_fk"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_COMMENTS", Request("branch_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Project.Update_Branch ( :BRANCH_ID, :BRANCH_NAME, :RM_PROJECTS_FK, :BRANCH_COMMENTS ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BRANCH_NAME" OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "RM_PROJECTS_FK" OraDatabase.Parameters.Remove "BRANCH_COMMENTS" 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 AddBranch() Case "edit" Call EditBranch() End Select If objEH.Finally Then Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() ) End If End If End If '---------------------------------------------- %> "" Then%>onLoad="FormName.branch_name.focus();"<%End If%>>

		<% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrAdminProjectsTabDef ) objTabControl.SelectByName ("Iterations") objTabControl.Render () %>   <% 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%> <%Else%> <%End If%> <%End If%> <% Next End If %> <%If parAction = "new" Then%> <%End If%> <%If parAction = "" Then%> <%End If%> Iteration Name Release Manager Iteration Comments Hide   <%=aIterationCollector(1, i)%> <%=aIterationCollector(3, i)%> <%=objFormater.TextToHtml( aIterationCollector(5, i) )%> <%=GetTick ( aIterationCollector(4, i) )%> <%=LIMG_EDIT%><%=LIMG_REMOVE%> <%=aIterationCollector(1, i)%> <%=aIterationCollector(3, i)%> <%=objFormater.TextToHtml( aIterationCollector(5, i) )%> <%=GetTick ( aIterationCollector(4, i) )%>   <%=LIMG_POINTER%> "> <%=objForm.Validate ("branch_name")%> <%Call RenderRMBranchesCombo( aIterationCollector(2, i), objProjCollector.Item("rm_projects_fk") )%> <%=objForm.GetValue( "branch_comments", aIterationCollector(5, i) )%> <%=objForm.Validate ("branch_comments")%>   <%=LIMG_ROW_SUBMIT%><%=LIMG_ROW_CANCEL%> <%=LIMG_POINTER%> "> <%=objForm.Validate ("branch_name")%> <%Call RenderRMBranchesCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%> <%=Request("branch_comments")%> <%=objForm.Validate ("branch_comments")%>   <%=LIMG_ROW_SUBMIT%><%=LIMG_ROW_CANCEL%> <%=LIMG_NEW_ENTRY%>

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