REPORT zdoi_test.

TYPE-POOLS: sbdst.

* Определяем переменные
DATA: i_control  TYPE REF TO i_oi_container_control.
DATA: i_document TYPE REF TO i_oi_document_proxy.
DATA: container  TYPE REF TO cl_gui_custom_container.

DATA: doc_classname    TYPE sbdst_classname   VALUE 'ZFI',
      doc_classtype    TYPE sbdst_classtype   VALUE 'OT',
      doc_name         TYPE bapibds01-objkey  VALUE 'ZFI05'.

* Таблицы и рабочие области
DATA: doc_uris       TYPE sbdst_uri,
      wa_doc_uris    LIKE LINE OF doc_uris.

* Создаем экземпляр SAP DOI ActiveX Control
CALL METHOD c_oi_container_control_creator=>get_container_control
  IMPORTING
    control = i_control.


* Инициализируем объект i_control содержит ссылку на него
CALL METHOD i_control->init_control
   EXPORTING
     r3_application_name      = 'R/3 application'
     parent                   = container
     register_on_close_event  = 'X'
     register_on_custom_event = 'X'
*    inplace_enabled          = 'X'
*    inplace_scroll_documents = 'X'
     no_flush                 = 'X'.


* Для Ворда - document_type   = 'Word.Document'

CALL METHOD i_control->get_document_proxy
  EXPORTING
    document_type      = ' '
    register_container = 'X'
  IMPORTING
    document_proxy     = i_document.


* Получаем урл
CALL METHOD cl_bds_document_set=>get_with_url
  EXPORTING
    classname       = doc_classname
    classtype       = doc_classtype
  CHANGING
    uris            = doc_uris
  EXCEPTIONS
    nothing_found   = 1
    error_kpro      = 2
    internal_error  = 3
    parameter_error = 4
    not_authorized  = 5
    not_allowed     = 6
    OTHERS          = 7.

IF sy-subrc <> 0.

ENDIF.

LOOP AT doc_uris INTO wa_doc_uris.
  IF wa_doc_uris-uri CS doc_name.
    EXIT.
  ENDIF.
ENDLOOP.


* Открываем документ
CALL METHOD i_document->open_document
  EXPORTING
    document_url = wa_doc_uris-uri
    no_flush     = 'X'
    open_inplace = 'X'.

MESSAGE 'ОК' TYPE 'I'.