✒️ABAP POO Eventos

Publicación Académica por Alfredo César

Publicación Académica creada y compartida por Alfredo César para el tema Eventos.

Dentro del ámbito de estudios: Máster ABAP POO / Unidad 2: Conceptos y Técnicas de la POO en ABAP.

¿Buscás una carrera con Futuro?

ABAP POO Eventos por Alfredo César

Hice el ejercicio un poco diferente. Pero es con apenas unos detalles. Esencialmente es lo mismo

SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style: italic; color: #808080; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; } *&---------------------------------------------------------------------*
*& Report ZPRUEBA_EVENTOS_RQ48L
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZPRUEBA_EVENTOS_RQ48L.

CLASS DEUDA DEFINITION.
PUBLIC SECTION.
METHODS:
CONSTRUCTOR,
INCREMENTAR_DEUDA IMPORTING pMonto Type I.

EVENTS: VALOR_CRITICO EXPORTING VALUE(pDiferencia) Type I.

PRIVATE SECTION.
DATA:
SUM_DEUDAS Type I,
UMBRAL Type I Value 100.

ENDCLASS.

CLASS DEUDA IMPLEMENTATION.
METHOD CONSTRUCTOR.
SUM_DEUDAS = 0.
ENDMETHOD.

METHOD Incrementar_deuda.
Data:
nDifer Type I.

SUM_DEUDAS = SUM_DEUDAS pMonto.
if SUM_DEUDAS > UMBRAL.
nDifer = SUM_DEUDAS - UMBRAL.
RAISE EVENT VALOR_CRITICO EXPORTING pDiferencia = nDifer.
Endif.
ENDMETHOD.
ENDCLASS.

CLASS MANEJADOR DEFINITION.
PUBLIC SECTION.
METHODS:
MANEJAR_EXCESO FOR EVENT VALOR_CRITICO of DEUDA
IMPORTING pDiferencia.
ENDCLASS.

CLASS MANEJADOR IMPLEMENTATION.
METHOD MANEJAR_EXCESO.
Write: / 'Exceso en Deuda:', pDiferencia.
ENDMETHOD.
ENDCLASS.

Data:
oDeuda Type REF TO Deuda,
oManejador Type REF TO Manejador.

START-OF-SELECTION.
CREATE OBJECT oDeuda.
CREATE OBJECT oManejador.

SET HANDLER oManejador->manejar_exceso FOR ALL INSTANCES.

Do 15 times.
oDeuda->Incrementar_deuda( pMonto = sy-index ).
EndDo.

 

:: Al igual que Alfredo ¿Usted está dispuesto a aprender Funcional ABAP?

El lunes 22 Abril 2019 comenzamos el 🎓Máster Funcional ABAP.
Juntos para realizar sus más grandes desafíos!

 Cargando presentación, aguarde unos instantes...

✒️Más Publicaciones Académicas sobre Tecnología SAP

Buscador de Publicaciones:


 

Recursos Free:

Los mejores recursos Libres y Gratuitos compartidos con la comunidad: