✒️ABAP POO - Interfaces

ABAP POO Interfaces

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( ).


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 21 Septiembre 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.

 

CVOSOFT es la Academia líder en Tecnología SAP!

Más de 11 Años de experiencia formando consultores líderes en tecnología SAP.

logo CVOSOFT

★★★★★ Capacitación ALL Inclusive!!!

  • Formación Académica: 100% Online, Flexible, 24x7.
  • CVOREACTOR: Plataforma de Práctica y Campus Teórico CVOSOFT.
  • Profesores SENIOR: Soporte FULLTIME desde el primer al último día de su formación.
  • Avance sólido: Evaluación semanal e informes de repaso
  • Comunidad Académica: +57.000 Colaboraciones de estudiantes.
  • Egreso: Manual de Carrera, Certificación, Diplomatura y Bolsa de empleo.
  • Todo sobre nuestro modelo académico en: CVOSOFT Capacitación ALL INCLUSIVE!

 

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

Buscador de Publicaciones:


 

🌈Recursos Free:

Los mejores recursos Libres y Gratuitos compartidos con la comunidad: