✒️ABAP / Los Eventos Por Miguel Acosta Acosta

EVENTOS

1.- Disparar Eventos.

En ABAP hay ciertos mètodos que se conocen como disparadores (triggers) y otros que se conocen como manejadores (handlers). Los triggers son los mètodos que disparan un evento, mientras que los handlers son los mètodos que se ejecutan cuando ocurre un evento.

Para disparar un evento, una clase tiene que:

- Declarar el evento en la parte declarativa

- Disparar el evento en una de sus mètodos.

Los eventos se declaran en la parte declarativa de una clase o en una interface, Para declarar eventos dependientes de instancia se usa la siguiente sentencia.

EVENTS "evento" EXPORTING ... VALUE(ei) TYPE tipo "opcional".

Para declarar eventos estàticos se usa la siguiente sentencia.

CLASS-EVENTS "evento" ...

Cuando se declara un evento se puede usar la adiciòn EXPORTING para especificar paràmetros que se pasan al manejador del evento. Los paràmetros se pasan siempre por valor.

Los eventos dependientes de instancia siempre contienen el paràmetro implìcito SENDER, el cual tiene el tipo de una referencia al tipo o a la interface en la cual el evento es declarado.

Un evento dependiente de instancia en una clase puede ser disparado por cualquier mètodo en la clase. los eventos estàticos son disparados por mètodos estàticos. Para disàrar un evento en un mètodo se usa la siguiente sentencia.

RAISE EVENT "evento" exporting ... "ei" = "fi"...

Por cada paràmetro formal que no estè definido como opcional se tiene que pasar el correspondiente paràmetro real en la adiciòn EXPOrTING. La referencia a sì mismo ME es pasada automàticamente al paràmetro implpicito SENDER.

Es importante no confundir los eventos en la programaciòn orientada a objetos con los eventos en el entrono de ejecuciòn de los programas ABAP., ejemplo LOAD PROGRAM, INITIALIZATION, START-OF-SELECTION. Son conceptos totalmente diferentes.

2.- Eventos Manejadores.

Los eventos manejadores se usan para ejecutar una serie de mètodos. Estos mètodos tienen que:

- Estar definidos como eventos manejadores(handlers) de ese evento.

- Estar registrados en tiempos de ejecuciòn para el evento.

Una clase puede contener mètodos manejadores de eventos para eventos tanto de su propia clase como de otras clases. Para declarar un mètodo manejador de eventos dependiente de instancia se usa la siguiente sentencia.

METHODS "mètodo" FOR EVENT "evento" OF "cif" importing ... "ei"...

Para mètodos estàticos se usa la misma sentencia con CLASS-METHODS en vez de METHODS.

La interface de un mètodo manejador de eventos sòlo puede contener paràmetros formales definidos en la declaraciòn del evento. Los atributos de los paràmetros tambièn son adoptados por el evento.

El manejador de eventos no tiene por que usar todos los paràmetors pasados en la sentencia RAISE EVENT.

3.- Registro de mètodos manejadores de eventos.

Para permitir a un mètodo manejador de eventos reaccionar a un evento, se tiene que determinar en tiempo de ejecuciòn, el disparador al actual va a reaccionar. Esto se hace con la siguiente instrucciòn.

SET HANDLER... "hi"... FOR ...

Esta sentencia relaciona los mètodos manejadores de eventos con sus correspondientes mètodos.

Hay cuatro tipos diferentes de eventos:

- Eventos dependientes de instancia declarados en un clase

- Eventos dependientes de instancia declarados en una interface.

- Eventos estàticos declarados en una clase

- Eventos estàticos declarados en una interface.

La sintàxis y el efecto de la sentencia SET HANDLER depende de cual de los cuatro casos que detallamos tenga lugar.

Para un evento dependiente de instancia se tiene que usar la adiciòn FOR para especificar la instancia para la cual se quiere registrar el manejador. Se puede especificar una sola instancia como disparador usando una variable referenciada.

SET HANDLER... "hi"... FOT "ref".

O se puede registrar el manejador para todas las instancias que pueden disparar el evento.

SET HANDLER ... "hi" ... FOR ALL INSTANCES.

En este caso el registro se aplica incluso a las instancias que aùn no han sido creadas cuando se registra el manejador.

No se puede usar la adiciòn FOR para los eventos estàticos.

SET HANDLER ... "hi" ...

El registro se aplica autmàticamente a la clase entera o a todas las clases que implementan la interface que contiene el evento estàtico. En el caso de las insterfaces, el registro tambièn se aplica a las clases que aùn no han sido cargadas cuando el manejador se registra.

4.- Coordinacòn en el manejo de eventos.

Despuès de la sentencia RAISE EVENT, todos los mètodos manejadores registrados son ejecutados antes de que la siguiente sentencia sea procesada (manejo de eventos sincrònico). Si un mètodo manejador de eventos desencadena eventos, los correspondientes mètodos manejadores de eventos son ejecutados antes de que el mètodo manejador original continùe.

Para evitar la posibilidad de un bucle infinito, actualmente los eventos sòlo pueden anidar 64 niveles.

"Los mètodods manejadores de eventos son ejecutados en el orden en el que son registrados".

Debido a que los manejadores de eventos son registrados dinàmicamente, no se puede saber el orden en el que seràn procesador. Por esto se debe programar todos los manejadores de eventos como si se fuesen a ejecutar todos simultàneamente.

Los eventos estàn sujetos a la misma estructura de visibilidad los demàs componentes de una clase por lo tanto pueden ser pùblicos, protegidos o privados.

Los mètodos manejadores de eventos tambièn tienen atributos de visibilidad, la visibilidad de un evento determina quièn està autorizado para controlar o manejar el evento.

Los eventos pùblicos pueden ser utilizados por cualquier usuario, los protegidos solo pueden ser utilizados por los usuarios dentro de la clase o sus subclases y los eventos que son privados solo pueden ser utilizados dentro de la clase.

La visibilidad dentro de los mètodos de eventos, determina quièn està autorizado para registrar el mètodo es decir en què lugar se puede utilizar la sentencia SET HANDLER.

Los mètodos manejadores de eventos que son pùblicos pueden ser utilizados en cualquier lugar, los protegidos pueden ser utilizados por el usuario dentro de la clase o sus subclases y los privados pueden ser utilizados por el usuario dentro de la clase.

Los mètodos manejadores de eventos pueden tener la misma visibilidad o màs restringida de aquellos eventos a los que se refiere.

5.- Ejemplo del manejador de eventos.

El siguiente ejemplo muestra còmo se trabaja con eventos en los objetos ABAP.

La clase CONTADOR implementa un contador. Se desencadena el evento valor_critico cuando el valor UMBRAL es excedido y se visualiza la diferencia. La clase MANEJADOR puede manejar las excepciones en la clase CONTADOR. El manejador es registrado en tiempo de ejecuciòn para todas las variables referenciadas que aùnten al objeto.

CLASS contador DEFINITION.

PUBLIC SECTION.

METHODS incrementar_contador.

EVENTS valor_critico EXPORTING value(exceso) TYPE i.

PRIVATE SECTION.

DATA: cuenta TYPE i,

umbral TYPE i VALUE 10.

ENDCLASS.

CLASS contador IMPLEMENTATION.

METHOD incrementar_contador.

DATA diferencia TYPÈ i.

ADD 1 TO cuenta.

IF cuenta GT umbral.

diferencia = cuenta - umbral.

RAISE EVENT valor_critico EXPORTING exceso = diferencia.

ENDIF.

ENDMETHOD.

ENDCLASS.

CLASS manejador DEFINITION.

PUBLIC SECTION.

METHODS manejar_exceso FOR EVENT valor_critico OF contador

IMPORTING exceso.

PRIVATE SECTION.

ENDCLASS.

CLASS manejador IMPLEMENTATION.

METHOD manejar_exceso.

WRITE: / 'El exceso es: ', exceso.

ENDMETHOD.

ENDCLASS.

Luego en el evento START-OF-SELECTION.

DATA: cuenta TYPE REF TO contador,

manejador TYPE REF TO manejador.

START-OF-SELECTION.

CREATE OBJECT: cuenta, manejador.

SET HANDLER manejador->manejar_exceso FOR ALL INSTANCES.

DO 20 TIMES.

CALL METHOD cuenta->incrementar_contador.

ENDDO.