Форумы Интермех
 ° Начало ° Ответить ° Статистика ° Регистрация ° Поиск ° RSS ° Wiki °

Форумы Интермех / Search, ImProject / Прописать номер изменения в атрибуты файла
Автор Сообщение
Коновалов Михаил
Участник
ОАО РИРВ (СПб)

Дата: 27 Мар 2007 11:38:20


В Serche есть настройка "Прописать номер изменения в атрибуты файла документа после включения его в извещение" (см. Сервис/Конфигурация/Общие настройки/Извещения).
Как написано в документации, если включить - после включения док-нта в ИИ в файл документа будут прописаны атрибуты "N Извещения=Обозначение извещения" и "Изменение=Номер изменения".
Что-то я не могу понять где можно увидить эти атрибуты?


Krud
Участник
ООО "ПК "НЭВЗ" Новочеркасск

Дата: 28 Мар 2007 11:09:04


А в какой версии Search есть такая настройка?

Коновалов Михаил
Участник
ОАО РИРВ (СПб)

Дата: 28 Мар 2007 11:58:53


Начиная с версии Search 8.2 sp11.

NEP
Участник
Санкт-Петербург

Дата: 28 Мар 2007 18:06:14


Насколько я понимаю, это для CAD систем.

Коновалов Михаил
Участник
ОАО РИРВ (СПб)

Дата: 28 Мар 2007 18:23:31


Т.е. в частности для документов SolidWorks?

А для других типов документов никак нельзя прописать № извещения и номер изменения в атрибуты?

NEP
Участник
Санкт-Петербург

Дата: 30 Мар 2007 12:11:33


Если, имеете ввиду документы AVS, садм, то все можно. В структуру архива вводите соответствующие поля. Аналогичные вводите в структуру ини AVS и в stm.cfg и настраиваете вывод. Для текстовых пишится макрос. Пример макроса могу выслать, но не доделанный. Получила от niki. Если у Вас есть кому дописать, то с удовольствием получу обратно. При этом должен быть активизирован (установлен) ODMA.ops:

Коновалов Михаил
Участник
ОАО РИРВ (СПб)

Дата: 30 Мар 2007 15:35:05


Вышлите, пожалуйста, макрос (konovalov.ma @ mail.ru), попробуем доработать...

NEP
Участник
Санкт-Петербург

Дата: 1 Июн 2007 13:38:33


Цитата: Коновалов Михаил
Вышлите, пожалуйста, макрос (konovalov.ma @ mail.ru), попробуем доработать...

Мы разработали макрос связи документов Word и Search:
1. Создание документа *.doc и введение его в архив.
2. Создание документа *.doc или *.rtf непосредственно в Search с переходм в Word.

Коновалов Михаил
Участник
ОАО РИРВ (СПб)

Дата: 1 Июн 2007 14:09:42


А можно посмотреть на него? А то мы так толком его и не даделали... ops:

Jk
Участник
НПП Интермех

Дата: 1 Июн 2007 17:28:56


NEP присоединяюсь к просьбе
А можно его прямо тут выложить?

я могу предложить набор нескольких макросов для работы с Search из Word:

Sub imsWriteProp(SApp As S4.TS4App, Propname As String, SrchName As String)
   Dim val As String
   val = SApp.GetFieldValue(SrchName)
   On Error Resume Next
     ActiveDocument.CustomDocumentProperties.Add Name:=Propname, _
         LinkToContent:=False, Value:=val, Type:=msoPropertyTypeString
     ActiveDocument.CustomDocumentProperties(Propname).Value = val
   On Error GoTo 0
End Sub

Sub imsCard()
    'MsgBox (Application.ActiveDocument.FullName)
    Dim SApp As New S4.TS4App
    k = SApp.Login
    If k > 0 Then
        k = SApp.GetDocID_ByFilename(ActiveDocument.FullName)
        If k > 0 Then
            SApp.OpenDocument (k)
            SApp.EditParameters
            If SApp.GetDocStatus = SApp.GetUserID Then
                imsWriteProp SApp, "Обозначение", "DESIGNATIO"
                imsWriteProp SApp, "Наименование", "NAME"
                'ActiveDocument.Fields.Update
                'ActiveDocument.Sections.First.Footers(1).Range.Fields.Update
            End If
        Else
            MsgBox ("Документ не зарегистрирован в Search")
        End If
    End If   
End Sub

Sub imsCheckIn()
    Dim SApp As New S4.TS4App
    k = SApp.Login
    If k > 0 Then
        k = SApp.GetDocID_ByFilename(Application.ActiveDocument.FullName)
        If k > 0 Then
            SApp.OpenDocument (k)
            SApp.CheckIn
            ActiveDocument.Reload
        Else
            MsgBox ("Документ не зарегистрирован в Search")
        End If
    End If
End Sub

Sub imsCheckOut()
    Dim SApp As New S4.TS4App
    k = SApp.Login
    If k > 0 Then
        k = SApp.GetDocID_ByFilename(Application.ActiveDocument.FullName)
        If k > 0 Then
            SApp.OpenDocument (k)
            SApp.CheckOut
            ActiveDocument.Reload
            'ActiveDocument.ReadOnly = False
        Else
            MsgBox ("Документ не зарегистрирован в Search")
        End If
    End If
End Sub




собственно макроса три:
1. imsCard - карточка документа
2. imsCheckIn - вернуть документ в архив
3. imsCheckOut - взять документ на редактирование

Все они больше в качестве примера, нежели для полноценной работы, но никто не мешает доделать под свои нужды (если есть кому).

Можно их добавить в шаблон документа в ворде (и заодно этот шаблон добавить в прототипы для документа ворда в Search). Сделать в этом шаблоне панель инструментов "Search" и вынести кнопки с этим макросами на эту панель

PS. 2-ой макрос записывает атрибуты обозначени/наименование документа из Search в свойства файла .doc, которые можно просмотреть даже из проводника.
Еще в ворде можно вставить эти свойства как "поля" в сам документ (меню ворд "Вставка/Поле" - потом выбрать там DocProperty, нажать кнопку "Коды поля" и ввести код: DocProperty "Обозначение") и т.о. текст документа будет связан с его свойствами.
PPS. Для нормальной работы этих скриптов Search должен быть уже запущен.

NEP
Участник
Санкт-Петербург

Дата: 4 Июн 2007 10:21:22 ° Поправил: NEP


Мы сделали шаблон normal_rimr.dot Worda в формате текстового документа по ГОСТ 2.104-2006 . Его используем в качестве прототипа в типах документов (текстовых) в Search. Например, для Технических условий. В нем зашит макрос. При чем учитываем и сжимание текста для граф. Вписаны все графы штампов, в том числе и боковых. Есть экспорт и импорт данных в карточку Search и из карточки, в том числе инвентарного номера.
Есть Справочное руководство с картинками, но как его выложить не знаю. Картинки пропадают.

Вышлю nike и Коновалову в четверг

eston
Участник
Санкт-Петербург

Дата: 6 Июн 2007 10:44:24


Цитата: NEP
Есть Справочное руководство с картинками, но как его выложить не знаю. Картинки пропадают.

Вот справочное рукоодство в полной версии с картинками:
http://eston.front.ru/help/Help.mht

alexpol
Участник
Санкт-Петербургская электронная компания

Дата: 3 Апр 2008 13:33:31


Цитата: NEP
В структуру архива вводите соответствующие поля. Аналогичные вводите в структуру ини AVS и в stm.cfg и настраиваете вывод.


может кто разъяснит мне подробнее, как можно это сделать?
параметры в архиве положим я сделаю, а дальше что?
куда в ini файл записать их названия и каким образом?
может существует описание структуры ini файла?

Анатолий Щебетов
Участник
НПП "ИнтерМех"

Дата: 7 Апр 2008 14:59:33


Для CAD-документов номер изменения и обозначение извещения прописываются в атрибуты файла (увидеть их можно обычно по команде Файл/Свойства в CAD-системе) автоматически.

Для СП и ПЭ3 надо выполнить дополнительные настройки.

Для спецификаций:
Откройте спецификацию в AVS
выполните Настройка/Структура файла/Поля паспорта
добавьте поля
под номером 45 - Изменение
под номером 46 - N извещения

сохраните настройки командой Настройка/Файлы настройки/Сохранить

Для перечней элементов (возможно, что будет работать только в самых
свежих сервиспаках Search):
Откройте перечень элементов в AVS
выполните Настройка/Структура файла/Поля паспорта
добавьте поля
под номером 45 - Изменение
под номером 46 - N извещения

сохраните настройки командой Настройка/Файлы настройки/Сохранить

номера полей м.б. и другие. Важно, чтобы они были под одинаковыми
номерами для СП и ПЭ3.

При включении СП и ПЭ3 в ИИ в эти поля будут прописываться номер
изменения и обозначение извещения.

alexpol
Участник
Санкт-Петербургская электронная компания

Дата: 7 Апр 2008 15:49:32 ° Поправил: alexpol



Для СП и ПЭ3 надо выполнить дополнительные настройки.
Для спецификаций:
Откройте спецификацию в AVS
выполните Настройка/Структура файла/Поля паспорта
добавьте поля
под номером 45 - Изменение
под номером 46 - N извещения
сохраните настройки командой Настройка/Файлы настройки/Сохранить

Сделал так - номера изменения и обозначения извещения не появляется.
Видимо надо что-то еще...
При этом все равно надо создавать дополнительные поля в архивах?

Algont
Участник
АЛГОНТ

Дата: 19 Мар 2013 16:42:41


Цитата: NEP
Мы сделали шаблон normal_rimr.dot Worda в формате текстового документа по ГОСТ 2.104-2006 . Его используем в качестве прототипа в типах документов (текстовых) в Search. Например, для Технических условий. В нем зашит макрос. При чем учитываем и сжимание текста для граф. Вписаны все графы штампов, в том числе и боковых. Есть экспорт и импорт данных в карточку Search и из карточки, в том числе инвентарного номера.


Никто не поделиться подобным шаблоном/макросом? Пожалуйста Для моей древней версии Search все еще актуально. Уже целый день мучаюсь с передачей параметров карточки в Word и с каждой минутой все больше чувствую себя человеком, в очередной раз изобретающим велосипед.

Ваш ответ

Bold Style  Italic Style  Underlined Style  Image Link  Insert URL 
...



Перед отправкой "нелатинского" текста проверьте кодировку броузера!
 » Логин  » Пароль 
 

На форуме сейчас: гостей - 1
пользователей - 0
Наибольшее количество посетителей: 87 [1 Янв 2017 02:23:26]
гостей - 87 / пользователей - 0


miniВВ © 2001-2022