Create Entity Juego

  METHOD juegoset_create_entity.

    DATA:
      wa_nuevo_juego TYPE ztca_juegos_pa.


    io_data_provider->read_entry_data(
      IMPORTING
        es_data = er_entity
    ).

    MOVE-CORRESPONDING er_entity TO wa_nuevo_juego.

    SELECT MAX( id_juego )
    FROM ztca_juegos_pa
      INTO wa_nuevo_juego-id_juego.

    IF sy-subrc EQ 0.
      wa_nuevo_juego-id_juego = wa_nuevo_juego-id_juego + 1.
    ELSE.
      wa_nuevo_juego-id_juego = 1.
    ENDIF.

    INSERT ztca_juegos_pa FROM wa_nuevo_juego.

  ENDMETHOD.