WebSVN – DevTools – Blame – /ManagerSuite/Production_Manager/branches/dpurdie/wEditBaseEnv.asp

Rev	Author	Line No.	Line
62	rsolanki	1	`<%@LANGUAGE="VBSCRIPT"%>`
		2	`<%`
		3	`'=====================================================`
		4	`'\| \|`
		5	`'\| wEditBaseEnv \|`
		6	`'\| \|`
		7	`'=====================================================`
		8	`%>`
		9	`<%`
		10	`Option explicit`
		11	`Response.Expires = 0`
		12	`%>`
		13	`<!--#include file="common/globals.asp"-->`
		14	`<!--#include file="common/config.asp"-->`
		15	`<!--#include file="common/common_subs.asp"-->`
		16	`<!--#include file="common/_popup_window_common.asp"-->`
		17	`<%`
		18	`'------------ ACCESS CONTROL ------------------`
		19	`%>`
		20	`<!--#include file="_access_control_general.asp"-->`
		21	`<%`
		22	`'------------ VARIABLE DEFINITION -------------`
		23	`Dim rsQry`
		24	`Dim parBos_id`
		25	`Dim parBase_env_id`
		26	`Dim objFormCollector`
		27	`'------------ CONSTANTS DECLARATION -----------`
		28	`'------------ VARIABLE INIT -------------------`
		29	`parBos_id = Request("bos_id")`
		30	`parBase_env_id = Request("base_env_id")`
		31	`Set objFormCollector = CreateObject("Scripting.Dictionary")`
		32	`'------------ CONDITIONS ----------------------`
		33	`'----------------------------------------------`
		34	`%>`
		35	`<%`
		36	`'--------------------------------------------------------------------------------------------------------------------------`
		37	`Sub GetFormDetails ( nBaseEnvId, ByRef outobjDetails )`
		38	`Dim rsQry, query`
		39
		40	`If nBaseEnvId = "" Then Exit Sub`
		41
		42	`OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId, ORAPARM_INPUT, ORATYPE_NUMBER`
		43
		44	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BaseEnvDetails.sql") , ORADYN_DEFAULT )`
		45
		46	`If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then`
		47	`outobjDetails.Item ("base_env_id") = rsQry("base_env_id")`
		48	`outobjDetails.Item ("base_env_name") = rsQry("base_env_name")`
		49	`outobjDetails.Item ("bom_id") = rsQry("bom_id")`
		50	`outobjDetails.Item ("bos_id") = rsQry("bos_id")`
		51
		52	`Else`
		53	`Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBaseEnvId="& nBaseEnvId`
		54
		55	`End If`
		56
		57	`OraDatabase.Parameters.Remove "BASE_ENV_ID"`
		58
		59	`rsQry.Close`
		60	`Set rsQry = Nothing`
		61
		62
		63	`End Sub`
		64	`'--------------------------------------------------------------------------------------------------------------------------`
		65	`Function GetBaseOsTypes( nBos_id )`
		66	`Dim rsQry, query`
		67	`OraDatabase.Parameters.Add "BOS_ID", nBos_id, ORAPARM_INPUT, ORATYPE_NUMBER`
		68
		69	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OsTypesCombo.sql"), ORADYN_DEFAULT )`
		70
		71	`If rsQry.RecordCount > 0 Then`
		72	`GetBaseOsTypes = rsQry.GetRows()`
		73
		74	`Else`
		75	`GetBaseOsTypes = NULL`
		76
		77	`End If`
		78
		79	`OraDatabase.Parameters.Remove "BOS_ID"`
		80
		81	`rsQry.Close`
		82	`Set rsQry = Nothing`
		83	`End Function`
		84	`'--------------------------------------------------------------------------------------------------------------------------`
		85	`Sub UpdateBaseEnv ()`
		86	`On Error Resume Next`
		87
		88	`OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		89	`OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
		90	`OraDatabase.Parameters.Add "BOS_ID", Request("bos_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		91	`OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		92	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
		93
		94	`objEH.TryORA ( OraSession )`
		95
		96	`OraDatabase.ExecuteSQL _`
		97	`"BEGIN pk_Base_Env.Update_Base_Env ( :BASE_ENV_ID, :BASE_ENV_NAME, :BOS_ID, :OS_ID, :USER_ID ); END;"`
		98
		99	`objEH.CatchORA ( OraSession )`
		100
		101
		102	`OraDatabase.Parameters.Remove "BASE_ENV_ID"`
		103	`OraDatabase.Parameters.Remove "BASE_ENV_NAME"`
		104	`OraDatabase.Parameters.Remove "BOS_ID"`
		105	`OraDatabase.Parameters.Remove "OS_ID"`
		106	`OraDatabase.Parameters.Remove "USER_ID"`
		107
		108	`End Sub`
		109	`'--------------------------------------------------------------------------------------------------------------------------`
		110	`Sub AddBaseEnv ()`
		111	`On Error Resume Next`
		112
		113	`OraDatabase.Parameters.Add "BASE_ENV_NAME", Request("base_env_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
		114	`OraDatabase.Parameters.Add "BOS_ID", Request("bos_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		115	`OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		116	`OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		117	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
		118
		119	`objEH.TryORA ( OraSession )`
		120
		121	`OraDatabase.ExecuteSQL _`
		122	`"BEGIN pk_Base_Env.Add_Base_Env ( :BASE_ENV_NAME, :BOS_ID, :BOM_ID, :OS_ID, :USER_ID ); END;"`
		123
		124	`objEH.CatchORA ( OraSession )`
		125
		126
		127	`OraDatabase.Parameters.Remove "BASE_ENV_NAME"`
		128	`OraDatabase.Parameters.Remove "BOS_ID"`
		129	`OraDatabase.Parameters.Remove "BOM_ID"`
		130	`OraDatabase.Parameters.Remove "OS_ID"`
		131	`OraDatabase.Parameters.Remove "USER_ID"`
		132
		133
		134	`End Sub`
		135	`'--------------------------------------------------------------------------------------------------------------------------`
		136	`%>`
		137	`<%`
		138	`'------------ RUN BEFORE PAGE RENDER ----------`
		139	`' --- Get Form details from DB ---`
		140	`Call GetFormDetails ( parBase_env_id, objFormCollector )`
		141
		142	`' --- Load Validation Rules ---`
		143	`Call objForm.LoadValidationRules ( Array("base_env_name"), OraDatabase ) ' Load Validation Rules`
		144
		145	`' --- Enter Form Validation Rule Changes here... ----`
		146	`'----------------------------------------------------`
		147
		148	`' --- RUN onPostBack ---`
		149	`If Request("action") <> "" Then`
		150	`If objForm.IsValidOnPostBack Then`
		151	`' --- Form is Valid ---`
		152	`If parBase_env_id <> "" Then`
		153	`Call UpdateBaseEnv()`
		154	`Else`
		155	`Call AddBaseEnv()`
		156	`End If`
		157
		158	`If objEH.Finally Then`
		159	`Call OpenInParentWindow ( Request("rfile") &"?ADD=OK"& objPMod.ComposeURLWithout("rfile") )`
		160	`Call CloseWindow()`
		161	`End If`
		162
		163	`End If`
		164	`End If`
		165
		166	`'----------------------------------------------`
		167	`%>`
		168	`<html>`
		169	`<head>`
		170	`<title>Deployment Manager</title>`
		171	`<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">`
		172	`<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">`
		173	`<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">`
		174	`<script language="JavaScript" src="scripts/common.js"></script>`
		175	`</head>`
		176
		177	`<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.bos_id.focus();">`
		178	`<table width="100%" border="0" cellspacing="0" cellpadding="10">`
		179	`<tr>`
		180	`<td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle"> Base Configuration</span> <br>`
		181	`Enter OS type and Base Configuration Name.`
		182	`</td>`
		183	`</tr>`
		184	`<%`
		185	`'-- FROM START ---------------------------------------------------------------------------------------------------------`
		186	`objFormComponent.FormName = "FormName"`
		187	`objFormComponent.Action = SCRIPT_NAME`
		188	`objFormComponent.OnSubmit = "ShowProgress();"`
		189	`Call objFormComponent.FormStart()`
		190	`%>`
		191	`<tr>`
		192	`<td background="images/bg_login.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">`
		193	`<tr>`
		194	`<td><%=ProgressBar()%></td>`
		195	`<td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">`
		196	`<input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>`
		197	`</tr>`
		198	`</table></td>`
		199	`</tr>`
		200
		201	`<tr>`
		202	`<td>`
		203	`<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
		204	`<!--#include file="messages/_msg_inline.asp"-->`
		205	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
		206	`<table width="100%" border="0" cellspacing="2" cellpadding="0">`
		207	`<tr>`
		208	`<td valign="top" nowrap class="form_iname">Operating System Type</td>`
		209	`<td valign="top" class="body_txt"><%=objFormComponent.Combo ( "bos_id", GetBaseOsTypes( objForm.GetValue( "bos_id", objFormCollector.Item("bos_id") ) ), FALSE, "class='form_ivalue'" )%></td>`
		210	`<td valign="top"></td>`
		211	`</tr>`
		212	`<tr>`
		213	`<td nowrap class="form_iname" valign="top">Base Configuration Name </td>`
		214	`<td valign="top"><%=objFormComponent.TextBox ( "base_env_name", objForm.GetValue( "base_env_name", objFormCollector.Item("base_env_name") ), "size='50' class='form_ivalue'" )%></td>`
		215	`<td valign="top"><%=objForm.Validate ("base_env_name")%></td>`
		216	`</tr>`
		217	`<tr>`
		218	`<td width="10%" class="form_iname"> </td>`
		219	`<td width="1%"> </td>`
		220	`<td width="90%" class="val_err"></td>`
		221	`</tr>`
		222	`</table></td>`
		223	`</tr>`
		224	`<%=objPMod.ComposeHiddenTags()%>`
		225	`<input type="hidden" name="base_env_id" value="<%=parBase_env_id%>">`
		226	`<input type="hidden" name="action" value="true">`
		227	`<%`
		228	`Call objFormComponent.FormEnd()`
		229	`'-- FROM END ----------------------------------------------------------------------------------------------------------------`
		230	`%>`
		231	`</table>`
		232	`</body>`
		233	`</html>`
		234	`<%`
		235	`'------------ RUN AFTER PAGE RENDER -----------`
		236	`'----------------------------------------------`
		237	`%><!--#include file="common/globals_destructor.asp"-->`

Subversion Repositories DevTools

(root)/ManagerSuite/Production_Manager/branches/dpurdie/wEditBaseEnv.asp – Rev 1284