bug#3002 + code sync

DataModules/PhasePayDm.pas

@@ -512,7 +512,7 @@ begin
     for i := 0 to sddPhasePay.RecordCount - 1 do
     begin
       vRec := sddPhasePay.Records[i];
-      if not CheckFormulaWithBase(vRec.ValueByName('Formula0').AsString) and GetCalcType(Rec.ValueByName('ID').AsInteger) = 2 then
+      if not CheckFormulaWithBase(vRec.ValueByName('Formula0').AsString) and (GetCalcType(vRec.ValueByName('ID').AsInteger) = 2) then
         vRec.ValueByName('Formula0').AsString := '';
     end;
   end;