• kb
  • Участник
  • Неактивен
  • На форуме с 31 марта 2021
  • Сообщений: 1

Тема: Экспорт файлов c их файловым составом из Technologics на компьютер

Здравствуйте.
Мне необходимо из архива Technologics выгрузить несколько файлов в папку, при этом необходимо выгрузить и их файловый состав (доп. вложения). В итоге должно получиться так: из базы выбирается несколько карточек и они экспортируются в указанную папку с их файловым составом.
Просьба проконсультировать/подсказать как это можно выполнить.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Экспорт файлов c их файловым составом из Technologics на компьютер

Здравствуйте!

Возможно следующие варианты:
1. Самый лучший: это написать свой макрос. В этом случае вы можете автоматизировать процесс максимально гибко.

2. Самый рабочий: cоздать документ заглушку (либо используем существующий, который соответсвует нашим критериям и имеет все необходимые связи).  К нему во входимость добавить все документы, которые вы хотите выгрузить 12.1.7.7 Связанные документы. Далее открыть зависимый объект Полная входимость (12.1.21.1 Полная входимость), при необходимости настроить способ построения выполнив команду Фильтр по связанным версиям документов (видимо стоит ограничиться первым уровнем вложенности) и выполнить команду Выгрузить связанные документы в папку...

3. Самый простой. Использоваться встроенный режим экспорта 15.9.5 Экспорт документов. Просто выделите документы (можно собрать их в папках 12.2 Папки или отобрать через выборки 12.4 Выборки)  и выполните команду Экспорт выделенных документов и настройте опции экспорта.
Но!!! при этом выгрузка идет в нашем формате (для последующей загрузки в TechnologiCS), так что придется полученные данные как-то обработать. Так что в данном случае на самый простой способ получится.

4. Можно просто выгрузить все необходимые файлы руками, открыв зависимый объект Файловый состав (12.1.7.2 Файловый состав) и выполнив команду Сохранить на диск. И повторить для всех документов.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Экспорт файлов c их файловым составом из Technologics на компьютер

Пример самого простого макроса для выгрузки выделенных документов (18.1 Макросы и формы ввода). Должен запускаться из режима Архив, Папки, Выборки

Sub FormMacro_UnloadFilesTo(ActiveModule)'Выгрузить документы в папку

 LogObject.ScriptTimeOut = 0
 OutFolder = ScriptHelper.SelectFolderDialog( "Выберите папку для выгрузки", "" )
 if IsNull(OutFolder) then Exit Sub

 On Error Resume Next
 if ActiveModule.SelectedRowsCount>0 then
   For i=0 to ActiveModule.SelectedRowsCount-1
     if ActiveModule.GotoSelectedRow(i) then
       DocName = ActiveModule.p_NOTE.AsSafeString
       if DocName="" then DocName = ActiveModule.p_NAME.AsSafeString
       Call theApp.ShowProgressMessage( CStr(i+1) & ". " & DocName, "Выгрузка" )
       Err.Clear
       Call ActiveModule.OpenDocEx( -1, OutFolder )
       If Err then
         Call theApp.ShowDetailedErrorMessage( "Ошибка при выгрузке документа!", Err.Description )
         Call theApp.HideProgressMessage
         Exit Sub
       End If
     End If
   Next
   Call theApp.HideProgressMessage
 else
   Err.Clear
   Call ActiveModule.OpenDocEx( -1, OutFolder )
   If Err then
      Call theApp.ShowDetailedErrorMessage( "Ошибка при выгрузке документа!", Err.Description )
   End If
 End if

End Sub