КОП "ПоставщикДанных.ДеревоЗначений"

[newbas]

Думал уже завязал с клюшками, а нет - еще есть спрос..
Не поделится кто-нибудь примером работы с "ПоставщикДанных.ДеревоЗначений"
что-то никак не могу его победить.
Примеры и КОП в одной конфе с 1С++ форума не качаются, сам форум "READ-ONLY"

[Грузчик]

На форме две кнопки с идентификаторами "ТП" и "ПУ".
Модуль:

Код Выделить Развернуть

Перем ПоставщикДанных;
    
//СтрокиДереваЗначений//:СтрокиДереваЗначений

Процедура ПослеСозданияФормы()
    ПоставщикДанных = СоздатьОбъект("ПоставщикДанных");
    ПоставщикДанных.ТипЗначений = "ДеревоЗначений";
    ПоставщикДанных.КонтейнерКоманднойПанели = "ПУ";
    ПоставщикДанных.КонтейнерТабличногоПоля  = "ТП";
    
    Данные = ПоставщикДанных.Данные;
    Данные.СоздатьКнопкиПоУмолчанию();
    
    
    Данные.НоваяКолонка("ИмяУровня","Строка",,,"Имя уровня");
    //Данные.НоваяКолонка("НомерУровня","Число",,,"№ уровня");
    Данные.НоваяКолонка("Значение","Число",,,"Значение",,1);
    Данные.КолонкаПиктограмм = "ИмяУровня";
    
    ДеревоЗначений = Данные.ДеревоЗначений;
    
    Для Н = 1 По 10 Цикл
        СтрокаН = ДеревоЗначений.НоваяСтрока();
        //    ДеревоЗначений.Пиктограмма    = Н;
        ДеревоЗначений.ИмяУровня   = "Уровень № "+ДеревоЗначений.Уровень;
        //ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
        ДеревоЗначений.Значение    = Н;
        
        Для Н1 = 1 По 5 Цикл
            СтрокаН1 = ДеревоЗначений.НоваяСтрока(СтрокаН);
        //    ДеревоЗначений.Пиктограмма    = Н1;
            ДеревоЗначений.ИмяУровня   = "Уровень № "+ДеревоЗначений.Уровень;
            //ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
            ДеревоЗначений.Значение    = Н1;
            
            Для Н2 = 1 По 4 Цикл
                СтрокаН2 = ДеревоЗначений.НоваяСтрока(СтрокаН1);
        //    ДеревоЗначений.Пиктограмма    = Н2;
                ДеревоЗначений.ИмяУровня   = "Уровень № "+ДеревоЗначений.Уровень;
                //ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
                ДеревоЗначений.Значение    = Н2;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;
    
    ПоставщикДанных.Обновить();
    Сообщить("ПоставщикДанных.Версия="+ПоставщикДанных.Версия);
КонецПроцедуры

Не знаю, насколько это "хрестоматийный пример от создателя", да и вообще откуда он у меня.