Subversion Repositories DevTools

Rev

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

Rev 5513 Rev 5955
Line 74... Line 74...
74 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
74 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
75 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
75 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
76
76
77 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
 77 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
78
78
- 
 
 79 
    OraDatabase.Parameters.Remove "BOM_ID"
- 
 
 80 
    OraDatabase.Parameters.Remove "RTAG_ID"
79
81
80 
	'-- Get Rows
 82 
	'-- Get Rows
81 
	If rsQry.RecordCount > 0 Then
 83 
	If rsQry.RecordCount > 0 Then
82 
		aDiffList = rsQry.GetRows()
 84 
		aDiffList = rsQry.GetRows()
83
85
84 
	Else
 86 
	Else
85 
		'-- No differencses with Release Manager, hence exit
 87 
		'-- No differencses with Release Manager, hence exit
86 
		OraDatabase.Parameters.Remove "BOM_ID"
 - 
 
87 
		OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
88 
		Exit Sub
 88 
		Exit Sub
89
89
90 
	End If
 90 
	End If
91
91
92
- 
 
93
- 
 
94 
	'/* Update Versions */
 92 
	'/* Update Versions */
95 
	On Error Resume Next
 93 
	On Error Resume Next
96
94
- 
 
 95 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 96 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
99 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
99 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
100
100
101 
	Set OraParameter = OraDatabase.Parameters
 101 
	Set OraParameter = OraDatabase.Parameters
102
102
103
- 
 
104
- 
 
105 
	objEH.TryORA ( OraSession )
 103 
	objEH.TryORA ( OraSession )
106
104
107 
	numOfRows = UBound( aDiffList, 2 )
 105 
	numOfRows = UBound( aDiffList, 2 )
108
106
109 
	For rowNum = 0 To numOfRows
 107 
	For rowNum = 0 To numOfRows
Line 142... Line 140...
142 
	Const os_id_column = 2
 140 
	Const os_id_column = 2
143 
	Const old_prod_id_column = 1
 141 
	Const old_prod_id_column = 1
144
142
145 
	'/* Get Lates Release Manager */
 143 
	'/* Get Lates Release Manager */
146 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
144 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
147
- 
 
148
- 
 
149 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHidePatches.sql"), ORADYN_DEFAULT )
 145 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHidePatches.sql"), ORADYN_DEFAULT )
- 
 
 146 
	OraDatabase.Parameters.Remove "BOM_ID"
150
147
151
148
152 
	'-- Get Rows
 149 
	'-- Get Rows
153 
	If rsQry.RecordCount > 0 Then
 150 
	If rsQry.RecordCount > 0 Then
154 
		aDiffList = rsQry.GetRows()
 151 
		aDiffList = rsQry.GetRows()
155
152
156 
	Else
 153 
	Else
157 
		'-- No differencses with Release Manager, hence exit
 154 
		'-- No differencses with Release Manager, hence exit
158 
		OraDatabase.Parameters.Remove "BOM_ID"
 - 
 
159 
 
 - 
 
160 
		Exit Sub
 155 
		Exit Sub
161
156
162 
	End If
 157 
	End If
163
158
164
159
165
160
166 
	'/* Unhide Products/Patches */
 161 
	'/* Unhide Products/Patches */
167 
	On Error Resume Next
 162 
	On Error Resume Next
168
163
- 
 
 164 
	OraDatabase.Parameters.Add "BOM_ID",    parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
169 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
165 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
170 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
166 
	OraDatabase.Parameters.Add "OS_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
171 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
167 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
172
168
173 
	Set OraParameter = OraDatabase.Parameters
 169 
	Set OraParameter = OraDatabase.Parameters
174
170
175
- 
 
176
- 
 
177 
	objEH.TryORA ( OraSession )
 171 
	objEH.TryORA ( OraSession )
178
172
179 
	numOfRows = UBound( aDiffList, 2 )
 173 
	numOfRows = UBound( aDiffList, 2 )
180
174
181
175
Line 204... Line 198...
204
198
205
199
206 
	objEH.CatchORA ( OraSession )
200 
	objEH.CatchORA ( OraSession )
207
201
208 
	OraDatabase.Parameters.Remove "BOM_ID"
 202 
	OraDatabase.Parameters.Remove "BOM_ID"
209 
 
 - 
 
210 
	OraDatabase.Parameters.Remove "PROD_ID"
 203 
	OraDatabase.Parameters.Remove "PROD_ID"
211 
	OraDatabase.Parameters.Remove "OS_ID"
 204 
	OraDatabase.Parameters.Remove "OS_ID"
212 
	OraDatabase.Parameters.Remove "USER_ID"
 205 
	OraDatabase.Parameters.Remove "USER_ID"
213 
End Sub
 206 
End Sub
214 
'----------------------------------------------------------------------------------------------------------------------------------
 207 
'----------------------------------------------------------------------------------------------------------------------------------