Екатерина Горбунова, [28.12.20 13:32]
mo_zvrf_srv->query(
      EXPORTING
        iv_query_key            = zif_verification_c=>sc_query-root-select_by_elements    " Query
        it_selection_parameters = lt_selpar                 " Query Selection Parameters
        iv_fill_data            = abap_true
      IMPORTING
        eo_message              = lo_message                 " Message Object
        et_data                 = lt_verif_data
        et_key                  = lt_verif_key
    ).

Екатерина Горбунова, [28.12.20 13:32]
APPEND INITIAL LINE TO lt_selpar ASSIGNING <ls_selpar>.
      <ls_selpar>-attribute_name = zif_verification_c=>sc_query_attribute-root-select_by_elements-zobject_key.
      <ls_selpar>-sign           = 'I'.
      <ls_selpar>-option         = 'EQ'.
      CASE iv_type.
        WHEN mc_type_forwarder OR mc_type_driver.
          <ls_selpar>-low        = ls_data-key_bp.
        WHEN mc_type_vehicle.
          <ls_selpar>-low        = ls_data-key_veh.
        WHEN OTHERS.
      ENDCASE.

    ENDLOOP.

Екатерина Горбунова, [28.12.20 13:33]
go_bp_srv = /bobf/cl_tra_serv_mgr_factory=>get_service_manager( /bofu/if_bupa_constants=>sc_bo_key ).
go_bp_srv->query(
EXPORTING
  iv_query_key = /bofu/if_bupa_constants=>sc_query-root-query_by_role
  iv_fill_data = abap_true
IMPORTING
  eo_message   = go_message
  et_data      = lt_bp_root_data
  et_key       = lt_bp_root_key ).