Get Entity Compañía

  METHOD companiaset_get_entity.

    DATA:
      lv_id_compania TYPE ztca_companias_p-id_compania,
      wa_compania    TYPE ztca_companias_p,
      ls_key_tab     LIKE LINE OF it_key_tab.

    LOOP AT it_key_tab INTO ls_key_tab.
      CASE ls_key_tab-name.
        WHEN 'IdCompania'.
          lv_id_compania = ls_key_tab-value.
      ENDCASE.
    ENDLOOP.

*    Otra forma de hacer lo mismo que la forma del LOOP, pero menos código
*   lv_id_compania = VALUE #( it_key_tab[ name = 'IdCompania' ]-value OPTIONAL ).

    IF lv_id_compania IS NOT INITIAL.

      SELECT SINGLE * FROM ztca_companias_p
        INTO wa_compania
        WHERE id_compania EQ lv_id_compania.

      er_entity-id_compania = wa_compania-id_compania.
      er_entity-url_logo = wa_compania-url_logo.
      er_entity-nombre_compania = wa_compania-nombre_compania.
      er_entity-ingresos_anuales = wa_compania-ingresos_anuales.
      er_entity-mail_contacto = wa_compania-mail_contacto.
      er_entity-sitio_web = wa_compania-sitio_web.
      er_entity-cantidad_desarrolladores = wa_compania-cantidad_desarrolladores.

*    Otra forma de hacer el SELECT, pero más directa, menos código y no requiere declarar una work area
*     SELECT SINGLE * FROM ztca_companias_p
*       INTO CORRESPONDING FIELDS OF @er_entity
*       WHERE id_compania EQ @lv_id_compania.
    ENDIF.
  ENDMETHOD.