✒️ABAP POO - Eventos

ABAP POO Eventos

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.


Sobre el autor

Publicación académica de Alfredo César, en su ámbito de estudios para el Máster ABAP POO.

SAP Senior

Alfredo César

Profesión: Analista de Sistemas - Argentina - Legajo: RQ48L

✒️Autor de: 33 Publicaciones Académicas

🎓Egresado de los módulos:

Certificación Académica de Alfredo César

 

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

El lunes 30 Noviembre 2020 comenzamos el 🎓Máster Funcional ABAP.
Juntos para realizar sus más grandes desafíos!

 Cargando presentación, aguarde unos instantes...

📗 EBOOKS FREE:

Si le interesa la Tecnología SAP, pase por nuestra sección Ebooks Free y descargue uno de los 10 Ebooks libres y gratuitos que hemos desarrollado para compartir juntos.

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

Buscador de Publicaciones:


 

🌈Recursos Free

Los mejores recursos Libres y Gratuitos compartidos con la comunidad:

 

 

Consultas y Soporte

👋Hola! ¿Podemos ayudarle con su plan de estudios?

Estamos listos para darle el soporte que su carrera merece mediante un asesoramiento especializado.

Acceda sección contacto y seleccione canal de comunicación más cómodo para usted.

🤝Aguardamos su contacto, Éxitos!