Update Entity Compañía

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

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

    er_entity-id_compania = wa_compania-id_compania.

*    2- Actualizo solo algunos campos
*    UPDATE ztca_companias_p SET nombre_compania = er_entity-nombre_compania
*    WHERE id_compania EQ lv_id_compania.
*    COMMIT WORK.
  ENDMETHOD.