ZWWW - ФМ для выгрузки данных в WORD, EXCEL

kosseff

Мучаюсь с группировками в отчете. Перелазил ветку так и не нашел. Наверное это просто сделать, но до меня не доходит как.
Формат MS Word. Надо сделать отчет вида:

Страна: Россия, жителей (120млн)
Москва, 20млн,
Рязань, 3млн
Страна: США, жителей (300млн)
Нью-Йорк, 20млн
Вашингтон, 6млн
Страна:....
...

Ткните носом, пожалуйста.
Спасибо!

Parazit

kosseff написал(а):

Мучаюсь с группировками в отчете. Перелазил ветку так и не нашел. Наверное это просто сделать, но до меня не доходит как.
Формат MS Word. Надо сделать отчет вида:

Страна: Россия, жителей (120млн)
Москва, 20млн,
Рязань, 3млн
Страна: США, жителей (300млн)
Нью-Йорк, 20млн
Вашингтон, 6млн
Страна:....
...

Ткните носом, пожалуйста.
Спасибо!

Посмотрите пример ZWWW_MANY_LIST, особенно внимательно содержимое таблицы IT_VALUES перед вызовом ФМ и на параметр VAL_TYPE = 'V'.

kosseff

Parazit написал:

Посмотрите пример ZWWW_MANY_LIST, особенно внимательно содержимое таблицы IT_VALUES перед вызовом ФМ и на параметр VAL_TYPE = 'V'.

Спасибо огромное. Все так просто...

kalinka23

Добрый день!
Пытаюсь использовать функцию ZWWW_FILLFORM для выгрузки отчета в уже открытый документ Word.
Использовался BDS шаблон.

Делаю это следующим образом. После того, как документ уже открыт получаю handle и OLE-объект Word:

Code:

*Get  document handle
CALL METHOD o_document->get_document_handle
*  EXPORTING
*    no_flush = ' '
  IMPORTING
    error    = o_error
    handle   = handle
    .
* Get OLE-object Word
    GET PROPERTY OF handle-obj 'Application' = application.
    IF sy-subrc ne 0 .
      message 'Get OLE-object  error' type 'E'.
    ENDIF.

Затем передаю его в саму функцию вместе с таблицей значений.

Code:

  CALL FUNCTION 'ZWWW_FILLFORM'
    EXPORTING
      DOC       = application
      OPTIMIZE  = 0
      FILE_TYPE = 'WORD'
      TABLES
      IT_VALUES = it_val
      .

Но в открытый документ ничего не выводится. Подскажите в чем проблема, впервые пишу программу на ABAP.

Ctrelok

Добрый день!

Используем Ваш ФМ для выгрузки в Excel. При выгрузке в Excel 2013 столкнулись с проблемой, что форма не заполняется данными.
Перед выгрузкой показывает следующее сообщение:

Макросы в Excel включены. Всё как SAP рекомендует.

Parazit

kalinka23 написал(а):

Добрый день!
Пытаюсь использовать функцию ZWWW_FILLFORM для выгрузки отчета в уже открытый документ Word.
Использовался BDS шаблон.

Делаю это следующим образом. После того, как документ уже открыт получаю handle и OLE-объект Word:

...

Затем передаю его в саму функцию вместе с таблицей значений.
...
Но в открытый документ ничего не выводится. Подскажите в чем проблема, впервые пишу программу на ABAP.

В ФМ 'ZWWW_FILLFORM' нужно передавать хэндл документа, а не application.

Parazit

Ctrelok написал:

Добрый день!

Используем Ваш ФМ для выгрузки в Excel. При выгрузке в Excel 2013 столкнулись с проблемой, что форма не заполняется данными.
Перед выгрузкой показывает следующее сообщение:

Макросы в Excel включены. Всё как SAP рекомендует.

Как давно обновляли ZWWW? Если давно, попробуйте обновить.

kalinka23

Parazit написал:

kalinka23 написал(а):

Добрый день!
Пытаюсь использовать функцию ZWWW_FILLFORM для выгрузки отчета в уже открытый документ Word.
Использовался BDS шаблон.

Делаю это следующим образом. После того, как документ уже открыт получаю handle и OLE-объект Word:

...

Затем передаю его в саму функцию вместе с таблицей значений.
...
Но в открытый документ ничего не выводится. Подскажите в чем проблема, впервые пишу программу на ABAP.

В ФМ 'ZWWW_FILLFORM' нужно передавать хэндл документа, а не application.

Попробовала так, не помогло:

Code:

 

  CALL METHOD o_document->get_document_handle
*  EXPORTING
*    no_flush = ' '
    IMPORTING
      error    = o_error
      handle   = handle
      retcode  = retcode
      .

GET PROPERTY OF handle-obj 'Application' = application.
GET PROPERTY OF application 'Documents'  = document.
  CALL FUNCTION 'ZWWW_FILLFORM'
    EXPORTING
      DOC       = document
      OPTIMIZE  = 0
      FILE_TYPE = 'WORD'
      TABLES
      IT_VALUES = it_val
      .

И так, тоже не помогло:

Code:

 

  CALL METHOD o_document->get_document_handle
*  EXPORTING
*    no_flush = ' '
    IMPORTING
      error    = o_error
      handle   = handle
      retcode  = retcode
      .

GET PROPERTY OF handle-obj 'Application' = application.
CALL METHOD OF application 'ActiveDocument'  = document.
  CALL FUNCTION 'ZWWW_FILLFORM'
    EXPORTING
      DOC       = document
      OPTIMIZE  = 0
      FILE_TYPE = 'WORD'
      TABLES
      IT_VALUES = it_val
      .

В форме RUNWORDMACROS после оператора

Code:

GET PROPERTY OF DOCS 'Application' = APP.

APP остается пустой.

И просто передать handle-obj в ZWWW_FILLFORM тоже оставляет APP пустой.

Code:

  CALL FUNCTION 'ZWWW_FILLFORM'
    EXPORTING
      DOC       = handle-obj
      OPTIMIZE  = 0
      FILE_TYPE = 'WORD'
      TABLES
      IT_VALUES = it_val
      .

Что-то я никак не пойму, как можно правильно свой документ скормить ZWWW_FILLFORM

Parazit

kalinka23 написал(а):

Пытаюсь использовать функцию ZWWW_FILLFORM для выгрузки отчета в уже открытый документ Word.
Использовался BDS шаблон. ...
Что-то я никак не пойму, как можно правильно свой документ скормить ZWWW_FILLFORM

Похоже это проблема самого DOI, вот здесь обсуждается.
А зачем вы через DOI открываете, а не через мой ZBDS_OPENFORM ?

kalinka23

Parazit написал:

kalinka23 написал(а):

Пытаюсь использовать функцию ZWWW_FILLFORM для выгрузки отчета в уже открытый документ Word.
Использовался BDS шаблон. ...
Что-то я никак не пойму, как можно правильно свой документ скормить ZWWW_FILLFORM

Похоже это проблема самого DOI, вот здесь обсуждается.
А зачем вы через DOI открываете, а не через мой ZBDS_OPENFORM ?

Подскажите, там возможно открытие документа in_place (т.е. чтобы Word подгружался в SAP, а не отдельным окном)? На первый взгляд не вижу такого параметра...

Parazit

kalinka23 написал(а):

...
Подскажите, там возможно открытие документа in_place (т.е. чтобы Word подгружался в SAP, а не отдельным окном)? На первый взгляд не вижу такого параметра...

Нет, такого параметра я не делал. В общем-то как раз для таких вещей я и выделил отдельный ФМ ZWWW_FILLFORM. Но, похоже, Вы первая, кто решил ей воспользоваться.

Честно говоря, я нее вижу особого смысла в режиме in place вообще.

Parazit

Parazit написал:

kalinka23 написал(а):

...
Подскажите, там возможно открытие документа in_place (т.е. чтобы Word подгружался в SAP, а не отдельным окном)? На первый взгляд не вижу такого параметра...

Нет, такого параметра я не делал. В общем-то как раз для таких вещей я и выделил отдельный ФМ ZWWW_FILLFORM. Но, похоже, Вы первая, кто решил ей воспользоваться.

Честно говоря, я нее вижу особого смысла в режиме in place вообще.

Сейчас проверил для Excel, работает вот так:

Code:

  CALL METHOD document->get_document_handle
    EXPORTING
      no_flush = 'X'
    IMPORTING
      handle   = h_excel_obj.

  Call function 'ZWWW_FILLFORM'
    exporting
      DOC = h_excel_obj-OBJ
      FILE_TYPE = 'EXCEL'
    tables
      IT_VALUES = it_Val[].

p.s.
Для Word тоже проверил - работает.

kalinka23

Code:

Нет, такого параметра я не делал. В общем-то как раз для таких вещей я и выделил отдельный ФМ ZWWW_FILLFORM. Но, похоже, Вы первая, кто решил ей воспользоваться. :)

Нет, я не первая. ) В этой же теме есть примеры, где ZWWW_FILLFORM используется. Причем успешно....

Code:

Честно говоря, я нее вижу особого смысла в режиме in place вообще.

Согласна, но задача поставлена именно так и не иначе. :roll:

Цитата:

p.s.
Для Word тоже проверил - работает.

У меня, к сожалению, по-прежнему не работает. А Вы как открываете документ Word? Он у Вас пустой?

Parazit

kalinka23 написал(а):

...

Цитата:

p.s.
Для Word тоже проверил - работает.

У меня, к сожалению, по-прежнему не работает. А Вы как открываете документ Word? Он у Вас пустой?

Вот, слепил код на коленке:

Code:

*&---------------------------------------------------------------------*
*& Report  ZPROBA5
*&---------------------------------------------------------------------*
REPORT  ZPROBA5.

DATA: container       TYPE REF TO cl_gui_custom_container,
      control         TYPE REF TO i_oi_container_control,
      document        TYPE REF TO i_oi_document_proxy,
      spreadsheet     TYPE REF TO i_oi_spreadsheet,
      error           TYPE REF TO i_oi_error,
      excelsheet      TYPE soi_document_type
                        VALUE soi_doctype_excel_sheet,
      WordDoc         TYPE soi_document_type
                        VALUE SOI_DOCTYPE_WORD_DOCUMENT,
       h_doc_obj    TYPE cntl_handle.

data:
  it_Val type standard table of ZWWW_VALUES
    with header line.

Define SetValue.
  Clear it_Val.
  it_Val-VAR_NAME  = &1.
  it_Val-VAR_NUM   = &2.
  it_Val-FIND_TEXT = &3.
  it_Val-VAL_TYPE  = &4.
  it_Val-VALUE     = &5.
  Append it_Val.
End-of-Definition.

SetValue '' '' '[1]' '' 'Тест'.

Call Screen 0100.


*********************************************************
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.


...

* -- check whether was create Excel object
  IF control IS INITIAL.
* -- creating object
    CALL METHOD c_oi_container_control_creator=>get_container_control
      IMPORTING
        control = control
        error   = error.
*  -- create container
    CREATE OBJECT container
              EXPORTING container_name = 'CONTAINER'.
* -- object initialisation
    CALL METHOD control->init_control
      EXPORTING
        r3_application_name      = 'h_excel'
        inplace_enabled          = 'X'
        inplace_scroll_documents = 'X'
        parent                   = container
        register_on_close_event  = 'X'
        register_on_custom_event = 'X'
        no_flush                 = 'X'
        name                     = 'Word.Application' "'Excel.Application'
      IMPORTING
        error                    = error.

* -- open document
  CALL METHOD control->get_document_proxy
    EXPORTING
      document_type  = WordDoc "excelsheet
    IMPORTING
      document_proxy = document
      error          = error.

* -- create document
  CALL METHOD document->create_document
    EXPORTING
      open_inplace   = 'X'
*      open_inplace   = ' '
      document_title = 'list name'(h00)
      no_flush       = 'X'
    IMPORTING
      error          = error.

* -- interface initialisation
  CALL METHOD document->get_document_handle
    EXPORTING
      no_flush = 'X'
    IMPORTING
      handle   = h_doc_obj.

  Data:
    App type OLE2_OBJECT,
    Doc type OLE2_OBJECT,
    Rng type OLE2_OBJECT.

  Get property of h_doc_obj-OBJ 'Application' = App.
  Get property of App 'ActiveDocument' = Doc.
  Get property of Doc 'Range' = Rng.
  Call method of Rng 'InsertAfter'
    exporting
      #1 = '[1]'.
  Call function 'FLUSH'.

  Call function 'ZWWW_FILLFORM'
    exporting
      DOC = h_doc_obj-OBJ
      FILE_TYPE = 'WORD'
    tables
      IT_VALUES = it_Val[].

  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT

ghost

Приветствую.
Давно уже пользуюсь вашей разработкой , так что отдельное спасибо

Недавно загрузил версию 2.9. И почему то скорость выгрузки на порядок упала. Данных порядка 1700 строк, но почему то выгрузка начала занимать по 2-3 минуты(срабатывает вариант с оптимизацией).
С чем может быть это связана.

p.s: формирование идет по строчно

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

ZWWW - ФМ для выгрузки данных в WORD, EXCEL

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