|
|
@@ -1482,7 +1482,7 @@ begin
|
|
|
Open;
|
|
|
while not EOF do
|
|
|
Next;
|
|
|
- RecNo:=0;
|
|
|
+ RecNo:=1;
|
|
|
|
|
|
DumpLn(Format('<p>Record count: %d </p>',[Q.RecordCount]));
|
|
|
Try
|
|
|
@@ -1981,9 +1981,9 @@ begin
|
|
|
if FRunID<>'' then
|
|
|
S:=S+' AND (TR_TESTRUN_FK='+FRunID+')';
|
|
|
If FOnlyFailed then
|
|
|
- S:=S+' AND (TR_OK="-")';
|
|
|
+ S:=S+' AND (NOT TR_OK)';
|
|
|
If FNoSkipped then
|
|
|
- S:=S+' AND (TR_SKIP="-")';
|
|
|
+ S:=S+' AND (NOT TR_SKIP)';
|
|
|
If FCond<>'' then
|
|
|
S:=S+' AND ('+FCond+')';
|
|
|
|
|
|
@@ -2091,7 +2091,7 @@ begin
|
|
|
|
|
|
DumpLn(Format('<p>Record count: %d </p>',[Q.RecordCount]));
|
|
|
if RecordCount>0 then
|
|
|
- RecNo:=0;
|
|
|
+ RecNo:=1;
|
|
|
|
|
|
Try
|
|
|
{ if FDebug then
|
|
|
@@ -2115,7 +2115,7 @@ begin
|
|
|
version_ind:=FieldByName('TV_ID').Index;
|
|
|
date_ind:=FieldByName('Date').Index;
|
|
|
run_ind:=FieldByName('TU_ID').Index;
|
|
|
- For i:=0 to Q.RecordCount-1 do
|
|
|
+ For i:=1 to Q.RecordCount do
|
|
|
begin
|
|
|
Q.RecNo:=i;
|
|
|
inc(total_count);
|
|
|
@@ -2285,7 +2285,7 @@ begin
|
|
|
CellEnd;
|
|
|
if assigned(cpu_count) then
|
|
|
begin
|
|
|
- for i:=0 to cpu_last do
|
|
|
+ for i:=1 to cpu_last do
|
|
|
if cpu_count^[i,TS]>0 then
|
|
|
begin
|
|
|
RowNext;
|
|
|
@@ -2309,7 +2309,7 @@ begin
|
|
|
end;
|
|
|
if assigned(os_count) then
|
|
|
begin
|
|
|
- for i:=0 to os_last do
|
|
|
+ for i:=1 to os_last do
|
|
|
if os_count^[i,TS]>0 then
|
|
|
begin
|
|
|
RowNext;
|
|
|
@@ -2336,7 +2336,7 @@ begin
|
|
|
|
|
|
if assigned(version_count) then
|
|
|
begin
|
|
|
- for i:=0 to version_last do
|
|
|
+ for i:=1 to version_last do
|
|
|
if version_count^[i,TS]>0 then
|
|
|
begin
|
|
|
RowNext;
|
|
|
@@ -2365,7 +2365,7 @@ begin
|
|
|
if total_count>0 then
|
|
|
begin
|
|
|
TableEnd;
|
|
|
- RecNo:=0;
|
|
|
+ RecNo:=1;
|
|
|
end;
|
|
|
If FDebug or FListAll then
|
|
|
begin
|
pierre