Ver Mensaje Individual
  #1  
Antiguo 14-06-2003
IcebergDelphi IcebergDelphi is offline
Miembro
 
Registrado: may 2003
Ubicación: VillaFlores, Chiapas, Mexico
Posts: 81
Reputación: 22
IcebergDelphi Va por buen camino
Unhappy Como actualizar mi contador numerico en dos o mas aplicaciones?

Hola amigos del foro, antes que nada quiero agradecer a aquellos que brindan ayuda desinteresada a cada
uno de los del foro y gracias por ayudarme.
Mi problema es el siguiente:
Estoy haciendo un sistema con Firebird , dentro de la base hay tres tablas,
Una es la tabla Maestra (Grupos)y la otra la tabla detalle(DetalleGrupos), y por separado tengo una tabla llamada Contador
que es la que lleva el control del numero de IdGrupos de la tabla maestra (grupos), de igual forma
dentro de mi protecto utilizo un modulo en donde residen estas tre tablas con (TIbTable).
En el evento On NewRecord de la tabla Grupos utilizo este codigo para generar el conteo numerico de la tabla contador:
begin
With TCntGrupo Do // Tabla Contador
Begin
Open;
Try
Edit;
//Tablagrupo TablaContador
TGruposIdGrupo.Value:=TCntGrupoCntIdGrupo.Value;
//TablaContador Tablacontador
TCntGrupoCntIdGrupo.Value:=TCntGrupoCntIdGrupo.Value + 1;
Post;
Finally
Close;
end;
end;
end;

Funciona bien el contador si abro solamente una vez la aplicacion pero si se abre en dos maquinas...
El problema es en si, que si habro dos veces la aplicacion o lo pruebo en dos maquinas al mismo tiempo
el contador de la segunda aplicacion atrapa el numero de la Primera aplicacion, es decir: no se actualiza y
los dos se quedan con el mismo numero correspondiente, lo que me gustaria es que cada uno actuara como una aplicacion independiente
si doy click en agregar de la primera aplicacion el contador genere el numero P/e:32 entonces di doy clic en agregar de la segunda aplicacion
me gustaria que el contador generara p/e: 33, y esto no pasa los dos generan el mismo numero y me trae problemas de Indices con
mi tabla Grupo.
Ya use transacion con mi tabla Grupo y nada, ya probre con triggers pero este tarda para generar el autonumerico y meda mas problema.
Alguien tiene una posible solucion, se los agradeceria.

Gracias.
__________________
IcebergDelphi
LIA. Hiber tadeo Moreno Tovilla. INITEC Software
Responder Con Cita