✒️ABAP POO Friends

La adicion FRIENDS y su implementacion.

En cualquier lenguaje de POO el acceso a los components privados y protegidos ya sea a atributos o metodos se encuentran prohibidos.

A veces puede ser de gran ayuda acceder a los atributos/métodos protegidos o privados, esto se puede lograr utilizando la adición FRIENDS.

“FRIENDS Es una adición que se agrega en una clase para permitir que otra clase pueda acceder a sus componentes privados o protegidos.”

CLASS <name> DEFINITION FRIENDS <fclassname>… ENDCLASS.

Si declaramos la clase local LCL_ME y deseamos que otra clase local LCL_FRIEND , para acceder a los componentes de LCL_ME deberíamos escribir la sgte adición.

INTERFACE LIF_FRIEND.
METHODS ACCESS_A1_OF_CLASS1.
ENDINTERFACE. "LIF_FRIEND

CLASS LCL_FRIEND_2 DEFINITION.
PUBLIC SECTION.
INTERFACES LIF_FRIEND.
ENDCLASS. "LCL_FRIEND_2 DEFINITION

CLASS LCL_ME_1 DEFINITION FRIENDS LIF_FRIEND.
PRIVATE SECTION.
DATA A1 TYPE STRING VALUE 'SOY EL A1 DE LCL_ME CON AMIGO LIF_FRIEND'.
ENDCLASS. "LCL_ME DEFINITION

CLASS LCL_FRIEND_2 IMPLEMENTATION.
METHOD LIF_FRIEND~ACCESS_A1_OF_CLASS1.
DATA LO_CLASS1 TYPE REF TO LCL_ME_1.
CREATE OBJECT LO_CLASS1.
WRITE:/ LO_CLASS1->A1.
ENDMETHOD. "LIF_FRIEND~ACCESS_A1_OF_CLASS1
ENDCLASS. "LCL_FRIEND_2 IMPLEMENTATION

DATA LO_FRIEND2 TYPE REF TO LIF_FRIEND.

START-OF-SELECTION.
CREATE OBJECT LO_FRIEND2 TYPE LCL_FRIEND_2.

LO_FRIEND2->ACCESS_A1_OF_CLASS1( ).