Экспорт в Word - потеря части данных

Здесь обсуждаем систему TDM/PDM/Workflow Lotsia PDM PLUS (PartY PLUS).
Аватара пользователя
Irina_O
Новый участник
Сообщения: 3
Зарегистрирован: 31 мар 2010, 14:33
Используемое ПО: Lotsia PDM PLUS
Откуда: Тюмень

Re: Экспорт в Word - потеря части данных

Сообщение Irina_O »

Александр, а как закрыть окно отчела Лоции после того,как данные из него выгрузились в документ?
Аватара пользователя
Irina_O
Новый участник
Сообщения: 3
Зарегистрирован: 31 мар 2010, 14:33
Используемое ПО: Lotsia PDM PLUS
Откуда: Тюмень

Re: Экспорт в Word - потеря части данных

Сообщение Irina_O »

Irina_O писал(а):Александр, а как закрыть окно отчела Лоции после того,как данные из него выгрузились в документ?
Вопрос исчерпан, уже нашли решение.:)
Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

Re: Экспорт в Word - потеря части данных

Сообщение Александр »

:wink: рад был помочь

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

dozhd
Новый участник
Сообщения: 2
Зарегистрирован: 06 апр 2011, 08:24
Используемое ПО: Lotsia PDM PLUS

Re: Экспорт в Word - потеря части данных

Сообщение dozhd »

Добрый день!
Александр, можете привести пример - как из скрипта (скрипт вызывается из действия) у найденного объекта по запросу открыть документ архива на редактирование, с сохранением его обратно в Лоцию?
Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

Re: Экспорт в Word - потеря части данных

Сообщение Александр »

посмотрите тему http://www.lplm.ru/phpBB2/viewtopic.php ... 0%B2%D0%B0

Код: Выделить всё

--id объекта с документами архива для примера 100000606800037 
--файл в электронном архиве
        select top(1) 
               st1.Path+
               Empl.name+'\'+
               case when patindex('%.%_',fl1.file_name)=0 then fl1.file_name+fv1.ver_label 
                    else substring(fl1.file_name, 1, patindex('%.%_',fl1.file_name)-1)+
                         fv1.ver_label+
                         substring(fl1.file_name, patindex('%.%_',fl1.file_name),len(fl1.file_name)-patindex('%.%_',fl1.file_name)+1) end 
          from LSDBO.File1 fl1 left join 
               LSDBO.EmplUsers Empl on fl1.author_id=Empl.id left join 
               LSDBO.file_ver fv1 on fl1.id=fv1.file_id left join 
               LSDBO.Storage st1 on fl1.storage_id=st1.id 
         where fl1.object_reference_id=100000606800037 
      order by fv1.ver_label desc, fl1.cd desc

--оригинальное имя файла
       select top(1) 
              fv1.orig_filepath 
         from LSDBO.File1 fl1 left join 
              LSDBO.EmplUsers Empl on fl1.author_id=Empl.id left join 
              LSDBO.file_ver fv1 on fl1.id=fv1.file_id left join 
              LSDBO.Storage st1 on fl1.storage_id=st1.id 
        where fl1.object_reference_id=100000606800037 
     order by fv1.ver_label desc, fl1.cd desc
все в скрипте действия
запросы выполняются через объект ADO
с файлом работаете через WHS (Windows Script Host) FSO объект
если архив/файл не защищенный - получили путь, отредактировали/сохранили
ps
вся отладка в vba (Alt+F11) Excel
если есть вопросы - пишите

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

dozhd
Новый участник
Сообщения: 2
Зарегистрирован: 06 апр 2011, 08:24
Используемое ПО: Lotsia PDM PLUS

Re: Экспорт в Word - потеря части данных

Сообщение dozhd »

Спасибо, Александр!
Все файлы защищенные.
Сделала открытие файлов в действии, потом перехожу в скрипт, считываю информацию из открытого dwg-файла, закрываю этот файл и возвращаюсь обратно в действие.
А хотелось использовать функцию в скрипте OpenDocumentVersion, но почему-то не получается.
Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

Re: Экспорт в Word - потеря части данных

Сообщение Александр »

к сожалению... у нас используются только офисные файлы, интеграция с САПР не подключена
так что даже и посоветовать ничего не могу, поскольку не владею спецификой :wink: :wink: :wink:
...
хотя с другой стороны все как обычно
1. версию вернее ее путь вы можете получить из запросов которые приведены ранее - уберите ограничения top(1) и увидите все версии/пути файла
2. соответственно посмотрите или
- как запускается AutoCAD через командную строку с указанным файлом (но это не интересно - путь в один конец)
- как подключиться к COM модели AutoCAD (здесь вы уже можете делать все что душе угодно)
Насколько помню объектная модель AutoCAD хорошо документирована и проста в использовании, масса примеров в хелпе и в интернете dwg.ru и т.д.

думаю разберетесь (тем более что из всей модели нужно то пару функций всего), и все сделаете скриптами

ps
типа смотрите в эту сторону
1) Create AcadApp:
Dim AcadApp As AutoCAD.AcadApplication
Set AcadApp = CreateObject("AutoCAD.Application")
AcadApp.Application.Visible = True

2) Open desired file
Dim acadDoc As AutoCAD.AcadDocument
Set acadDoc = AcadApp.Documents.Open(complete path of the file)

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Ответить