✒️ABAP POO Las Interfaces
ABAP POO Las 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";
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.
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