Текущее время: Сб, июл 02 2022, 21:12

Часовой пояс: UTC + 3 часа


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


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  [ Сообщений: 2404 ]  На страницу Пред.  1 ... 157, 158, 159, 160, 161
Автор Сообщение
 Заголовок сообщения: Re: ZWWW - ФМ для выгрузки данных в WORD, EXCEL
СообщениеДобавлено: Ср, мар 30 2022, 16:55 
Начинающий
Начинающий

Зарегистрирован:
Чт, янв 31 2013, 10:59
Сообщения: 20
Добрый день.

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


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: ZWWW - ФМ для выгрузки данных в WORD, EXCEL
СообщениеДобавлено: Ср, апр 13 2022, 10:26 
Начинающий
Начинающий

Зарегистрирован:
Пт, апр 08 2022, 16:58
Сообщения: 1
HanibaL написал(а):
Добрый день.

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


Пару дней назад реализовывал такое. Советую разобрать работу вот этой программы ZWWW_MANY_LIST. Там есть реализация того, что вам нужно.
Вот примерный кусок кода, на который стоит обратить внимание.
Code:
  Define SetLine.
    Concatenate &1 &2 into it_Val-Var_Name.
    it_Val-Var_Num = &3.
    it_Val-Find_Text = &4.
    it_Val-Val_Type  = &5.
    Describe field &6 type TypeValue.
    Case TypeValue.
      when 'D'.
        Write &6 to StrVal.
        Condense StrVal.
        it_Val-Value = StrVal.
      when others.
        it_Val-Value = &6.
    EndCase.
    If &5 = 'V'.
      Concatenate &1 it_Val-Value into it_Val-Value.
    EndIf.
    Append it_Val.
  End-of-Definition.

  Loop at it_Usr.
    Clear it_Val.

    At new FUNCTION.
      new_FUNCTION = 'X'.
    EndAt.

    If new_FUNCTION = 'X'.
      Clear new_FUNCTION.
      Num = Num + 1.
      SetLine NameList 'User' Num '' 'V' 'Function'.
      SetLine NameList 'User' Num '[FUNCTION]' '' it_Usr-FUNCTION.
    EndIf.

    Num = Num + 1.
    SetLine NameList 'User' Num '[BNAME]' '' it_Usr-BNAME.
    SetLine NameList 'User' Num '[NAME_LAST]' '' it_Usr-NAME_LAST.
    SetLine NameList 'User' Num '[NAME_FIRST]' '' it_Usr-NAME_FIRST.

  EndLoop.


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: ZWWW - ФМ для выгрузки данных в WORD, EXCEL
СообщениеДобавлено: Чт, апр 14 2022, 11:24 
Начинающий
Начинающий

Зарегистрирован:
Чт, янв 31 2013, 10:59
Сообщения: 20
Damien написал(а):
HanibaL написал(а):
Добрый день.

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


Пару дней назад реализовывал такое. Советую разобрать работу вот этой программы ZWWW_MANY_LIST. Там есть реализация того, что вам нужно.
Вот примерный кусок кода, на который стоит обратить внимание.
Code:
  Define SetLine.
    Concatenate &1 &2 into it_Val-Var_Name.
    it_Val-Var_Num = &3.
    it_Val-Find_Text = &4.
    it_Val-Val_Type  = &5.
    Describe field &6 type TypeValue.
    Case TypeValue.
      when 'D'.
        Write &6 to StrVal.
        Condense StrVal.
        it_Val-Value = StrVal.
      when others.
        it_Val-Value = &6.
    EndCase.
    If &5 = 'V'.
      Concatenate &1 it_Val-Value into it_Val-Value.
    EndIf.
    Append it_Val.
  End-of-Definition.

  Loop at it_Usr.
    Clear it_Val.

    At new FUNCTION.
      new_FUNCTION = 'X'.
    EndAt.

    If new_FUNCTION = 'X'.
      Clear new_FUNCTION.
      Num = Num + 1.
      SetLine NameList 'User' Num '' 'V' 'Function'.
      SetLine NameList 'User' Num '[FUNCTION]' '' it_Usr-FUNCTION.
    EndIf.

    Num = Num + 1.
    SetLine NameList 'User' Num '[BNAME]' '' it_Usr-BNAME.
    SetLine NameList 'User' Num '[NAME_LAST]' '' it_Usr-NAME_LAST.
    SetLine NameList 'User' Num '[NAME_FIRST]' '' it_Usr-NAME_FIRST.

  EndLoop.


Спасибо! Попробую. Пока что решил через макрос.


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: ZWWW - ФМ для выгрузки данных в WORD, EXCEL
СообщениеДобавлено: Пт, июн 17 2022, 13:50 
Начинающий
Начинающий

Зарегистрирован:
Чт, сен 19 2013, 09:09
Сообщения: 12
После перехода в Офис 365 начались проблемы с отображением данных в отчетах. В хаотичном порядке может пропадать часть данных в табличной части отчета(шаблон WORD). Т.е. может формироваться несколько раз нормально, потом данные не выводятся и т.д. таблица результатов корректная. режет на этапе формирования шаблона. В Офисе 2013 все работает нормально. Куда копать, что смотреть?


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2404 ]  На страницу Пред.  1 ... 157, 158, 159, 160, 161

Часовой пояс: UTC + 3 часа


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

Сейчас этот форум просматривают: Google [Bot], Google Feedfetcher


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB