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

other95

Parazit написал:

1) Параметр PROTECT включен по умолчанию в самом ФМ ZWWW_OPENFORM. В таблице ZWWW_PARAM_DEFLT он не прописывается, как и остальные входные параметры ФМ. Пока в неё добавляю неявные параметры. Мысли подобные вашим у меня были, но пока в голове не сложилось ясной идеологии. Поэтому хотелось бы понять, для каких целей, например, вы хотели бы это использовать?

2) Я ничего в этом плане не изменял. Мой пример ZWWW_MANY_LIST работает, листы копируются?
Меня смущает наименование области "_Макрос", т.к. оно начинается с подчёркивания. Дело в том, что в кодировке SAP знак "_" отнюдь не вверху таблицы символов по порядку сортировки. А вам, разумеется, нужно, чтобы он сработал раньше заполнения формы. В моём примере сделано так:

Code:

    SetLine '' 'A_CopyList' '' '' ''  NumList.
    SetLine '' 'A_CopyList' '' '' 'M' 'CopySheets'.

Причем первая "A" должна быть обязательно латиницей, т.к. она выше русских букв в кодировках SAP.

По первому вопросу все просто у нас программ много со старым вызовом где параметр PROTECT не указан. Поэтому и было бы удобно иметь его по умолчанию в состоянии пусто. Но если это идет в разрез с идеологией то мы конечно сами исправим.
По второму ясно теперь это видимо наши недоработки будем исправлять.

Еще раз огромное спасибо!

Parazit

other95 написал:

...
По первому вопросу все просто у нас программ много со старым вызовом где параметр PROTECT не указан. Поэтому и было бы удобно иметь его по умолчанию в состоянии пусто. Но если это идет в разрез с идеологией то мы конечно сами исправим.
По второму ясно теперь это видимо наши недоработки будем исправлять.

Еще раз огромное спасибо!

Параметр PROTECT с самого его появления по умолчанию был включен 'X', т.е. если его не указывать, то формы выходят защищёнными. Если у вас было по другому, значит кто-то исправлял ФМ.
В этом плане у меня идеология простая - максимальная совместимость с предыдущими версиями, чтобы не возникали проблемы со старыми программами. Если появляются новые параметры ФМ, то их значения по умолчанию никак не изменяют поведения ФМ.

Parazit

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

...
В документе ворда, например, надо заполнить таблицу, а в одну из колонок, с обозначением [xxx] допустим я хочу поместить внутреннюю таблицу из абапа, целиком. Я где-то видел, как в ячейку вн. таблицы можно класть ссылку на другую вн. таблицу( type ref to ууу). Возможно такое? Просто любопытно.

Если коротко - Да, вложенные таблицы в Word сделать можно!
Однако способы могут быть разные, это зависит от конкретной задачи, формы шаблона и фантазии разработчика. И не так просто, как вложенные внутренние таблицы ABAP.

abaper2014

Здравствуйте. У меня такая проблема возникла, необходимо выгрузить в EXCEL большую по объему таблицу, (от 70 тысяч записей и до 200) . На форуме написали что от 65 тысяч записей необходимо загрузить шаблон .xlsm или .xlsx, до этого был .xls, я загрузила .xlsm . На маленьких таблицах все отрабатывает. На большой, появляется окно заполнения формы, когда полоса загрузки доходит до 100 процентов, он зависает, и окно программы зависает. Версию обновила на 06.2014. ФМ не может такие больше объемы выгружать или дело в другом?

Parazit

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

Здравствуйте. У меня такая проблема возникла, необходимо выгрузить в EXCEL большую по объему таблицу, (от 70 тысяч записей и до 200) . На форуме написали что от 65 тысяч записей необходимо загрузить шаблон .xlsm или .xlsx, до этого был .xls, я загрузила .xlsm . На маленьких таблицах все отрабатывает. На большой, появляется окно заполнения формы, когда полоса загрузки доходит до 100 процентов, он зависает, и окно программы зависает. Версию обновила на 06.2014. ФМ не может такие больше объемы выгружать или дело в другом?

Выгрузка то у вас отрабатывает вся, как раз когда полоса на 100%. После этого может понадобиться какое-то время для сохранения файла на диск (у меня для 65000 записей и 91 поля около 10 секунд). А между этими событиями (100% и сохранением) у вас вероятно работает какой-то макрос шаблона, вот он то и висит.

Я сейчас проверил на своём примере ZWWW_ALV_GRID, оказывается он тоже "зависает" на большом объёме. После заполнения у меня срабатывает макрос AfterOutput, который занимается форматированием ячеек. Проблема оказалась в простом стандартном авто-выравнивании столбцов Columns.Autofit. Даже на 65000 он "умирает" уже на одном столбце, а на 91 столбцах, видимо раньше я умру.

Я решил ограничить выравнивание столбцов по первой 1000 строк:

Code:

  If FormatRange.Rows.Count > 1000 Then
    Set FormatRange1000 = Application.Intersect(FormatRange, FormatRange.Range("1:1000"))
    For Each Col In FormatRange1000.Columns
      ColWidth = Col.ColumnWidth
      Col.AutoFit
      If Col.ColumnWidth < ColWidth Then
        Col.ColumnWidth = ColWidth
      End If
    Next
  Else
    FormatRange.Columns.AutoFit
  End If

abaper2014

Большое спасибо, макрос был виноват

W

Добрый день. Подскажите, пожалуйста, при выгрузке через "ZWWW_OPENFORM" можно ли как-то задать изменение форматирования ячейки? (выгружается таблица и некоторые строки было бы хорошо выделить цветом, такие строки выбираются по параметру, который не грузится в эксель).

Parazit

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

Добрый день. Подскажите, пожалуйста, при выгрузке через "ZWWW_OPENFORM" можно ли как-то задать изменение форматирования ячейки? (выгружается таблица и некоторые строки было бы хорошо выделить цветом, такие строки выбираются по параметру, который не грузится в эксель).

Обычное решение такой задачи - создание образцов строк в самом шаблоне. Например, выводить подзаголовки или подытоги жирным шрифтом на цветном фоне. Как это сделать можно посмотреть в примере ZWWW_MANY_LIST, ограничив выборку до нескольких записей и в отладке посмотреть содержимое it_Val перед вызовом ФМ ZWWW_OPENFORM. Особое внимание обратить на строки с VAL_TYPE = 'V'.
Большая часть задач решается таким способом. Если этого недостаточно (задача не подлежит чёткой формализации), то можно использовать собственные VBA-макросы, например, вызывая их для отдельных строк таблицы.

W

Спасибо за наводку, разобралась.

W

ZWWW_OPENFORM с параметрами close_form = 'X' и delete_file = '' не закрывает открытый документ Excel, в результате процесс висит в фоне. Может есть готовое решение как его убить из программы?
Посмотрела сам код ФМ-а, там почему то нет DOCUMENT->OPEN_DOCUMENT и ->CLOSE_DOCUMENT. Возможно у меня какая-то старая версия пакета ZWWW и сейчас это пофикшено как-то?

Parazit

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

ZWWW_OPENFORM с параметрами close_form = 'X' и delete_file = '' не закрывает открытый документ Excel, в результате процесс висит в фоне. Может есть готовое решение как его убить из программы?
Посмотрела сам код ФМ-а, там почему то нет DOCUMENT->OPEN_DOCUMENT и ->CLOSE_DOCUMENT. Возможно у меня какая-то старая версия пакета ZWWW и сейчас это пофикшено как-то?

А мой пример ZWWW_SAMPLE_INVOICE тоже не закрывает, если перед вызовом ФМ поменять p_Close = 'X'?
Когда был установлен ZWWW?

W

Твой пример закрывает. Шаманство, не иначе

Есть идеи с чем может быть связано такое поведение?

Parazit

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

Твой пример закрывает. Шаманство, не иначе

Есть идеи с чем может быть связано такое поведение?

Макросы используете?

W

Макросов VBA нет.
Есть шаблон XLS, на первой странице шаблон прям почти как у вас в примере: заголовок и позиции; на второй странице пример двух строчек: цветной и обычной, эта страница скрыта.
Саповским макросом

Code:

  DEFINE setval.
    clear it_val.
    it_val-var_name  = &1.
    it_val-var_num   = &2.
    it_val-find_text = &3.
    it_val-val_type  = &4.
    write &5 to valuechar no-zero no-grouping left-justified.
    it_val-value     = valuechar.
    append it_val.
  END-OF-DEFINITION.

заполняются переменные в шаблоне.
Строчки размножаются записью:

Code:

IF <alv2>-color = 'X'.
      lv_type_row = 'Sheet2!Строка_выделенная'.
    ELSE.
      lv_type_row = 'Sheet2!Строка'.
    ENDIF.

setval 'Sheet1!Таблица' lv_index ''             'V'       lv_type_row.

.
Собственно всё. Потом это дело пытаюсь считать заново, чтобы приаттачить к письму, а затем удалить документ, но код валится при попытке открыть незакрытый документ.

Parazit

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

Макросов VBA нет.
Есть шаблон XLS, на первой странице шаблон прям почти как у вас в примере: заголовок и позиции; на второй странице пример двух строчек: цветной и обычной, эта страница скрыта.
Саповским макросом

Code:

  DEFINE setval.
    clear it_val.
    it_val-var_name  = &1.
    it_val-var_num   = &2.
    it_val-find_text = &3.
    it_val-val_type  = &4.
    write &5 to valuechar no-zero no-grouping left-justified.
    it_val-value     = valuechar.
    append it_val.
  END-OF-DEFINITION.

заполняются переменные в шаблоне.
Строчки размножаются записью:

Code:

IF <alv2>-color = 'X'.
      lv_type_row = 'Sheet2!Строка_выделенная'.
    ELSE.
      lv_type_row = 'Sheet2!Строка'.
    ENDIF.

setval 'Sheet1!Таблица' lv_index ''             'V'       lv_type_row.

.
Собственно всё. Потом это дело пытаюсь считать заново, чтобы приаттачить к письму, а затем удалить документ, но код валится при попытке открыть незакрытый документ.

Возможно Excel раньше возвращает управление в ABAP, чем успевает закрыть файл. Имеет смысл попробовать в цикле, через тайм-аут, открывать файл с обработкой ошибки.

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

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

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