WebSVN – DevTools – Diff – /ManagerSuite/Deployment_Manager/trunk/web/wSyncProducts.asp



   'OraDatabase
 
 
   objEH.CatchORA ( OraSession )
 
 
 
   OraDatabase.Parameters.Remove "OLD_PROD_ID"
   OraDatabase.Parameters.Remove "NEW_PROD_ID"
   OraDatabase.Parameters.Remove "OS_ID"
   OraDatabase.Parameters.Remove "USER_ID"
End Sub

   Const os_id_column = 2
   Const prod_id_column = 1
 
   '/* Get Lates Release Manager */
   OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
   OraDatabase.Parameters.Remove "BOM_ID"
 
 
   '-- Get Rows
   If rsQry.RecordCount > 0 Then
      aDiffList = rsQry.GetRows()
 
   Else
      '-- No differences with Release Manager, hence exit
 
      Exit Sub
   End If
 
 
 
   '/* Update Versions */
   OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 
   Set OraParameter = OraDatabase.Parameters

      Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE IN (3, 5) */", " AND rc.PRODUCT_STATE IN (3, 5)")
   End   If
 
   Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
 
   OraDatabase.Parameters.Remove "BOM_ID"
   OraDatabase.Parameters.Remove "RTAG_ID"
 
   '-- Get Rows
   If rsQry.RecordCount > 0 Then
      aDiffList = rsQry.GetRows()
 
   Else
      '-- No differences with Release Manager, hence exit
 
 
      Exit Sub
 
   End If
 
   '/* Hide Versions */
   OraDatabase.Parameters.Add "BOM_ID",  parBom_id,                           ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 
   Set OraParameter = OraDatabase.Parameters

 
   objEH.CatchORA ( OraSession )
 
   OraDatabase.Parameters.Remove "BOM_ID"
   OraDatabase.Parameters.Remove "RTAG_ID"
 
   OraDatabase.Parameters.Remove "NEW_PROD_ID"
   OraDatabase.Parameters.Remove "OS_ID"
   OraDatabase.Parameters.Remove "USER_ID"
End Sub
'----------------------------------------------------------------------------------------------------------------------------------

   Const os_id_column = 2
   Const prod_id_column = 1
 
   '/* Get Latest from Release Manager */
   OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
   OraDatabase.Parameters.Remove "BOM_ID"
 
   '-- Get Rows
   If rsQry.RecordCount > 0 Then
      aDiffList = rsQry.GetRows()
 
   Else
      '-- No differencses with Release Manager, hence exit
 
      Exit Sub
   End If
 
 
 
   '/* Hide Versions */
   OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 
   Set OraParameter = OraDatabase.Parameters

Rev 5518	Rev 5955
Line 168...	Line 168...
168	`'OraDatabase`	168	`'OraDatabase`
169		169
170		170
171	`objEH.CatchORA ( OraSession )`	171	`objEH.CatchORA ( OraSession )`
172		172
173	`OraDatabase.Parameters.Remove "BOM_ID"`	-
174	`OraDatabase.Parameters.Remove "RTAG_ID"`	-
175	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`	173	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`
176	`OraDatabase.Parameters.Remove "NEW_PROD_ID"`	174	`OraDatabase.Parameters.Remove "NEW_PROD_ID"`
177	`OraDatabase.Parameters.Remove "OS_ID"`	175	`OraDatabase.Parameters.Remove "OS_ID"`
178	`OraDatabase.Parameters.Remove "USER_ID"`	176	`OraDatabase.Parameters.Remove "USER_ID"`
179	`End Sub`	177	`End Sub`
Line 183...	Line 181...
183	`Const os_id_column = 2`	181	`Const os_id_column = 2`
184	`Const prod_id_column = 1`	182	`Const prod_id_column = 1`
185		183
186	`'/* Get Lates Release Manager */`	184	`'/* Get Lates Release Manager */`
187	`OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER`	185	`OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER`
188		-
189	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )`	186	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )`
-		187	`OraDatabase.Parameters.Remove "BOM_ID"`
190		188
191		189
192	`'-- Get Rows`	190	`'-- Get Rows`
193	`If rsQry.RecordCount > 0 Then`	191	`If rsQry.RecordCount > 0 Then`
194	`aDiffList = rsQry.GetRows()`	192	`aDiffList = rsQry.GetRows()`
195		193
196	`Else`	194	`Else`
197	`'-- No differences with Release Manager, hence exit`	195	`'-- No differences with Release Manager, hence exit`
198	`OraDatabase.Parameters.Remove "BOM_ID"`	-
199	`Exit Sub`	196	`Exit Sub`
200	`End If`	197	`End If`
201		198
202		-
203		-
204	`'/* Update Versions */`	199	`'/* Update Versions */`
-		200	`OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER`
205	`OraDatabase.Parameters.Add "NEW_PROD_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`	201	`OraDatabase.Parameters.Add "NEW_PROD_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`
206	`OraDatabase.Parameters.Add "OS_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`	202	`OraDatabase.Parameters.Add "OS_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`
207	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`	203	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
208		204
209	`Set OraParameter = OraDatabase.Parameters`	205	`Set OraParameter = OraDatabase.Parameters`
Line 246...	Line 242...
246	`Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE IN (3, 5) */", " AND rc.PRODUCT_STATE IN (3, 5)")`	242	`Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE IN (3, 5) */", " AND rc.PRODUCT_STATE IN (3, 5)")`
247	`End If`	243	`End If`
248		244
249	`Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )`	245	`Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )`
250		246
-		247	`OraDatabase.Parameters.Remove "BOM_ID"`
-		248	`OraDatabase.Parameters.Remove "RTAG_ID"`
-		249
251	`'-- Get Rows`	250	`'-- Get Rows`
252	`If rsQry.RecordCount > 0 Then`	251	`If rsQry.RecordCount > 0 Then`
253	`aDiffList = rsQry.GetRows()`	252	`aDiffList = rsQry.GetRows()`
254		253
255	`Else`	254	`Else`
256	`'-- No differences with Release Manager, hence exit`	255	`'-- No differences with Release Manager, hence exit`
257	`OraDatabase.Parameters.Remove "BOM_ID"`	-
258	`OraDatabase.Parameters.Remove "RTAG_ID"`	-
259	`Exit Sub`	256	`Exit Sub`
260		257
261	`End If`	258	`End If`
262		259
263	`'/* Hide Versions */`	260	`'/* Hide Versions */`
-		261	`OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER`
-		262	`OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER`
264	`OraDatabase.Parameters.Add "NEW_PROD_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`	263	`OraDatabase.Parameters.Add "NEW_PROD_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`
265	`OraDatabase.Parameters.Add "OS_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`	264	`OraDatabase.Parameters.Add "OS_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`
266	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`	265	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
267		266
268	`Set OraParameter = OraDatabase.Parameters`	267	`Set OraParameter = OraDatabase.Parameters`
Line 292...	Line 291...
292		291
293	`objEH.CatchORA ( OraSession )`	292	`objEH.CatchORA ( OraSession )`
294		293
295	`OraDatabase.Parameters.Remove "BOM_ID"`	294	`OraDatabase.Parameters.Remove "BOM_ID"`
296	`OraDatabase.Parameters.Remove "RTAG_ID"`	295	`OraDatabase.Parameters.Remove "RTAG_ID"`
297	`OraDatabase.Parameters.Remove "OLD_PROD_ID"`	-
298	`OraDatabase.Parameters.Remove "NEW_PROD_ID"`	296	`OraDatabase.Parameters.Remove "NEW_PROD_ID"`
299	`OraDatabase.Parameters.Remove "OS_ID"`	297	`OraDatabase.Parameters.Remove "OS_ID"`
300	`OraDatabase.Parameters.Remove "USER_ID"`	298	`OraDatabase.Parameters.Remove "USER_ID"`
301	`End Sub`	299	`End Sub`
302	`'----------------------------------------------------------------------------------------------------------------------------------`	300	`'----------------------------------------------------------------------------------------------------------------------------------`
Line 305...	Line 303...
305	`Const os_id_column = 2`	303	`Const os_id_column = 2`
306	`Const prod_id_column = 1`	304	`Const prod_id_column = 1`
307		305
308	`'/* Get Latest from Release Manager */`	306	`'/* Get Latest from Release Manager */`
309	`OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER`	307	`OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER`
310		-
311	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )`	308	`Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )`
-		309	`OraDatabase.Parameters.Remove "BOM_ID"`
312		310
313	`'-- Get Rows`	311	`'-- Get Rows`
314	`If rsQry.RecordCount > 0 Then`	312	`If rsQry.RecordCount > 0 Then`
315	`aDiffList = rsQry.GetRows()`	313	`aDiffList = rsQry.GetRows()`
316		314
317	`Else`	315	`Else`
318	`'-- No differencses with Release Manager, hence exit`	316	`'-- No differencses with Release Manager, hence exit`
319	`OraDatabase.Parameters.Remove "BOM_ID"`	-
320	`Exit Sub`	317	`Exit Sub`
321	`End If`	318	`End If`
322		319
323		320
324		321
325	`'/* Hide Versions */`	322	`'/* Hide Versions */`
-		323	`OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER`
326	`OraDatabase.Parameters.Add "NEW_PROD_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`	324	`OraDatabase.Parameters.Add "NEW_PROD_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`
327	`OraDatabase.Parameters.Add "OS_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`	325	`OraDatabase.Parameters.Add "OS_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER`
328	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`	326	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
329		327
330	`Set OraParameter = OraDatabase.Parameters`	328	`Set OraParameter = OraDatabase.Parameters`

Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/trunk/web/wSyncProducts.asp – Rev 5518 → 5955