Diseño de sistema en RED LAN

[pelikno]

Código Delphi [-]
procedure TForm1.localidadesAfterPost(DataSet: TDataSet);
begin

CustomerData.IBTransaction1.CommitRetaining;
CustomerData.ibdatabase.ApplyUpdates([localidades]);
localidades.ApplyUpdates;
localidades.Active:=false;
localidades.Active:=true; 
localidades.Refresh;


end;

Estado de mi transaction
active = true
defaultaction =tacommit
defauldatabase = ibdatabase
Idletimer = 0
name =ibtransaction
params = read_committed
rec_version
nowait
tag = 0

estado de mi base de datos
connected= true
databasename = 192.168.1.226:C:\Documents and Settings\virtualbox\Escritorio\misistema\mibase.FDB
defaultransaction = IBTransaction
Idletimer = 0
loginpromt = false
name = ibdatabase
params = user_name=SYSDBA
password=masterkey
sql_role_name=3
lc_ctype=ISO8859_1
sqldialect = 3
tag = 0
traceflags = todas en false

----------------------------------
las ibtables tiene como database =CustomerData.ibdatabase y no se de alguna propiedad que tenga que modificar para que se actualice como tiene la componenete tquery la propiedad requestlive.

[MartinS]

Empezado por pelikno

Código Delphi [-]
procedure TForm1.localidadesAfterPost(DataSet: TDataSet);
begin

CustomerData.IBTransaction1.CommitRetaining;
CustomerData.ibdatabase.ApplyUpdates([localidades]);
localidades.ApplyUpdates;
localidades.Active:=false;
localidades.Active:=true; 
localidades.Refresh;


end;

El commitRetaining va despues del applyupdates.

[pelikno]

Empezado por MartinS

El commitRetaining va despues del applyupdates.

No actualiza con ese cambio

[Casimiro Noteví]

Si usas los componentes IBX, yo nunca usé eso de "applyupdates"

En el evento afterpost del dataset debes hacer el commit, algo así:

Código Delphi [-]
procedure TDMmain.QRcentrosCosteAfterPost(DataSet: TDataSet); 
begin 
  DataSet.Transaction.CommitRetaining; 
end;

[pelikno]

Empezado por Casimiro Notevi

Si usas los componentes IBX, yo nunca usé eso de "applyupdates"

En el evento afterpost del dataset debes hacer el commit, algo así:

Código Delphi [-]
procedure TDMmain.QRcentrosCosteAfterPost(DataSet: TDataSet); 
begin 
  DataSet.Transaction.CommitRetaining; 
end;

CustomerData es mi datamodule
y esto es lo que esta en el evento afterpost de mi ibtable

Código Delphi [-]
CustomerData.ibtransaction.ApplyUpdates;
Localidades.refresh;

sigue haciendo lo mismo, es como si desde la base de datos no les mande el aviso que se modificaron los datos y se vuelva a mostrar en la grilla, doy de alta una localidad con codigo 4 en una terminal y en la otra no la veo hasta que no cierro la aplicacion y la vuelvo abrir

[pelikno]

Sera problema de delphi 5 y las componentes interbase ?
Voy a ver si puedo compilar con delphi 10 a ver que pasa porque es algo muy simple lo que quiero hacer y no se que pasa que no anda y me estoy volviendo loco.

[Casimiro Noteví]

Empezado por pelikno

Sera problema de delphi 5 y las componentes interbase ?

No, no es problema de delphi ni de los componentes, es problema de las confirmaciones de transacciones, ya te lo hemos repetido constantemente un montón de veces

¿Pero has probado lo que te hemos comentado?

[pelikno]

Empezado por Casimiro Notevi

Si usas los componentes IBX, yo nunca usé eso de "applyupdates"

En el evento afterpost del dataset debes hacer el commit, algo así:

Código Delphi [-]
procedure TDMmain.QRcentrosCosteAfterPost(DataSet: TDataSet); 
begin 
  DataSet.Transaction.CommitRetaining; 
end;

Esto lo realizo !!

Código Delphi [-]
procedure TForm1.localidadesAfterPost(DataSet: TDataSet); 
begin 
  localidades.Transaction.CommitRetaining; // si dejo  DataSet.Transaction.CommitRetaining; no compila 
end;

[pelikno]

Sobre las transacciones como tendria que ser la configuracion?, porque anteriormente puse como la tenia configurada a la base y a la transaccion.

parametros de la transaction
read_commited
rec_version
nowait

[Casimiro Noteví]

Código Delphi [-]
procedure TForm1.localidadesAfterPost(DataSet: TDataSet);  
begin    
  localidades.Transaction.CommitRetaining; // si dejo  DataSet.Transaction.CommitRetaining; no compila  
end;

Tiene que compilar. Mal vamos si no compila eso.

[pelikno]

Para no seguir dando vueltas, hay alguien que use firebirds y aplicacion cliente servidor que pueda actualizar los dataset de las terminales sin tener que hacerlo por codigo con un dataset.refresh;