[[Caral]]

Hola
No se, esencialmente deberia funcinar.
Quizas asi:

Código Delphi [-]
procedure TGenFact.MarcarVisitesFacturades( bDesmarcar: Boolean );
begin
  with DBmodule.Query do
  begin
      try
      Close;      
      SQL.Clear;
      SQL.Add( 'UPDATE Visita' );
      SQL.Add( 'set Facturat = :Fac' );
      SQL.Add( 'where Mutua = :CodMut' );
      SQL.Add( 'and Tipo = :TipMut' );
      SQL.Add( 'and DataFact >= :data0 and DataFact <= :data1' );
       if bDesmarcar then
       begin
       ParamByName('Fac').AsString := 'N';
       end
       else
       ParamByName('Fac').AsString := 'S';
       ParamByName('CodMut').AsString := CodMut.Text;
       ParamByName('TipMut').AsString := TipMut.Text;
       ParamByName('Data0').AsDate := Data0.Date;
       ParamByName('Data1').AsDate := Data1.Date;
       finally
       ExecSql;
    end;
end;

end;

seguro que sabes mas que yo de esto, solo trato de dar ideas.
Saludos