Правленный файлик, для тех, кто не любит копаться в источниках.

Точно... Век живи...

ну вот теперь есть список методов

trdm писал(а) 15. Марта 2007 :: 09:24:


Во блин, точно - век живи - век учись. Круто. Огромное спасибо!

Arta писал(а) 15. Марта 2007 :: 11:50:


Пока нет. В данном случае, DataSource - это таблица в памяти.

Arta писал(а) 15. Марта 2007 :: 11:50:


А зачем tag? Я вот так делал:
     Поле1 = ИсточникДанных1.AddField("IdDoc", 1);
     Поле1.Size = 9;
     Поле2 = ИсточникДанных1.AddField("PredstDoc", 1);
     Поле2.Size = 200;
     Поле0 = ИсточникДанных1.AddField("ViDoc", 1);
     Поле0.Size = 9;
...
     ИсточникДанных1.Append();
     Поле1.Value            = тзРез.ИдДок;
     Поле2.Value            = тзРез.ПредставлениеДокумента;
     Поле0.Value            = тзРез.ВидДок;
...
     Колонка                              = Левел1.AddColumn("IdDoc", 1);
     Колонка.Visible                  = 0;
     Колонка                              = Левел1.AddColumn("ViDoc", 1);
     Колонка.Visible                  = 0;
     Колонка                              = Левел1.AddColumn("PredstDoc", 1);
     Колонка.VisibleWidth      = 300;
     Колонка.Caption                  = "Документ";
...

Процедура текстДерево_OnDblClick() Экспорт
     Выделенное      = оДерево.Объект.SelectedItems;
     
     Если Выделенное.LevelName(0) = "L1" Тогда
           ИдДок            = Выделенное.Values(0,0);
           ВидДок            = Выделенное.Values(0,1);
           ТекЭлемент      = РадугаСервис.ЗначениеИзСтрокиБД(12, Число(ВидДок), ИдДок);
     Иначе
           Возврат;
     КонецЕсли;

     глОткрытьЭлементСправочникаДокумент(ТекЭлемент);
КонецПроцедуры

Arta писал(а) 14. Марта 2007 :: 23:28:

Активикс хороший, но дело даже не в этом.

У Олега полно интересных разработок и идей, но фриварных раньше замечено не было.
Вдруг, это позитивная тенденция?

Раз уж ты согласен со свободным доступом, выложил бы сам : )

ЗЫ я помнится, в свое время (1000 лет назад) так на тебя и вышел в первый раз, искал какую-то твою ВК

ЗЗЫ лично у меня ничего закрытого из твоих ВК нет, к сожалению

Что то у меня не получается второй уровень заполнить, первый (документ) заполняется, а второй не ясно.. вроде как он существует, но не разворачивается. Вроде все по примеру пробую, поскажите...
Процедура Заполнить()   
     Левелс = оДерево.Объект.Levels;
     
     Левел            = Левелс.Add("L1");
     Левел.ID      = "RecId";
     
     Колонка1                        = Левел.AddColumn("Doc", 1);
     Колонка1.VisibleWidth      = 200;
     Колонка1.Caption            = "Документ";
     
     Левел.AddColumn("Date", 1);
     Колонка2                        = Левел.GetColumn(1);
     Колонка2.VisibleWidth      = 300;
     Колонка2.Caption            = "Дата";   
     
     Колонка3                        = Левел.AddColumn("Time", 1);
     Колонка3.VisibleWidth      = 150;
     Колонка3.Caption            = "Номер";   
     
     Колонка4                        = Левел.AddColumn("Cust", 1);
     Колонка4.VisibleWidth      = 300;
     Колонка4.Caption            = "Контрагент";
     
     Колонка5                        = Левел.AddColumn("Sum", 1);
     Колонка5.VisibleWidth      = 150;
     Колонка5.Caption            = "Сумма";   

     Левел2 = Левел.Levels.Add("L2");
     Левел2.AddColumn("Invent", 1).VisibleWidth = 400;
     Левел2.AddColumn("Quantity", 1).VisibleWidth = 100;
     Левел2.AddColumn("Sum", 1).VisibleWidth = 100;   
     
     Левел2.ID = "RecId";
     Левел2.MasterKey = "Invent";
     Левел2.DetailKey = "Invent";
     
     ИсточникиДанных            = оДерево.Объект.DataSources;
     ИсточникДанных1            = ИсточникиДанных.Add();

     Поле1 = ИсточникДанных1.AddField("Doc", 1);
     Поле2 = ИсточникДанных1.AddField("Date", 1);
     Поле3 = ИсточникДанных1.AddField("Time", 1);
     Поле4 = ИсточникДанных1.AddField("Cust", 1);
     Поле5 = ИсточникДанных1.AddField("Sum", 1);      
     
     
     Поле1.Size = 300;
     Поле2.Size = 100;
     Поле3.Size = 100;
     Поле4.Size = 300;
     Поле5.Size = 100;
     
     ИсточникДанных1.DisableControls();
     ИсточникДанных1.Open();   
     
     Док = СоздатьОбъект("Документ.РасходнаяНакладная");
     Док.ВыбратьДокументы(НачДата,КонДата);
     
     //Пока Док.ПолучитьДокумент() = 1 Цикл    
           Док.ПолучитьДокумент();
           ИсточникДанных1.Append();
           Поле1.Value = Док.Вид();
           Поле2.Value = Док.ДатаДок;
           Поле3.Value = Док.НомерДок;
           Поле4.Value = Док.Контрагент.Наименование;
           Поле5.Value = Док.Итог("СуммаСНДС");
           
           ИсточникДанных1.Post();
           ИсточникДанных1.EnableControls();    
              
           ИсточникДанных2            = ИсточникиДанных.Add();
           ИсточникДанных2.AddField("Invent", 1).Size = 400;
           ИсточникДанных2.AddField("Quantity", 1).Size = 100;
           ИсточникДанных2.AddField("Sum", 1).Size = 200;
                          
                 Поле1 = ИсточникДанных2.Field(1);
                 Поле2 = ИсточникДанных2.Field(2);
                 Поле3 = ИсточникДанных2.Field(3);
                 
                 ИсточникДанных2.DisableControls();
                 ИсточникДанных2.Open(); 
           
           Док.ВыбратьСтроки();
           Пока Док.ПолучитьСтроку() = 1 Цикл 
                 ИсточникДанных2.Append();
                 Поле1.Value = Док.Товар.Наименование;
                 Поле2.Value = Док.Количество;
                 Поле3.Value = Док.СуммаСНДС;   
                 ИсточникДанных2.Post();
                 ИсточникДанных2.EnableControls();
           
           КонецЦикла; 

     
      
           //      КонецЦикла;   
     
           
           Левел.DataSource      = ИсточникДанных1;
           Левел2.DataSource      = ИсточникДанных2;
           
     оДерево.Объект.HighlightStyle = Стиль3;

     Левел.HeaderStyle      = Стиль1;
     Левел.CaptionStyle      = Стиль3;
     Левел.ContentStyle      = Стиль4;
     
     Левел2.HeaderStyle      = Стиль2;
КонецПроцедуры