TDMS, электронный архив Опции

[Luka]

Здесь обсуждаются технические вопросы программы!

[sub777]

Тогда сразу пара вопросов:

1. У объекта есть атрибут наследуемый от объекта в состав которого он входит, когда изменяешь атрибут родительского у самого объекта этот атрибут не меняется, а хотелось бы. Как лучше поступить?

2. Как сделать чтобы при создании объекта ему сразу (автоматически) присваивались определенные права доступа для других пользователей

[Andy82]

В TDMS стандартной программой для просмотра эскизов идет CSViewer. Можно ли ее заменить, или подсунуть библиотеку для отображения новых форматов. Желательно через ActivX.

[Kvant]

Кто нибудь подскажет как синхрнизировать пользователей с активной директорией.
Если это вобще возможно.

Сообщение отредактировал Kvant - 4.01.2007 - 07:07

[Alxd]

2 Kvant
Можно сделать синхронизацию, но придется писать скрипт. Я с такой задачей столкнулся, но решать не пришлось. К сожалению. Если б пришлось - решил.

Код получения списка пользователей из AD примерно такой:

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")

objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name,distinguishedname,sAMAccountName,userPrincipalName,userWorkstations from 'LDAP://DC=tftot,DC=ru' Where objectCategory='user'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objUserSet = objCommand.Execute

objUserSet.MoveFirst

Do Until objUserSet.EOF
strFullName = objUserSet.Fields("Name").Value

objUserSet.MoveNext
Loop
objConnection.Close

(правил "на ходу", имей ввиду)

2 Andy82
Вроде нет, либо надо CsViewer расковыривать, чтоб знать, через что к нему обращается TDMS для отображения документов.

2 sub777
1. Напиши скрипт, которой итеративно пройдет по всем потомкам и обновит их значения. Ничего сложного в этом нет, буквально десяток строк должно быть.

Есть код итерации под Рубин PDM:

function IterateKNW(fromid, fromfld)
{
if (fromfld == false)
{
pdm.AttribValue(fromid, -5) = Obj2Code(fromid);
pdm.ObjDesc(fromid) = Obj2Desc(fromid);
pdm.CommitWriteTrans();
pdm.UpdateObjTrees();

pdm.AddLog('Обновление знания: ' + pdm.ObjDesc(fromid));
}

var childs = VBArray(pdm.Childs(fromid, 0)).toArray();
for (var i = 0; i < childs.length; i++)
{
IterateKNW(childs[i], false);
}
}

//обновить обозначения и описания знаний указанной ветки (спуск вниз)
function UpdateKNWRev0(fromid)
{
IterateKNW(fromid, false);
}

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

2. Тоже скриптом. Они (скрипты) в TDMS выполняются с правами админа и есть функция определения прав. Но лучше, на мой взгляд, если одна часть прав будет наследоваться от предков (типа ReadOnly), а остальная часть прав выдаваться соответствующими командами от соответствующих людей. Т.е. сделать, например, команду "Назначить исполнителем отдел АС" и группе АС будут даны права на объект и его потомков. Ну а команду вызовет ГИП, например.

Сообщение отредактировал Alxd - 4.01.2007 - 09:06

[Kvant]

За это спасибо, это в принцыпе понятно и хранение базы в SQL решает подобные проблемы.
(я в принципе подобное делеал когда писал табельный учет)
Но как быть с паролями.
Пароли в домене меняются ежемесячно и забивать юзерам голову несколькими поролями не хотелось бы. (не настоко они продвнутые, с Логоном у них все еще много проблем. пр логин на почту я ваще молчю).
Меня больше интересует авторизация.
Идеальный вариант конечно чтоб клиент логинился автоматом темже логином каким вошол в систему.
Возможно ли это в принцыпе или нет ?

[Luka]

Kvant
Вроде как обещают в 3-ке синхронизацию с Active Directory..

Сообщение отредактировал Luka - 5.01.2007 - 10:24

[Alxd]

2 Kvant
Вот это не подскажу. Но теоретически возможно, ведь тот же radmin использует либо свою авторизацию, либо виндовую, значит есть функция отвечающая за это. Просто реализовать это на vbscript может быть непросто.
Погляди тут http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

[Andy82]

Подскажите пожалуйста - написал скрипт на открытие документа в Solid Edge. Все вроди открывает, но только для чтения... в чем может быть загвоздка...

Dim objApp
Dim DOCUMENT
Dim msg

On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
If Err Then
'MsgBox "SE не запущен", vbCritical + vbOKOnly, "Open & Save"
Err.Clear

' Статртуем ежа.
Set objApp = CreateObject("SolidEdge.Application")

' Немогу запустить ежа
If Err Then
MsgBox "Cannot start Solid Edge.", vbCritical + vbOKOnly, "Open & Save"
End If
' Делаем ежа видемым
objApp.Visible = True
End If
Set objDoc = objApp.Documents.Open("E:\Projects\Rainbow\07\plg2.psm")
Set objDoc = Nothing
If Err Then
MsgBox "Невозможно открыть докумнет", vbCritical + vbOKOnly, "Open & Save"
Err.Clear
End If

Сообщение отредактировал Andy82 - 12.01.2007 - 14:33

[Alxd]

C SolidEdge не общался в плане COM модели, но загвоздка может быть как минимум тут:

1. Не хватает прав на документ, который пытаешься открыть, т.е. они обрублены самой TDMS.
2. Возможно, при открытии документа через COM модель, где-то надо указать, что открываешься с соответствующими привеленгиями.
3. А может у файла сразу атрибуты ReadOnly при экспорте из базы?
4. А может быть каталог, куда экпортируется (захватывается) файл дает ему такие права? Он не на шаре?

ну примерно так...

[sub777]

Подскажите пожалуйста. Есть работающая база с хранение файлов на SQL сервере (в базе)
как перевести существующие файлы в файловый сервер

[DIvan]

Народ, есть ли возможность хранить в TDMS (т.е. в БЛОБ - полях MSDE 2000) файлы в 1 Мб и более? По умолчанию размер файла стоит 500 кб. Понятно, что TDMS file server это позволяет, но проблема в том, что запустить лавтимовский релиз сабжа у меня не получается.
Релиз TDMS FILE server 2.0.121, win2003 server, MSDE 2000. Cтавлю, пачту, запускаю сервис - сервис стартует, но НЕ открывается конфигуратором, сниффер не показывает открытого порта, и вообще не проявляет активности.
При этом в БД на sql - сервере создаются таблицы (6 шт.), и прочие объекты, т.е. доступ к БД явно есть. Порт программы никто не занимает, пробовал его менять даже...
Почитав форум, прихожу к мысли, что TDMS для меня оптимальный вариант. Народ, помогите, плиз!

Сообщение отредактировал DIvan - 27.03.2007 - 11:42

[sub777]

2DIvan
посмотри здесь обсуждались вопросы по запуску File Server
с поста 174
http://forum.lavteam.org/index.php?showtopic=8046&st=160

[DIvan]

Спасибо, я уже разобрался. Даже обобщил информацию на эту тему:

TDMS Fileserver installation howto

1. Установить сервер БД MS SQL 2000, MSDE или Oracle 9.x
2. Создать на сервере БД учетную запись с правами на создание таблиц и хранимых процедур. Для MS SQL и MSDE можно использовать учетнуюзапись по умлочанию SA с пустым паролем.
3. Запустить инсталляцию TDMS file server, серийный номер указать любой.
4. Запустить мастер регистрации, указать файл product.dat в каталоге программы.
5. Cоздать или обновить БД. Придумать пароль к встроенной учетной записи SYSADMIN.
6. Указать сервер СУБД, куда был установлен сервре БД в п. 1.
7. придумать имя БД, или оставить предлагаемое, указать учетную запись БД (например SA без пароля).
8. Убрать галочки "старт файлового сервера" и "старт менеджера файдовых серверов", нажать Готово.
9. Если служба TDMS file server работает, остановить.
10. Запустить патч, который заменит ехе-файлы.
11. Разрешить взаимодействие с рабочим столом для указанной службы.
12. Чтобы при каждом пуске службы не появлялся запрос "Укажите файл лицензии или сервер лицензирования", сделать в реестре запись вида
HKEY_LOCAL_MACHINE\SOFTWARE\FLEXlm License Manager] "CSOFT_LICENSE_FILE"="ПУТЬ СЮДА!"
13. Запустить службу.

[DIvan]

Уважаемые знатоки TDMS! Сперва перечислю мои шаги по разработке системы:
1. Я предварительно собрал информацию о документации, существующей на предприятии.
2. Выделил поле для автоматизации - конструкторов (чертежи CAD) и технологов (маршрутно-материальные спецификации, технология огнереза, технология ТВЧ, технология ЧПУ).
2. Набросал ТЗ простенькой структуры (но с мыслями о ее развитии). Дерево выглядит примерно так:
-Заказ
---спецификация
-----чертеж
-----чертеж
-----спецификация подсборки
-------чертеж подсборки
--------- ММС на деталь чертежа подсборки
--------- ТК огнереза на деталь чертежа подсборки
--------- ТК ТВЧ на деталь чертежа подсборки
--------- ТК ЧПУ на деталь чертежа подсборки
3. Реализовал ее и отработал с конструктором и технологом. Народ в целом остался доволен.

Если не возражаете, у меня есть несколько вопросов по сути работы с сабжем.
1. Конструктора используют CAD T-flex, который вставляет в сборочные чертежи информацию о файлах с подсборками, т.е. работает не с одним файлом, а сразу с пакетом. Хранить всю сборку в одном объекте нет смысла, т.к. струткура документации нужна технологу в развернутом виде. Чего посоветуешь? Может, написать процедуру для выгрузки - загрузки файлов пакетом?
2. Нет ли возможности открывать файлы (word, например) командой Чтение в режиме read-only? Реально, человек может долго редактировать, потом закрыть, сохранив файл вникуда
3. Самое интересное. У меня есть объект, т.н. Производственный График, стержень документооборота. Его хорошо было бы представить в виде таблицы реляционной БД, в которую
а) вносились бы новые записи о заказах
б) делались отметки о выполнении текущих работ
г) делались выборки для различных служб завода
Вот, нет ли в TDMS возможности писать напрямую в БД, на которой он работает? Т.е. чтобы я себя мог чувствовать уже совсем как в Делфи

TDMS мне чем дальше, тем больше нравится своей логичностью и гибкостью. Заранее спасибо за помощь!

Сообщение отредактировал DIvan - 6.04.2007 - 09:03

[Luka]

ТДМС 3 - тестируем на баги -))

Синхронизация с доменом - без бутылки не разберешься... А я не пью -((

Сообщение отредактировал Luka - 9.04.2007 - 18:39

[Alxd]

Я на работе тоже не пью, однако именно на работе импорт почти заработал. Сначала после вызова команды импорта в окне выбора импортируемых пользователей появился мой домен, а затем и список пользователей. Вот радости то было! Однако после выбора меня любимого, равно как и другого пользователя и нажатия на "красную" кнопку получил облом. Типа пользователь не найден! Вот-с

Отрадно, что работает возврат значений атрибута пользователя через код.
Sub Form_BeforeShow(Form, Obj)
dim attr_user
set attr_user = ThisObject.Attributes("ATTR_INC_USER")

dim user
set user = attr_user.User

dim attrs
set attrs = user.Attributes
dim office
set office = user.Attributes("ATTR_OFFICE")

dim static1
Set static1 = Form.Controls("STATIC1")

static1.Value = attrs.Count
for each attr in attrs
static1.Value = static1.Value & attr.Description & attr.Value
next
end sub

Однако не радует, что цвет контрола низя менять. Хреново А я так надеялся.

Но при этом можно менять цвет внутри выборки! Через RowFormat и CellFormat получаем объект TDMSTextFormat и правим! Улет! Наглядно!

Сообщение отредактировал Alxd - 9.04.2007 - 19:06

[Luka]

А я фейс контроль не прошел..

Наглядно... звиздишь, скриншот давай.. -)))

Сообщение отредактировал Luka - 9.04.2007 - 19:09

[Alxd]

Да без проблем, но как их прицепить на форум?

[Luka]

Во.. еще раз напомню, что нового в ТДМС 3.

Основные системные новшества
Наследование типов объектов
- Абстрактные типы объектов
- Множественное наследование
- Динамическое (позднее) связывание
Новый тип данных
- Атрибуты типа таблица
- Доступ через API
Профили пользователей
- Возможность настройки интерфейса пользователя по профилю
- Автоматизация управления Рабочими столами профилей
Режим безопасного просмотра документов
- Встроенная программа просмотра файлов поддерживает защищенный режим просмотра «Только в памяти» (нет прямого доступа и возможности сохранения файла).
Новый инструмент управления базами данных
- Основные функции управления базами данных выведены в отдельное приложение
- Новый инструмент обновления версий TDMS по сети
- Обновление базы с возможностью вывода списка подключенных пользователей и рассылки сообщений
- Встроенная возможность создания/восстановления резервных копий баз данных
- Подключение и автоматическая дистрибуция низкоуровневых программных надстроек (Add-Ins)
Улучшена масштабируемость
- Новая идеология подключения файловых серверов
- Кэширование файлов при работе через файл-сервер
- Кэширование файлов на рабочем месте
- Реализация атрибутов типа таблица на физическом уровне СУБД
Реализован механизм подписей
- Системная реализация подписей
- Возможность автоматического и программного управления подписями
Качественно улучшены
Новое свойство иерархической связи
- Первичная (главная) связь, образуемая в момент создания объекта
- Общее системное свойство у потомков «Родитель».
- Возможность переопределения первичной связи
Расширение свойств пользователя и подразделений
- Дополнительные атрибуты пользователя, подразделений
- Дополнительные атрибуты связи пользователей и подразделений
Более гибкая модель работы с классификаторами
- Классификаторы выделены в самостоятельное понятие
- Классификатор можно привязать к произвольному количеству атрибутов
Доработана почтовая система
- Возможность авторизованного просмотра почты других пользователей
- Автоматическая пересылка, уведомления об отсутствии пользователя, свойства "не доставлять до" и "Недействительно после"
Доработан импорт/экспорт
- Экспорт/импорт внесенных изменений
- Введены режимы импорта (оставить, заместить, создать версию)
- Экспорт/импорт данных вместе с правами доступа (ролями)
Улучшения в пользовательском интерфейсе
Настройка отображения листа
- Выбор отображаемых колонок
- Фильтрация
- Сортировка
- Форматирование вывода данных: установка шрифта, цвета, границ
Выборки на формах
- Результат работы выборки может быть отображен непосредственно на форме объекта
Управление элементами форм программным образом
- Управление элементами форм: видимость, доступность, формат, расположение и размеры
Инициализация атрибута типа ссылка на объект
- Предварительная фильтрация объектов по результатам запроса
- Настройка способа отображения результата запроса: таблица или дерево
Управление контекстным меню
- Программное переопределение контекстного меню
- Запуск пользовательских команд на группе объектов
Новые средства настройки системы
Качественно переработанный инструмент по созданию выборок
- Объединения свойств разных типов объектов
- Визуализация связей
- Более простой и гибкий мастер
- Использование в одном запросе других выборок
- Получение результатов выборки непосредственно в редакторе
- События на выборках
Мастер универсальных отчетов
- Excel
- List&Labels (встроен в систему)
- Crystal Reports
Переработанный редактор скриптов
- Немодальное окно редактора
- Диалоги настройки команд, атрибутов, пользователей
- Свойства системных элементов
Категории системных объектов
- Произвольная группировка системных свойств
- Быстрая навигация по категориям
Системные обработчики
- Общесистемные события
- События на профили
- События по таймеру
Дополнения в API
- Передача функциям параметров произвольного типа
- Дополнительные диалоговые окна
- Дополнительные события
- Словари, сохраняемые переменные
- Расширение/дополнение системных и частных свойств и методов

В последних сборках может и еще чего, может кто и поделится (надежда последней)