Преглед изворни кода

开始计量后,直接导入分包汇总数据,父项不汇总计算

MaiXinRong пре 7 година
родитељ
комит
b4c85c474b
1 измењених фајлова са 3 додато и 1 уклоњено
  1. 3 1
      DataModules/StageDm.pas

+ 3 - 1
DataModules/StageDm.pas

@@ -677,7 +677,9 @@ var
   ChildNode: TMeasureBillsIDTreeNode;
   fDeal, fQc, fPc, fTotal, fPM: Double;
 begin
-  if not Assigned(ANode.StageRec) then Exit;
+  if not Assigned(TMeasureBillsIDTreeNode(ANode.FirstChild).StageRec) then Exit;
+  if not Assigned(ANode.StageRec) then
+    ANode.StageRec := AddStageRecord(ANode.ID);
 
   fDeal := 0;
   fQc := 0;