WebSVN – DevTools – Blame – /ManagerSuite/Production_Manager/trunk/web/AdminProject_States.asp

Rev	Author	Line No.	Line
5356	dpurdie	1	`<%@LANGUAGE="VBSCRIPT"%>`
		2	`<%`
		3	`'=====================================================`
		4	`'\| \|`
		5	`'\| AdminProjectStates \|`
		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/_admin_projects_common.asp"-->`
		17	`<%`
		18	`'------------ ACCESS CONTROL ------------------`
		19	`%>`
		20	`<!--#include file="_access_control_general.asp"-->`
		21	`<!--#include file="_access_control_admin_pages.asp"-->`
		22	`<%`
		23	`'------------ VARIABLE DEFINITION -------------`
		24	`Dim rsQry`
		25	`Dim i`
		26	`Dim LastRow`
		27	`Dim aStateCollector`
		28	`Dim parAction`
		29	`Dim parState_id`
		30	`'------------ CONSTANTS DECLARATION -----------`
		31	`'------------ VARIABLE INIT -------------------`
		32	`parAction = Request("action")`
		33	`parState_id = Request("state_id")`
		34	`'------------ CONDITIONS ----------------------`
		35	`'----------------------------------------------`
		36	`%>`
		37	`<%`
		38	`'--------------------------------------------------------------------------------------------------------------------------------`
		39	`Sub GetStates ( aStateCollector, nProj_id )`
		40	`Dim rsQry`
		41
		42	`OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER`
		43
		44	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateList.sql"), ORADYN_DEFAULT )`
		45
		46	`If rsQry.RecordCount > 0 Then`
		47	`aStateCollector = rsQry.GetRows()`
		48	`Else`
		49	`aStateCollector = NULL`
		50	`End If`
		51
		52	`rsQry.Close`
		53	`Set rsQry = Nothing`
		54	`OraDatabase.Parameters.Remove "PROJ_ID"`
		55	`End Sub`
		56	`'--------------------------------------------------------------------------------------------------------------------------------`
		57	`Sub RenderStateTypesCombo( nStateType )`
		58	`Dim aStateTypes, LastState, i, Selected`
		59
		60	`'--- Get State Types from collector`
		61	`aStateTypes = oEnumStateTypeNames.Keys`
		62
		63
		64	`Response.write "<select name='state_type_enum' class='form_iname' >"`
		65
		66
		67	`LastState = UBound( aStateTypes )`
		68
		69	`For i = 0 To LastState`
		70	`Selected = ""`
		71	`If aStateTypes(i) = nStateType Then Selected = "selected"`
		72
		73	`Response.write "<option value='"& aStateTypes(i) &"' "& Selected &">"& oEnumStateTypeNames.Item ( aStateTypes(i) ) &"</option>"`
		74
		75	`Next`
		76
		77
		78	`Response.write "</select>"`
		79
		80	`End Sub`
		81	`'--------------------------------------------------------------------------------------------------------------------------------`
		82	`Sub RenderStateSeqCombo( nProj_id, nState_seq )`
		83	`Dim rsQry, Selected`
		84
		85	`OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER`
		86
		87	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateList.sql"), ORADYN_DEFAULT )`
		88
		89
		90	`Response.write "<select name='state_seq' class='form_iname'>"`
		91
		92
		93	`While (NOT rsQry.BOF) AND (NOT rsQry.EOF)`
		94	`Selected = ""`
		95	`If CInt(nState_seq) = CInt(rsQry("state_seq")) Then Selected = "selected"`
		96
		97	`Response.write "<option value='"& rsQry("state_seq") &"' "& Selected &">"& rsQry("state_seq") &"</option>"`
		98
		99	`rsQry.MoveNext`
		100	`WEnd`
		101
		102
		103	`Response.write "</select>"`
		104
		105
		106
		107	`rsQry.Close`
		108	`Set rsQry = Nothing`
		109
		110	`OraDatabase.Parameters.Remove "PROJ_ID"`
		111	`End Sub`
		112	`'--------------------------------------------------------------------------------------------------------------------------------`
		113	`Sub AddState ()`
		114	`On Error Resume Next`
		115
		116	`OraDatabase.Parameters.Add "STATE_NAME", Request("state_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
		117	`OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		118	`OraDatabase.Parameters.Add "STATE_TYPE_ENUM", Request("state_type_enum"), ORAPARM_INPUT, ORATYPE_NUMBER`
		119
		120
		121	`objEH.TryORA ( OraSession )`
		122
		123	`OraDatabase.ExecuteSQL _`
		124	`"BEGIN pk_State.Add_State ( :STATE_NAME, :STATE_TYPE_ENUM, :PROJ_ID ); END;"`
		125
		126	`objEH.CatchORA ( OraSession )`
		127
		128
		129	`OraDatabase.Parameters.Remove "STATE_NAME"`
		130	`OraDatabase.Parameters.Remove "PROJ_ID"`
		131	`OraDatabase.Parameters.Remove "STATE_TYPE_ENUM"`
		132
		133	`End Sub`
		134	`'--------------------------------------------------------------------------------------------------------------------------------`
		135	`Sub EditState ()`
		136	`On Error Resume Next`
		137
		138	`OraDatabase.Parameters.Add "STATE_ID", Request("state_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		139	`OraDatabase.Parameters.Add "STATE_NAME", Request("state_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
		140	`OraDatabase.Parameters.Add "STATE_SEQ", Request("state_seq"), ORAPARM_INPUT, ORATYPE_NUMBER`
		141	`OraDatabase.Parameters.Add "STATE_TYPE_ENUM", Request("state_type_enum"), ORAPARM_INPUT, ORATYPE_NUMBER`
		142
		143
		144
		145	`objEH.TryORA ( OraSession )`
		146
		147	`OraDatabase.ExecuteSQL _`
		148	`"BEGIN pk_State.Update_State ( :STATE_ID, :STATE_NAME, :STATE_SEQ, :STATE_TYPE_ENUM ); END;"`
		149
		150	`objEH.CatchORA ( OraSession )`
		151
		152
		153	`OraDatabase.Parameters.Remove "STATE_ID"`
		154	`OraDatabase.Parameters.Remove "STATE_NAME"`
		155	`OraDatabase.Parameters.Remove "STATE_SEQ"`
		156	`OraDatabase.Parameters.Remove "STATE_TYPE_ENUM"`
		157
		158	`End Sub`
		159	`'--------------------------------------------------------------------------------------------------------------------------------`
		160	`%>`
		161	`<%`
		162	`'------------ RUN BEFORE PAGE RENDER ----------`
		163	`' --- Get Form details from DB ---`
		164
		165	`' --- Load Validation Rules ---`
		166	`Call objForm.LoadValidationRules ( Array("state_name"), OraDatabase ) ' Load Validation Rules`
		167
		168	`' --- Enter Form Validation Rule Changes here... ----`
		169	`'----------------------------------------------------`
		170
		171	`' --- RUN onPostBack ---`
		172	`If Request("doit") <> "" Then`
		173	`If objForm.IsValidOnPostBack Then`
		174	`' --- Form is Valid ---`
		175
		176	`Select Case Request("action")`
		177	`Case "new"`
		178	`Call AddState()`
		179	`Case "edit"`
		180	`Call EditState()`
		181
		182	`End Select`
		183
		184
		185	`If objEH.Finally Then`
		186	`Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() )`
		187	`End If`
		188
		189	`End If`
		190
		191
		192
		193	`End If`
		194
		195	`'----------------------------------------------`
		196	`%>`
		197	`<html>`
		198	`<head>`
		199	`<title>Deployment Manager</title>`
		200	`<link rel="shortcut icon" href="<%=FavIcon%>"/>`
		201	`<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">`
		202	`<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">`
		203	`<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">`
		204	`<script language="JavaScript" src="scripts/common.js"></script>`
		205	`</head>`
		206
		207	`<body leftmargin="0" topmargin="0" <%If parAction <> "" Then%>onLoad="FormName.state_name.focus();"<%End If%>>`
		208	`<!-- HEADER ++++++++++++++++ -->`
		209	`<!--#include file="_header.asp"-->`
		210	`<!-- +++++++++++++++++++++++ -->`
		211	`<!-- MAIN MENU ++++++++++++++++++++++++++ -->`
		212	`<!--#include file="_main_menu_admin.asp"-->`
		213	`<!-- +++++++++++++++++++++++++++++++++++++ -->`
		214	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
		215	`<tr>`
		216	`<td width="1%" valign="top" background="images/bg_bage_0.gif">`
		217	`<!-- ADMIN BROWSER ++++++++++++++++++++++ -->`
		218	`<!--#include file="_admin_project_browser.asp"-->`
		219	`<!-- END OF ADMIN BROWSER +++++++++++++++ -->`
		220	`</td>`
		221	`<td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>`
		222	`<td width="100%" valign="top" bgcolor="#FFFFFF">`
		223	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
		224	`<tr>`
		225	`<td width="1%" valign="top" background="images/bg_darkbage.gif"></td>`
		226	`<td width="100%" valign="bottom" background="images/bg_darkbage.gif">`
		227	`<!-- TAB CONTROLS ++++++++++++++++++++++ -->`
		228	`<!--#include file="_tabs_definition.asp"-->`
		229	`<%`
		230	`Set objTabControl = New TabControl`
		231	`objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition`
		232	`objTabControl.TabStyle = "StyleWinXP"`
		233	`objTabControl.AddTabDefnition ( arrAdminProjectsTabDef )`
		234	`objTabControl.SelectByName ("States")`
		235	`objTabControl.Render ()`
		236	`%>`
		237	`<!-- END OF TAB CONTROLS +++++++++++++++ -->`
		238	`</td>`
		239	`<td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>`
		240	`</tr>`
		241	`<tr>`
		242	`<td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>`
		243	`<td background="images/bg_bage_0.gif">`
		244	`<!-- BUTTONS CONTROL +++++++++++++++++++ -->`
		245	`<%`
		246	`'-- Define Action buttons on this tab`
		247	`'aTabBtnsDef = Array("abtnAddBranch")`
		248
		249	`'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )`
		250
		251	`'objBtnControl.Render( aTabBtnsDef )`
		252	`%>`
		253	`<!-- +++++++++++++++++++++++++++++++++++ -->`
		254	`</td>`
		255	`<td background="images/bg_darkbage.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">`
		256	`<tr>`
		257	`<td width="100%" background="images/bg_bage_0.gif"> </td>`
		258	`<td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>`
		259	`</tr>`
		260	`</table></td>`
		261	`</tr>`
		262	`<tr>`
		263	`<td> </td>`
		264	`<td><br><br>`
		265	`<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
		266	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
		267	`<form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">`
		268	`<%`
		269	`Call GetStates ( aStateCollector, parProj_id )`
		270
		271
		272	`%>`
		273	`<tr>`
		274	`<td background="images/bg_bage_0a.gif"><table width="100%" border="0" cellspacing="1" cellpadding="2">`
		275	`<tr>`
		276	`<td width="1" background="images/bg_bage_0.gif"></td>`
		277	`<td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Release Sequence</td>`
		278	`<td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>State Name</td>`
		279	`<td width="80%" background="images/bg_bage_0.gif" class="body_col" nowrap>State Type</td>`
		280	`<td background="images/bg_bage_0.gif"> </td>`
		281	`</tr>`
		282	`<%`
		283	`If NOT IsNull(aStateCollector) Then`
		284	`LastRow = Ubound( aStateCollector, 2 )`
		285	`For i = 0 To LastRow`
		286	`%>`
		287	`<%If parAction = "" Then%>`
		288	`<!-- NORMAL ROW +++++++++++++++++++ -->`
		289	`<tr>`
		290	`<td background="images/bg_bage_0.gif" align="center"></td>`
		291	`<td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(2, i)%></td>`
		292	`<td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(1, i)%></td>`
		293	`<td bgcolor="#FFFFFF" class="body_row"><%=oEnumStateTypeNames.Item( aStateCollector(3, i) )%></td>`
		294	`<td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&state_id=<%=aStateCollector(0, i)%>&<%=objPMod.ComposeURL()%>"><%=LIMG_EDIT%></a><a href="_RemoveState.asp?rfile=<%=SCRIPT_NAME%>&state_id=<%=aStateCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="return confirmAction('Remove \'<%=aStateCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td>`
		295	`</tr>`
		296	`<!-- +++++++++++++++++++++++++++++++++ -->`
		297
		298	`<%Else%>`
		299
		300	`<%If CStr(aStateCollector(0, i)) <> parState_id Then%>`
		301	`<!-- JUST DATA ROW +++++++++++++++++++ -->`
		302	`<tr>`
		303	`<td background="images/bg_bage_0.gif" align="center"></td>`
		304	`<td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(2, i)%></td>`
		305	`<td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(1, i)%></td>`
		306	`<td bgcolor="#FFFFFF" class="body_row" nowrap><%=oEnumStateTypeNames.Item( aStateCollector(3, i) )%></td>`
		307	`<td align="center" nowrap background="images/bg_bage_0.gif"> </td>`
		308	`</tr>`
		309	`<!-- +++++++++++++++++++++++++++++++++ -->`
		310	`<%Else%>`
		311	`<!-- EDIT ROW ++++++++++++++++++++++++ -->`
		312	`<input type="hidden" name="action" value="edit">`
		313	`<tr>`
		314	`<td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>`
		315	`<td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateSeqCombo( parProj_id, aStateCollector(2, i) ) %></td>`
		316	`<td background="images/bg_note.gif" class="body_row" valign="top">`
		317	`<input type="text" name="state_name" class='form_iname' value="<%=objForm.GetValue( "state_name", aStateCollector(1, i) )%>">`
		318	`<%=objForm.Validate ("state_name")%>`
		319	`</td>`
		320	`<td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateTypesCombo( aStateCollector(3, i) )%></td>`
		321	`<td background="images/bg_note.gif" align="center" valign="top" nowrap><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>`
		322	`</tr>`
		323	`<!-- +++++++++++++++++++++++++++++++++ -->`
		324	`<%End If%>`
		325	`<%End If%>`
		326
		327
		328	`<%`
		329	`Next`
		330
		331	`End If`
		332	`%>`
		333
		334
		335	`<!-- NEW ENTRY ROW FORM ++++++++++++++ -->`
		336	`<%If parAction = "new" Then%>`
		337
		338	`<input type="hidden" name="action" value="new">`
		339	`<tr>`
		340	`<td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>`
		341	`<td background="images/bg_note.gif" class="body_row" valign="top"></td>`
		342	`<td background="images/bg_note.gif" class="body_row" valign="top">`
		343	`<input type="text" name="state_name" class='form_iname' value="<%=Request("state_name")%>">`
		344	`<%=objForm.Validate ("state_name")%>`
		345	`</td>`
		346	`<td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateTypesCombo( NULL )%></td>`
		347	`<td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>`
		348	`</tr>`
		349	`<%End If%>`
		350	`<!-- +++++++++++++++++++++++++++++++++ -->`
		351
		352
		353	`<!-- NEW ENTRY BUTTON ++++++++++++++++ -->`
		354	`<%If parAction = "" Then%>`
		355	`<tr>`
		356	`<td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new&<%=objPMod.ComposeURL()%>"><%=LIMG_NEW_ENTRY%></a></td>`
		357	`<td bgcolor="#FFFFFF" class="body_row"> </td>`
		358	`<td bgcolor="#FFFFFF" class="body_row"> </td>`
		359	`<td bgcolor="#FFFFFF" class="body_row"> </td>`
		360	`<td bgcolor="#FFFFFF"> </td>`
		361	`</tr>`
		362	`<%End If%>`
		363	`<!-- +++++++++++++++++++++++++++++++++ -->`
		364
		365	`</table></td>`
		366	`</tr>`
		367	`<%=objPMod.ComposeHiddenTags()%>`
		368	`<input type="hidden" name="state_id" value="<%=parState_id%>">`
		369	`<input type="hidden" name="doit" value="true">`
		370	`</form>`
		371	`</table>`
		372	`</td>`
		373	`<td valign="top"></td>`
		374	`</tr>`
		375	`</table>`
		376	`<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
		377	`</td>`
		378	`</tr>`
		379	`<tr>`
		380	`<td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>`
		381	`<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>`
		382	`<td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>`
		383	`</tr>`
		384	`<tr>`
		385	`<td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>`
		386	`<td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>`
		387	`<td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>`
		388	`</tr>`
		389	`</table>`
		390	`<!-- FOOTER ++++++++++++++++ -->`
		391	`<!--#include file="_footer.asp"-->`
		392	`<!-- +++++++++++++++++++++++ -->`
		393	`</body>`
		394	`</html>`
		395	`<%`
		396	`'------------ RUN AFTER PAGE RENDER -----------`
		397	`Set objPMod = Nothing`
		398	`Set objTabControl = Nothing`
		399	`'----------------------------------------------`
62	rsolanki	400	`%><!--#include file="common/globals_destructor.asp"-->`

Subversion Repositories DevTools

(root)/ManagerSuite/Production_Manager/trunk/web/AdminProject_States.asp – Rev 5514