Subversion Repositories DevTools

Rev

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

Rev 19 Rev 23
Line 46... Line 46...
46 
Dim rowId
 46 
Dim rowId
47 
Dim email
 47 
Dim email
48 
Dim FSO
 48 
Dim FSO
49 
Dim NewTextFile
 49 
Dim NewTextFile
50 
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, sqlstrC, counterB
 50 
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, sqlstrC, counterB
51 
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss
51 
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
52 
Dim a, b, c, d, pkgversion, errormsg, source_change
 52 
Dim a, b, c, d, pkgversion, errormsg, source_change
- 
 
 53 
Dim VersionList
53 
 
 54 
 
54 
 
 55 
 
55 
'------------ Constants Declaration -----------
 56 
'------------ Constants Declaration -----------
56 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"
 57 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"
57 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Added'>"
 58 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Added'>"
Line 131... Line 132...
131 
		If sqlstrA.RecordCount <> 0 Then
 132 
		If sqlstrA.RecordCount <> 0 Then
132 
			NewTextFile.WriteLine()
 133 
			NewTextFile.WriteLine()
133 
			NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
 134 
			NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
134 
			NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table width='100%' border='1' cellspacing='0' cellpadding='1'>")
 135 
			NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table width='100%' border='1' cellspacing='0' cellpadding='1'>")
135 
			NewTextFile.WriteLine("<tr>")
 136 
			NewTextFile.WriteLine("<tr>")
136 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Issue&nbsp;Id&nbsp;</font></td>")
 137 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b>Issue&nbsp;Id&nbsp;</b></font></td>")
137 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Summary</font></td>")
 138 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b>Summary</b></font></td>")
138 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Issue&nbsp;Type&nbsp;</font></td>")
 139 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b></I>Issue&nbsp;Type&nbsp;</b></font></td>")
139 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Priority</font></td>")
 140 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b></P>Priority</b></font></td>")
140 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'>Status</font></td>")
 141 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b>Status</b></font></td>")
141 
			NewTextFile.WriteLine("</tr>")
 142 
			NewTextFile.WriteLine("</tr>")
142
143
143
144
144
145
145 
		For counterA=1 to sqlstrA.RecordCount
 146 
		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
146 
			DEVIiss = "-1"
 147 
			DEVIiss = "-1"
147 
			TDSEiss = "-1"
 148 
			TDSEiss = "-1"
148 
			VT5DMiss = "-1"
 149 
			VT5DMiss = "-1"
- 
 
 150 
			VTSUPiss = "-1"
149
151
150 
			If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 152 
			If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
151 
				DEVIiss = DEVIiss &","& sqlstrA("iss_id")
 153 
				DEVIiss = DEVIiss &","& sqlstrA("iss_id")
152 
			ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
 154 
			ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
153 
				TDSEiss = TDSEiss &","& sqlstrA("iss_id")
 155 
				TDSEiss = TDSEiss &","& sqlstrA("iss_id")
154 
			ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
 156 
			ElseIf CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
155 
				VT5DMiss = VT5DMiss &","& sqlstrA("iss_id")
157 
				VT5DMiss = VT5DMiss &","& sqlstrA("iss_id")
- 
 
 158 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
- 
 
 159 
				VTSUPiss = VTSUPiss &","& sqlstrC("iss_id")
156 
			End If
 160 
			End If
157
161
158 
			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
 162 
			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
159 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 163 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
160 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
 164 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
161 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
 165 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
- 
 
 166 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
162 
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
 167 
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
163 
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
 168 
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
164 
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
169 
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
- 
 
 170 
			SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
165 
			retVal = Get_CQ_Issues ( SSsql, rsCQ )
171 
			retVal = Get_CQ_Issues ( SSsql, rsCQ )
166 
 
 172 
 
167 
			NewTextFile.WriteLine("<tr>")
 173 
			NewTextFile.WriteLine("<tr>")
168 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' nowrap class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("iss_num")&"</font></td>")
 174 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' nowrap class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("iss_num")&"</b></font></td>")
169 
			NewTextFile.WriteLine("				   <td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</font></td>")
 175 
			NewTextFile.WriteLine("				   <td nowrap background='#CAC5B8' class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</b></font></td>")
170 
			NewTextFile.WriteLine("				  <td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("issue_type")&"</font></td>")
 176 
			NewTextFile.WriteLine("				  <td nowrap background='#CAC5B8' class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("issue_type")&"</b></font></td>")
171 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("priority")&"</font></td>")
 177 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("priority")&"</b></font></td>")
172 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' class='form_item'><font size='1' face='tahoma,sans-serif'>"&rsCQ("Status")&"</font></td>")
 178 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("Status")&"</b></font></td>")
173 
			NewTextFile.WriteLine("                     </tr>")
 179 
			NewTextFile.WriteLine("                     </tr>")
174
180
175 
			'If rsCQ("iss_num") <> "" Then
 181 
			'If rsCQ("iss_num") <> "" Then
176 
  			'	NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
 182 
  			'	NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
177 
	    	'End If
 183 
	    	'End If
Line 185... Line 191...
185 
			'End If
 191 
			'End If
186
192
187
193
188
194
189 
			sqlstrA.MoveNext
 195 
			sqlstrA.MoveNext
190 
		Next
 196 
		Wend
191 
			NewTextFile.WriteLine( "                        </table></blockquote></blockquote></blockquote> 		")
 197 
			NewTextFile.WriteLine( "                        </table></blockquote></blockquote></blockquote> 		")
192 
			sqlstrA.Close()
198 
			sqlstrA.Close()
193
199
194 
		End If
 200 
		End If
195
201
Line 199... Line 205...
199 
Sub GetDependencyFixedIssues(pv_id)
 205 
Sub GetDependencyFixedIssues(pv_id)
200 
	Set sqlstrC = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
206 
	Set sqlstrC = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
201
207
202 
		If sqlstrC.RecordCount <> 0 Then
 208 
		If sqlstrC.RecordCount <> 0 Then
203 
			NewTextFile.WriteLine()
 209 
			NewTextFile.WriteLine()
- 
 
 210 
			NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
- 
 
 211 
			NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table width='100%' border='1' cellspacing='0' cellpadding='1'>")
- 
 
 212 
			NewTextFile.WriteLine("<tr>")
- 
 
 213 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b>Issue&nbsp;Id&nbsp;</b></font></td>")
- 
 
 214 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b>Summary</b></font></td>")
- 
 
 215 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b></I>Issue&nbsp;Type&nbsp;</b></font></td>")
- 
 
 216 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b></P>Priority</b></font></td>")
- 
 
 217 
			NewTextFile.WriteLine("<td background='#CAC5B8' nowrap class='form_field'><font size='1' face='tahoma,sans-serif'><b>Status</b></font></td>")
- 
 
 218 
			NewTextFile.WriteLine("</tr>")
- 
 
 219 
			'NewTextFile.WriteLine()
204 
			'NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
 220 
			'NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
205 
 
 221 
 
206
222
207 
		For counterA=1 to sqlstrC.RecordCount
 223 
		While ((NOT sqlstrC.BOF) AND (NOT sqlstrC.EOF))
208 
			DEVIiss = "-1"
 224 
			DEVIiss = "-1"
209 
			TDSEiss = "-1"
 225 
			TDSEiss = "-1"
210 
			VT5DMiss = "-1"
 226 
			VT5DMiss = "-1"
- 
 
 227 
			VTSUPiss = "-1"
211
228
212 
			If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 229 
			If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
213 
				DEVIiss = DEVIiss &","& sqlstrC("iss_id")
 230 
				DEVIiss = DEVIiss &","& sqlstrC("iss_id")
214 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
 231 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
215 
				TDSEiss = TDSEiss &","& sqlstrC("iss_id")
 232 
				TDSEiss = TDSEiss &","& sqlstrC("iss_id")
216 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
 233 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
217 
				VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")
234 
				VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")
- 
 
 235 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
- 
 
 236 
				VTSUPiss = VTSUPiss &","& sqlstrC("iss_id")
218 
			End If
 237 
			End If
219
238
220 
			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
 239 
			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
221 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 240 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
222 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
 241 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
223 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
 242 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
- 
 
 243 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
224 
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
 244 
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
225 
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
 245 
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
226 
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
246 
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
- 
 
 247 
			SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
227 
			retVal = Get_CQ_Issues ( SSsql, rsCQ )
248 
			retVal = Get_CQ_Issues ( SSsql, rsCQ )
228 
 
 249 
 
229 
			If rsCQ("iss_num") <> "" Then
 250 
			NewTextFile.WriteLine("<tr>")
230 
  				NewTextFile.Write("<blockquote><blockquote><blockquote>"&rsCQ("iss_num")&": ")
 251 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' nowrap class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("iss_num")&"</b></font></td>")
231 
	    	End If
 - 
 
232
- 
 
233 
	     	If rsCQ("summary") <> "" Then
 252 
			NewTextFile.WriteLine("				   <td nowrap background='#CAC5B8' class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</b></font></td>")
234 
				NewTextFile.Write(rsCQ("summary")&" ")
253 
			NewTextFile.WriteLine("				  <td nowrap background='#CAC5B8' class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("issue_type")&"</b></font></td>")
235 
			End If
 - 
 
236
- 
 
237 
			If rsCQ("summary") <> "" Then
 254 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("priority")&"</b></font></td>")
238 
				NewTextFile.WriteLine("(Priority: "& rsCQ("priority") &")</blockquote></blockquote></blockquote>")
255 
			NewTextFile.WriteLine("<td nowrap background='#CAC5B8' class='form_item'><font size='1' color="&chr(34)&"red"&chr(34)&" face='tahoma,sans-serif'><b>"&rsCQ("Status")&"</b></font></td>")
239 
			End If
 256 
			NewTextFile.WriteLine("                     </tr>")
240
257
241
258
242
259
243 
			sqlstrC.MoveNext
 260 
			sqlstrC.MoveNext
244 
		Next
 261 
		Wend
- 
 
 262 
			NewTextFile.WriteLine( "                        </table></blockquote></blockquote></blockquote> 		")
245 
			sqlstrC.Close()
263 
			sqlstrC.Close()
246
264
247 
		End If
265 
		End If
248
266
249 
 
 267 
 
Line 285... Line 303...
285
303
286 
	If a < b Then
 304 
	If a < b Then
287 
		While a < b
305 
		While a < b
288 
			Call LastPvIdB(b)
 306 
			Call LastPvIdB(b)
289 
			If a < b Then
 307 
			If a < b Then
- 
 
 308 
				VersionList = VersionList + ","& b &""
290 
				Call Comments(b)
 309 
				Call Comments(b)
291 
				Call GetFixedIssues(b)
 310 
				Call GetFixedIssues(b)
292 
			End If
311 
			End If
293 
		Wend
 312 
		Wend
294 
	End If
313 
	End If
295
314
296 
	If b < a Then
 315 
	If b < a Then
297 
		While b < a
316 
		While b < a
298 
			Call LastPvIdA(a)
 317 
			Call LastPvIdA(a)
299 
			If b < a Then
 318 
			If b < a Then
- 
 
 319 
				VersionList = VersionList + ","& a &""
300 
				Call Comments(a)
 320 
				Call Comments(a)
301 
				Call GetFixedIssues(a)
 321 
				Call GetFixedIssues(a)
302 
			End If
322 
			End If
303 
		Wend
323 
		Wend
304 
	End If
 324 
	End If
Line 306... Line 326...
306 
 
 326 
 
307 
End Sub
 327 
End Sub
308 
'--------------------------------------------------------------------------------------------------------------------------
 328 
'--------------------------------------------------------------------------------------------------------------------------
309 
Sub GetDependencies(pv_id_a, pv_id_b, versionA, versionB)
 329 
Sub GetDependencies(pv_id_a, pv_id_b, versionA, versionB)
310 
	On Error Resume Next
 330 
	On Error Resume Next
- 
 
 331
311 
	Set sqlstrA = OraDatabase.DbCreateDynaset("select * from package_dependencies where pv_id = "& pv_id_b &" and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" )", cint(0))
332 
	Set sqlstrA = OraDatabase.DbCreateDynaset("select distinct dpv_id from package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" ) order by dpv_id desc", cint(0))
- 
 
 333
312 
		If sqlstrA.RecordCount <> 0 Then
 334 
		If sqlstrA.RecordCount <> 0 Then
313 
			NewTextFile.WriteLine()
 335 
			NewTextFile.WriteLine()
314 
			NewTextFile.WriteLine("<b>Dependencies Changed Between "&versionA&" and "&versionB&":</b>")
 336 
			NewTextFile.WriteLine("<b>Dependencies Changed Between "&versionA&" and "&versionB&":</b>")
315
337 
 
316 
		For counterA=1 to sqlstrA.RecordCount
 338 
		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
317 
			Call dependencyComments(sqlstrA("dpv_id"))
 339 
			Call dependencyComments(sqlstrA("dpv_id"))
318 
			Call GetDependencyFixedIssues(sqlstrA("dpv_id"))
 340 
			Call GetDependencyFixedIssues(sqlstrA("dpv_id"))
319 
			sqlstrA.MoveNext
341 
			sqlstrA.MoveNext
320 
		Next
342 
		Wend
321 
			sqlstrA.Close()
343 
			sqlstrA.Close()
322
344
323 
		End If
345 
		End If
324 
 
 346 
 
325 
End Sub
 347 
End Sub
326 
'--------------------------------------------------------------------------------------------------------------------------
 348 
'--------------------------------------------------------------------------------------------------------------------------
327 
Sub dependencyComments(pv_id)
 349 
Sub dependencyComments(pv_id)
328 
	Set sqlstrB = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_id = pv.pkg_id AND PV_ID ="&pv_id, cint(0))
350 
	Set sqlstrB = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_id = pv.pkg_id AND PV_ID ="&pv_id, cint(0))
329 
			NewTextFile.WriteLine("<blockquote><blockquote>Comments and Fixed Issues:</blockquote></blockquote>")
 351 
			NewTextFile.WriteLine("<blockquote><blockquote>Comments:</blockquote></blockquote>")
330 
			NewTextFile.Write("<blockquote><blockquote><blockquote>"& sqlstrB("pkg_name") &" "& sqlstrB("pkg_version") &"---->"& TextToHTML(sqlstrB("comments")) &"</blockquote></blockquote></blockquote>")
352 
			NewTextFile.Write("<blockquote><blockquote><blockquote><font color="&chr(34)&"blue"&chr(34)&">"& sqlstrB("pkg_name") &" "& sqlstrB("pkg_version") &"</font>---->"& TextToHTML(sqlstrB("comments")) &"</blockquote></blockquote></blockquote>")
331
353
332 
	sqlstrB.Close()
 354 
	sqlstrB.Close()
333 
	Set sqlstrB = nothing
355 
	Set sqlstrB = nothing
334
356
335 
 
 357 
 
Line 1106... Line 1128...
1106
1128
1107 
				NewTextFile.WriteLine("<title>Difference Report Between "&rsQryA("branch_name")&" "&rsQryA("location")&" and "&rsQryB("branch_name")&" "&rsQryB("location")&"</title>")
 1129 
				NewTextFile.WriteLine("<title>Difference Report Between "&rsQryA("branch_name")&" "&rsQryA("location")&" and "&rsQryB("branch_name")&" "&rsQryB("location")&"</title>")
1108 
				NewTextFile.WriteLine("<div align="&chr(34)&"center"&chr(34)&"><font color="&chr(34)&"red"&chr(34)&" size="&chr(34)&"4"&chr(34)&" face="&chr(34)&"Verdana, Arial, Helvetica, sans-serif"&chr(34)&">Difference Report Between "&rsQryA("branch_name")&" "&rsQryA("location")&" and "&rsQryB("branch_name")&" "&rsQryB("location")&"</font></div><br>")
 1130 
				NewTextFile.WriteLine("<div align="&chr(34)&"center"&chr(34)&"><font color="&chr(34)&"red"&chr(34)&" size="&chr(34)&"4"&chr(34)&" face="&chr(34)&"Verdana, Arial, Helvetica, sans-serif"&chr(34)&">Difference Report Between "&rsQryA("branch_name")&" "&rsQryA("location")&" and "&rsQryB("branch_name")&" "&rsQryB("location")&"</font></div><br>")
1109
1131
1110 
				While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 1132 
				While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
- 
 
 1133 
				VersionList = "0"
1111 
				errormsg = false
 1134 
				errormsg = false
1112 
					rowId = rsQry("pv_id_a") &"_"& rsQry("pv_id_b")
 1135 
					rowId = rsQry("pv_id_a") &"_"& rsQry("pv_id_b")
1113
1136
1114 
					btnMerge = LIMG_MERGE
 1137 
					btnMerge = LIMG_MERGE
1115 
					btnRemove = LIMG_REMOVE
 1138 
					btnRemove = LIMG_REMOVE
Line 1189... Line 1212...
1189
1212
1190 
				'On Error Resume Next
 1213 
				'On Error Resume Next
1191
1214
1192
1215
1193
1216
1194 
				NewTextFile.WriteLine("<br><br>")
 1217 
				'NewTextFile.WriteLine("<br><br>")
1195 
				NewTextFile.WriteLine()
 1218 
				'NewTextFile.WriteLine()
1196 
				NewTextFile.WriteLine("<b>"&rsQryA("location")&"</b>")
1219 
				'NewTextFile.WriteLine("<b>"&rsQryA("location")&"</b>")
1197 
				Call Comments(rsQry("pv_id_a"))
 1220 
				'Call Comments(rsQry("pv_id_a"))
1198 
				Call GetFixedIssues(rsQry("pv_id_a"))
 1221 
				'Call GetFixedIssues(rsQry("pv_id_a"))
1199 
				'Call GetDependencies(rsQry("pv_id_a"), rsQry("pv_id_b"))
 1222 
				'Call GetDependencies(rsQry("pv_id_a"), rsQry("pv_id_b"))
1200
1223
1201 
				NewTextFile.WriteLine("<br><br>")
 1224 
				NewTextFile.WriteLine("<br><br>")
1202 
				NewTextFile.WriteLine()
 1225 
				NewTextFile.WriteLine()
1203 
				NewTextFile.WriteLine("<b>"&rsQryB("location")&"</b>")
1226 
				NewTextFile.WriteLine("<b>"&rsQryB("location")&"</b>")
Line 1211... Line 1234...
1211 
					Call PreviousVersions(a, b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
 1234 
					Call PreviousVersions(a, b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
1212 
				End If
1235 
				End If
1213
1236
1214 
				a = rsQry("pv_id_a")
 1237 
				a = rsQry("pv_id_a")
1215 
				b = rsQry("pv_id_b")
 1238 
				b = rsQry("pv_id_b")
1216 
				Call GetDependencies(a, b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
1239 
				Call GetDependencies(a, VersionList + ","+ b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
1217 
				NewTextFile.WriteLine("</SPAN>")
1240 
				NewTextFile.WriteLine("</SPAN>")
1218
1241
1219 
				rsQryLast.Close
 1242 
				rsQryLast.Close
1220 
				Set rsQryLast = nothing
 1243 
				Set rsQryLast = nothing
1221
1244