|
@@ -296,7 +296,7 @@ end;
|
|
procedure TDealPaymentFrame.ResetAllowInsert(AAllow: Boolean);
|
|
procedure TDealPaymentFrame.ResetAllowInsert(AAllow: Boolean);
|
|
begin
|
|
begin
|
|
if AAllow then
|
|
if AAllow then
|
|
- sdDealPayment.Options := sdDealPayment.Options + [aoAllowInsert]
|
|
|
|
|
|
+ sdDealPayment.Options := sdDealPayment.Options + [aoAllowInsert]
|
|
else
|
|
else
|
|
sdDealPayment.Options := sdDealPayment.Options - [aoAllowInsert];
|
|
sdDealPayment.Options := sdDealPayment.Options - [aoAllowInsert];
|
|
end;
|
|
end;
|
|
@@ -305,7 +305,7 @@ procedure TDealPaymentFrame.ResetBaseDataReadOnly(AReadOnly: Boolean);
|
|
begin
|
|
begin
|
|
sdDealPayment.Column('Name').ReadOnly := AReadOnly;
|
|
sdDealPayment.Column('Name').ReadOnly := AReadOnly;
|
|
sdDealPayment.Column('IsMinus').ReadOnly := AReadOnly;
|
|
sdDealPayment.Column('IsMinus').ReadOnly := AReadOnly;
|
|
- sdDealPayment.Column('StartPrice').ReadOnly := AReadOnly;
|
|
|
|
|
|
+ sdDealPayment.Column('StartedPrice').ReadOnly := AReadOnly;
|
|
sdDealPayment.Column('RangePrice').ReadOnly := AReadOnly;
|
|
sdDealPayment.Column('RangePrice').ReadOnly := AReadOnly;
|
|
end;
|
|
end;
|
|
|
|
|