1 (изменено: afoninaanna, 27-11-2015 16:00:15)

Тема: Получение полного классификатора

Добрый день! Умные люди, подскажите, пожалуйста, как программно получить в текстовом виде полный классификатор выбранной номенклатуры.

Re: Получение полного классификатора

Запустить в номенклатурном справочнике макрос

Sub FormMacro_ShowNodePath( TCSActiveModule )'Тест полного пути
   if Not TCSActiveModule.IsEmpty then
       Set Node = TCSActiveModule.DbTree.DbNodeByNodeId( TCSActiveModule.p_NODE_ID.AsInteger )
       'Dim Node as IDbNode
       if Not Node is Nothing Then
          Call TCSApp.ShowMessageBox( "Поный путь", Node.FullPath( "\\" ) )
       Else
         Call TCSApp.ShowErrorMessage( "Не могу найти ноду!" )
       End If
   Else
     Call TCSApp.ShowErrorMessage( "Выберите запись!" )
   End If
End Sub
Спасибо сказали: afoninaanna1