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

Rev	Author	Line No.	Line
62	rsolanki	1	`<%@LANGUAGE="VBSCRIPT"%>`
		2	`<%`
		3	`'=====================================================`
		4	`'\| \|`
		5	`'\| wEditProd \|`
		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 objFormCollector`
		24	`Dim aRs`
		25	`Dim MoreLink`
		26	`Dim parFilter_on`
		27	`Dim ForceDropdown`
		28	`Dim parBase_env_id`
		29	`'------------ CONSTANTS DECLARATION -----------`
		30	`'------------ VARIABLE INIT -------------------`
		31	`parProd_id = Request("prod_id_list")`
		32	`parOs_id = Request("os_id")`
		33	`parBom_id = Request("bom_id")`
		34	`parFilter_on = Request("filter_on")`
		35	`parBase_env_id = Request("base_env_id")`
		36	`Set objFormCollector = CreateObject("Scripting.Dictionary")`
		37	`'------------ CONDITIONS ----------------------`
		38	`'----------------------------------------------`
		39	`%>`
		40	`<%`
		41	`'--------------------------------------------------------------------------------------------------------------------------`
		42	`Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )`
		43	`Dim rsQry, query`
		44	`OraDatabase.Parameters.Add "PROD_ID", nProd_id, ORAPARM_INPUT, ORATYPE_NUMBER`
		45	`OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER`
		46
		47	`If nBaseEnvId = "" Then`
		48	`OraDatabase.Parameters.Add "OS_ID", nOs_id, ORAPARM_INPUT, ORATYPE_NUMBER`
		49	`query = GetQuery("ProductDetailsAtOs.sql")`
		50	`Else`
		51	`OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId, ORAPARM_INPUT, ORATYPE_NUMBER`
		52	`query = GetQuery("ProductDetailsAtBaseEnv.sql")`
		53	`End If`
		54
		55
		56	`Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )`
		57
		58	`If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then`
		59	`outobjDetails.Item ("seq_num") = rsQry("seq_num")`
		60	`outobjDetails.Item ("prod_id") = rsQry("prod_id")`
		61	`outobjDetails.Item ("pkg_id") = rsQry("pkg_id")`
		62	`outobjDetails.Item ("pkg_name") = rsQry("pkg_name")`
		63	`outobjDetails.Item ("pkg_version") = rsQry("pkg_version")`
		64	`outobjDetails.Item ("product_comments") = rsQry("product_comments")`
		65
		66	`If nBaseEnvId = "" Then`
		67	`outobjDetails.Item ("os_id") = rsQry("os_id")`
		68	`Else`
		69	`outobjDetails.Item ("base_env_id") = rsQry("base_env_id")`
		70	`End If`
		71
		72	`Else`
		73	`Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProd_id="& nProd_id &", nOs_id="& nOs_id`
		74
		75	`End If`
		76
		77	`rsQry.Close`
		78	`Set rsQry = Nothing`
		79
		80
		81
		82	`'/* Get Project Details */`
		83	`query = _`
		84	`" SELECT proj.RM_PROJECTS_FK"&_`
		85	`" FROM BOMS bo,"&_`
		86	`" BRANCHES br,"&_`
		87	`" DM_PROJECTS proj"&_`
		88	`" WHERE br.PROJ_ID = proj.PROJ_ID"&_`
		89	`" AND bo.BRANCH_ID = br.BRANCH_ID"&_`
		90	`" AND bo.BOM_ID = :BOM_ID"`
		91
		92	`Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )`
		93
		94	`If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then`
		95	`outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk")`
		96
		97	`Else`
		98	`Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id`
		99
		100	`End If`
		101
		102	`OraDatabase.Parameters.Remove "PROD_ID"`
		103	`OraDatabase.Parameters.Remove "OS_ID"`
		104	`OraDatabase.Parameters.Remove "BASE_ENV_ID"`
		105	`OraDatabase.Parameters.Remove "BOM_ID"`
		106
		107	`rsQry.Close`
		108	`Set rsQry = Nothing`
		109	`End Sub`
		110	`'--------------------------------------------------------------------------------------------------------------------------`
		111	`Sub GetProductVersions ( aRs, outMore )`
		112	`Dim rsQry, OraParameter, CurrentRecordCount, TotalRecordCount`
		113
		114	`OraDatabase.Parameters.Add "PKG_ID", objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		115	`OraDatabase.Parameters.Add "PROJ_ID", objFormCollector.Item("rm_projects_fk"), ORAPARM_INPUT, ORATYPE_NUMBER`
		116	`OraDatabase.Parameters.Add "FILTER_ON", 1, ORAPARM_INPUT, ORATYPE_NUMBER`
		117
		118	`'-- Get all Ora Parameters`
		119	`Set OraParameter = OraDatabase.Parameters`
		120
		121
		122	`'-- Clear Filter if user require`
		123	`If parFilter_on <> "" Then OraParameter("FILTER_ON").Value = 0`
		124
		125
		126	`'-- Get Record Set`
		127	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsListB.sql"), ORADYN_DEFAULT )`
		128	`CurrentRecordCount = rsQry.RecordCount`
		129	`If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then`
		130	`aRs = rsQry.GetRows()`
		131
		132	`Else`
		133	`aRs = NULL`
		134
		135	`End If`
		136
		137	`rsQry.Close`
		138	`Set rsQry = Nothing`
		139
		140
		141	`'-- Get Total Record Count`
		142	`OraParameter("FILTER_ON").Value = 0`
		143	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsListB.sql"), ORADYN_DEFAULT )`
		144	`TotalRecordCount = rsQry.RecordCount`
		145
		146	`rsQry.Close`
		147	`Set rsQry = Nothing`
		148
		149
		150	`'-- Create More... linke if needed`
		151	`outMore = NULL`
		152	`If CurrentRecordCount < TotalRecordCount Then`
		153	`outMore = "javascript:go_submit( document.FormName, ""filter_off"" );ShowProgress();"`
		154	`End If`
		155
		156
		157	`Set OraParameter = Nothing`
		158
		159	`OraDatabase.Parameters.Remove "PKG_ID"`
		160	`OraDatabase.Parameters.Remove "PROJ_ID"`
		161	`OraDatabase.Parameters.Remove "FILTER_ON"`
		162	`End Sub`
		163	`'--------------------------------------------------------------------------------------------------------------------------`
		164	`Function GetSeqNumList ( nSeq_num )`
		165	`Dim rsQry, query`
		166
		167	`OraDatabase.Parameters.Add "SEQ_NUM", nSeq_num, ORAPARM_INPUT, ORATYPE_NUMBER`
		168
		169
		170	`If parBase_env_id = "" Then`
		171	`OraDatabase.Parameters.Add "OS_ID", parOs_id, ORAPARM_INPUT, ORATYPE_NUMBER`
		172	`query = GetQuery ("InstallOrderComboAtOs.sql")`
		173	`Else`
		174	`OraDatabase.Parameters.Add "BASE_ENV_ID", parBase_env_id, ORAPARM_INPUT, ORATYPE_NUMBER`
		175	`query = GetQuery ("InstallOrderComboAtBaseEnv.sql")`
		176	`End If`
		177
		178
		179	`Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )`
		180	`If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then`
		181	`GetSeqNumList = rsQry.GetRows()`
		182
		183	`Else`
		184	`GetSeqNumList = NULL`
		185
		186	`End If`
		187
		188	`rsQry.Close`
		189	`Set rsQry = Nothing`
		190
		191	`OraDatabase.Parameters.Remove "OS_ID"`
		192	`OraDatabase.Parameters.Remove "BASE_ENV_ID"`
		193	`OraDatabase.Parameters.Remove "SEQ_NUM"`
		194	`End Function`
		195	`'--------------------------------------------------------------------------------------------------------------------------`
		196	`Sub UpdateProdAtOs ()`
		197	`On Error Resume Next`
		198
		199	`OraDatabase.Parameters.Add "OLD_PROD_ID", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER`
		200	`OraDatabase.Parameters.Add "NEW_PROD_VERSION", Request("new_prod_version"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
		201	`OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		202	`OraDatabase.Parameters.Add "SEQ_NUM", Request("seq_num"), ORAPARM_INPUT, ORATYPE_NUMBER`
		203	`OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2`
		204
		205
		206	`objEH.TryORA ( OraSession )`
		207
		208	`OraDatabase.ExecuteSQL _`
		209	`"BEGIN pk_Product.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :OS_ID, :SEQ_NUM, :PROD_COMMENTS ); END;"`
		210
		211	`objEH.CatchORA ( OraSession )`
		212
		213
		214	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`
		215	`OraDatabase.Parameters.Remove "NEW_PROD_VERSION"`
		216	`OraDatabase.Parameters.Remove "OS_ID"`
		217	`OraDatabase.Parameters.Remove "SEQ_NUM"`
		218	`OraDatabase.Parameters.Remove "PROD_COMMENTS"`
		219
		220	`End Sub`
		221	`'--------------------------------------------------------------------------------------------------------------------------`
		222	`Sub UpdateProdAtBaseEnv ()`
		223	`On Error Resume Next`
		224
		225	`OraDatabase.Parameters.Add "OLD_PROD_ID", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER`
		226	`OraDatabase.Parameters.Add "NEW_PROD_VERSION", Request("new_prod_version"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
		227	`OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
		228	`OraDatabase.Parameters.Add "SEQ_NUM", Request("seq_num"), ORAPARM_INPUT, ORATYPE_NUMBER`
		229	`OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2`
		230
		231
		232	`objEH.TryORA ( OraSession )`
		233
		234	`OraDatabase.ExecuteSQL _`
		235	`"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS ); END;"`
		236
		237	`objEH.CatchORA ( OraSession )`
		238
		239
		240	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`
		241	`OraDatabase.Parameters.Remove "NEW_PROD_VERSION"`
		242	`OraDatabase.Parameters.Remove "BASE_ENV_ID"`
		243	`OraDatabase.Parameters.Remove "SEQ_NUM"`
		244	`OraDatabase.Parameters.Remove "PROD_COMMENTS"`
		245
		246	`End Sub`
		247	`'--------------------------------------------------------------------------------------------------------------------------`
		248	`%>`
		249	`<%`
		250	`'------------ RUN BEFORE PAGE RENDER ----------`
		251	`objPMod.PersistInQryString ( Array("base_env_id") )`
		252
		253	`' --- Get Form details from DB ---`
		254	`Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )`
		255
		256	`' --- Load Validation Rules ---`
		257	`Call objForm.LoadValidationRules ( Array("product_comments"), OraDatabase ) ' Load Validation Rules`
		258
		259	`' --- Enter Form Validation Rule Changes here... ----`
		260	`'----------------------------------------------------`
		261
		262	`If Request("action") = "true" Then`
		263	`If objForm.IsValidOnPostBack Then`
		264	`' --- Form is Valid ---`
		265	`If parBase_env_id = "" Then`
		266	`Call UpdateProdAtOs()`
		267	`Else`
		268	`Call UpdateProdAtBaseEnv()`
		269	`End If`
		270
		271
		272	`If objEH.Finally Then`
		273	`Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )`
		274	`Call CloseWindow()`
		275	`End If`
		276
		277	`End If`
		278	`ElseIf Request("action") = "filter_off" Then`
		279	`parFilter_on = 0`
		280	`End If`
		281	`'----------------------------------------------`
		282	`%>`
		283	`<html>`
		284	`<head>`
		285	`<title>Deployment Manager</title>`
		286	`<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">`
		287	`<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">`
		288	`<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">`
		289	`<script language="JavaScript" src="scripts/common.js"></script>`
		290	`</head>`
		291
		292	`<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">`
		293	`<table width="100%" border="0" cellspacing="0" cellpadding="10">`
		294	`<tr>`
		295	`<td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle"> Add New Product Version</span> <br>`
		296	`Add new product version and click Submit.`
		297	`</td>`
		298	`</tr>`
		299	`<%`
		300	`'-- FROM START ---------------------------------------------------------------------------------------------------------`
		301	`objFormComponent.FormName = "FormName"`
		302	`objFormComponent.Action = SCRIPT_NAME`
		303	`objFormComponent.OnSubmit = "ShowProgress();"`
		304	`Call objFormComponent.FormStart()`
		305	`%>`
		306	`<tr>`
		307	`<td background="images/bg_login.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">`
		308	`<tr>`
		309	`<td><%=ProgressBar%></td>`
		310	`<td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">`
		311	`<input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>`
		312	`</tr>`
		313	`</table></td>`
		314	`</tr>`
		315	`<tr>`
		316	`<td><table width="100%" border="0" cellspacing="2" cellpadding="0">`
		317	`<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
		318	`<%If NOT objEH.Finally Then%>`
		319	`<tr>`
		320	`<td class="form_iname"> </td>`
		321	`<td>`
		322	`<%objEH.DisplayMessage()%>`
		323	`</td>`
		324	`<td class="val_err"></td>`
		325	`</tr>`
		326	`<%End If%>`
		327	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
		328	`<tr>`
		329	`<td nowrap class="form_iname" valign="top">Install Order</td>`
		330	`<td valign="top"><%=objFormComponent.Combo ( "seq_num", GetSeqNumList( objForm.GetValue ( "seq_num", objFormCollector.Item("seq_num"))), FALSE, "class='form_ivalue'" )%></td>`
		331	`<td valign="top"></td>`
		332	`</tr>`
		333	`<tr>`
		334	`<td nowrap class="form_iname" valign="top">Product Name</td>`
		335	`<td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>`
		336	`<td valign="top"></td>`
		337	`</tr>`
		338	`<tr>`
		339	`<td nowrap class="form_iname" valign="top">Version</td>`
		340	`<td valign="top"><%`
		341	`Call GetProductVersions( aRs, MoreLink )`
		342	`ForceDropdown = FALSE`
		343	`If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE`
		344
		345	`Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )`
		346	`%></td>`
		347	`<td valign="top"></td>`
		348	`</tr>`
		349	`<tr>`
		350	`<td valign="top" nowrap class="form_iname">Comments</td>`
		351	`<td valign="top"><%=objFormComponent.TextArea ("product_comments", objForm.GetValue ( "product_comments", objFormCollector.Item("product_comments")), 22, 80, "class='form_ivalue'" )%></td>`
		352	`<td valign="top">`
		353	`<%=objForm.Validate ("product_comments")%>`
		354	`</td>`
		355	`</tr>`
		356	`<tr>`
		357	`<td width="10%" class="form_iname"> </td>`
		358	`<td width="1%"> </td>`
		359	`<td width="90%" class="val_err"></td>`
		360	`</tr>`
		361	`</table></td>`
		362	`</tr>`
		363	`<%=objPMod.ComposeHiddenTags()%>`
		364	`<input type="hidden" name="prod_id_list" value="<%=parProd_id%>">`
		365	`<input type="hidden" name="action" value="true">`
		366	`<%`
		367	`Call objFormComponent.FormEnd()`
		368	`'-- FROM END ----------------------------------------------------------------------------------------------------------------`
		369	`%>`
		370	`</table>`
		371	`</body>`
		372	`</html>`
		373	`<%`
		374	`'------------ RUN AFTER PAGE RENDER -----------`
		375	`Set objFormCollector = Nothing`
		376	`'----------------------------------------------`
		377	`%><!--#include file="common/globals_destructor.asp"-->`

Subversion Repositories DevTools

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