合同支付问题

Frames/DealPaymentFme.pas

@@ -305,6 +305,8 @@ procedure TDealPaymentFrame.ResetBaseDataReadOnly(AReadOnly: Boolean);
 begin
   sdDealPayment.Column('Name').ReadOnly := AReadOnly;
   sdDealPayment.Column('IsMinus').ReadOnly := AReadOnly;
+  sdDealPayment.Column('StartPrice').ReadOnly := AReadOnly;
+  sdDealPayment.Column('RangePrice').ReadOnly := AReadOnly;
 end;
 
 procedure TDealPaymentFrame.ResetPhaseDataReadOnly(AReadOnly: Boolean);

Units/ProjectData.pas

@@ -403,7 +403,7 @@ end;
 
 function TProjectData.GetBaseDataReadOnly: Boolean;
 begin
-  if FProjProperties.PhaseCount = 0 then
+  if (FProjProperties.PhaseCount = 0) then
     Result := False
   else
     Result := not AllowInsert;
@@ -411,7 +411,9 @@ end;
 
 function TProjectData.GetAllowInsert: Boolean;
 begin
-  if FPhaseData.Active then
+  if IsHistoryPhase then
+    Result := False
+  else if FPhaseData.Active then
     Result := FPhaseData.AllowInsert
   else
     Result := True;
@@ -1840,7 +1842,7 @@ end;
 
 function TProjectData.GetStageDataReadOnly: Boolean;
 begin
-  if FPhaseData.Active then
+  if FPhaseData.Active and not IsHistoryPhase then
     Result := FPhaseData.StageDataReadOnly
   else
     Result := True;