|
@@ -452,7 +452,7 @@ procedure TDealPaymentData.sdvDealPaymentSetText(var Text: string;
|
|
|
if CheckStringNull(Text) or CheckNumeric(Text) then
|
|
|
begin
|
|
|
Rec.ValueByName('Formula').AsString := '';
|
|
|
- AValue.Owner.ValueByName(sFField).AsString := '';
|
|
|
+ AValue.Owner.ValueByName(sFField).AsString := Text;
|
|
|
fTotalPrice := StrToFloatDef(Text, 0);
|
|
|
end
|
|
|
else
|