项目管理，本期应付，界面显示小数位数，应根据“合同支付是否单独设置”来识别

Units/CalcDecimal.pas

@@ -17,6 +17,7 @@ type
 
     function GetDisplayFormat(ADigit: Integer): string;
     procedure SetRelaDecimal(const Value: TDecimal);
+    function GetTrueDigit: Integer;
   public
     constructor Create;
     destructor Destroy; override;
@@ -34,6 +35,8 @@ type
     property Format: string read FFormat;
     property CompareValue: Double read FCompareValue;
 
+    property TrueDigit: Integer read GetTrueDigit;
+
     property RelaDecimal: TDecimal read FRelaDecimal write SetRelaDecimal;
   end;
 
@@ -128,6 +131,14 @@ begin
   end;
 end;
 
+function TDecimal.GetTrueDigit: Integer;
+begin
+  if Assigned(FRelaDecimal) then
+    Result := FRelaDecimal.TrueDigit
+  else
+    Result := FDigit;
+end;
+
 procedure TDecimal.RefreshLinkViewColsFormat;
 var
   i: Integer;

Units/ProjectData.pas

@@ -539,8 +539,8 @@ begin
   InfoRec.ValueByName('PhasePay').AsFloat := PhaseRec.ValueByName('PhasePay').AsFloat;
   InfoRec.ValueByName('PhaseCount').AsInteger := FProjProperties.PhaseCount;
   InfoRec.ValueByName('AuditStatus').AsInteger := FProjProperties.AuditStatus;
-  InfoRec.ValueByName('CommonDigit').AsInteger := FProjProperties.DecimalManager.Common.TotalPrice.Digit;
-  InfoRec.ValueByName('DealPayDigit').AsInteger := FProjProperties.DecimalManager.DealPay.TotalPrice.Digit;
+  InfoRec.ValueByName('CommonDigit').AsInteger := FProjProperties.DecimalManager.Common.TotalPrice.TrueDigit;
+  InfoRec.ValueByName('DealPayDigit').AsInteger := FProjProperties.DecimalManager.DealPay.TotalPrice.TrueDigit;
   ProjectManager.CalculateParentInfo(InfoRec.ValueByName('ParentID').AsInteger);
   ProjectManager.Save;
 end;