Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'|                                                   |

'|			          wEditProc					 	 |

'|                                                   |

'=====================================================

%>

<%

Option explicit

Response.Expires = 0

%>

<!--#include file="common/globals.asp"-->

<!--#include file="common/config.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/_popup_window_common.asp"-->

<%

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_general.asp"-->

<%

'------------ VARIABLE DEFINITION -------------

Dim objFormCollector, isInterface

Dim aRs

Dim MoreLink

Dim parFilter_on

Dim ForceDropdown

Dim parBase_env_id

Dim parProc_name

'------------ CONSTANTS DECLARATION -----------

'------------ VARIABLE INIT -------------------

parProd_id = Request("proc_id_list")

parOs_id = Request("os_id")

parBom_id = Request("bom_id")

parFilter_on = Request("filter_on")

parBase_env_id = Request("base_env_id")

parProc_name = Request("proc_name")

Set objFormCollector = CreateObject("Scripting.Dictionary")

isInterface = NULL

'------------ CONDITIONS ----------------------

'----------------------------------------------

%>

<%

'--------------------------------------------------------------------------------------------------------------------------

Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )

	Dim rsQry, query

	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROCESSES_CONFIG pc, PACKAGE_VERSIONS pv, PACKAGES p WHERE PKG_HEALTH_TAG ='"& Request("proc_name") &"' AND OS_ID ="& nOs_id &" AND PROD_ID="& nProd_id &" AND pv.PV_ID =pc.PROD_ID AND p.PKG_ID = pv.PKG_ID", ORADYN_DEFAULT )

	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then

		outobjDetails.Item ("pkg_health_tag")   = rsQry("pkg_health_tag")

		outobjDetails.Item ("prod_id") = rsQry("prod_id")

		outobjDetails.Item ("os_id") = rsQry("os_id")

		outobjDetails.Item ("cmd_interface") = rsQry("cmd_interface")

		'outobjDetails.Item ("electronic_name") = rsQry("electronic_name")

		outobjDetails.Item ("pkg_owner") = rsQry("pkg_owner")

		outobjDetails.Item ("is_interface") = rsQry("is_interface")

		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")

		outobjDetails.Item ("proc_id") = rsQry("proc_id")

	Else

		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProc_id="& nProd_id &", nOs_id="& nOs_id

	End If

	rsQry.Close

	Set rsQry = Nothing

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub UpdateProcAtOs ()

	On Error Resume Next

	If Request("isInterface") = "" Then

  		isInterface = "F"

  	Else

  		isInterface = "T"

  	End If		

	OraDatabase.Parameters.Add "PROD_ID", 			Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "PROC_ID", 			Request("proc_id"), ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR2 

	OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmd_interface"), ORAPARM_INPUT, ORATYPE_VARCHAR2 

	OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkg_owner"),	ORAPARM_INPUT, ORATYPE_VARCHAR2

	OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("pkg_health_tag"),	ORAPARM_INPUT, ORATYPE_VARCHAR2

	OraDatabase.Parameters.Add "PRODUCT", 			Request("prod_id"),	ORAPARM_INPUT, ORATYPE_NUMBER

	objEH.TryORA ( OraSession )

	OraDatabase.ExecuteSQL _

	"BEGIN pk_Product.Update_Process ( :PROC_ID, :PROD_ID, :IS_INTERFACE, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :PKG_HEALTH_TAG, :PRODUCT ); END;"	

    OraSession.CommitTrans	

	objEH.CatchORA ( OraSession )

	OraDatabase.Parameters.Remove "PROD_ID"

	OraDatabase.Parameters.Remove "PROC_ID"

	OraDatabase.Parameters.Remove "IS_INTERFACE"

	OraDatabase.Parameters.Remove "OS_ID"

	OraDatabase.Parameters.Remove "CMD_INTERFACE"

	OraDatabase.Parameters.Remove "PKG_OWNER"

	OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"

	OraDatabase.Parameters.Remove "PRODUCT"

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub UpdateProdAtBaseEnv ()

	On Error Resume Next

	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2

	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2

	OraDatabase.Parameters.Add "ELECTRONIC_NAME", Request("electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2	

	objEH.TryORA ( OraSession )

	OraDatabase.ExecuteSQL _

	"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS, :ELECTRONIC_NAME ); END;"	

	objEH.CatchORA ( OraSession )

	OraDatabase.Parameters.Remove "OLD_PROD_ID"

	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"

	OraDatabase.Parameters.Remove "BASE_ENV_ID"

	OraDatabase.Parameters.Remove "SEQ_NUM"

	OraDatabase.Parameters.Remove "PROD_COMMENTS"

	OraDatabase.Parameters.Remove "ELECTRONIC_NAME"		

End Sub

'--------------------------------------------------------------------------------------------------------------------------

%>

<%

'------------ RUN BEFORE PAGE RENDER ----------

objPMod.PersistInQryString ( Array("base_env_id") )

' --- Get Form details from DB ---

Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )

' --- Enter Form Validation Rule Changes here... ----

'----------------------------------------------------

If Request("action") = "true" Then

	If objForm.IsValidOnPostBack Then

		' --- Form is Valid ---

			Call UpdateProcAtOs()

		If objEH.Finally Then

			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK&bom_id="& parBom_id &"&os_id="& parOs_id )

			Call CloseWindow()

		End If

	End If

ElseIf Request("action") = "filter_off" Then

	parFilter_on = 0

End If

'----------------------------------------------

%>

<html>

<head>

<title>Deployment Manager</title>

<link rel="shortcut icon" href="<%=FavIcon%>"/>

<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">

<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>

</head>

<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">

<table width="100%"  border="0" cellspacing="0" cellpadding="10">

  <tr>

    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Edit Process</span> <br>

    Update process details and click Submit. 

    </td>

  </tr>

  <%

  '-- FROM START ---------------------------------------------------------------------------------------------------------

  objFormComponent.FormName = "FormName"

  objFormComponent.Action = SCRIPT_NAME

  objFormComponent.OnSubmit = "ShowProgress();"

  Call objFormComponent.FormStart()

  %>   

  <tr>

    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">

      <tr>

        <td><%=ProgressBar%></td>

        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">

          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>

      </tr>

    </table></td>

  </tr>

  <tr>

    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">

	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->	

	  <%If NOT objEH.Finally Then%>

      <tr>

        <td class="form_iname">&nbsp;</td>

        <td>

		 <%objEH.DisplayMessage()%>

		</td>

        <td class="val_err"></td>

      </tr>

	  <%End If%>

	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

	  <tr>

        <td nowrap class="form_iname" valign="top">Package Health Tag</td>

        <td valign="top"><%=objFormComponent.TextBox ( "pkg_health_tag", objFormCollector.Item("pkg_health_tag"), "size='70' class='form_ivalue'" )%></td>

		<td valign="top"></td>

      </tr>

	  <tr>

        <td nowrap class="form_iname" valign="top">Package/Product</td>

		<td valign="top">

		<%

		OraDatabase.Parameters.Add "PKG_NAME", 	objFormCollector.Item("pkg_name"),	ORAPARM_INPUT,  ORATYPE_VARCHAR2 

		OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER

		Dim rsQry

		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatchesCombo.sql"), cint(0))

		%>	  

		<select name="prod_id" class="form_ivalue">	  

		<%

		While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>

        	<option value="<%=rsQry("prod_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_name")%> - <%=rsQry("pkg_version")%></option>

        <%rsQry.MoveNext

		WEnd

		rsQry.Close

		Set rsQry = Nothing

		OraDatabase.Parameters.Remove "PKG_NAME"

		OraDatabase.Parameters.Remove "OS_ID"

		%>

		</td>

		<td valign="top"></td>

		</select>

      </tr>	  

      <tr>

        <td nowrap class="form_iname" valign="top">Command Interface</td>

        <td valign="top"><input type="text" name="cmd_interface" value="<%=Server.HTMLEncode(objFormCollector.Item("cmd_interface"))%>" size='70' class='form_ivalue'>

		<td valign="top"></td>

      </tr>

	  <tr>

        <td nowrap class="form_iname" valign="top">Is Interface</td>

		<%If (objFormCollector.Item("is_interface")) = "F" Then%>

        <td valign="top"><input type="checkbox" name="isInterface"></td>

		<%Else%>

        <td valign="top"><input type="checkbox" name="isInterface" checked></td>

		<%End If%>

		<td valign="top"></td>

      </tr>	 

      <tr>

        <td nowrap class="form_iname" valign="top">Package Owner</td>

        <td valign="top"><%=objFormComponent.TextBox ( "pkg_owner", objFormCollector.Item("pkg_owner"), "size='70' class='form_ivalue'" )%></td>

		<td valign="top"></td>

      </tr>

      <tr>

        <td width="10%" class="form_iname">&nbsp;</td>

        <td width="1%">&nbsp;</td>

		<td width="90%" class="val_err"></td>

      </tr>

    </table></td>

  </tr>

  <%=objPMod.ComposeHiddenTags()%>

  <input type="hidden" name="proc_id_list" value="<%=parProd_id%>">

  <input type="hidden" name="proc_name" value="<%=parProc_name%>">

  <input type="hidden" name="proc_id" value="<%=objFormCollector.Item("proc_id")%>">

  <input type="hidden" name="action" value="true">

  <%

  Call objFormComponent.FormEnd()

  '-- FROM END ----------------------------------------------------------------------------------------------------------------

  %>

</table>

</body>

</html>

<!--#include file="common/globals_destructor.asp"-->