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

Silence1

Дорогой Parazit!
Подскажите, можно ли сделать так, чтобы повторять табличку на одном листе Excel n-ное кол-во раз? Например, для каждого контрагента своя табличка и свои надписи над табличкой и подписи под ней?

Parazit

Silence1 написала:

Дорогой Parazit!
Подскажите, можно ли сделать так, чтобы повторять табличку на одном листе Excel n-ное кол-во раз? Например, для каждого контрагента своя табличка и свои надписи над табличкой и подписи под ней?

Конечно можно!
Самый простой наглядный вариант, каждой строке шаблона присвоить имя и собирать отчет из них, как из кирпичиков. Опять же для наглядности, можно присвоить имя (например: "МестоВывода") пустой строке в самом низу и перекладывать туда строки шаблона.

Типа так:

Code:

*табличка 1
SetVal 'Место Вывода' 1 '' 'V' 'Заголовок'.
SetVal 'Место Вывода' 2 '' 'V' 'Строка'.
SetVal 'Место Вывода' 2 '[1]' '' 'значение ячейки 1'.
SetVal 'Место Вывода' 2 '[2]' '' 'значение ячейки 2'.
SetVal 'Место Вывода' 3 '' 'V' 'ПустаяСтрока'.

*табличка 2
SetVal 'Место Вывода' 4 '' 'V' 'Заголовок'.
SetVal 'Место Вывода' 5 '' 'V' 'Строка'.
SetVal 'Место Вывода' 5 '[1]' '' 'значение ячейки 1'.
SetVal 'Место Вывода' 5 '[2]' '' 'значение ячейки 2'.
SetVal 'Место Вывода' 6 '' 'V' 'ПустаяСтрока'.

Parazit

В дополнение к моему предыщему посту:
Теперь в Excel-е можно перекладывать строки с различающимся количеством строк. В приведенном выше примере, закладка 'Заголовок' может иметь высоту в несколько строк, а закладка 'Место Вывода' высотой в одну строку. И наоборот.
Данная фича работает с версии 2.5, качайте там же.

Parazit

Разыскиваются бета-тестеры формата RTF!

Выложил обновление, версия 2.5.
Добавлена выгрузка в формат RTF.
Пока сыровата, но приложенные примеры работают!
Не доработан вариант заполнения закладки без поиска/замены (поле FIND_TEXT = <пусто>), это продемонстрировано в примере ZWWW_MANY_LIST - у RTF-формы не заполнены дата и время вывода отчета, в отличие от аналагичной WORD-формы. Но без него легко можно обходиться.
Пока, единственная выгода использования RTF - быстрая скорость формирования отчета. В перспективе возможность формирования отчетов в фоне, т.к. заполнение формы производится сервером и выгружается уже готовый файл.

Недостатком RTF является невозможность использования собственных макросов.

vuces

<я не знать русский языка> Parazit !
Хочу іспользовать ваш ФМ, но пока не получается
в форме Form DownloadWWWTemplate на строчке
Concatenate TempDir '\' FORM_NAME '_' sy-TIMLO Ext into FILE_NAME вылетает в дамп

ошибка Error at assignment: Overwritten protected field.

хотя смотрел загруженний в репозитарий файл там всьо ок,
не через Ваш фм тоже выгружается нормально

в чем может быть проблема?
Спасибо.

Parazit

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

<я не знаю русского языка> Parazit !
Хочу іспользовать ваш ФМ, но пока не получается
в форме Form DownloadWWWTemplate на строчке
Concatenate TempDir '\' FORM_NAME '_' sy-TIMLO Ext into FILE_NAME вылетает в дамп

ошибка Error at assignment: Overwritten protected field.

хотя смотрел загруженний в репозитарий файл там всьо ок,
не через Ваш фм тоже выгружается нормально

в чем может быть проблема?
Спасибо.

Скорей всего у вас в ФМ ZWWW_OPENFORM параметр FILE_NAME не имеет признака "Перенос значения".
Все параметры (в комментариях вверху ФМ) должны выглядеть в точности, как у меня, в частности FILE_NAME:

Code:

*" VALUE(FILE_NAME) TYPE RLGRAP-FILENAME OPTIONAL

vuces

Так и есть, спасибо!

Брат Мигель

Убрал пост, не разобрался.

vuces

Добрий день,
Хотел посмотреть как работает вывод из ALV,
запускал с дефолтными значениями
Как это поправить, Спасибо.

Code:

ДинамОшибка            DYNPRO_NOT_FOUND                                            
Дата и время           12.10.2009 17:34:09                                         

 Краткий текст                                                                     
     Dynpro does not exist                                                         

 Что произошло?                                                                    
     Error in the ABAP Application Program                                         
                                                                                   
     The current ABAP program "ZWWW_ALV_GRID" had to be terminated because it has  
     come across a statement that unfortunately cannot be executed.                

 Анализ ошибки                                                                     
     The system attempted to use dynpro 0100 in program "ZWWW_ALV_GRID".           
     This dynpro does not exist.                                                   

 Место инициации динамической ошибки:                                              
     Программа                               ZWWW_ALV_GRID                         
     Include                                 CL_GUI_OBJECT=================CM006   
     Строка                                  108                                   
     Имя модуля                              END-OF-SELECTION                     


  106   CASE P_COUNT.                                                    
  107     WHEN 0.                                                        
>>>>>       SET PROPERTY OF H_CONTROL-OBJ PROPERTY = VALUE NO FLUSH.     
  109     WHEN 1.                                                        
  110       SET PROPERTY OF H_CONTROL-OBJ PROPERTY = VALUE NO FLUSH      
  111         EXPORTING #1 = P1.                                         
  112     WHEN 2.                                                        
*********

sy-uname

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

Добрий день,
Хотел посмотреть как работает вывод из ALV,
запускал с дефолтными значениями
Как это поправить, Спасибо.

Code:

 Анализ ошибки                                                                     
     The system attempted to use dynpro 0100 in program "ZWWW_ALV_GRID".           
     This dynpro does not exist.                                                   

Неужеи это так сложно внимательно и без истерик прочитать текст дампа???? Там в 99% случаев есть вполне внятный ответ.
Создайте экран.

Parazit

sy-uname написал(а):

...
Создайте экран.

Точно! Нужно просто создать пустой экран с номером 100.

vuces

Спасибо, не внимательно прочитал

vuces

Здрасте,
глюк в макросе, в макрос могу зайти только дебагером, изза
высокой степени безопасности
если я правильно понимаю то в коде не хватает параметров
в чем проблема?
И если можна сбросить в текстовый файл
коды макросов vuces(собака)ukr.net
Спасибо.

Sub BeforeOutput(R As Range)
Dim c As Integer, Col As Range, Ofs As Range, I As Integer, Nm As String

c = R.Value
R.Value = ""
Set Col = Range("FirstColumn")
Set Ofs = Col.Offset(, 1)
Col.Copy
Ofs.Columns.Resize(, c - 1).Insert
Set Col = Range("Header FirstColumn")
Set Col = Col.Columns.Resize(, c)
For Each Ofs In Col
I = I + 1
Ofs.Value = "[FIELD" + LTrim(Str(I)) + "]"
Next
End Sub

Parazit

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

глюк в макросе, в макрос могу зайти только дебагером, изза
высокой степени безопасности
если я правильно понимаю то в коде не хватает параметров
в чем проблема?

Это именно мой пример не работает, или вы уже свое что то делаете?
Версия офиса какая?

vuces

Цитата:

Это именно мой пример не работает, или вы уже свое что то делаете?
Версия офиса какая?

Да ето ваш пример, офис 2007

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

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

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