Delete Entity Compañía

  METHOD companiaset_delete_entity.
    DATA:
      lv_id_compania TYPE ztca_companias_p-id_compania,
      wa_compania    TYPE ztca_companias_p,
      ls_key_tab     LIKE LINE OF it_key_tab.

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

*    Otra forma de hacer lo mismo que el LOOP a it_key_tab (se hace por cada campo de la PK)
*   READ TABLE it_key_tab INTO ls_key_tab WITH KEY name = "IdCompania".
*       IF sy-subrc EQ 0.
*           lv_id_compania = ls_key_tab-value.
*       ENDIF.

*    Otra forma de hacer lo mismo que la forma del LOOP y la del READ (1 línea, no declaro ls_key_tab y no necesito hacer el sy-subrc)
*   lv_id_compania = VALUE #( it_key_tab[ name = 'IdCompania' ]-value OPTIONAL ).

    IF lv_id_compania IS NOT INITIAL.

      DELETE FROM ztca_companias_p
        WHERE id_compania EQ lv_id_compania.

      DELETE FROM ztca_juegos_pa
        WHERE id_compania EQ lv_id_compania.

    ENDIF.
  ENDMETHOD.