Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- METHOD juegoset_get_entity.
- DATA:
- lv_id_juego TYPE ztca_juegos_pa-id_juego,
- lv_id_compania TYPE ztca_juegos_pa-id_compania,
- wa_juego TYPE ztca_juegos_pa,
- ls_key_tab LIKE LINE OF it_key_tab.
- LOOP AT it_key_tab INTO ls_key_tab.
- CASE ls_key_tab-name.
- WHEN 'IdJuego'.
- lv_id_juego = ls_key_tab-value.
- WHEN 'IdCompania'.
- lv_id_compania = ls_key_tab-value.
- ENDCASE.
- ENDLOOP.
- IF lv_id_juego IS NOT INITIAL AND lv_id_compania IS NOT INITIAL.
- SELECT SINGLE * FROM ztca_juegos_pa
- INTO wa_juego
- WHERE id_juego EQ lv_id_juego AND id_compania EQ lv_id_compania.
- er_entity-id_juego = wa_juego-id_juego.
- er_entity-id_compania = wa_juego-id_compania.
- er_entity-url_logo_juego = wa_juego-url_logo_juego.
- er_entity-nombre_juego = wa_juego-nombre_juego.
- er_entity-precio = wa_juego-precio.
- er_entity-fecha_lanzamiento = wa_juego-fecha_lanzamiento.
- er_entity-multijugador = wa_juego-multijugador.
- er_entity-en_linea = wa_juego-en_linea.
- ENDIF.
- ENDMETHOD.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement