• snake
  • Участник
  • Неактивен
  • Откуда: Чебоксары Версия TCS 6.3.0.0
  • На форуме с 24 марта 2010
  • Сообщений: 103

Тема: Редактирование заголовочных реквизитов техпроцесса

Можно ли средствами API отредактировать заголовочные реквизиты техпроцесса?
Попытки типа

On Error Resume Next
Set TCSZagRekv = TCSActiveModule.ChildModules.ModuleByName("VersionHeader").AsIDispatch
TCSZagRekv.First
Do While Not TCSZagRekv.EOF
        If TCSZagRekv.Properties("PHEADTYPE_NAME").DisplayText = "Разработал" Then
Call TCSZagRekv.Edit
            TCSZagRekv.Properties("PHEAD_VALUE").Value = r_1
Call TCSZagRekv.SaveChanges
Call TCSZagRekv.CancelChanges
...
        End If
       TCSZagRekv.Next
Loop

результата не дают - модуль не допускает редактирования.
Посоветуйте, пожалуйста.

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

Re: Редактирование заголовочных реквизитов техпроцесса

ChildModules доступны только для чтения и могут меняться от версии к версии ChildModules As IChildModules ( PropertyGet ), так что искать там редактирование бесполезно.

А так свойство VersionHeader у версии.

Используйте TCS Prop Explorer.

Спасибо сказали: snake1

  • На форуме с 3 декабря 2008
  • Сообщений: 137

Re: Редактирование заголовочных реквизитов техпроцесса

Наверно так:

Set Module_1 = TCSActiveModule.Properties("CurrentVersion").AsIDispatch
If  Not Module_1 Is Nothing Then 
  Set TCSZagRekv = Module_1.Properties("VersionHeader").AsIDispatch
  If  Not TCSZagRekv Is Nothing Then 
    TCSZagRekv.First
Do While Not TCSZagRekv.EOF
        If TCSZagRekv.Properties("NAME").DisplayText = "Разработал" Then
Call TCSZagRekv.Edit
            TCSZagRekv.Properties("VALUE").Value = r_1
Call TCSZagRekv.SaveChanges
Call TCSZagRekv.CancelChanges
...
        End If
       TCSZagRekv.Next
Loop     
  End If
  Set TCSZagRekv = Nothing
End If
Set Module_1 = Nothing
Спасибо сказали: snake1

  • snake
  • Участник
  • Неактивен
  • Откуда: Чебоксары Версия TCS 6.3.0.0
  • На форуме с 24 марта 2010
  • Сообщений: 103

Re: Редактирование заголовочных реквизитов техпроцесса

Спасибо, "прямо на блюдечке подносите"!