项目管理，文件夹金额汇总，小数位数相关

DataModules/ProjectManagerDm.pas

@@ -691,6 +691,8 @@ procedure TProjectManagerData.CalculateParentInfo(AID: Integer);
     fEnd := 0;
     fPre := 0;
     fPhasePay := 0;
+    iCommonDigit := - ANode.Rec.ValueByName('CommonDigit').AsInteger;
+    iDealPayDigit := - ANode.Rec.ValueByName('DealPayDigit').AsInteger;
     for iChild := 0 to ANode.ChildCount - 1 do
     begin
       vChild := ANode.ChildNodes[iChild];