✒️ABAP POO Friends

U2-L8

Uso de adición FRIENDS y como se implementa.

Adición que se agrega a una clase para permitir que otra clase pueda acceder a sus componentes protegidos y privados.
La adición se agrega en la clase cuyos atributos necesitan ser accedidos.
CLASS lcl_class1 DEFINITION FRIENDS lcl_class2.
...
..
ENDCLASS.

En el siguiente ej;
La clase local LCL_FRIEND denominada 'amiga' podrá acceder a los componentes de la clase local LCL_ME:
CLASS lcl_me DEFINITION FRIENDS lcl_friend.
PRIVATE SECTION.
DATA: a1 TYPE string VALUE 'Soy A1 de la clase LCL_ME'.
ENDCLASS.

El método ACCESS_A1_OF_CLASS1 de clase LCL_FRIEND accederá a componentes privados de LCL_ME.
CLASS lcl_friend DEFINITION.
PUBLIC SECTION.
METHODS: access_a1_of_class1.
ENDCLASS.

CLASS lcl_me DEFINITION FRIENDS lcl_friend.
PRIVATE SECTION.
DATA: a1 TYPE string VALUE 'Soy A1 de la clase LCL_ME'.
ENDCLASS.

CLASS lcl_friend IMPLEMENTATION.
METHOD access_a1_of_class1.
DATA: lo_class1 TYPE REF TO lcl_me.
CREATE OBJETCT lo_class1. "Instancia lcl_me
WRITE: / lo_class1->a1. "acceso atrib priv de lcl_me
ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
DATA: lo_friend TYPE REF TO lcl_friend.
CREATE OBJECT lo_friend.
lo_friend->access_a1_class1( ).

Se puede identificar una interface como 'amiga' de claseA. Esto permitirá que todas las clases que implementen la interface, tendrán acceso a la claseA.
INTERFACE lif_friend.
METHODS: access_a1_of_class1.
ENDINTERFACE.

CLASS lcl_friend DEFINITION.
PUBLIC SECTION.
INTERFACES: lif_friend.
ENDCLASS.

CLASS lcl_friend_2 DEFINITION.
PUBLIC SECTION.
INTERFACES: lif_friend.
ENDCLASS.

CLASS lcl_me DEFINITION FRIENDS lif_friend.
PRIVATE SECTION.
DATA: a1 TYPE string VALUE 'Soy A1 de la clase LCL_ME'.
ENDCLASS.

El método ACCESS_A1_OF_CLASS1 de LIF_FRIEND(interface amiga) accede a atributos privados de LCL_ME(clase amiga) desde cualquier clase donde se implemente la interface.
CLASS lcl_friend IMPLEMENTATION.
METHOD lif_friend~access_a1_of_class1.
DATA: lo_class1 TYPE REF TO lcl_me.
CREATE OBJECT lo_class1.
WRITE: / 'Accedemos a A1 desde la clase LCL_FRIEND a través de LIF_FRIEND'.
WRITE: / lo_class1->a1.
ENDMETHOD.
ENDCLASS.

CLASS lcl_friend_2 IMPLEMENTATION.
METHOD lif_friend~access_a1_of_class1.
DATA: lo_class1 TYPE REF TO lcl_me.
CREATE OBJECT lo_class1.
WRITE: / 'Accedemos a A1 desde la clase LCL_FRIEND_2 a través de LIF_FRIEND'.
WRITE: / lo_class1->a1.
ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
"Acceso a través de FRIEND
DATA: lo_friend TYPE REF TO lif_friend.
CREATE OBJECT lo_friend TYPE lcl_friend.
lo_friend->access_a1_of_class( ).
"Acceso a través de FIEND_2
CREATE OBJECT lo_friend TYPE lcl_friend_2.
lo_friend->access_a1_of_class1( ).

Las subclases de la clase LCL_ME no son amigas, es decir no heredan la adición FRIENDS de su superclase.