Como usar el Rollback

[Michel]

Como estan amigos foreros.

Estoy usando lo Componentes de IBO y quisiera saber como usar el ROLLBACK.


Mi problema es el siguiente Ejemplo:

Estamos 2 Usuarios en la misma tabla, El usuario 1 modifica el Registro 2 y graba y el segundo usuario en ese instante modifica tambien el Registro 2. yo quisiera inteceptar ese error con un mensaje personalizado no de la maquina "RECORD NOT WAS LOCATED TO UPDATE" sino no "Este Registro es modificado por otro Usuario".

yo lo tengo Asiii y me sale mi error y luego el error de la maquina.

Este es el evento onError del Trasaction

procedure TForm2.IBOTransaction1Error(Sender: TObject;
const ERRCODE: Integer; ErrorMessage, ErrorCodes: TStringList;
const SQLCODE: Integer; SQLMessage, SQL: TStringList;
var RaiseException: Boolean);

begin
showmessage('Este Registro es modificado'+ #13 +
'por otro Usuario');
RaiseException:=False;
IBOTransaction1.Rollback;
end;



cualquier sugerencia la recibo gracias de antemanoo