Bug #1056 合同支付项，停用后，双击金额不应重新计算

DataModules/DealPaymentDm.pas

@@ -467,6 +467,10 @@ procedure TDealPaymentData.sdvDealPaymentSetText(var Text: string;
       else
         fTotalPrice := FPayFormula.Calculate(Text);
     end;
+
+    if AValue.Owner.ValueByName('StopCalc').AsBoolean then
+      fTotalPrice := 0;
+
     iID := ARecord.ValueByName('ID').AsInteger;
     if CheckStartedPrice(iID) then
     begin