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

Тема: Как найти название раздела архива из "Выборок"

Здравствуйте! Надо найти название раздела архива верхнего уровня для документа "Выборки".
Меня устроило бы воспользоваться, например, .FullPath("\").
В "Выборках" запускаю макрос...
Перехожу на запись архива 

    Set DOC_module = TCSapp.SingleDoc(CSDN_Const.dspSearchDocByVerID, TCSActiveModule.Properties("PRJVER_ID").AsInteger) 'T
    DOC_Tree_Id = DOC_module.Properties("TREE_ID").AsInteger 
    If Not DOC_module.DbTree.Expanded Then DOC_module.DbTree.Expanded = True
    set NodeDoc = DOC_module.DbTree.DbNodeByNodeId(DOC_Tree_Id)
    path= NodeDoc.Text 
    path_full= NodeDoc.FullPath("\")

На DOC_module.DbTree пишет "Объект не поддерживает свойство или метод".
Понимаю, то, что выполнялось с TCSActiveModule не выполняется с DOC_module.
Пробовала использовать

TCSApp.Archive.DbTree.DbNodeByNodeId(DOC_Tree_Id)

, но тоже ошибка
"Object is no longer valid
CSDN.DbTree".
Пробую предварительно раскрыть дерево 

If Not TCSApp.Archive.DbTree.Expanded Then TCSApp.Archive.DbTree.Expanded = True

ошибка "Объект не поддерживает это свойство или метод: 'TCSApp.Archive.DBTree.Expanded'"
Помогите, пожалуйста, разобраться.

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

Re: Как найти название раздела архива из "Выборок"

https://forum.technologics.ru/post8030.html#p8030

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

Re: Как найти название раздела архива из "Выборок"

Sub FormMacro_Derevo_0(TCSActiveModule)

'   NameTree = TCSActiveModule.DBTree.Selected.ParentNode.Text
'   ID_Tree = TCSActiveModule.DBTree.Selected.ParentNode.NodeID
Set Node = TCSActiveModule.DBTree.Selected
If Node.NodeID = -1 Then Exit Sub
   NameTree = Node.Text
   ID_Tree = Node.NodeID
   Call TCSApp.ShowMessageBox(ID_Tree, NameTree )
Do While True
'   If Node.ParentNode.NodeID = -1 Then : Exit Do
   Set NNode = Node.ParentNode
   Set Node = NNode
   NameTree = Node.Text
   ID_Tree = Node.NodeID
   Call TCSApp.ShowMessageBox(ID_Tree, NameTree )
   If Node.ParentNode.NodeID = -1 Then : Exit Do
Loop
   NameTree = Node.Text
   ID_Tree = Node.NodeID
   Call TCSApp.ShowMessageBox(ID_Tree, NameTree )

End Sub