合同支付，设置"不参与本期应付项"，开始计量前，不应实时计算，开始计量后，应实时计算

Frames/DealPaymentFme.pas

@@ -451,7 +451,8 @@ begin
   Rec := sdDealPayment.DataView.Current;
   Rec.ValueByName('CalcType').AsInteger := 3;
 
-  TProjectData(FDealPaymentData.ProjectData).PhaseData.PhasePayData.CalculateAll;
+  if (TProjectData(FDealPaymentData.ProjectData).PhaseData.Active) then
+    TProjectData(FDealPaymentData.ProjectData).PhaseData.PhasePayData.CalculateAll;
 end;
 
 procedure TDealPaymentFrame.actnWithoutCalcCurPayUpdate(Sender: TObject);