@@ -187,7 +187,9 @@ begin
vCM := TChecker.Create;
iIndex := vProj.Checkers.Add(StrToInt(vA[i, 4]), vA[i, 0], vA[i, 2], vA[i, 6], vA[i, 8]);
if vStatus in [csFinished, csNotPass] then
- vProj.Checkers.LastChecker := vProj.Checkers.Item[iIndex];
+ vProj.Checkers.LastChecker := vProj.Checkers.Item[iIndex]
+ else
+ vProj.Checkers.LastChecker := nil;
end;
RepairOrder;
end
@@ -2245,6 +2245,7 @@ begin
sURL := Format('%suser/get/all/%d/%d/measure', [PHPWeb.MeasureURL, WebID, PhaseIndex]);
if PHPWeb.Search(sURL, [''], [''], vA) = 1 then
begin
+ Checkers.LastChecker := nil;
for i := Low(vA) to High(vA) do
vStatus := TCheckStatus(StrToInt(vA[i, 3])-1);