Update Entity Juego

METHOD juegoset_update_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.

  io_data_provider->read_entry_data( IMPORTING es_data = er_entity ).
*    1- Modifico todo el registro
  MOVE-CORRESPONDING er_entity TO wa_juego.
  wa_juego-id_juego = lv_id_juego.
  wa_juego-id_compania = lv_id_compania.
  MODIFY ztca_juegos_pa FROM wa_juego.
  COMMIT WORK.

  er_entity-id_juego = wa_juego-id_juego.
  er_entity-id_compania = wa_juego-id_compania.

*    2- Actualizo solo algunos campos
*  UPDATE ztca_juegos_pa SET multijugador = er_entity-multijugador
*  WHERE id_juego EQ lv_id_juego AND id_compania EQ lv_id_compania.
*  COMMIT WORK.
ENDMETHOD.