|
|
@@ -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
|
