本期实付，不判断公式锁定

DataModules/DealPaymentDm.pas

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