Forráskód Böngészése

云版,审核人列表,对于已完成审批的最后一人,初始化设计错误
应该从最开始有LastChecker这个属性时,就存在该问题
凡是从批复状态,新增一期计量后,使用到该属性均会报错

MaiXinRong 6 éve
szülő
commit
bc41860e37
2 módosított fájl, 4 hozzáadás és 1 törlés
  1. 3 1
      Frames/CheckerFme.pas
  2. 1 0
      Units/ProjectData.pas

+ 3 - 1
Frames/CheckerFme.pas

@@ -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

+ 1 - 0
Units/ProjectData.pas

@@ -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
     begin
       vStatus :=  TCheckStatus(StrToInt(vA[i, 3])-1);