Subversion Repositories DevTools

Rev

Rev 5506 | Rev 5952 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5590
Line 28... Line 28...
28 
Dim GBE_BS
 28 
Dim GBE_BS
29 
Dim GBE_BSA_NAME
 29 
Dim GBE_BSA_NAME
30 
Dim Query_String
 30 
Dim Query_String
31 
'------------ CONSTANTS DECLARATION -----------
 31 
'------------ CONSTANTS DECLARATION -----------
32 
'------------ VARIABLE INIT -------------------
 32 
'------------ VARIABLE INIT -------------------
- 
 
 33 
sMessage = NULL
33 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 34 
Set objFormCollector = CreateObject("Scripting.Dictionary")
34 
'------------ CONDITIONS ----------------------
 35 
'------------ CONDITIONS ----------------------
35 
'----------------------------------------------
 36 
'----------------------------------------------
36 
%>
 37 
%>
37 
<%
 38 
<%
Line 77... Line 78...
77 
 
 78 
 
78 
         OraDatabase.Parameters.Add "BSA_ID",       Request("bsa_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
 79 
         OraDatabase.Parameters.Add "BSA_ID",       Request("bsa_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
79 
         OraDatabase.Parameters.Add "BSA_NAME",     Request("GBE_BSA_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 80 
         OraDatabase.Parameters.Add "BSA_NAME",     Request("GBE_BSA_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2
80 
         OraDatabase.Parameters.Add "BS_ID",        Request("GBE_BS"),       ORAPARM_INPUT, ORATYPE_NUMBER
 81 
         OraDatabase.Parameters.Add "BS_ID",        Request("GBE_BS"),       ORAPARM_INPUT, ORATYPE_NUMBER
81 
 
 82 
 
- 
 
 83 
         objEH.ErrorRedirect = FALSE
82 
         objEH.TryORA ( OraSession )
 84 
         objEH.TryORA ( OraSession )
83 
         On Error Resume Next
 85 
         On Error Resume Next
84 
 
 86 
 
85 
         OraDatabase.ExecuteSQL _
 87 
         OraDatabase.ExecuteSQL _
86 
         "BEGIN  UPDATE BUILD_STANDARDS_ADDENDUM SET BSA_NAME = :BSA_NAME, BS_ID = :BS_ID WHERE BSA_ID = :BSA_ID;  END;"
 88 
         "BEGIN  UPDATE BUILD_STANDARDS_ADDENDUM SET BSA_NAME = :BSA_NAME, BS_ID = :BS_ID WHERE BSA_ID = :BSA_ID;  END;"
Line 115... Line 117...
115 
      If rsQry.RecordCount = 0 Then
 117 
      If rsQry.RecordCount = 0 Then
116 
 
 118 
 
117 
         OraDatabase.Parameters.Add "BSA_NAME",     Request("GBE_BSA_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 119 
         OraDatabase.Parameters.Add "BSA_NAME",     Request("GBE_BSA_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2
118 
         OraDatabase.Parameters.Add "BS_ID",        Request("GBE_BS"),       ORAPARM_INPUT, ORATYPE_NUMBER
 120 
         OraDatabase.Parameters.Add "BS_ID",        Request("GBE_BS"),       ORAPARM_INPUT, ORATYPE_NUMBER
119 
 
 121 
 
- 
 
 122 
         objEH.ErrorRedirect = FALSE
120 
         objEH.TryORA ( OraSession )
 123 
         objEH.TryORA ( OraSession )
121 
         On Error Resume Next
 124 
         On Error Resume Next
122 
 
 125 
 
123 
         OraDatabase.ExecuteSQL _
 126 
         OraDatabase.ExecuteSQL _
124 
         "BEGIN  INSERT INTO BUILD_STANDARDS_ADDENDUM (BSA_NAME, BS_ID) VALUES( :BSA_NAME, :BS_ID);  END;"
 127 
         "BEGIN  INSERT INTO BUILD_STANDARDS_ADDENDUM (BSA_NAME, BS_ID) VALUES( :BSA_NAME, :BS_ID);  END;"
Line 155... Line 158...
155 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 158 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
156 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
 159 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
157 
<script language="JavaScript" src="images/common.js"></script>
 160 
<script language="JavaScript" src="images/common.js"></script>
158 
</head>
 161 
</head>
159 
 
 162 
 
160 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.GBE_BSA_NAME.focus();">
 163 
<body leftmargin="0" topmargin="0" onLoad="self.focus();FormName.GBE_BSA_NAME.focus();">
161 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 164 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
162 
   <tr>
 165 
   <tr>
163 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add/Update Build Standard</span> <br>
 166 
      <td class="body_txt">
164 
         Add a new Build Standard or edit an existing Build Standard.
 167 
         Add a new Build Standard or edit an existing Build Standard.
165 
      </td>
 168 
      </td>
166 
   </tr>
 169 
   </tr>
167 
 
 - 
 
168 
 
 - 
 
169 
   <%
 170 
   <%
170 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
 171 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
171 
   objFormComponent.FormName = "FormName"
 172 
   objFormComponent.FormName = "FormName"
- 
 
 173 
   objFormComponent.FormClass = "form_tight"
172 
   objFormComponent.Action = ScriptName
 174 
   objFormComponent.Action = ScriptName
173 
   objFormComponent.OnSubmit = "MM_validateForm(""GBE_BSA_NAME"",""Build Standard Addendum"",""RLength4:"",""GBE_BS"",""Build Standard"",""R"");return document.MM_returnValue"
 175 
   objFormComponent.OnSubmit = "MM_validateForm(""GBE_BSA_NAME"",""Build Standard Addendum"",""RLength4:"",""GBE_BS"",""Build Standard"",""R"");return document.MM_returnValue"
174 
   Call objFormComponent.FormStart()
 176 
   Call objFormComponent.FormStart()
175 
 
 177 
 
176 
   %>
 178 
   %>
177 
   <tr>
 179 
   <tr>
178 
      <td background="images/bg_login.gif">
 180 
      <td class="form_field_bg" >
179 
         <table width="50%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
180 
            <tr>
 - 
 
181 
               <td><%=ProgressBar()%></td>
 - 
 
182 
               <td align="right"><input name="btn" type="submit" class="form_btn" value="Add/Update">
 - 
 
183 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
 - 
 
184 
               </td>
 - 
 
185 
            </tr>
 - 
 
186 
         </table>
 - 
 
187 
      </td>
 - 
 
188 
   </tr>
 - 
 
189 
   <tr>
 - 
 
190 
      <td>
 - 
 
191 
         <!-- NEW PRODUCT +++++++++++++++++++++++++++++++++++++++++++++++ -->
 181 
         <!-- LOCAL MESSAGES ++++++++++++++++++++++++++++++++++++++++++++ -->
192 
         <%Call Messenger ( sMessage , 1, "100%" )%>
 182 
         <%Call Messenger ( sMessage , 3, "100%" )%>
193 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 183 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
194 
         <!--#include file="messages/_msg_inline.asp"-->
 184 
         <!--#include file="messages/_msg_inline.asp"-->
195 
 
 185 
 
196 
         <table width="50%" border="0">
 186 
         <table width="50%" border="0">
197 
            <%
 187 
            <%
Line 215... Line 205...
215 
               rsTemp.Close()
 205 
               rsTemp.Close()
216 
               Set rsTemp = Nothing
 206 
               Set rsTemp = Nothing
217 
            End   If
 207 
            End   If
218 
            %>
 208 
            %>
219 
            <tr>
 209 
            <tr>
220 
               <td><span class="body_txt">Build Standard</span></td>
 210 
               <td><span class="body_txt nowrap">Build Standard</span></td>
221 
               <td>
 211 
               <td>
222 
                    <select id="FRbs"  name="GBE_BS" class="form_item">
 212 
                    <select id="FRbs"  name="GBE_BS" class="form_item">
223 
                    <%getBuildStandardOptions(GBE_BS)%>
 213 
                    <%getBuildStandardOptions(GBE_BS)%>
224 
                    </select>
 214 
                    </select>
225 
               </td>
 215 
               </td>
Line 231... Line 221...
231 
            </tr>
 221 
            </tr>
232 
            </tr>
 222 
            </tr>
233 
         </table>
 223 
         </table>
234 
      </td>
 224 
      </td>
235 
   </tr>
 225 
   </tr>
- 
 
 226 
   <tr>
- 
 
 227 
      <td>
- 
 
 228 
         <table class="full_table">
- 
 
 229 
            <tr>
- 
 
 230 
               <td><%=ProgressBar()%></td>
- 
 
 231 
               <td align="right">
- 
 
 232 
	          <input name="btn" type="submit" class="form_btn" value="Add/Update">
- 
 
 233 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onclick="parent.closeIFrame();">
- 
 
 234 
               </td>
- 
 
 235 
            </tr>
- 
 
 236 
         </table>
- 
 
 237 
      </td>
- 
 
 238 
   </tr>
236 
   <%=objPMod.ComposeHiddenTags()%>
 239 
   <%=objPMod.ComposeHiddenTags()%>
237 
   <input type="hidden" name="action" value="true">
 240 
   <input type="hidden" name="action" value="true">
238 
 
 241 
 
239 
   <%
 242 
   <%
240 
   Call objFormComponent.FormEnd()
 243 
   Call objFormComponent.FormEnd()