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

Parazit

art1m0n написал:

У меня сейчас стоит оптимизация на 500. В табличку it_values попадает порядка 6500 записей и шаблон выводится пустой. Когда я ограничил диапазон и в it_val попало 497, то все вывелось отлично.
Думаю, поставить значение оптимизации в 10000, но боюсь, что это будет несколько медленно работать

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

Code:

Constants: 
  X_TAB(1) TYPE X VALUE '09', 
  X_0D(1)  TYPE X VALUE '0D', 
  X_0A(1)  TYPE X VALUE '0A'. 

DATA: 
  CHAR_TAB type C, 
  CHAR_0D  TYPE C, 
  CHAR_0A  TYPE C. 
...

FORM AssignCharX .
  Data: L type i,
        CHAR_A value 'A',
        CHAR_B value 'B'.
  Field-symbols:
    <X>, <EI>.

  Assign CHAR_A to <X>  type 'X'.
  Assign CHAR_B to <EI> type 'X'.
  <EI> = <EI> - <X>.

  Assign CHAR_TAB to <X> type 'X'.
  Clear <X>.
  <X> = X_TAB * <EI>.
  Assign CHAR_0D to <X> type 'X'.
  Clear <X>.
  <X> = X_0D * <EI>.
  Assign CHAR_0A to <X> type 'X'.
  Clear <X>.
  <X> = X_0A * <EI>.
ENDFORM.                    " AssignCharX

art1m0n

Parazit написал:

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

вопрос такой: "я не один использую данный модуль выгрузки. его еще до меня сюда внедрили. если я поменяю исходник, то это как-то скажется на работе других программ, которые используют этот модуль? не хотелось бы стать виновником всех бед, если прочие отчеты вдруг перестанут работать"

Parazit

art1m0n написал:

Parazit написал:

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

Нет, не скажется, эта подпрограмма специально доработана для работы в любых системах кодировки.

mofo

Parazit, ОГРОМНОЕ СПАСИБО ЗА ФМ и ЗА ПОМОЩЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!

Всё отлично работает!!!

УРА!!!

Rand

Parazit написал:

При чем они будут работать даже при включенном максимальном уровне безопасности макросов MS-Office, также не требуется разрешения доступа к VB, что позволяет соблюсти политику безопасности компании.

А расскажите, пожалуйста, каким образом SAP это осуществляет? Что из документа Word, например, при высоком уровне безопасности макрос не запускается, а из SAP без проблем?

Parazit

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

Parazit написал:

При чем они будут работать даже при включенном максимальном уровне безопасности макросов MS-Office, также не требуется разрешения доступа к VB, что позволяет соблюсти политику безопасности компании.

А расскажите, пожалуйста, каким образом SAP это осуществляет? Что из документа Word, например, при высоком уровне безопасности макрос не запускается, а из SAP без проблем?

Как я понял, ограничения безопасности касаются макросов, не имеющих входных параметров, т.е. тех, которые можно запустить через меню. А макросы с параметрами можно запустить только программно из других приложений или макросов. Следовательно это не неизвестные макросы, а значит не вирусы.

Rand

Нифига. Я создал макрос без входных параметров, чтобы тестить его в Word в процессе написания. И потом и из программы так же вызывал этот макрос. Отрабатывал. И плевал он на политику безопасности Майкрософт

Rand

И к тому же, спорная логика, что он известный макрос, раз с параметрами. Мало ли какое приложение его хочет запустить.
P.S. Это, конечно, очень удобно. Очень. Но ведь парадокс. Стороннее приложение запускает в офисе что ни попадя. Не знал, что SAP дружит с Майкрософт

NastyaL

Parazit, а не могли бы Вы поподробнее описать реализацию выгрузки такого вида:

Шапка
Данные
...
Шапка
Данные
...

Видела, что Вы отвечали уже на этот вопрос, но к сожалению не смогла разобраться...

Parazit

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

Parazit, а не могли бы Вы поподробнее описать реализацию выгрузки такого вида:

Шапка
Данные
...
Шапка
Данные
...

Видела, что Вы отвечали уже на этот вопрос, но к сожалению не смогла разобраться...

Кое что есть в примере, который есть в ZIPе.
Давай спишемся по почте (аське, скайпу)

NastyaL

А в каком примере?
Написала в аську.

Parazit

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

А в каком примере?
Написала в аську.

ZWWW_SAMPLE, на втором листе вывод документов из BSEG
Аську авторизовал

art1m0n

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

Свою проблему решил через макрос DOC.

Code:

Sub Maсrщ01()

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "&&&&"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.TypeParagraph
End Sub

В текст выгружаю цепочку '&&&&', а потом через макрос меняю

Еще раз спасибо за ФМ с которым просто работать!

глупый вопрос:"как запустить макрос?". последней строкой в коде делаю запись setline '' 'M' '', что, как я понимаю, означает запустить макрос для всего документа(закладки), но не работает. вероятно, я что-то не так понял

прошу прощения, уже разобрался - не указал название макроса для запуска.

NastyaL

Чего-то в аську Вы мне не отвечаете... Пишу сюда...
Получилось сделать вот как:
Отчет
Заголовок 1
Подзаголовок 1
___________
10|20|30|40|
___________
11|21|31|41|
___________

Отчет
Заголовок 1
Подзаголовок 1
_______________
100|200|300|400|
_______________
101|201|301|401|
_______________

Осталось только разобраться как поменять значения у заголовков? Они получаются одинаковые... Во второй табличке должно быть:
Отчет
Заголовок 2
Подзаголовок 1

Parazit

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

Чего-то в аську Вы мне не отвечаете... Пишу сюда...

Пардон, видимо аська сглючила, попробуйте еще раз послать запрос авторизации, или мне свой адрес на мыло киньте. misterxyz @ mail . ru

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

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

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