1. 切换审核比较、再切换其他台账or变更台账、再切换回审核比较报错

2. 清单父项，本期完成计量由子项汇总得到，不在使用合同+变更

DataModules/StageDm.pas

@@ -692,8 +692,9 @@ begin
     fQc := TotalPriceRoundTo(fQc + ChildNode.StageRec.QcTotalPrice.AsFloat);
     fPc := TotalPriceRoundTo(fPc + ChildNode.StageRec.PcTotalPrice.AsFloat);
     fPM := TotalPriceRoundTo(fPM + ChildNode.StageRec.PM_TotalPrice.AsFloat);
-  end;                                                                      
-  fTotal := TotalPriceRoundTo(fDeal + fQc + fPc);
+    fTotal := TotalPriceRoundTo(fTotal + ChildNode.StageRec.GatherTotalPrice.AsFloat);
+  end;
+  //fTotal := TotalPriceRoundTo(fDeal + fQc + fPc);
 
   with ANode.StageRec do
   begin

Frames/ProjectFme.pas

@@ -606,7 +606,7 @@ var
 begin
   if Item.Tag = jpsMain.ActivePageIndex then Exit;
 
-  bCloseCompare := (Item.Tag in [0..3]) and (jpsMain.ActivePageIndex = 4);
+  bCloseCompare := (Item.Tag in [0..3, 5, 6]) and (jpsMain.ActivePageIndex = 4);
 
   case Item.Tag of
     0..2, 5, 6: ChangeView;