INTEGRATION: CWS rowsetdel (1.2.12); FILE MERGED

2006/01/20 10:07:46 fs 1.2.12.1: #i55731# DB test previously relied on an implementation detail of the RowSet service, which now changed (as is well-defined at the API)

smoketestoo_native/data/scripts/Test_DB.xba

@@ -88,7 +88,11 @@ Const sTestString = "Automatical Test"
 		nCurrentAction = cDBDelete
 		sCurrentMessage = cMessageDatabaseDelete
 		oRowSet.deleteRow()
-		bResult = (nRowCount - oRowSet.RowCount = 1)
+		bResult = (nRowCount - oRowSet.RowCount = 0)
+		if ( bResult ) Then
+			oRowSet.next()
+			bResult = (nRowCount - oRowSet.RowCount = 1)
+		End If
 		LogState (bResult, "Database "+ cMessageDatabaseDelete, FileChannel)
 		LogState (bResult, "Database "+ cMessageDatabaseDelete, MainFileChannel)
 		SetStatus (FilterType, cDBDelete, bResult)
@@ -127,4 +131,4 @@ Const sTestString = "Automatical Test"
 	End If	
 	Exit Sub ' With error
 End Sub
-</script:module>
+</script:module>
\ No newline at end of file