✒️ABAP POO Interfaces

Publicación Académica por Alfredo César

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

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 Interfaces por Alfredo César

Bien, el ejercicio me resultó interesante, porque lo cambié un poquito.

Me quedó claro que la variable referenciada a Interface es una variable. Me confundí pensando que era otro objeto. Eso me quedó en claro en el ejercicio, donde hice caso omiso a imprimir la tabla y decidí imprimir directamente cada caso.

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_INTERFACE_RQ48L
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZPRUEBA_INTERFACE_RQ48L.

INTERFACE I_CONTADOR.
METHODS: Imprimir.
ENDINTERFACE.

CLASS Cont1 DEFINITION.
PUBLIC SECTION.
METHODS: Incrementar.
INTERFACES: I_CONTADOR.

PRIVATE SECTION.
DATA: Cuenta Type I.
EndClass.

Class Cont2 DEFINITION.
PUBLIC SECTION.
METHODS: Incrementar.
INTERFACES: I_CONTADOR.

PRIVATE SECTION.
DATA: Cuenta Type I.
EndClass.

CLASS Cont1 IMPLEMENTATION.
METHOD Incrementar.
Cuenta = Cuenta 1.
ENDMETHOD.

METHOD i_contador~Imprimir.
Write: / 'Contador 1',Cuenta.
ENDMETHOD.
EndClass.

Class Cont2 IMPLEMENTATION.
METHOD Incrementar.
Cuenta = Cuenta 100 .
ENDMETHOD.

METHOD i_contador~Imprimir.
Write: / 'Contador 2',Cuenta.
ENDMETHOD.

EndClass.

* Programa
Data:
oCont1 Type REF TO Cont1,
oCont2 Type REF TO Cont2,
vInter Type Ref to I_CONTADOR.


START-OF-SELECTION.
CREATE OBJECT oCont1.
CREATE OBJECT oCont2.


Do 5 times.
oCont1->Incrementar( ).
oCont2->Incrementar( ).
ENDDO.

" Asigno a Interface, cada objeto. PAra llamar al mismo método.
vInter = oCont1.
vInter->Imprimir( ).

vInter = oCont2.
vInter->Imprimir( ).

 

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

El lunes 29 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: