Problemas modificando una tabla

[[Caral]]

Hola
No entiendo donde se hace referencia a verdadero o falso aqui?.

Código Delphi [-]
      if bDesmarcar then

Tampoco la necesidad del try, finally, sin excepción?
Saludos

[[maeyanes]]

Hola...

Empezado por Caral

Hola
No entiendo donde se hace referencia a verdadero o falso aqui?.

Código Delphi [-]
      if bDesmarcar then

Cuando evaluas una variable de tipo Boolean, puedes usar sin problemas la forma mostrada en el código. Lo que estás haciendo ahí es que si el valor de la variable es True haga tal cosa. Si quieres preguntar por el valor falso de la variable solamente haces if not bDesmarcar then.

Tampoco la necesidad del try, finally, sin excepción?
Saludos

En cuanto al try..finally este no se usa para el manejo de excepciones, para eso es el try..except. El uso del try..finally es más bien para asegurarnos de que lo que está dentro de finally..end se ejecute aun así ocurra una excepción.

Código Delphi [-]
// Ejemplo más común del uso del try..finally
Form1 := TForm1.Create(nil);
try
  // Mostramos la forma
  Form1.ShowModal
finally
  // Nos aseguramos que la forma se destruya aun así ocurra un error 
  // dentro de Form1.ShowModal
  Form1.Free
end;

Saludos...

[[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...

[[Caral]]

Hola
La edad y la vista no perdonan.
Saludos

[[coso]]

Hola, se me ocurre que pueda pasarte por dos cosas:
- que te dejes la query cerrada, y no releas los cambios con un nuevo 'select' y query.Open despues de modificarlos.
- que tarde o espere en actualizarse la base de datos. No conozco interbase, pero en otros componentes de base de datos existe, por ejemplo, updatemode, donde se puede escoger UpdateMode := upWhereChanged, etc.. De todas maneras quiza te funcione mediante query.ApplyUpdates o query.Refresh

[dakar08]

Gracias a todas por las repuestas!

coso, voy a profundizar en las pistas que me das...