Hola,
he modificado el RDD para que se puedan definir hasta ocho eventos por cada área de trabajo usada. Para definir estos eventos se usa la función
DbSetEvent(). Esta función se ejecuta antes de abrir o crear una base de datos. Recibe ocho parámetros que serán los codeblocks para los eventos que se lanzarán en la apertura, en el cierre, al añadir, al actualizar, al borrar, al leer, al escribir y al cambiar de registro. Hay que llamar a esta función por cada área de trabajo en la que deseemos controlar los eventos. Por ejemplo, en el área de clientes controlamos todos los eventos y en el área de artículos sólo el movimiento de registros:
Código:
DbSetEvents( { || QOut( "Al Abrir Clientes" ) }, ;
{ || QOut( "Al Cerrar Clientes" ) }, ;
{ || QOut( "Al Añadir Clientes" ) }, ;
{ || QOut( "Al Modificar Clientes" ) }, ;
{ || QOut( "Al Borrar Clientes" ) }, ;
{ || QOut( "Al Leer Clientes" ) }, ;
{ || QOut( "Al Escribir Clientes" ) }, ;
{ || QOut( "Al Mover Clientes" ) } )
USE Clientes INDEX Clientes
DbSetEvents( ,,,,,,, { || QOut( "Al Mover Artículos" ) } )
USE Articulos INDEX Articulos