Buenas a todos,
Gracias por responderme. Voy a poner el código en cuestión.
El siguiente código es de la primera apliación
Código Delphi
[-]
with AutoTablasDM.IBQuery1 do
begin
Close;
Sql.Text := 'Select HORA_SEL from CONFHORA';
Open;
first;
horaSeleccion := FieldByName('HORA_SEL').AsDateTime;
shoraSeleccion := TimetoStr(horaSeleccion);
close;
Ahora pongo el update que hace la segunda aplicacion
Código Delphi
[-]
with FTablas2.ibQuery4 do
begin
SQL.Text := 'Select * from CONFHORA';
open;
cantRegistros := RecordCount;
close;
if cantRegistros > 0 then
SQL.Text := 'Update CONFHORA SET HORA_SEL = ' + horadtp
else
SQL.Text := 'Insert into CONFHORA (HORA_SEL) values (' + horadtp + ')';
ExecSQL;
Transaction.CommitRetaining;
close;
end;
y cierro esta segunda aplicacion
Miro el registro en la tabla y el campo ha cambiado de valor
Ahora, sin haber cerrado la primera aplicación vuelvo
a abrir el query en la primera aplicacion con lo siguiente
[delphi]
with AutoTablasDM.IBQuery1 do
begin
Close;
Sql.Text := 'Select HORA_SEL from CONFHORA';
Open;
first;
horaSeleccion := FieldByName('HORA_SEL').AsDateTime;
close;
[/DELHI]
El problema está en que horaSeleccion tiene el mismo valor
tanto en el primer Select como en este último. Es como si lo
leyese de algun buffer.
A ver si me podéis decir algo.
Saludos a todos