Текущее время: Вс, июл 06 2025, 20:44

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


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


ВНИМАНИЕ!

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



Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
 Заголовок сообщения: Фотографии в отчете
СообщениеДобавлено: Пн, июл 17 2006, 13:56 
Специалист
Специалист

Зарегистрирован:
Пт, июл 22 2005, 08:56
Сообщения: 158
Здравствуйте!
Может, кто сталкивался?
Загрузили фотографии через архивлинк в HR. В транзакции PA30 все нормально, напротив какждого сотрудника с табельным номером отображается фотография.

Вопрос: можно ли эти фотографии вытащить в отчет (какая технология: SapScript, Smartforms, .... ???). Желательно с примером.


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, июл 17 2006, 21:20 
Гость
см программу RSDEMO_PICTURE_CONTROL


Принять этот ответ
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт, июл 18 2006, 05:37 
Специалист
Специалист

Зарегистрирован:
Пт, июл 22 2005, 08:56
Сообщения: 158
РМщик написал(а):
см программу RSDEMO_PICTURE_CONTROL

да эта программа вытягивает картинку BDS (репозитарий) или URL на контейнер... а мне нужно в отчет.
Тем более насколько я понимаю картинки в сапскрипт можно вытаскивать *.bmp или *.tif из BDS (репозитарий) или URL, а мне нужно из Archivelink (там хранятся в сжатом виде *.jpg фотографии HR)


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт, июл 18 2006, 09:21 
Почетный гуру
Почетный гуру
Аватара пользователя

Зарегистрирован:
Чт, авг 19 2004, 17:37
Сообщения: 1962
Откуда: Москва
Пол: Мужской
Я делал такое, но с собственной технологией вывода в Word:
http://sapboard.ru/forum/viewtopic.php?t=4880

Выгружал картинки на машину пользователя:
Code:
  Data:
    ObjType type TOAV0-SAP_OBJECT,
    IbjID   type TOAV0-OBJECT_ID,
    it_Connections type table of TOAV0 with header line.

  ObjType = 'PREL'.
  IbjID   = PERNR-PERNR.

  Call function 'ARCHIV_GET_CONNECTIONS'
    EXPORTING
      OBJECTTYPE  = ObjType
      OBJECT_ID   = IbjID
    TABLES
      CONNECTIONS = it_Connections
    EXCEPTIONS
      others      = 1.

  If sy-subrc = 0.
    Read table it_Connections index 1.
    Concatenate TempDir '\' PERNR-PERNR '-' SY-TIMLO '.' it_Connections-RESERVE
      into FlName.

    CALL FUNCTION 'ARCHIVOBJECT_GET_DT_VIA_TABLE'
      EXPORTING
        ARCHIV_ID     = it_Connections-ARCHIV_ID
        ARCHIV_DOC_ID = it_Connections-ARC_DOC_ID
        DOC_TYPE      = ' '
        DTPATH        = FlName
      EXCEPTIONS
        OTHERS        = 2.
    If sy-subrc = 0.
      Append FlName.
      SetLine 'Место_вывода' count_loop '[photo]' '' FlName.
      SetLine 'Место_вывода' count_loop '' 'M' 'Photo'.
    EndIf.
  EndIf.


А потом уже VB-макросом открывал ее в документе:
Code:
Sub Photo(r As Range)
  Dim FlName As String, R2 As Range, T As Range
 
  On Error Resume Next
  Set T = r.Tables.Item(1).Range
  Set R2 = T.Cells(2).Range
  For I = 1 To Len(R2.Text)
    s = Mid(R2.Text, I, 1)
    If s <> Chr(13) And s <> Chr(7) And s <> Chr(10) Then
      FlName = FlName + s
    End If
  Next
  R2.Text = ""
  ActiveDocument.InlineShapes.AddPicture FlName, , , R2
  T.Cells.DistributeHeight
End Sub


В Word-шаблоне создана таблица в 1 строку и 2 столбца. В левой ячейке вписываю ФИО, в правой вписано слово "[photo]". Из АБАПа вместо него вписывается имя файла с полным путем. Макрос находит эту ячейку, берет имя файла, чистит ячейку и открывает в ней картинку.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт, июл 18 2006, 11:11 
Специалист
Специалист

Зарегистрирован:
Пт, июл 22 2005, 08:56
Сообщения: 158
Parazit написал:
Я делал такое, но с собственной технологией вывода в Word:
http://sapboard.ru/forum/viewtopic.php?t=4880

Выгружал картинки на машину пользователя:
Code:
  Data:
    ObjType type TOAV0-SAP_OBJECT,
    IbjID   type TOAV0-OBJECT_ID,
    it_Connections type table of TOAV0 with header line.

  ObjType = 'PREL'.
  IbjID   = PERNR-PERNR.

  Call function 'ARCHIV_GET_CONNECTIONS'
    EXPORTING
      OBJECTTYPE  = ObjType
      OBJECT_ID   = IbjID
    TABLES
      CONNECTIONS = it_Connections
    EXCEPTIONS
      others      = 1.

  If sy-subrc = 0.
    Read table it_Connections index 1.
    Concatenate TempDir '\' PERNR-PERNR '-' SY-TIMLO '.' it_Connections-RESERVE
      into FlName.

    CALL FUNCTION 'ARCHIVOBJECT_GET_DT_VIA_TABLE'
      EXPORTING
        ARCHIV_ID     = it_Connections-ARCHIV_ID
        ARCHIV_DOC_ID = it_Connections-ARC_DOC_ID
        DOC_TYPE      = ' '
        DTPATH        = FlName
      EXCEPTIONS
        OTHERS        = 2.
    If sy-subrc = 0.
      Append FlName.
      SetLine 'Место_вывода' count_loop '[photo]' '' FlName.
      SetLine 'Место_вывода' count_loop '' 'M' 'Photo'.
    EndIf.
  EndIf.


А потом уже VB-макросом открывал ее в документе:
Code:
Sub Photo(r As Range)
  Dim FlName As String, R2 As Range, T As Range
 
  On Error Resume Next
  Set T = r.Tables.Item(1).Range
  Set R2 = T.Cells(2).Range
  For I = 1 To Len(R2.Text)
    s = Mid(R2.Text, I, 1)
    If s <> Chr(13) And s <> Chr(7) And s <> Chr(10) Then
      FlName = FlName + s
    End If
  Next
  R2.Text = ""
  ActiveDocument.InlineShapes.AddPicture FlName, , , R2
  T.Cells.DistributeHeight
End Sub


В Word-шаблоне создана таблица в 1 строку и 2 столбца. В левой ячейке вписываю ФИО, в правой вписано слово "[photo]". Из АБАПа вместо него вписывается имя файла с полным путем. Макрос находит эту ячейку, берет имя файла, чистит ячейку и открывает в ней картинку.

оо... понятно, спасибо - сейчас буду пробовать...
вопросик

Code:
Sub Photo([b]r As Range[/b])
  Dim FlName As String, R2 As Range, T As Range
.................................


при вызове макроса, что мы в переменную r задаем?


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт, июл 18 2006, 11:59 
Специалист
Специалист

Зарегистрирован:
Пт, июл 22 2005, 08:56
Сообщения: 158
Все разобрался... Громаднейшее спасибо!


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт, июл 18 2006, 12:21 
Почетный гуру
Почетный гуру
Аватара пользователя

Зарегистрирован:
Чт, авг 19 2004, 17:37
Сообщения: 1962
Откуда: Москва
Пол: Мужской
часть написал(а):
при вызове макроса, что мы в переменную r задаем?

У меня это "Закладка" на шапку документа, включающую в себя и табличку с фоткой.


Принять этот ответ
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 7 ] 

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


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

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


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

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