Subversion Repositories DevTools

Rev

Rev 157 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 157 Rev 4867
Line 73... Line 73...
73 
      outobjDetails.Item ("description") = rsQry("description")
 73 
      outobjDetails.Item ("description") = rsQry("description")
74 
      outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
 74 
      outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
75 
      outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
 75 
      outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
76 
      outobjDetails.Item ("owner_email") = rsQry("owner_email")
 76 
      outobjDetails.Item ("owner_email") = rsQry("owner_email")
77 
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
 77 
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
- 
 
 78 
      outobjDetails.Item ("build_age") = rsQry("build_age")
78 
      If rsQry("assoc_mass_ref") <> "" Then
 79 
      If rsQry("assoc_mass_ref") <> "" Then
79 
      outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
 80 
      outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
80 
      End If
 81 
      End If
81 
   Else
 82 
   Else
82 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
 83 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
Line 95... Line 96...
95 
      State = "Y"
 96 
      State = "Y"
96 
   Else
 97 
   Else
97 
      State = NULL
 98 
      State = NULL
98 
   End If
 99 
   End If
99 
 
 100 
 
100 
   OraDatabase.Parameters.Add "RTAG_ID",           Request("rtag_id_list"),   ORAPARM_INPUT, ORATYPE_NUMBER
 101 
   OraDatabase.Parameters.Add "RTAG_ID",            Request("rtag_id_list"),   ORAPARM_INPUT, ORATYPE_NUMBER
101 
   OraDatabase.Parameters.Add "RTAG_NAME",         Request("rtag_name"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 102 
   OraDatabase.Parameters.Add "RTAG_NAME",          Request("rtag_name"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
102 
   OraDatabase.Parameters.Add "RTAG_DESCRIPTION",     Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 103 
   OraDatabase.Parameters.Add "RTAG_DESCRIPTION",   Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
103 
   OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH",   Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 104 
   OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
104 
   OraDatabase.Parameters.Add "OWNER_EMAIL",       Request("owner_email"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
 105 
   OraDatabase.Parameters.Add "OWNER_EMAIL",        Request("owner_email"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
105 
   OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 106 
   OraDatabase.Parameters.Add "USER_ID",            objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
106 
   OraDatabase.Parameters.Add "PARENT_RTAG_ID",       Request("parent_rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
 107 
   OraDatabase.Parameters.Add "PARENT_RTAG_ID",     Request("parent_rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
107 
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",      Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
 108 
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",    Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
108 
   OraDatabase.Parameters.Add "STATE",             State,   ORAPARM_INPUT, ORATYPE_VARCHAR
 109 
   OraDatabase.Parameters.Add "STATE",              State,   ORAPARM_INPUT, ORATYPE_VARCHAR
- 
 
 110 
   OraDatabase.Parameters.Add "BUILD_AGE",          Request("build_age"),   ORAPARM_INPUT, ORATYPE_NUMBER
109 
 
 111 
 
110 
   objEH.TryORA ( OraSession )
 112 
   objEH.TryORA ( OraSession )
111 
 
 113 
 
112 
   OraDatabase.ExecuteSQL _
 114 
   OraDatabase.ExecuteSQL _
113 
   "BEGIN   PK_RELEASE.UPDATE_RELEASE ( :RTAG_ID, :RTAG_NAME, :RTAG_DESCRIPTION, :PARENT_RTAG_ID, :MASSREF_RTAG_ID, :CONFIG_SPEC_BRANCH, :OWNER_EMAIL, :USER_ID, :STATE );   END;"
 115 
   "BEGIN   PK_RELEASE.UPDATE_RELEASE ( :RTAG_ID, :RTAG_NAME, :RTAG_DESCRIPTION, :PARENT_RTAG_ID, :MASSREF_RTAG_ID, :CONFIG_SPEC_BRANCH, :OWNER_EMAIL, :USER_ID, :STATE, :BUILD_AGE );   END;"
114 
 
 116 
 
115 
   objEH.CatchORA ( OraSession )
 117 
   objEH.CatchORA ( OraSession )
116 
 
 118 
 
117 
   OraDatabase.Parameters.Remove "RTAG_ID"
 119 
   OraDatabase.Parameters.Remove "RTAG_ID"
118 
   OraDatabase.Parameters.Remove "RTAG_NAME"
 120 
   OraDatabase.Parameters.Remove "RTAG_NAME"
Line 121... Line 123...
121 
   OraDatabase.Parameters.Remove "OWNER_EMAIL"
 123 
   OraDatabase.Parameters.Remove "OWNER_EMAIL"
122 
   OraDatabase.Parameters.Remove "USER_ID"
 124 
   OraDatabase.Parameters.Remove "USER_ID"
123 
   OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
 125 
   OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
124 
   OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
 126 
   OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
125 
   OraDatabase.Parameters.Remove "STATE"
 127 
   OraDatabase.Parameters.Remove "STATE"
- 
 
 128 
   OraDatabase.Parameters.Remove "BUILD_AGE"
126 
 
 129 
 
127 
End Sub
 130 
End Sub
128 
'--------------------------------------------------------------------------------------------------------------------------
 131 
'--------------------------------------------------------------------------------------------------------------------------
129 
%>
 132 
%>
130 
<%
 133 
<%
Line 304... Line 307...
304 
                        <%Else%>
 307 
                        <%Else%>
305 
                           <td valign="top"><input type="checkbox" name="product_state_used" checked <%=ctrlDisabled%>></td>
 308 
                           <td valign="top"><input type="checkbox" name="product_state_used" checked <%=ctrlDisabled%>></td>
306 
                        <%End If%>
 309 
                        <%End If%>
307 
                        <td width="9%" valign="top"></td>
 310 
                        <td width="9%" valign="top"></td>
308 
                     </tr>
 311 
                     </tr>
- 
 
 312 
 
- 
 
 313 
                     <tr>
- 
 
 314 
                        <td width="19%" valign="top" nowrap class="form_iname">Build Age before warning</td>
- 
 
 315 
 
- 
 
 316 
                        <td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "build_age", objForm.GetValue( "build_age", objFormCollector.Item("build_age") ), "class='form_ivalue' size='5'" )%></td>
- 
 
 317 
                        <td width="9%" valign="top"></td>
- 
 
 318 
 
- 
 
 319 
                     </tr>
- 
 
 320 
 
- 
 
 321 
 
309 
                     <tr>
 322 
                     <tr>
310 
                        <td class="form_iname">&nbsp;</td>
 323 
                        <td class="form_iname">&nbsp;</td>
311 
                        <td>&nbsp;</td>
 324 
                        <td>&nbsp;</td>
312 
                        <td class="val_err"></td>
 325 
                        <td class="val_err"></td>
313 
                     </tr>
 326 
                     </tr>