Subversion Repositories DevTools

Rev

Rev 62 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@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>
<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" rel="stylesheet" type="text/css">
<script language="JavaScript" src="scripts/common.js"></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>
<%
'------------ RUN AFTER PAGE RENDER -----------
Set objFormCollector = Nothing
'----------------------------------------------
%><!--#include file="common/globals_destructor.asp"-->