Cita:
Empezado por Lepe
En el evento OnNewRecord, miras el valor de esa variable, y si es mayor a uno, cancelas la edición:
|
En realidad esa verificación, yo la haría en el evento BeforeInsert.
Otra cosa... si el comportamiento por defecto cuando ocurre una excepción es mostrar un mensaje... ¿por qué no simplemente elevar una excepción?
Código Delphi
[-]
if (FInserciones > 0) then
raise Exception.Create('Error: solamente se le permite insertar un registro!');
Comento también que en el evento AfterPost ya no hay forma de saber si se estaba insertando o editando un registro... a menos que se conserve ese valor en una variable. Lo comento porque el mencionado evento se dispara tanto si se insertaba como si se modificaba un registro.
Hasta luego.