Обработка OLE после создания документа через DOI

John Doe

Создаю документ Ёкселя:

Code:

    CALL METHOD C_OI_FACTORY_CREATOR=>GET_DOCUMENT_FACTORY
                      IMPORTING FACTORY = FACTORY
                                RETCODE = RETCODE.
    IF RETCODE NE C_OI_ERRORS=>RET_OK. EXIT. ENDIF.

    CALL METHOD FACTORY->START_FACTORY
             EXPORTING R3_APPLICATION_NAME = 'R/3 Basis'    "#EC NOTEXT
                        REGISTER_ON_CLOSE_EVENT = 'X'
                        REGISTER_ON_CUSTOM_EVENT = 'X'
                        NO_FLUSH  = 'X'
              IMPORTING RETCODE = RETCODE.
    CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.

    CALL METHOD FACTORY->GET_DOCUMENT_PROXY
                      EXPORTING DOCUMENT_TYPE = DOCUMENT_TYPE
                                NO_FLUSH = 'X'
                      IMPORTING DOCUMENT_PROXY = DOCUMENT
                                RETCODE = RETCODE.
    CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.

    CALL METHOD DOCUMENT->CREATE_DOCUMENT
      EXPORTING
        NO_FLUSH     = 'X'
      IMPORTING
        RETCODE = RETCODE.
    CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.

    CALL METHOD DOCUMENT->GET_DOCUMENT_HANDLE
       EXPORTING
         NO_FLUSH = 'X'
       IMPORTING
        HANDLE   = OLE_EXCEL
        RETCODE  = RETCODE.

    SET PROPERTY OF OLE_EXCEL-OBJ 'Visible' = 0 .

Получаю ОЛЕ инстанцию через DOCUMENT->GET_DOCUMENT_HANDLE . Дальше тупик - не один ОЛЕ-метод к созданному документу не применяется. Подскажите где затупил...

Alex80

Может так?

Code:

DATA: h_excel TYPE ole2_object
...
 CALL METHOD DOCUMENT->GET_DOCUMENT_HANDLE 
       EXPORTING 
         NO_FLUSH = 'X' 
       IMPORTING 
        HANDLE   = OLE_EXCEL 
        RETCODE  = RETCODE.

    CALL FUNCTION 'FLUSH'.

    h_excel = OLE_EXCEL-OBJ.

SET PROPERTY OF h_excel 'Visible' = 0 .

John Doe

Alex80 написал:

Может так?

Code:

DATA: h_excel TYPE ole2_object

Пробовал. Не идет...

sibrin

John Doe написал:

Пробовал. Не идет...

Чего пробовал: flush или h_excel TYPE ole2_object ?

John Doe

flush в конце стоит, в этом куске кода не показал просто.
Подменять GS_EXCEL = OLE_EXCEL-OBJ пробовал.

Lars

А если NO_FLUSH попробовать поснимать ?

John Doe

Lars написал:

А если NO_FLUSH попробовать поснимать ?

Так тоже пробовал, везде снимал, везде вставлял...

sibrin

Надо

Code:

C_OI_FACTORY_CREATOR=>GET_DOCUMENT_FACTORY
 EXPORTING 
      factory_type = 'OLE'  " !!!

ибо

Code:

 CLASS-METHODS: GET_DOCUMENT_FACTORY
                 IMPORTING FACTORY_TYPE TYPE C DEFAULT 'PORTABLE'

Можно также попробовать по-старинке, без factory: http://sapboard.ru/forum/viewtopic.php?t=21271

Lars

sibrin написал:

Надо

Code:

C_OI_FACTORY_CREATOR=>GET_DOCUMENT_FACTORY
 EXPORTING 
      factory_type = 'OLE'  " !!!

Да, не факт.
В исходниках делается так

Code:

  IF factory is initial.
    CALL METHOD c_oi_factory_creator=>get_document_factory
                      IMPORTING factory = factory
                                retcode = retcode.

Там, вроде, factory_type и не обрабатывается ни где.

John Doe

Пока что никак не помогло. Читаю хэлпы.

Lars

А если вот так попробовать, работает вроде:

Code:

data: document_handle type CNTL_HANDLE.
 DOCUMENT->GET_DOCUMENT_HANDLE( EXPORTING  NO_FLUSH = ''
                                IMPORTING
                                    HANDLE   = document_handle
                                    RETCODE  = RETCODE ).

data: application type ole2_object.
  GET PROPERTY
    OF document_handle-obj 'Application' = application
    no flush
    queue-only
    .
  SET PROPERTY OF application 'Visible' = 0 .

qwerty

А вызов GET_DOCUMENT_HANDLE возвращает реальное значение ссылки на интерфейс?. А то может быть он возвращает пустую структуру. У меня было такое из-за опций no_flush при создание объектов. Т.к. похоже объекты еще не созданы...

John Doe

Lars, похоже направление то. С последним вариантом 'Visible' заработал. Но самое нужное : 'Value', 'Font' и все остальное - не пашет.
Задумка была такая, выкинуть через ДОИ табличку в Ёксель, а потом с помощью ОЛЕ добавить красоты всякой. Первый шаг получился...

qwerty, заполненный объект. Насколько реальное значение ссылки - я не знаю как проверить. Но судя по тому, что что-то получается - скорее реальное, чем нет.

Lars

John Doe написал:

Lars, похоже направление то. С последним вариантом 'Visible' заработал. Но самое нужное : 'Value', 'Font' и все остальное - не пашет.
Задумка была такая, выкинуть через ДОИ табличку в Ёксель, а потом с помощью ОЛЕ добавить красоты всякой. Первый шаг получился...

вся штука в том что

Code:

  GET PROPERTY 
    OF document_handle-obj ... = ... 
    no flush 
    queue-only

нужно сделать для всех ole объектов
тоесть, после того как получен application, делается

Code:

  GET PROPERTY
    OF application 'Activesheet' = activesheet
    no flush
    queue-only.

Глубже не опускался, но видимо, там же должны быть, book, font и т.д.
Красоту таким образом не наводил, но строки вставлять. убирать, скрывать получалось.

John Doe

Lars, с меня пиво. Начало получаться.

Правила форума

Обработка OLE после создания документа через DOI

Кто сейчас на конференции