[[maeyanes]]

Hola...

No le veo caso al uso del try..finally que esás usando, así que lo quité.

Código Delphi [-]
procedure TGenFact.MarcarVisitesFacturades(bDesmarcar: Boolean);
begin
  with DBmodule.Query do
  begin
    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
      ParamByName('Fac').AsString := 'N'
    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;
    ExecSql
  end
end;

Me imagino que estás usando los componentes IBX, si es así, ¿usas el componente TIBTransaction en tu aplicación?



Saludos...