Get Entity Set Juego

  METHOD juegoset_get_entityset.

    DATA:
      wa_entityset     LIKE LINE OF et_entityset,
      lt_juegos        TYPE TABLE OF ztca_juegos_pa,
      wa_juego         TYPE ztca_juegos_pa,
      lv_id_compania   TYPE ztca_juegos_pa-id_compania,
      lv_key_tab       LIKE LINE OF it_key_tab,
      lr_nom_juego     TYPE RANGE OF ztca_juegos_pa-nombre_juego,
      lr_multijugador  TYPE RANGE OF ztca_juegos_pa-multijugador,
      lr_en_linea      TYPE RANGE OF ztca_juegos_pa-en_linea,
      lrs_nom_juego    LIKE LINE OF lr_nom_juego,
      lrs_multijugador LIKE LINE OF lr_multijugador,
      lrs_en_linea     LIKE LINE OF lr_en_linea.

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

*  obtener los filtros enviados desde el front
    LOOP AT it_filter_select_options INTO DATA(ls_filters).
      CASE ls_filters-property.
        WHEN 'NombreJuego'.
          LOOP AT ls_filters-select_options INTO DATA(ls_select_option).
            CLEAR lrs_nom_juego.
            MOVE-CORRESPONDING ls_select_option TO lrs_nom_juego.
            APPEND lrs_nom_juego TO lr_nom_juego.
          ENDLOOP.
        WHEN 'Multijugador'.
          LOOP AT ls_filters-select_options INTO ls_select_option.
            CLEAR lrs_multijugador.
            MOVE-CORRESPONDING ls_select_option TO lrs_multijugador.
            APPEND lrs_multijugador TO lr_multijugador.
          ENDLOOP.
        WHEN 'EnLinea'.
          LOOP AT ls_filters-select_options INTO ls_select_option.
            CLEAR lrs_en_linea.
            MOVE-CORRESPONDING ls_select_option TO lrs_en_linea.
            APPEND lrs_en_linea TO lr_en_linea.
          ENDLOOP.
      ENDCASE.
    ENDLOOP.

    IF lv_id_compania IS NOT INITIAL.
      SELECT * FROM ztca_juegos_pa
      INTO TABLE lt_juegos
        WHERE id_compania EQ lv_id_compania AND nombre_juego IN lr_nom_juego
         AND multijugador IN lr_multijugador AND en_linea IN lr_en_linea.
    ELSE.
      SELECT * FROM ztca_juegos_pa
      INTO TABLE lt_juegos.
    ENDIF.

    IF sy-subrc EQ 0.
      LOOP AT lt_juegos INTO wa_juego.
        CLEAR wa_entityset.
        wa_entityset-id_juego = wa_juego-id_juego.
        wa_entityset-id_compania = wa_juego-id_compania.
        wa_entityset-url_logo_juego = wa_juego-url_logo_juego.
        wa_entityset-nombre_juego = wa_juego-nombre_juego.
        wa_entityset-precio = wa_juego-precio.
        wa_entityset-fecha_lanzamiento = wa_juego-fecha_lanzamiento.
        wa_entityset-multijugador = wa_juego-multijugador.
        wa_entityset-en_linea = wa_juego-en_linea.
        APPEND wa_entityset TO et_entityset.
      ENDLOOP.
    ENDIF.

  ENDMETHOD.