Вывод данных R/3 в шаблоны Word и Excel.
Для создания программы с выгрузкой данных в шаблон, необходимо:
Создать шаблон Word (Excel).
Шаблон имеет вид конечной формы (WYSIWYG - What You See Is What You Get).
Необходимо только пометить места вставки данных из R/3 при помощи закладки (например закладка «Дата», см. приложение 1) и (или) метки (уникального слова, фразы, например «[кто]», см. приложение 1).
Для подстановки многострочных данных необходимо создать одну строку таблицы и присвоить всей строке имя закладки (переменной Excel), например «Строка» (см. приложение 1). В ячейках строки необходимо вписать уникальные метки, например [1], [2]… и т.д.
Меткой может быть любой текст, уникальный в пределах данной закладки. Т.е. он наверняка не должен встречаться в обычном тексте закладки, и во вставляемых в нее данных.
Загрузить шаблон в R/3 при помощи стандартной транзакции SMW0.
- на 1-м экране выбрать «Двоичные данные для WebRFC-приложений»;
- на 2-м экране задать необходимый класс разработок ($TMP для локальной);
- на 3-м экране, используя меню «Создать», загрузить файл шаблона, как двоичный (BIN), присвоив «Имя объекта» и «Описание».
Создать АБАП-программу, формирующую данные для подстановки в шаблон.
3.1 Данные необходимо поместить во внутреннюю таблицу, имеющую структуру типа ZWWW_VALUES, где:
VAR_NAME
|
Имя закладки (переменной Excel), пусто для всего документа (активного листа Excel)
|
VAR_NUM
|
Порядковый номер строки (только для табличной части)
|
FIND_TEXT
|
Метка, уникальный текст для поиска/замены (пусто, для присвоения всей закладке)
|
VAL_TYPE
|
Тип присваиваемого значения VALUE:
пусто - обычный текст;
‘V’ – (Variable) имя другой закладки (переменной Excel), которая скопируется в эту и потом удалится;
‘M’ – (Macros) имя макроса для обработки закладки (переменной Excel). Макросу передается параметр типа Range, обозначающий текущую обрабатываемую закладку (Sub MyMacros(R as Range));
‘D’ – (Delete) удаление закладки (переменной Excel)
Следующие типы только для Excel:
‘R’ – (Row) строка целиком, с символом табуляции (09) для разделения полей (для ускорения выгрузки);
‘T’ – (Table) таблица целиком, с символом табуляции (09) для разделения полей и возвратом каретки (0D,0A) для разделения строк (для ускорения выгрузки);
|
VALUE
|
Значение в соответствии с типом VAL_TYPE
|
Общая формула ее заполнения такова:
- В пределах закладки VAR_NAME ищется метка FIND_TEXT и заменяется значением VALUE типа VAL_TYPE. Если поле закладки VAR_NAME не заполнено, поиск метки производится в пределах всего документа (листа Excel). Если поле метки FIND_TEXT не заполнено, производится замена всей закладки (переменной Excel);
- При заполнении табличной части, закладка VAR_NAME используется для обозначения всей строки таблицы, полю VAR_NUM присваивается порядковый номер строки таблицы, а метка FIND_TEXT для обозначения части строки (столбца, ячейки, части текста в ячейке).
К одной закладке (VAR_NAME) можно одновременно применить несколько значений (VALUE) разного типа (VAL_TYPE), например:
‘V’ – для изменения вида (стиля, шрифта, цвета…) закладки, затем пусто – для ее заполнения текстовым значением и ‘M’ для ее последующей обработки макросом. Порядок исполнения типов именно такой и не зависит от порядка заполнения внутренней таблицы.
Типы ‘M’ и ‘V’ применяются только для всей закладки, поэтому поле метки FIND_TEXT должно быть пустым.
Вызвать функциональный модуль ZWWW_OpenForm.
Модуль предназначен для выгрузки файла шаблона на рабочую станцию и заполнения его данными.
Обязательные параметры модуля:
FORM_NAME
|
имя объекта, присвоенное шаблону в транзакции SMW0
|
Необязательные параметры модуля:
IT_VALUES
|
Имя внутренней таблицы типа ZWWW_VALUES. Если не задано, то выгрузится незаполненный шаблон.
|
FILE_NAME
|
Имя файла (включая путь), куда будет выгружен заполненный шаблон. Если не задан, то будет сгенерировано случайное уникальное имя в папке для временных файлов Windows.
|
PRINTDIALOG
|
По умолчанию ‘X’. Будет показан диалог печати (выбор принтера и его параметров), при выходе из которого, после печати или отмены, заполненный шаблон будет закрыт и удален с диска.
|
OPTIMIZE
|
По умолчанию 300. Используется для указания количества записей таблицы IT_VALUES, при превышении которого будет использован VBA-макрос для ускорения заполнения шаблона.
|
PROTECT
|
Защита выходного документа от изменения.
|
При необходимости использовать функциональный модуль ZWWW_Prepare_Table.
Модуль предназначен для облегчения формирования табличной части шаблона из данных произвольной внутренней таблицы. Используется до вызова ZWWW_OpenForm, можно неоднократно для формирования нескольких табличных частей в шаблоне.
Обязательные параметры модуля:
LINE_NAME
|
Имя закладки строки табличной части
|
IT_ANY_TABLE
|
Имя произвольной внутренней таблицы с данными
|
IT_VALUES
|
Имя внутренней таблицы типа ZWWW_VALUES, куда будут данные из IT_ANY_TABLE в необходимой для модуля ZWWW_OpenForm форме.
|
Необязательные параметры модуля:
IT_FIELDS_CATALOG
|
Имя внутренней таблицы типа ZWWW_FIELD_CATALOG с описанием полей таблицы IT_ANY_TABLE, где:
- FIELD_NAME = имя поля таблицы IT_ANY_TABLE;
- FIND_TEXT = метка в закладке LINE_NAME, которая будет заменена значением поля (FIELD_NAME) таблицы IT_ANY_TABLE;
- FIELD_HEADER = заголовок, текстовое описание поля FIELD_NAME в заголовке таблицы, если задан параметр HEADER_NAME.
|
HEADER_NAME
|
Имя закладки заголовка табличной части. Строка, в которой вместо имен полей таблицы IT_ANY_TABLE (или их заменителей FIND_TEXT, заданных в IT_FIELDS_CATALOG), будут подставлены их описания FIELD_HEADER из таблицы IT_FIELDS_CATALOG.
|
VAL_TYPE
|
Пусто для текста (‘R’ или ‘T’ для ускорения вывода в Excel, см. п. 3.1).
|
Приложение 1. Пример шаблона WORD.
Кто: [кто]
Дата:
Кто: [кто]
Список кредиторов:
LIFNR
|
LAND1
|
NAME1
|
SORTL
|
TELF1
|
Приложение 1.2 Пример макроса в шаблоне WORD.
Sub MacrosExample(R As Range)
With R.Cells(4).Range
.Text = "Пример отработки макроса шаблона MacrosExample"
.Font.Color = wdColorRed
End With
End Sub
Приложение 2. Пример отчета в WORD:
REPORT ZWWW_SAMPLE .
Data:
it_Val type standard table of ZWWW_VALUES with header line,
SysDate(10).
Write sy-datum to SysDate. "Системная дата в текстовый формат
********************************************************************
* Заполним нетабличную часть
********************************************************************
******************************
* Метод поиска-замены
it_Val-Var_Name = ''. "будет производиться поиск во всем документе,
it_Val-Var_Num = 0. "номер строки, для нетабличных частей заполнять
"не надо
it_Val-Find_Text = '[кто]'. "уникальный текст, который будет найден и
"заменен на следующее значение
it_Val-Value = sy-uname. "значение в текстовой форме (имя пользователя)
Append it_Val.
"Достоинства метода:
"- наглядность шаблона
"- уникальный текст будет заменен везде, где найдется (см. [кто] вверху
" и внизу листа)
"
******************************
* Метод присвоения переменной
Clear it_Val.
it_Val-Var_Name = 'Дата'. "Имя закладки
it_Val-Find_Text = ''. "
it_Val-Value = SysDate. "Системная дата
Append it_Val.
"Недостатки:
"- шаблон получается менее наглядным
********************************************************************
* Заполним табличную часть
********************************************************************
Define SetLine.
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.
SetLine 'Строка' 1 '[1]' '' 'Мыло'.
SetLine 'Строка' 1 '[2]' '' '10'.
*для 2-й строки используем закладку СтрокаКурсив в качестве шаблона
SetLine 'Строка' 2 '' 'V' 'СтрокаКурсив'.
SetLine 'Строка' 2 '[1]' '' 'Порошок'.
SetLine 'Строка' 2 '[2]' '' '4'.
SetLine 'Строка' 3 '[1]' '' 'Щетка'.
SetLine 'Строка' 3 '[2]' '' '1'.
********************************************************************
* Использование вспомогательного модуля 'ZWWW_PREPARE_TABLE' для
* облегчения вывода данных из внутренних таблиц
********************************************************************
"Примечание:
"Все данные внутренней таблицы конвертируются в текстовый формат в
"соответствии с их типами. Числовые данные представляются с разделителем
"десятичной части в соответствии с текущей настройкой Windows.
Data:
Begin of it_LFA1 occurs 10,
* MANDT type LFA1-MANDT,
LIFNR type LFA1-LIFNR,
LAND1 type LFA1-LAND1,
NAME1 type LFA1-NAME1,
SORTL type LFA1-SORTL,
ANRED type LFA1-ANRED,
ERDAT type LFA1-ERDAT,
ERNAM type LFA1-ERNAM,
TELF1 type LFA1-TELF1,
End of it_LFA1.
* Выберем 10 записей кредиторов
Select *
into corresponding fields of table it_LFA1
from LFA1
up to 10 rows.
Call function 'ZWWW_PREPARE_TABLE'
EXPORTING
LINE_NAME = 'Строка2' "имя строки таблицы в шаблоне
VAL_TYPE = ''
TABLES
IT_ANY_TABLE = it_LFA1 "внутренняя таблица с данными
IT_VALUES = it_Val. "таблица для 'ZWWW_OPENFORM'
SetLine 'Строка2' 3 '' 'M' 'MacrosExample'.
*
********************************************************************
* Заполнение шаблона подготовленными данными и вывод на экран
********************************************************************
Call function 'ZWWW_OPENFORM'
EXPORTING
FORM_NAME = 'ZWWW_SAMPLE_WORD'
PrintDialog = ''
TABLES
IT_VALUES = it_Val. |
