*&---------------------------------------------------------------------*
*&      Form  f_get_id
*&---------------------------------------------------------------------*
*        Поиск МВЗ, относящихся к группе МВЗ из иерархии
*----------------------------------------------------------------------*
*      -->NODES      узлы набора
*      -->LEAFS        листья набора
*      -->P_CLASS   класс набора, для МВЗ = '0101'
*      -->P_SNAME   имя набора = название группы МВЗ
*----------------------------------------------------------------------*
FORM f_get_id TABLES nodes   TYPE nodes       " узлы набора
                     leafs   TYPE leafs       " листья набора
               USING p_class TYPE rgsbs-class " класс набора
                     p_sname TYPE c.          " имя набора
  DATA:
    setid  LIKE sethier-setid, " ID набора данных
    info   LIKE grphinfo,      " для ФМ K_HIERARCHY_TABLES_READ...
    overwr LIKE sy-datar.

  " поиск данных набора
  REFRESH: nodes, leafs.

  CALL FUNCTION 'G_SET_ENCRYPT_SETID'
    EXPORTING
      setclass  = p_class
      shortname = p_sname
      kokrs     = kokrs
      ktopl     = ktopl
    IMPORTING
      setid     = setid
    EXCEPTIONS
      OTHERS    = 1.

  IF sy-subrc NE 0.
    MESSAGE e009(zmco_costs_estimate) WITH p_sname p_class.
  ENDIF.

  CALL FUNCTION 'K_HIERARCHY_TABLES_READ'
    EXPORTING
      e_class       = p_class
      e_setid       = setid
      e_kokrs       = kokrs
    TABLES
      t_nodes       = nodes
      t_values      = leafs
    CHANGING
      c_info        = info
      c_overwrite   = overwr
    EXCEPTIONS
      set_not_found = 1
      OTHERS        = 2.

  CASE sy-subrc.
    WHEN 0.
    WHEN 1.
      MESSAGE e007(zmco_costs_estimate) WITH p_sname p_class.
    WHEN 2.
      MESSAGE e008(zmco_costs_estimate) WITH p_sname p_class.
  ENDCASE.
ENDFORM.                    " expand_gr