Get Entity Set Compañía

  METHOD companiaset_get_entityset.

    DATA:
      wa_entityset     LIKE LINE OF et_entityset,
      lt_companias     TYPE TABLE OF ztca_companias_p,
      wa_compania      TYPE ztca_companias_p,
      lr_nom_compania  TYPE RANGE OF ztca_companias_p-nombre_compania,
      lrs_nom_compania LIKE LINE OF lr_nom_compania.

*  obtener los filtros enviados desde el front
    LOOP AT it_filter_select_options INTO DATA(ls_filters).

      CASE ls_filters-property.
        WHEN 'NombreCompania'.
          LOOP AT ls_filters-select_options INTO DATA(ls_select_option).
            CLEAR lrs_nom_compania.
            MOVE-CORRESPONDING ls_select_option TO lrs_nom_compania.
            APPEND lrs_nom_compania TO lr_nom_compania.
          ENDLOOP.
      ENDCASE.
    ENDLOOP.

*       obtener información de compañías de la base

    SELECT * FROM ztca_companias_p
      INTO TABLE lt_companias
    WHERE nombre_compania IN lr_nom_compania.

    LOOP AT lt_companias INTO wa_compania.
      wa_entityset-id_compania = wa_compania-id_compania.
      wa_entityset-url_logo = wa_compania-url_logo.
      wa_entityset-nombre_compania = wa_compania-nombre_compania.
      wa_entityset-ingresos_anuales = wa_compania-ingresos_anuales.
      wa_entityset-mail_contacto = wa_compania-mail_contacto.
      wa_entityset-sitio_web = wa_compania-sitio_web.
      wa_entityset-cantidad_desarrolladores = wa_compania-cantidad_desarrolladores.

      APPEND wa_entityset TO et_entityset.
    ENDLOOP.
  ENDMETHOD.