Subversion Repositories DevTools

Rev

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

Rev 15 Rev 19
Line 24... Line 24...
24 
Dim aRs
 24 
Dim aRs
25 
Dim MoreLink
 25 
Dim MoreLink
26 
Dim parFilter_on
 26 
Dim parFilter_on
27 
Dim ForceDropdown
 27 
Dim ForceDropdown
28 
Dim parBase_env_id
 28 
Dim parBase_env_id
- 
 
 29 
Dim parProc_name
29 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
 31 
'------------ VARIABLE INIT -------------------
31 
parProd_id = Request("proc_id_list")
 32 
parProd_id = Request("proc_id_list")
32 
parOs_id = Request("os_id")
 33 
parOs_id = Request("os_id")
33 
parBom_id = Request("bom_id")
 34 
parBom_id = Request("bom_id")
34 
parFilter_on = Request("filter_on")
 35 
parFilter_on = Request("filter_on")
35 
parBase_env_id = Request("base_env_id")
 36 
parBase_env_id = Request("base_env_id")
- 
 
 37 
parProc_name = Request("proc_name")
36 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 38 
Set objFormCollector = CreateObject("Scripting.Dictionary")
37 
isInterface = NULL
 39 
isInterface = NULL
38 
'------------ CONDITIONS ----------------------
 40 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
 41 
'----------------------------------------------
40 
%>
 42 
%>
Line 45... Line 47...
45
47
46
48
47 
 
 49 
 
48
50
49
51
50 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROCESSES_CONFIG pc, PACKAGE_VERSIONS pv, PACKAGES p WHERE 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 )
 52 
	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 )
51
53
52 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 54 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
53 
		outobjDetails.Item ("pkg_health_tag")   = rsQry("pkg_health_tag")
 55 
		outobjDetails.Item ("pkg_health_tag")   = rsQry("pkg_health_tag")
54 
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
 56 
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
55 
		outobjDetails.Item ("os_id") = rsQry("os_id")
 57 
		outobjDetails.Item ("os_id") = rsQry("os_id")
56 
		outobjDetails.Item ("cmd_interface") = rsQry("cmd_interface")
 58 
		outobjDetails.Item ("cmd_interface") = rsQry("cmd_interface")
57 
		'outobjDetails.Item ("electronic_name") = rsQry("electronic_name")
 59 
		'outobjDetails.Item ("electronic_name") = rsQry("electronic_name")
58 
		outobjDetails.Item ("pkg_owner") = rsQry("pkg_owner")
 60 
		outobjDetails.Item ("pkg_owner") = rsQry("pkg_owner")
59 
		outobjDetails.Item ("is_interface") = rsQry("is_interface")
 61 
		outobjDetails.Item ("is_interface") = rsQry("is_interface")
60 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
62 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
- 
 
 63 
		outobjDetails.Item ("proc_id") = rsQry("proc_id")
61
64
62 
 
 65 
 
63
66
64 
	Else
 67 
	Else
65 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProc_id="& nProd_id &", nOs_id="& nOs_id
 68 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProc_id="& nProd_id &", nOs_id="& nOs_id
Line 78... Line 81...
78 
  		isInterface = "F"
 81 
  		isInterface = "F"
79 
  	Else
 82 
  	Else
80 
  		isInterface = "T"
 83 
  		isInterface = "T"
81 
  	End If
84 
  	End If
82
85
83 
	OraDatabase.Parameters.Add "PROD_ID", 		Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
86 
	OraDatabase.Parameters.Add "PROD_ID", 			Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 87 
	OraDatabase.Parameters.Add "PROC_ID", 			Request("proc_id"), ORAPARM_INPUT, ORATYPE_NUMBER
84 
	OraDatabase.Parameters.Add "IS_INTERFACE", 	isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR2
88 
	OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR2
85 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
89 
	OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
86 
	OraDatabase.Parameters.Add "CMD_INTERFACE", Request("cmd_interface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
90 
	OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmd_interface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
87 
	OraDatabase.Parameters.Add "PKG_OWNER", 	Request("pkg_owner"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
 91 
	OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkg_owner"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
88 
 
 - 
 
- 
 
 92 
	OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("pkg_health_tag"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 93 
	OraDatabase.Parameters.Add "PRODUCT", 			Request("prod_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
89
94
90 
	objEH.TryORA ( OraSession )
 95 
	objEH.TryORA ( OraSession )
91
96
92 
	OraDatabase.ExecuteSQL _
 97 
	OraDatabase.ExecuteSQL _
93 
	"BEGIN pk_Product.Update_Process ( :PROD_ID, :IS_INTERFACE, :OS_ID, :CMD_INTERFACE, :PKG_OWNER ); END;"
98 
	"BEGIN pk_Product.Update_Process ( :PROC_ID, :PROD_ID, :IS_INTERFACE, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :PKG_HEALTH_TAG, :PRODUCT ); END;"
94
99
95 
    OraSession.CommitTrans
100 
    OraSession.CommitTrans
96
101
97 
	objEH.CatchORA ( OraSession )
 102 
	objEH.CatchORA ( OraSession )
98
103
99
104
100 
	OraDatabase.Parameters.Remove "PROD_ID"
 105 
	OraDatabase.Parameters.Remove "PROD_ID"
- 
 
 106 
	OraDatabase.Parameters.Remove "PROC_ID"
101 
	OraDatabase.Parameters.Remove "IS_INTERFACE"
 107 
	OraDatabase.Parameters.Remove "IS_INTERFACE"
102 
	OraDatabase.Parameters.Remove "OS_ID"
 108 
	OraDatabase.Parameters.Remove "OS_ID"
103 
	OraDatabase.Parameters.Remove "CMD_INTERFACE"
 109 
	OraDatabase.Parameters.Remove "CMD_INTERFACE"
104 
	OraDatabase.Parameters.Remove "PKG_OWNER"
 110 
	OraDatabase.Parameters.Remove "PKG_OWNER"
105 
 
 - 
 
- 
 
 111 
	OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
- 
 
 112 
	OraDatabase.Parameters.Remove "PRODUCT"
106
113
107 
End Sub
 114 
End Sub
108 
'--------------------------------------------------------------------------------------------------------------------------
 115 
'--------------------------------------------------------------------------------------------------------------------------
109 
Sub UpdateProdAtBaseEnv ()
 116 
Sub UpdateProdAtBaseEnv ()
110 
	On Error Resume Next
 117 
	On Error Resume Next
Line 153... Line 160...
153 
			Call UpdateProcAtOs()
 160 
			Call UpdateProcAtOs()
154 
 
 161 
 
155
162
156
163
157 
		If objEH.Finally Then
 164 
		If objEH.Finally Then
158 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 165 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK&bom_id="& parBom_id &"&os_id="& parOs_id )
159 
			Call CloseWindow()
 166 
			Call CloseWindow()
160 
		End If
 167 
		End If
161
168
162 
	End If
 169 
	End If
163 
ElseIf Request("action") = "filter_off" Then
 170 
ElseIf Request("action") = "filter_off" Then
Line 211... Line 218...
211 
	  <%End If%>
 218 
	  <%End If%>
212 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 219 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
213 
 
 220 
 
214 
	  <tr>
 221 
	  <tr>
215 
        <td nowrap class="form_iname" valign="top">Package Health Tag</td>
 222 
        <td nowrap class="form_iname" valign="top">Package Health Tag</td>
216 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_health_tag", objFormCollector.Item("pkg_health_tag"), "size='70' class='form_ivalue' disabled" )%></td>
 223 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_health_tag", objFormCollector.Item("pkg_health_tag"), "size='70' class='form_ivalue'" )%></td>
217 
		<td valign="top"></td>
 224 
		<td valign="top"></td>
218 
      </tr>
 225 
      </tr>
219 
	  <tr>
 226 
	  <tr>
220 
        <td nowrap class="form_iname" valign="top">Package/Product</td>
 227 
        <td nowrap class="form_iname" valign="top">Package/Product</td>
- 
 
 228 
		<td valign="top">
- 
 
 229 
		<%
221 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
 230 
		OraDatabase.Parameters.Add "PKG_NAME", 	objFormCollector.Item("pkg_name"),	ORAPARM_INPUT,  ORATYPE_VARCHAR2
- 
 
 231 
		OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 232 
		Dim rsQry
- 
 
 233 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatchesCombo.sql"), cint(0))
- 
 
 234 
		%>
- 
 
 235 
		<select name="prod_id" class="form_ivalue">
- 
 
 236 
		<%
- 
 
 237 
		While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
- 
 
 238 
        	<option value="<%=rsQry("prod_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_name")%> - <%=rsQry("pkg_version")%></option>
- 
 
 239 
        <%rsQry.MoveNext
- 
 
 240 
		WEnd
- 
 
 241 
		rsQry.Close
- 
 
 242 
		Set rsQry = Nothing
- 
 
 243
- 
 
 244 
		OraDatabase.Parameters.Remove "PKG_NAME"
- 
 
 245 
		OraDatabase.Parameters.Remove "OS_ID"
- 
 
 246 
		%>
- 
 
 247 
		</td>
222 
		<td valign="top"></td>
 248 
		<td valign="top"></td>
- 
 
 249 
		</select>
223 
      </tr>
 250 
      </tr>
224
251
225 
      <tr>
 252 
      <tr>
226 
        <td nowrap class="form_iname" valign="top">Command Interface</td>
 253 
        <td nowrap class="form_iname" valign="top">Command Interface</td>
227 
        <td valign="top"><%=objFormComponent.TextBox ( "cmd_interface", objFormCollector.Item("cmd_interface"), "size='70' class='form_ivalue'" )%></td>
 254 
        <td valign="top"><input type="text" name="cmd_interface" value="<%=Server.HTMLEncode(objFormCollector.Item("cmd_interface"))%>" size='70' class='form_ivalue'>
228 
		<td valign="top"></td>
 255 
		<td valign="top"></td>
229 
      </tr>
 256 
      </tr>
230 
	  <tr>
 257 
	  <tr>
231
258
232 
        <td nowrap class="form_iname" valign="top">Is Interface</td>
 259 
        <td nowrap class="form_iname" valign="top">Is Interface</td>
Line 249... Line 276...
249 
      </tr>
 276 
      </tr>
250 
    </table></td>
 277 
    </table></td>
251 
  </tr>
 278 
  </tr>
252 
  <%=objPMod.ComposeHiddenTags()%>
 279 
  <%=objPMod.ComposeHiddenTags()%>
253 
  <input type="hidden" name="proc_id_list" value="<%=parProd_id%>">
 280 
  <input type="hidden" name="proc_id_list" value="<%=parProd_id%>">
- 
 
 281 
  <input type="hidden" name="proc_name" value="<%=parProc_name%>">
- 
 
 282 
  <input type="hidden" name="proc_id" value="<%=objFormCollector.Item("proc_id")%>">
254 
  <input type="hidden" name="action" value="true">
 283 
  <input type="hidden" name="action" value="true">
255 
  <%
 284 
  <%
256 
  Call objFormComponent.FormEnd()
 285 
  Call objFormComponent.FormEnd()
257 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 286 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
258 
  %>
 287 
  %>