<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| AdminProjectStates | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim i Dim LastRow Dim aStateCollector Dim parAction Dim parState_id '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parAction = Request("action") parState_id = Request("state_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------------- Sub GetStates ( aStateCollector, nProj_id ) Dim rsQry OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateList.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then aStateCollector = rsQry.GetRows() Else aStateCollector = NULL End If rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "PROJ_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub RenderStateTypesCombo( nStateType ) Dim aStateTypes, LastState, i, Selected '--- Get State Types from collector aStateTypes = oEnumStateTypeNames.Keys Response.write "" LastState = UBound( aStateTypes ) For i = 0 To LastState Selected = "" If aStateTypes(i) = nStateType Then Selected = "selected" Response.write ""& oEnumStateTypeNames.Item ( aStateTypes(i) ) &"" Next Response.write "" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub RenderStateSeqCombo( nProj_id, nState_seq ) Dim rsQry, Selected OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateList.sql"), ORADYN_DEFAULT ) Response.write "" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Selected = "" If CInt(nState_seq) = CInt(rsQry("state_seq")) Then Selected = "selected" Response.write ""& rsQry("state_seq") &"" rsQry.MoveNext WEnd Response.write "" rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "PROJ_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub AddState () On Error Resume Next OraDatabase.Parameters.Add "STATE_NAME", Request("state_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "STATE_TYPE_ENUM", Request("state_type_enum"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_State.Add_State ( :STATE_NAME, :STATE_TYPE_ENUM, :PROJ_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "STATE_NAME" OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "STATE_TYPE_ENUM" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub EditState () On Error Resume Next OraDatabase.Parameters.Add "STATE_ID", Request("state_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "STATE_NAME", Request("state_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "STATE_SEQ", Request("state_seq"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "STATE_TYPE_ENUM", Request("state_type_enum"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_State.Update_State ( :STATE_ID, :STATE_NAME, :STATE_SEQ, :STATE_TYPE_ENUM ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "STATE_ID" OraDatabase.Parameters.Remove "STATE_NAME" OraDatabase.Parameters.Remove "STATE_SEQ" OraDatabase.Parameters.Remove "STATE_TYPE_ENUM" End Sub '-------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("state_name"), 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 AddState() Case "edit" Call EditState() End Select If objEH.Finally Then Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() ) End If End If End If '---------------------------------------------- %> "" Then%>onLoad="FormName.state_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 ("States") objTabControl.Render () %> <% '-- Define Action buttons on this tab 'aTabBtnsDef = Array("abtnAddBranch") 'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) 'objBtnControl.Render( aTabBtnsDef ) %>   <% Call GetStates ( aStateCollector, parProj_id ) %> <%=objPMod.ComposeHiddenTags()%> <% If NOT IsNull(aStateCollector) Then LastRow = Ubound( aStateCollector, 2 ) For i = 0 To LastRow %> <%If parAction = "" Then%> <%Else%> <%If CStr(aStateCollector(0, i)) <> parState_id Then%> <%Else%> <%End If%> <%End If%> <% Next End If %> <%If parAction = "new" Then%> <%End If%> <%If parAction = "" Then%> <%End If%> Release Sequence State Name State Type   <%=aStateCollector(2, i)%> <%=aStateCollector(1, i)%> <%=oEnumStateTypeNames.Item( aStateCollector(3, i) )%> <%=LIMG_EDIT%><%=LIMG_REMOVE%> <%=aStateCollector(2, i)%> <%=aStateCollector(1, i)%> <%=oEnumStateTypeNames.Item( aStateCollector(3, i) )%>   <%=LIMG_POINTER%> <%Call RenderStateSeqCombo( parProj_id, aStateCollector(2, i) ) %> "> <%=objForm.Validate ("state_name")%> <%Call RenderStateTypesCombo( aStateCollector(3, i) )%> <%=LIMG_ROW_SUBMIT%><%=LIMG_ROW_CANCEL%> <%=LIMG_POINTER%> "> <%=objForm.Validate ("state_name")%> <%Call RenderStateTypesCombo( NULL )%> <%=LIMG_ROW_SUBMIT%><%=LIMG_ROW_CANCEL%> <%=LIMG_NEW_ENTRY%>

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