合同支付，公式相关

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(vRec.ValueByName('ID').AsInteger) = 2) then
+      if (not CheckFormulaWithBase(vRec.ValueByName('Formula0').AsString)) or (GetCalcType(vRec.ValueByName('ID').AsInteger) = 2) then
         vRec.ValueByName('Formula0').AsString := '';
     end;
   end;