en red al acer insert o edit si ya est pr otro user, q siga intentand asta conseguirl

[marto]

Wop!

Lo que quieres hacer es bastante sencillo. Supongamos que tienes un DataModule con tus DataSet's (si no lo tienes, deberías), bien, te declaras una variable privada de tipo integer, supongamos que se llama ContError. Bien, luego te programas una rutina de este estilo:

Código Delphi [-]
procedure TDataModule1.EditErrore(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
  if ContError > 3 then
  begin
    ShowMessage('El registro no se puede editar, intentelo más tarde');
    Action := daFail;
    ContError := 0;
  end else
  begin
    Inc(ContError);
    Sleep(2000);
    Action := daRetry;
  end;
end;

Bien, la rutina hace lo siguiente. Si el contador de intentos es mayor que 3 (por ejemplo), saca un mensajote avisando, reinicia el contador y cancela. Si es menor, aumenta el contador, "duerme" durante 2 segundos (con la esperanza que el registro deje de estar bloqueado) e intenta de nuevo la acción.

Ahora solamente te falta asignar esta rutina al OnEditError de todos los datasets que quieras controlar.
Evidentemente puedes sofisticar el procedimiento, por ejemplo, con un form que avise al usuario de que se está intentando acceder al registro.

[images]

Empezado por marto

Supongamos que tienes un DataModule con tus DataSet's (si no lo tienes, deberías), ...

Si, tengo un DataModule con mis DataSet, Sessions ...

Supongo q estas cosas solo se aprenden con la experiencia, experimentando y la ayuda del propio Delphi. Lo digo porque estas cosas nunca vienen en los cursos de Programacion de IBM, ni en las guias rapidas. No se si vendra en el "Delphi 6 y Kylix" q acabo de adquirir. Supongo q debere meterle mano tambien a la ayua de Delphi y a la pagina de Borland.

En este mundo que esta tan "fragmentado" y "corrupto" resulta gratificante encontrar a personas como vosotros, que prestais vuestra ayuda, vuestro tiempo a los demas incondicionalmente.

Gracias

[marto]

Empezado por images

Supongo q estas cosas solo se aprenden con la experiencia, experimentando y la ayuda del propio Delphi.

Bueno, la experiencia es un grado

Empezado por images

Lo digo porque estas cosas nunca vienen en los cursos de Programacion de IBM, ni en las guias rapidas. No se si vendra en el "Delphi 6 y Kylix"

Pues yo tampoco lo sé, pero si te recomendé el libro de Marteens es porque se diferencia de otros en que, más que una extensa referencia, es una guia en la que se tocan muchos de estos "trucos" que los programadores necesitamos a diario.
Tambien te recomiendo que le eches un vistazo a trucomanía, allí encontrarás un montón de "recetas" para tareas muy frecuentes.

Empezado por images

resulta gratificante encontrar a personas como vosotros...

Bueno, piensa que aquí todos aprendemos un montón. Todos planteamos dudas, además tambien se aprende intentando resolver problemas que otros usuarios plantean.
De todas maneras, siempre es un gustazo ver que el esfuerzo le ha servido a alguien