合同支付，直接输入金额时，不考虑起扣金额等限制

DataModules/DealPaymentDm.pas

@@ -440,12 +440,12 @@ procedure TDealPaymentData.sdvDealPaymentSetText(var Text: string;
     begin
       Rec.ValueByName('Formula').AsString := '';
       AValue.Owner.ValueByName(sFField).AsString := '';
-      AID := ARecord.ValueByName('ID').AsInteger;
+      {AID := ARecord.ValueByName('ID').AsInteger;
       fTotalPrice := StrToFloatDef(Text, 0) - AValue.AsFloat;
       if CheckStartedPrice(AID) then
         Text := FloatToStr(AValue.AsFloat + GetAllowTotalPrice(AID, fTotalPrice))
       else
-        Text := '';
+        Text := '';}
     end
     else
     begin