|
|
@@ -392,7 +392,8 @@ procedure TDealPaymentData.sdvDealPaymentSetText(var Text: string;
|
|
|
if Rec.ValueByName('LockedFormula').AsBoolean then
|
|
|
begin
|
|
|
if (Pos('TotalPrice', AValue.FieldName) = 1) and
|
|
|
- (Rec.ValueByName('Formula').AsString <> '') then
|
|
|
+ (Rec.ValueByName('Formula').AsString <> '') and
|
|
|
+ (Rec.ValueByName('CalcType').AsInteger <> 2panduan ) then
|
|
|
begin
|
|
|
// 如果有公式计算，如果是纯数学计算式，则可设置，基数计算，则不可
|
|
|
sFormula := Rec.ValueByName('Formula').AsString;
|
