Subversion Repositories DevTools

Rev

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

Rev 17 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wEditProd					 	 |
 5 
'|			          wEditProd					 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim objFormCollector
 23 
Dim objFormCollector
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 
'------------ CONSTANTS DECLARATION -----------
 29 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
 30 
'------------ VARIABLE INIT -------------------
31 
parProd_id = Request("prod_id_list")
 31 
parProd_id = Request("prod_id_list")
32 
parOs_id = Request("os_id")
 32 
parOs_id = Request("os_id")
33 
parBom_id = Request("bom_id")
 33 
parBom_id = Request("bom_id")
34 
parFilter_on = Request("filter_on")
 34 
parFilter_on = Request("filter_on")
35 
parBase_env_id = Request("base_env_id")
 35 
parBase_env_id = Request("base_env_id")
36 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 36 
Set objFormCollector = CreateObject("Scripting.Dictionary")
37 
'------------ CONDITIONS ----------------------
 37 
'------------ CONDITIONS ----------------------
38 
'----------------------------------------------
 38 
'----------------------------------------------
39 
%>
 39 
%>
40 
<%
 40 
<%
41 
'--------------------------------------------------------------------------------------------------------------------------
 41 
'--------------------------------------------------------------------------------------------------------------------------
42 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
 42 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
43 
	Dim rsQry, query
 43 
	Dim rsQry, query
44 
	OraDatabase.Parameters.Add "PROD_ID", nProd_id,	ORAPARM_INPUT, ORATYPE_NUMBER
44 
	OraDatabase.Parameters.Add "PROD_ID", nProd_id,	ORAPARM_INPUT, ORATYPE_NUMBER
45 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
45 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
46
46
47 
	If nBaseEnvId = "" Then
 47 
	If nBaseEnvId = "" Then
48 
		OraDatabase.Parameters.Add "OS_ID", nOs_id,	ORAPARM_INPUT, ORATYPE_NUMBER
48 
		OraDatabase.Parameters.Add "OS_ID", nOs_id,	ORAPARM_INPUT, ORATYPE_NUMBER
49 
		query = GetQuery("ProductDetailsAtOs.sql")
 49 
		query = GetQuery("ProductDetailsAtOs.sql")
50 
	Else
 50 
	Else
51 
		OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId,	ORAPARM_INPUT, ORATYPE_NUMBER
51 
		OraDatabase.Parameters.Add "BASE_ENV_ID", nBaseEnvId,	ORAPARM_INPUT, ORATYPE_NUMBER
52 
		query = GetQuery("ProductDetailsAtBaseEnv.sql")
 52 
		query = GetQuery("ProductDetailsAtBaseEnv.sql")
53 
	End If
 53 
	End If
54
54
55
55
56 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 56 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
57
57
58 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 58 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
59 
		outobjDetails.Item ("seq_num")   = rsQry("seq_num")
 59 
		outobjDetails.Item ("seq_num")   = rsQry("seq_num")
60 
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
 60 
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
61 
		outobjDetails.Item ("pkg_id") = rsQry("pkg_id")
 61 
		outobjDetails.Item ("pkg_id") = rsQry("pkg_id")
62 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
 62 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
63 
		outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
 63 
		outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
64 
		outobjDetails.Item ("product_comments") = rsQry("product_comments")
 64 
		outobjDetails.Item ("product_comments") = rsQry("product_comments")
65
65
66 
		If nBaseEnvId = "" Then
 66 
		If nBaseEnvId = "" Then
67 
			outobjDetails.Item ("os_id") = rsQry("os_id")
 67 
			outobjDetails.Item ("os_id") = rsQry("os_id")
68 
		Else
 68 
		Else
69 
			outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
 69 
			outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
70 
		End If
 70 
		End If
71
71
72 
	Else
 72 
	Else
73 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProd_id="& nProd_id &", nOs_id="& nOs_id
 73 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProd_id="& nProd_id &", nOs_id="& nOs_id
74
74
75 
	End If
 75 
	End If
76
76
77 
	rsQry.Close
 77 
	rsQry.Close
78 
	Set rsQry = Nothing
 78 
	Set rsQry = Nothing
79
79
80
80
81
81
82 
	'/* Get Project Details */
 82 
	'/* Get Project Details */
83 
	query = _
 83 
	query = _
84 
	" SELECT proj.RM_PROJECTS_FK"&_
 84 
	" SELECT proj.RM_PROJECTS_FK"&_
85 
	"  FROM BOMS bo,"&_
 85 
	"  FROM BOMS bo,"&_
86 
	"  	   BRANCHES br,"&_
 86 
	"  	   BRANCHES br,"&_
87 
	"	   DM_PROJECTS proj"&_
 87 
	"	   DM_PROJECTS proj"&_
88 
	" WHERE br.PROJ_ID = proj.PROJ_ID"&_
 88 
	" WHERE br.PROJ_ID = proj.PROJ_ID"&_
89 
	"   AND bo.BRANCH_ID = br.BRANCH_ID"&_
 89 
	"   AND bo.BRANCH_ID = br.BRANCH_ID"&_
90 
	"   AND bo.BOM_ID = :BOM_ID"
 90 
	"   AND bo.BOM_ID = :BOM_ID"
91
91
92 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 92 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
93
93
94 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 94 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
95 
		outobjDetails.Item ("rm_projects_fk")   = rsQry("rm_projects_fk")
 95 
		outobjDetails.Item ("rm_projects_fk")   = rsQry("rm_projects_fk")
96
96
97 
	Else
 97 
	Else
98 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
98 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
99
99
100 
	End If
 100 
	End If
101
101
102 
	OraDatabase.Parameters.Remove "PROD_ID"
 102 
	OraDatabase.Parameters.Remove "PROD_ID"
103 
	OraDatabase.Parameters.Remove "OS_ID"
 103 
	OraDatabase.Parameters.Remove "OS_ID"
104 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 104 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
105 
	OraDatabase.Parameters.Remove "BOM_ID"
 105 
	OraDatabase.Parameters.Remove "BOM_ID"
106
106
107 
	rsQry.Close
 107 
	rsQry.Close
108 
	Set rsQry = Nothing
 108 
	Set rsQry = Nothing
109 
End Sub
 109 
End Sub
110 
'--------------------------------------------------------------------------------------------------------------------------
 110 
'--------------------------------------------------------------------------------------------------------------------------
111 
Sub GetProductVersions ( aRs, outMore )
 111 
Sub GetProductVersions ( aRs, outMore )
112 
	Dim rsQry, OraParameter, CurrentRecordCount, TotalRecordCount
 112 
	Dim rsQry, OraParameter, CurrentRecordCount, TotalRecordCount
113
113
114 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
114 
	OraDatabase.Parameters.Add "PKG_ID",  	objFormCollector.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
115 
	OraDatabase.Parameters.Add "PROJ_ID",   objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
115 
	OraDatabase.Parameters.Add "PROJ_ID",   objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
116 
	OraDatabase.Parameters.Add "FILTER_ON",   1,	ORAPARM_INPUT, ORATYPE_NUMBER
116 
	OraDatabase.Parameters.Add "FILTER_ON",   1,	ORAPARM_INPUT, ORATYPE_NUMBER
117
117
118 
	'-- Get all Ora Parameters
 118 
	'-- Get all Ora Parameters
119 
	Set OraParameter = OraDatabase.Parameters
 119 
	Set OraParameter = OraDatabase.Parameters
120
120
121
121
122 
	'-- Clear Filter if user require
 122 
	'-- Clear Filter if user require
123 
	If parFilter_on <> "" Then OraParameter("FILTER_ON").Value = 0
 123 
	If parFilter_on <> "" Then OraParameter("FILTER_ON").Value = 0
124
124
125
125
126 
	'-- Get Record Set
 126 
	'-- Get Record Set
127 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
 127 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
128 
	CurrentRecordCount = rsQry.RecordCount
 128 
	CurrentRecordCount = rsQry.RecordCount
129 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 129 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
130 
		aRs = rsQry.GetRows()
 130 
		aRs = rsQry.GetRows()
131
131
132 
	Else
 132 
	Else
133 
		aRs = NULL
 133 
		aRs = NULL
134
134
135 
	End If
 135 
	End If
136
136
137 
	rsQry.Close
 137 
	rsQry.Close
138 
	Set rsQry = Nothing
 138 
	Set rsQry = Nothing
139
139
140
140
141 
	'-- Get Total Record Count
 141 
	'-- Get Total Record Count
142 
	OraParameter("FILTER_ON").Value = 0
 142 
	OraParameter("FILTER_ON").Value = 0
143 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
 143 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
144 
	TotalRecordCount = rsQry.RecordCount
 144 
	TotalRecordCount = rsQry.RecordCount
145
145
146 
	rsQry.Close
 146 
	rsQry.Close
147 
	Set rsQry = Nothing
 147 
	Set rsQry = Nothing
148
148
149
149
150 
	'-- Create More... linke if needed
 150 
	'-- Create More... linke if needed
151 
	outMore = NULL
 151 
	outMore = NULL
152 
	If CurrentRecordCount < TotalRecordCount Then
 152 
	If CurrentRecordCount < TotalRecordCount Then
153 
		outMore = "javascript:go_submit( document.FormName, ""filter_off"" );ShowProgress();"
 153 
		outMore = "javascript:go_submit( document.FormName, ""filter_off"" );ShowProgress();"
154 
	End If
 154 
	End If
155
155
156
156
157 
	Set OraParameter = Nothing
 157 
	Set OraParameter = Nothing
158
158
159 
	OraDatabase.Parameters.Remove "PKG_ID"
 159 
	OraDatabase.Parameters.Remove "PKG_ID"
160 
	OraDatabase.Parameters.Remove "PROJ_ID"
 160 
	OraDatabase.Parameters.Remove "PROJ_ID"
161 
	OraDatabase.Parameters.Remove "FILTER_ON"
 161 
	OraDatabase.Parameters.Remove "FILTER_ON"
162 
End Sub
 162 
End Sub
163 
'--------------------------------------------------------------------------------------------------------------------------
 163 
'--------------------------------------------------------------------------------------------------------------------------
164 
Function GetSeqNumList ( nSeq_num )
 164 
Function GetSeqNumList ( nSeq_num )
165 
	Dim rsQry, query
 165 
	Dim rsQry, query
166
166
167 
	OraDatabase.Parameters.Add "SEQ_NUM",   nSeq_num,	ORAPARM_INPUT, ORATYPE_NUMBER
167 
	OraDatabase.Parameters.Add "SEQ_NUM",   nSeq_num,	ORAPARM_INPUT, ORATYPE_NUMBER
168
168
169
169
170 
	If parBase_env_id = "" Then
 170 
	If parBase_env_id = "" Then
171 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
171 
		OraDatabase.Parameters.Add "OS_ID",  parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
172 
		query = GetQuery ("InstallOrderComboAtOs.sql")
 172 
		query = GetQuery ("InstallOrderComboAtOs.sql")
173 
	Else
 173 
	Else
174 
		OraDatabase.Parameters.Add "BASE_ENV_ID",  parBase_env_id,		ORAPARM_INPUT, ORATYPE_NUMBER
174 
		OraDatabase.Parameters.Add "BASE_ENV_ID",  parBase_env_id,		ORAPARM_INPUT, ORATYPE_NUMBER
175 
		query = GetQuery ("InstallOrderComboAtBaseEnv.sql")
 175 
		query = GetQuery ("InstallOrderComboAtBaseEnv.sql")
176 
	End If
 176 
	End If
177
177
178
178
179 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 179 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
180 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 180 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
181 
		GetSeqNumList = rsQry.GetRows()
 181 
		GetSeqNumList = rsQry.GetRows()
182
182
183 
	Else
 183 
	Else
184 
		GetSeqNumList = NULL
 184 
		GetSeqNumList = NULL
185
185
186 
	End If
 186 
	End If
187
187
188 
	rsQry.Close
 188 
	rsQry.Close
189 
	Set rsQry = Nothing
 189 
	Set rsQry = Nothing
190
190
191 
	OraDatabase.Parameters.Remove "OS_ID"
 191 
	OraDatabase.Parameters.Remove "OS_ID"
192 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 192 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
193 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 193 
	OraDatabase.Parameters.Remove "SEQ_NUM"
194 
End Function
 194 
End Function
195 
'--------------------------------------------------------------------------------------------------------------------------
 195 
'--------------------------------------------------------------------------------------------------------------------------
196 
Sub UpdateProdAtOs ()
 196 
Sub UpdateProdAtOs ()
197 
	On Error Resume Next
 197 
	On Error Resume Next
198
198
199 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
199 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
200 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 200 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
201 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
201 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
202 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
202 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
203 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 203 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
204
204
205
205
206 
	objEH.TryORA ( OraSession )
 206 
	objEH.TryORA ( OraSession )
207
207
208 
	OraDatabase.ExecuteSQL _
 208 
	OraDatabase.ExecuteSQL _
209 
	"BEGIN pk_Product.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :OS_ID, :SEQ_NUM, :PROD_COMMENTS ); END;"
209 
	"BEGIN pk_Product.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :OS_ID, :SEQ_NUM, :PROD_COMMENTS ); END;"
210
210
211 
	objEH.CatchORA ( OraSession )
 211 
	objEH.CatchORA ( OraSession )
212
212
213
213
214 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 214 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
215 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 215 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
216 
	OraDatabase.Parameters.Remove "OS_ID"
 216 
	OraDatabase.Parameters.Remove "OS_ID"
217 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 217 
	OraDatabase.Parameters.Remove "SEQ_NUM"
218 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 218 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
219
219
220 
End Sub
 220 
End Sub
221 
'--------------------------------------------------------------------------------------------------------------------------
 221 
'--------------------------------------------------------------------------------------------------------------------------
222 
Sub UpdateProdAtBaseEnv ()
 222 
Sub UpdateProdAtBaseEnv ()
223 
	On Error Resume Next
 223 
	On Error Resume Next
224
224
225 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
225 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
226 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 226 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
227 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
227 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
228 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
228 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
229 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 229 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
230
230
231
231
232 
	objEH.TryORA ( OraSession )
 232 
	objEH.TryORA ( OraSession )
233
233
234 
	OraDatabase.ExecuteSQL _
 234 
	OraDatabase.ExecuteSQL _
235 
	"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS ); END;"
235 
	"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS ); END;"
236
236
237 
	objEH.CatchORA ( OraSession )
 237 
	objEH.CatchORA ( OraSession )
238
238
239
239
240 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 240 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
241 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 241 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
242 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 242 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
243 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 243 
	OraDatabase.Parameters.Remove "SEQ_NUM"
244 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 244 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
245
245
246 
End Sub
 246 
End Sub
247 
'--------------------------------------------------------------------------------------------------------------------------
 247 
'--------------------------------------------------------------------------------------------------------------------------
248 
%>
 248 
%>
249 
<%
 249 
<%
250 
'------------ RUN BEFORE PAGE RENDER ----------
 250 
'------------ RUN BEFORE PAGE RENDER ----------
251 
objPMod.PersistInQryString ( Array("base_env_id") )
 251 
objPMod.PersistInQryString ( Array("base_env_id") )
252 
 
 252 
 
253 
' --- Get Form details from DB ---
 253 
' --- Get Form details from DB ---
254 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
 254 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
255 
 
 255 
 
256 
' --- Load Validation Rules ---
 256 
' --- Load Validation Rules ---
257 
Call objForm.LoadValidationRules ( Array("product_comments"), OraDatabase )		' Load Validation Rules
 257 
Call objForm.LoadValidationRules ( Array("product_comments"), OraDatabase )		' Load Validation Rules
258 
 
 258 
 
259 
' --- Enter Form Validation Rule Changes here... ----
 259 
' --- Enter Form Validation Rule Changes here... ----
260 
'----------------------------------------------------
 260 
'----------------------------------------------------
261 
 
 261 
 
262 
If Request("action") = "true" Then
 262 
If Request("action") = "true" Then
263 
	If objForm.IsValidOnPostBack Then
 263 
	If objForm.IsValidOnPostBack Then
264 
		' --- Form is Valid ---
 264 
		' --- Form is Valid ---
265 
		If parBase_env_id = "" Then
 265 
		If parBase_env_id = "" Then
266 
			Call UpdateProdAtOs()
 266 
			Call UpdateProdAtOs()
267 
		Else
 267 
		Else
268 
			Call UpdateProdAtBaseEnv()
 268 
			Call UpdateProdAtBaseEnv()
269 
		End If
 269 
		End If
270
270
271
271
272 
		If objEH.Finally Then
 272 
		If objEH.Finally Then
273 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
 273 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
274 
			Call CloseWindow()
 274 
			Call CloseWindow()
275 
		End If
 275 
		End If
276
276
277 
	End If
 277 
	End If
278 
ElseIf Request("action") = "filter_off" Then
 278 
ElseIf Request("action") = "filter_off" Then
279 
	parFilter_on = 0
 279 
	parFilter_on = 0
280 
End If
 280 
End If
281 
'----------------------------------------------
 281 
'----------------------------------------------
282 
%>
 282 
%>
283 
<html>
 283 
<html>
284 
<head>
 284 
<head>
285 
<title>Deployment Manager</title>
 285 
<title>Deployment Manager</title>
286 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 286 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
287 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 287 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
288 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 288 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
289 
<script language="JavaScript" src="scripts/common.js"></script>
 289 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
290 
</head>
 290 
<script language="JavaScript" src="scripts/common.js"></script>
291 
 
 291 
</head>
292 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 292 
 
293 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 293 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
294 
  <tr>
 294 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
295 
    <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 New Product Version</span> <br>
 295 
  <tr>
296 
    Add new product version and click Submit.
296 
    <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 New Product Version</span> <br>
297 
    </td>
 297 
    Add new product version and click Submit.
298 
  </tr>
 298 
    </td>
299 
  <%
 299 
  </tr>
300 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 300 
  <%
301 
  objFormComponent.FormName = "FormName"
 301 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
302 
  objFormComponent.Action = SCRIPT_NAME
 302 
  objFormComponent.FormName = "FormName"
303 
  objFormComponent.OnSubmit = "ShowProgress();"
 303 
  objFormComponent.Action = SCRIPT_NAME
304 
  Call objFormComponent.FormStart()
 304 
  objFormComponent.OnSubmit = "ShowProgress();"
305 
  %>
305 
  Call objFormComponent.FormStart()
306 
  <tr>
 306 
  %>
307 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 307 
  <tr>
308 
      <tr>
 308 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
309 
        <td><%=ProgressBar%></td>
 309 
      <tr>
310 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 310 
        <td><%=ProgressBar%></td>
311 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 311 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
312 
      </tr>
 312 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
313 
    </table></td>
 313 
      </tr>
314 
  </tr>
 314 
    </table></td>
315 
  <tr>
 315 
  </tr>
316 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
 316 
  <tr>
317 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
317 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
318 
	  <%If NOT objEH.Finally Then%>
 318 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
319 
      <tr>
 319 
	  <%If NOT objEH.Finally Then%>
320 
        <td class="form_iname">&nbsp;</td>
 320 
      <tr>
321 
        <td>
 321 
        <td class="form_iname">&nbsp;</td>
322 
		 <%objEH.DisplayMessage()%>
 322 
        <td>
323 
		</td>
 323 
		 <%objEH.DisplayMessage()%>
324 
        <td class="val_err"></td>
 324 
		</td>
325 
      </tr>
 325 
        <td class="val_err"></td>
326 
	  <%End If%>
 326 
      </tr>
327 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 327 
	  <%End If%>
328 
      <tr>
 328 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
329 
        <td nowrap class="form_iname" valign="top">Install Order</td>
 329 
      <tr>
330 
        <td valign="top"><%=objFormComponent.Combo ( "seq_num", GetSeqNumList( objForm.GetValue ( "seq_num", objFormCollector.Item("seq_num"))), FALSE, "class='form_ivalue'" )%></td>
 330 
        <td nowrap class="form_iname" valign="top">Install Order</td>
331 
		<td valign="top"></td>
 331 
        <td valign="top"><%=objFormComponent.Combo ( "seq_num", GetSeqNumList( objForm.GetValue ( "seq_num", objFormCollector.Item("seq_num"))), FALSE, "class='form_ivalue'" )%></td>
332 
      </tr>
 332 
		<td valign="top"></td>
333 
	  <tr>
 333 
      </tr>
334 
        <td nowrap class="form_iname" valign="top">Product Name</td>
 334 
	  <tr>
335 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
 335 
        <td nowrap class="form_iname" valign="top">Product Name</td>
336 
		<td valign="top"></td>
 336 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
337 
      </tr>
 337 
		<td valign="top"></td>
338 
      <tr>
 338 
      </tr>
339 
        <td nowrap class="form_iname" valign="top">Version</td>
 339 
      <tr>
340 
        <td valign="top"><%
 340 
        <td nowrap class="form_iname" valign="top">Version</td>
341 
		Call GetProductVersions( aRs, MoreLink )
 341 
        <td valign="top"><%
342 
		ForceDropdown = FALSE
 342 
		Call GetProductVersions( aRs, MoreLink )
343 
		If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
 343 
		ForceDropdown = FALSE
344
344 
		If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
345 
		Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
 345
346 
		%></td>
 346 
		Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
347 
		<td valign="top"></td>
 347 
		%></td>
348 
      </tr>
 348 
		<td valign="top"></td>
349 
      <tr>
 349 
      </tr>
350 
        <td valign="top" nowrap class="form_iname">Comments</td>
 350 
      <tr>
351 
        <td valign="top"><%=objFormComponent.TextArea ("product_comments", objForm.GetValue ( "product_comments", objFormCollector.Item("product_comments")), 22, 80, "class='form_ivalue'" )%></td>
 351 
        <td valign="top" nowrap class="form_iname">Comments</td>
352 
		<td valign="top">
 352 
        <td valign="top"><%=objFormComponent.TextArea ("product_comments", objForm.GetValue ( "product_comments", objFormCollector.Item("product_comments")), 22, 80, "class='form_ivalue'" )%></td>
353 
		<%=objForm.Validate ("product_comments")%>
 353 
		<td valign="top">
354 
		</td>
 354 
		<%=objForm.Validate ("product_comments")%>
355 
      </tr>
 355 
		</td>
356 
      <tr>
 356 
      </tr>
357 
        <td width="10%" class="form_iname">&nbsp;</td>
 357 
      <tr>
358 
        <td width="1%">&nbsp;</td>
 358 
        <td width="10%" class="form_iname">&nbsp;</td>
359 
		<td width="90%" class="val_err"></td>
 359 
        <td width="1%">&nbsp;</td>
360 
      </tr>
 360 
		<td width="90%" class="val_err"></td>
361 
    </table></td>
 361 
      </tr>
362 
  </tr>
 362 
    </table></td>
363 
  <%=objPMod.ComposeHiddenTags()%>
 363 
  </tr>
364 
  <input type="hidden" name="prod_id_list" value="<%=parProd_id%>">
 364 
  <%=objPMod.ComposeHiddenTags()%>
365 
  <input type="hidden" name="action" value="true">
 365 
  <input type="hidden" name="prod_id_list" value="<%=parProd_id%>">
366 
  <%
 366 
  <input type="hidden" name="action" value="true">
367 
  Call objFormComponent.FormEnd()
 367 
  <%
368 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 368 
  Call objFormComponent.FormEnd()
369 
  %>
 369 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
370 
</table>
 370 
  %>
371 
</body>
 371 
</table>
372 
</html>
 372 
</body>
373 
<%
 373 
</html>
374 
'------------ RUN AFTER PAGE RENDER -----------
 374 
<%
375 
Set objFormCollector = Nothing
 375 
'------------ RUN AFTER PAGE RENDER -----------
376 
'----------------------------------------------
 376 
Set objFormCollector = Nothing
377 
%><!--#include file="common/globals_destructor.asp"-->
 377 
'----------------------------------------------
- 
 
 378 
%><!--#include file="common/globals_destructor.asp"-->