Всем добра! Стоит задача выгрузки данных 1с в ексель. Выгрузка осуществляется некорректно, т.к. выгружаются только "родительские" строки. Возник вопрос: как сделать так, чтобы выгружались и вложенные строки? Использую следующий код (нашел в инете):

Процедура ВыгрузитьРезультатВExcel(ТаблицаРезультата)
//ЦЕЛЬ: Выгрузить данные табличной части формы в файл Excel
   Попытка
       ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
   Исключение
       Предупреждение(ОписаниеОшибки() + Символы.ПС + "программа OpenOffice не установлена на данном компьютере!");
       Возврат;
   КонецПопытки;
   Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
   Свойства = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
   Свойства.Name = "AsTemplate";
   Свойства.Value = Истина;
   Args = Новый COMSafeArray("VT_VARIANT", 3);
   Args.SetValue(0, Свойства);
   Свойства1 = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
   Свойства1.Name = "Hidden";
   Свойства1.Value = Истина;
   Args.SetValue(1, Свойства1);
   Document = Desktop.LoadComponentFromURL("private:factory/scalc", "_blank", 0, Args);
   Sheets = Document.getSheets();
   Sheet = Sheets.getByIndex(0);
   мИтКол = 0;
   Для каждого кол из ТаблицаРезультата.Колонки Цикл
       Sheet.getCellByPosition(мИтКол,0).setString(кол.Имя);
       мИтКол = мИтКол + 1;
   КонецЦикла;
   
   ВсегоСтрок = ТаблицаРезультата.Количество();
   ВсегоКолонок = ТаблицаРезультата.Колонки.Количество();
   МассивКОМ = Новый COMSafeArray("VT_VARIANT", ВсегоСтрок,ВсегоКолонок);
   иткол = 0;
   итстр = 0;

   Для каждого стр из ТаблицаРезультата Цикл                                      
       Для каждого кол из ТаблицаРезультата.Колонки Цикл
           стрРез = СокрЛП(стр[кол.Имя]);
           МассивКОМ.SetValue(итстр,иткол,стрРез);
           иткол = иткол+1;
        КонецЦикла;
       иткол = 0;
       итстр = ?(итстр=ВсегоСтрок,0,итстр+1);
   КонецЦикла;
   begCol = 0;
   begRow = 1;
   endCol = ВсегоКолонок-1;
   endRow = ВсегоСтрок;
   Range = Sheet.getCellRangeByPosition(begCol, begRow, endCol, endRow);
   Range.setDataArray(МассивКОМ);
   //Document.storeToURL(ПривестиФайлКУРЛ(ПутьКФайлу),Args);
   Свойства2 = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
   Свойства2.Name = "FilterName";
   Свойства2.Value = "MS Excel 97";
   Args.SetValue(2,Свойства2);
   Document.GetCurrentController().GetFrame().GetContainerWindow().SetVisible(Истина);
КонецПроцедуры;

Буду признателен за любую помощь

+(0) при этом выводить "корневую" строку не надо. А с этим кодомона выводится

(0) идею могу подсказать за косарик

слово РЕ-КУР-СИЯ ни о чем не говорит?

(2) Косарика у меня нету, любезнейший. Рекурсия - страшное слово, мало о чем говорит

(3) Чтобы понять рекурсию, надо понять рекурсию (с) не мое

(3) но от Вашей идейки не отказался бы!

зачем именно дерево выгружать? выгружай ТЗ с добавлением колонки "Родитель" типа таго

(3) про рекурсия прочитал, проникся. А при чем здесь она?
(7) можно примерчик, уважаемый?

(7)я в отдельной процедуре перегоняю ДЗ в ТЗ, а ТЗ потом уже выгружаю в ОО.

При работе с деревом главное понять, что каждая строка дерева это коллекция подчиненных строк (возможно пустая)

(9) ну фигово перегоняеш, если строк подчинённых нет

(10) я догадываюсь об этом. Только не могу понять, как выгружать вложенные строки, а не родительскую.

Вот так перегоняю. Что не так?


Функция ВыгрузитьДеревоЗначенийВТаблицуЗначений(ДеревоЗаказы, ТаблицаРезультата)
   Если ТаблицаРезультата = Неопределено Тогда
       ТаблицаРезультата = Новый ТаблицаЗначений;
       Для Каждого Колонка Из ДеревоЗаказы.Колонки Цикл
           ТаблицаРезультата.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения);
       КонецЦикла;
   КонецЕсли;
   Для Каждого СтрокаДерева Из ДеревоЗаказы.Строки Цикл
       ЗаполнитьЗначенияСвойств(ТаблицаРезультата.Добавить(), СтрокаДерева.Строки);
       //ВыгрузитьДеревоЗначенийВТаблицуЗначений(СтрокаДерева, ТаблицаРезультата);
   КонецЦикла;
   Возврат ТаблицаРезультата;
КонецФункции;

Процедура ОбходимДЗ(Строки)
Для каждого Строка из Строки Цикл
Если Строка.Строки.Количество() = 0 Тогда
// это нижняя ветка
Иначе
ОбходимДЗ(Строка.Строки);
КонецЕсли;
КонецЦикла
КонецПроцедуры

ОбходимДЗ(ДеревоЗначение.Строки);

Алгоритм преобразования дерева в таблицу

(15) Спасибо, но не осилил.
(14) Это для перегона из ДЗ в ТЗ?

(16) Неа - просто получение "кроны" дерева.

нужно учить одно из двух слов: рекурсия, косарик

(18) Косарик поможет осуществить твою голубую мечту?
(17) "Крона" уже с вложенными строками будет?

Помогите нубу, гуры и гурии!

Процедура ОбходимДЗ(Строки)
Для каждого Строка из Строки Цикл
Если Строка.Строки.Количество() = 0 Тогда
// в переменной Строка ветка самого нижнего уровня... без подчиненных
Сообщить("Прувет - я мелкая Ветка ");  
Иначе
// здесь в переменной Строка ветка, имеющая подчиненные
Сообщить("Хеллоу - я большаяВетка");
ОбходимДЗ(Строка.Строки);
КонецЕсли;
КонецЦикла
КонецПроцедуры

ОбходимДЗ(ДеревоЗначение.Строки);

(21) Прошу прощения за откровенную тупежку, но никак не пойму, что нужно писать в закомментаренных Вами областях :(

(22) В закомментаренных областях переменная Строка принимает последовательно (в иерархии) значения каждой ветки дерева. Следовательно можно вставить нужный обработчик для строки

(23) Беда. Как эту иерархию описать?

Представь себе дерево:

Элемент 1
- Элемент 1.1
- Элемент 1.2
-- Элемент 1.2.1
-- Элемент 1.2.2
--- Элементы 1.2.2.1
-- Элемент 1.2.3
- Элемент 1.3
Элемент 2
- Элемент 2.1


Именно в током порядке как видишь и будет осуществлен обход дерева приведенной функцией. Так где стоят комментарии, переменная Строка принимаем значение Элемент N

Может хоть так понятнее ?

Дерево себе представляю. Из Ваших постов понял (возможно, ошибочно), что в зависимости от "Строка.Строки.Количество()" циклом должны обходится либо вложенные ветки, либо родительские. Так? Если так, то не могу себе представить сам цикл

+(26) т.е. ЧТО должно быть написано в каждом случае (кол-во = о и иначе)

(27) Проверка на количество подчиненных нужна в случае если надо разделить обработчики конечных строк и имеющих подчиненные. Если такового не требуется

Процедура ОбходимДЗ(Строки)
Для каждого Строка из Строки Цикл

// вставляем обработчик для Строка
// ...

ОбходимДЗ(Строка.Строки);
КонецЕсли;
КонецЦикла
КонецПроцедуры

ОбходимДЗ(ДеревоЗначение.Строки);

Для Каждого СтрокаДерева Из ДеревоЗаказы.Строки Цикл
Для н=0 по ДеревоЗаказы.Строки.Количество()-1 Цикл
ЗаполнитьЗначенияСвойств(ТаблицаРезультата.Добавить(), СтрокаДерева.Строки[н]);
КонецЦикла;
КонецЦикла;

не так должно примерно выглядеть?

(29) А где рекурсивный вызов ? Ну обойдешь ты первый уровень ... а глубже ?

тупая ветка

Вот и не знаю :( Поэтому, собсно, обратился. ПомогЁте?

(31) Не спорю. От Ваших гениальных постов она умней не станет, дядя

(32) Ты не в состоянии использовать готовое решение. Не вижу чем тут еще можно помочь.

(34) Большое спасибо за потраченное на меня время! Буду курить матан

(34) рекурсивный вызов это вызов процедуры в самой себе?

(36) Да

Запилил так: (процедра называется "ВыгрузитьДеревоЗначенийВТаблицуЗначений(ДеревоЗаказы, ТаблицаРезультата)")

Для Каждого СтрокаДерева Из ДеревоЗаказы.Строки Цикл
   Для н=0 по ДеревоЗаказы.Строки.Количество()-1 Цикл
       ЗаполнитьЗначенияСвойств(ТаблицаРезультата.Добавить(), СтрокаДерева.Строки[н]);
       ВыгрузитьДеревоЗначенийВТаблицуЗначений(ДеревоЗаказы, ТаблицаРезультата);
   КонецЦикла;
КонецЦикла;


Рухнуло все и 1с закрылась :(

(36) его уже в школе в старших классах учат, зачем ты с 5-го решил заняться программированием, подрасти надо

(39) А я люблю сразу со сложного начинать. Вот сидел, беседовал с мудрым человеком. А тут рррраз! и Наимудрейший самый ценный в этой ситуации Секрет открыл! Расти, говорит, надо! Спасибо огромное! Жизнь моя отныене никогда не будет прежней! Спасибо!

(40) главное - скажи нет наркотикам и все получиться)

(37) в (38) суть верна? Не могу проверить, падает 1с :(

(41) Я с постижением Великой Истины сказал нет всему: еде, друзьям, сну. На наркотики и раньше не было времени, куда уж теперь

ВыгрузитьДеревоЗначенийВТаблицуЗначений(ДеревоЗаказы

ты в рекурсию передаешь тот же узел, что вошел в текущий вызов и как итог зацикленность и падение, я же говорю расти надо

(44) Спасибо. А как же её тогда вызывать, енту рекурсию?

(45) загуглить и найти на викии статью "Рекурсия для самых маленьких"

(46) в вики про рекурсию все ясно. Даже для не самых маленьких. А в 1С не совсем. Думаю, подсказав чуток, Добрый Дядя приблизил бы Юного Падавана к изучению Матана.

(45) Падает очевидно потому что зацикливается. Как вызывать смотри (14) (21) (28)

(47) рекурсия в Африке рекурсия и нечего врать, что в 1С она по другим правилам работает

и я не потакаю лени, хотел написать и тупости тоже, но это будет не политкорректно

(49) а что же так несмело? или боитесь, что пативен выедет в НЭзалЭжну? Так и написали бы. Я не говорю, что в 1С она работает по другому. Пршу ткнуть носом посильнее в то место, где её внедрить.

По мотивам (13) твое творения должно выглядеть примерно так:


Функция ВыгрузитьДеревоЗначенийВТаблицуЗначений(ДеревоЗаказы, ТаблицаРезультата)
   Если ТаблицаРезультата = Неопределено Тогда
       ТаблицаРезультата = Новый ТаблицаЗначений;
       Для Каждого Колонка Из ДеревоЗаказы.Колонки Цикл
           ТаблицаРезультата.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения);
       КонецЦикла;
   КонецЕсли;

   ОбходимДЗ(ДеревоЗаказы.Строки, ТаблицаРезультата);
       Возврат ТаблицаРезультата;
КонецФункции;



Процедура ОбходимДЗ(Строки, ТЗ)
   Для каждого Строка из Строки Цикл
       ЗаполнитьЗначенияСвойств(ТЗ.Добавить(), Строка);
       ОбходимДЗ(Строка.Строки, ТЗ);
   КонецЦикла;
КонецПроцедуры

(50) на понт меня решил взять, щенок?)

тебя уже ткнули и не раз, до свидания

На кол бы Вас взять, дядя. прямо неполиткорректной хохляцкой ж*пой, да погулбже! А вообще, в хохлостане, я гляжу, все боксеры! Кто в Раде, кто по-переписке! Неунывающие такие пенсионеры))

(53) да я живу в демократической стране, в которой каждый имеет право быть клоуном - не завидуй!)

(54) Не забудьте, пожалуйста, принять свой галоперидол. Сегодня лучше даже двойную дозу. До свидания!

(55) пока, карапуз)

(51) Огромное спасибО! Все работает! Еще раз благодарю за потраченные нервы и время!

деньги в кассу форума занесите, не забудьте

(58) а вы не подмазывайтесь, гражданин! Вот заебдетесь также, тогда поговорим