<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wEditBaseEnv | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim parBos_id Dim parBase_env_id Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBos_id = Request("bos_id") parBase_env_id = Request("base_env_id") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nBaseEnvId, ByRef outobjDetails ) Dim rsQry, query If nBaseEnvId = "" Then Exit Sub OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BaseEnvDetails.sql") , ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then outobjDetails.Item ("base_env_id") = rsQry("base_env_id") outobjDetails.Item ("base_env_name") = rsQry("base_env_name") outobjDetails.Item ("bom_id") = rsQry("bom_id") outobjDetails.Item ("bos_id") = rsQry("bos_id") Else Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBaseEnvId="& nBaseEnvId End If OraDatabase.Parameters.Remove "BASE_ENV_ID" rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Function GetBaseOsTypes( nBos_id ) Dim rsQry, query OraDatabase.Parameters.Add "BOS_ID", nBos_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsTypesCombo.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then GetBaseOsTypes = rsQry.GetRows() Else GetBaseOsTypes = NULL End If OraDatabase.Parameters.Remove "BOS_ID" rsQry.Close Set rsQry = Nothing End Function '-------------------------------------------------------------------------------------------------------------------------- Sub UpdateBaseEnv () On Error Resume Next OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BOS_ID", Request("bos_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Base_Env.Update_Base_Env ( :BASE_ENV_ID, :BASE_ENV_NAME, :BOS_ID, :OS_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BASE_ENV_ID" OraDatabase.Parameters.Remove "BASE_ENV_NAME" OraDatabase.Parameters.Remove "BOS_ID" OraDatabase.Parameters.Remove "OS_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub AddBaseEnv () On Error Resume Next OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BOS_ID", Request("bos_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Base_Env.Add_Base_Env ( :BASE_ENV_NAME, :BOS_ID, :BOM_ID, :OS_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BASE_ENV_NAME" OraDatabase.Parameters.Remove "BOS_ID" OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "OS_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- Call GetFormDetails ( parBase_env_id, objFormCollector ) ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("base_env_name"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- ' --- RUN onPostBack --- If Request("action") <> "" Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- If parBase_env_id <> "" Then Call UpdateBaseEnv() Else Call AddBaseEnv() End If If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?ADD=OK"& objPMod.ComposeURLWithout("rfile") ) Call CloseWindow() End If End If End If '---------------------------------------------- %> <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = SCRIPT_NAME objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Base Configuration Enter OS type and Base Configuration Name.

<%=ProgressBar()%>

Operating System Type <%=objFormComponent.Combo ( "bos_id", GetBaseOsTypes( objForm.GetValue( "bos_id", objFormCollector.Item("bos_id") ) ), FALSE, "class='form_ivalue'" )%> Base Configuration Name <%=objFormComponent.TextBox ( "base_env_name", objForm.GetValue( "base_env_name", objFormCollector.Item("base_env_name") ), "size='50' class='form_ivalue'" )%> <%=objForm.Validate ("base_env_name")%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>