на форме есть табл. поле с типом дерево значений, при открытии хотелось бы заполнять это поле из запроса. Запрос к справочнику организаци возвращает результат с группировкой по родителям, вот и хотелось бы отразить это в виде дерева на форме.
КАК?

см параметры выгрузить()

ОбходРезультатаЗапроса.ПоГруппировкамСИерархией

спасибо, я и говорю в результате запроса есть дерево, и на форме есть табличное поле с типом дерево, как в него загрузить результат запроса?

блондинко?

Дерево = Запрос.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

Дерево - данные табполя...

(4) шатенка!!! фотко нет! :)
Дерево.Значение = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией).Скопировать();

вот так взлетело...

"шатенка!!! фотко нет! :)" - бугога

Подскажите пожалуйста как получить одним запросом дерево состоящее в корневых ветвях из подразделений и разворачивающиеся на вложенное дерево оформленных на эту организацию ОС. типа так:

- Подразделение1
   - Офис -(группа справочника ОС)
     ОС стол
     ОС стул
     ОС комп
   - Склад
     ОС Станок
- Подразделение2
   - Магазин
     ОС прилавок.....


у меня после выгрузки запроса "ПоГруппировкамСИерархией" выходит только в 2 колонки Подразделение и ОС.
Выбираю из регистра сведений МестонахождениеОС.Срезпоследних как правильно запрос построить?

апну

подскажите пожалуйста срочно нужно :(

запрос в студию...

(7) извиняюсь за ошибку :)
а Скопировать() - лишнее...

//Текст сформирован автоматически обработкой Универсальная консоль отчетов 2.6.7
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    МестонахождениеОССрезПоследних.ОсновноеСредство,
   |    МестонахождениеОССрезПоследних.Местонахождение
   |ИЗ
   |    РегистрСведений.МестонахождениеОС.СрезПоследних КАК МестонахождениеОССрезПоследних
   |
   |СГРУППИРОВАТЬ ПО
   |    МестонахождениеОССрезПоследних.Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство";
   Результат = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

   Возврат Результат;



Возвращает 2 колонки...

(13) Без Скопировать(), просто срабатывала проверка на равенство, возвращающая ложь, а присвоения значения не происходило...

Всеже интересно можно такое дерево одним запросом получить или нет?
помогите написать :)

надежда умирает последней... я еще здесь и жду вашей помощи :)

(15) ну-ну...

А итоги где? Хочу итоги :)

(14) Добавь в запрос
ИТОГИ ПО Местонахождение ИЕРАРХИЯ

Спасбо  ptiz, появилось дерево, но ОС по-прежнему выходят второй колонкой, как бы сделать чтобы все попало в одну колонку дерева, и ОС размещались под подразделением владельцем?

   //Текст сформирован автоматически обработкой Универсальная консоль отчетов 2.6.7
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    МестонахождениеОССрезПоследних.Местонахождение КАК Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство КАК ОсновноеСредство
   |ИЗ
   |    РегистрСведений.МестонахождениеОС.СрезПоследних КАК МестонахождениеОССрезПоследних
   |
   |СГРУППИРОВАТЬ ПО
   |    МестонахождениеОССрезПоследних.Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство
   |ИТОГИ ПО
   |    Местонахождение ИЕРАРХИЯ";

А мне где спасибо? Обидился. И не буду посказывать, что надо правильно группировку произвести. Но важнее - сделать итоги по нескольким реквизитам.

(22) Сергей тебе тоже Боольшое спасибо!!! :)

ну вот, понаехали тут, все спасибо расхватали... ушел плакать...

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

(23) Я рад :) Не уж то получилось? :( не удержался :)

Группировка и Итоги - различные "понятия". Группировка позволяет сгруппировать "однородные" записи, но не меняет их табличную "сущность". Итоги - вот что "создает" дерево.

(24) Зачем ушел плакать? Скажи что нибудь, доброе слово и кошке приятно... упс, сорри... я хотел сказать "и тебе спасибо скажут" :))

Я делал похожее:
Запрос = Новый Запрос("ВЫБРАТЬ
                         |    ДокументыПереоценокПринятых.Документ КАК Документ,
                         |    ДокументыПереоценокПринятых.Организация КАК Организация,
                         |    ДокументыПереоценокПринятых.Склад КАК Склад
                         |ПОМЕСТИТЬ Документы
                         |ИЗ
                         |    &ДокументыПереоценокПринятых КАК ДокументыПереоценокПринятых
                         |;
                         |
                         |////////////////////////////////////////////////////////////////////////////////
                         |ВЫБРАТЬ
                         |    ТранзитныеКонтрагенты.ПодчиненныйКонтрагент КАК Контрагент,
                         |    Документы.Документ КАК Группировка,
                         |    Документы.Склад КАК Склад,
                         |    ИСТИНА КАК Пометка
                         |ИЗ
                         |    Документы КАК Документы
                         |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ТранзитныеКонтрагенты КАК ТранзитныеКонтрагенты
                         |        ПО Документы.Организация = ТранзитныеКонтрагенты.Организация
                         |
                         |УПОРЯДОЧИТЬ ПО
                         |    Контрагент
                         |ИТОГИ ПО
                         |    Контрагент");
   Запрос.УстановитьПараметр("ДокументыПереоценокПринятых",ТЗ);
   Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   Пока Выборка.Следующий() Цикл
       СтрокаКонтрагентов = ПереоценкиТоваровОтданных.Строки.Добавить();
       СтрокаКонтрагентов.Группировка = Выборка.Контрагент;
       СтрокаКонтрагентов.Пометка = ИСТИНА;
       ВыборкаДокументов = Выборка.Выбрать();
       Пока ВыборкаДокументов.Следующий() Цикл
           ЗаполнитьЗначенияСвойств(СтрокаКонтрагентов.Строки.Добавить(),ВыборкаДокументов);
       КонецЦикла;
   КонецЦикла;

Может поможет.

(27) благодарю  NULLL я только не знакома с таким механизмом когда результат одного запроса используется как параметр другого, наверно это можно использовать в моем случае, например получить одним запросом дерево подразделений, и затем если у подразделения висят ОС вставить ему дерево его ОС???

решение так и не найдено, я пока в тупике :((

(29) а что не получается?

Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    МестонахождениеОССрезПоследних.Местонахождение КАК Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство КАК ОсновноеСредство
   |ИЗ
   |    РегистрСведений.МестонахождениеОС.СрезПоследних КАК МестонахождениеОССрезПоследних
   |
   |СГРУППИРОВАТЬ ПО
   |    МестонахождениеОССрезПоследних.Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство
   |ИТОГИ ПО
   |    Местонахождение ИЕРАРХИЯ";
Дерево.Значение = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);


что не устраивает?

(28)Смысл не в этом:

Такой должен быть запрос:
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    МестонахождениеОССрезПоследних.Местонахождение КАК Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство КАК ОсновноеСредство
   |ИЗ
   |    РегистрСведений.МестонахождениеОС.СрезПоследних КАК МестонахождениеОССрезПоследних
   |
   |СГРУППИРОВАТЬ ПО
   |    МестонахождениеОССрезПоследних.Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство
   |ИТОГИ ПО
   |    Местонахождение, ОсновноеСредство ИЕРАРХИЯ";

Автор хочет в одной колонке и Местонахождение, и ОсновноеСредство. Столбиком, друг под другом... Что тут не понятно? :)

Mitriy, это твой шанс получить спасибо :) Подскажи автору как обойти строки дерева и из одной колонки перенести значение в другую и скрыть эту колонку с показа :))

(30) нужен результат как в (9) а выходит с 2 колонками и без иерархии ОС.
- Подразделение1                         NULL    
      NULL                               ОС стол
      NULL                               ОС стул
      NULL                               ОС комп
      NULL                               ОС Станок
- Подразделение2                         NULL
      NULL                               ОС прилавок.....

а хотелось бы 1 колонкой, с иерархией сначала подразделений и потом их ОС

что то мне интуиция подсказывает что запрос здесь просто не справится...
эта технология заточена деревья выводить только по иерархически связанным источникам данных.
надеюсь я тут ошибаюсь :) а то как то медленно получится стыковать эти выборки меж собой...

Обход результата:
   Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   Пока Выборка.Следующий() Цикл
       Строка = Дерево.Строки.Добавить();
       Строка.ОсновноеСредство = Выборка.Местонахождение;
       РекурсивнаяПроцедура(Строка,Выборка);
   КонецЦикла;


Процедура РекурсивнаяПроцедура(Строка,Выборка)

  ВыборкаОС = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

  Пока ВыборкаОС.Следующий() Цикл
      НоваяСтрока = Строка.Строки.Добавить();
      НоваяСтрока.ОсновноеСредство = ВыборкаОС.ОсновноеСредство;
      РекурсивнаяПроцедура(НоваяСтрока,ВыборкаОС);
  КонецЦикла;
КонецПроцедуры  

Только тут без учета иерархии подразделений.

(33) Я уже показал, только автор не заметил.

(36)
тогда запрос типа так

   Запрос.Текст = "ВЫБРАТЬ
   |    ВЫБОР КОГДА ИСТИНА МестонахождениеОССрезПоследних.Местонахождение ИНАЧЕ МестонахождениеОССрезПоследних.ОсновноеСредство КОНЕЦ КАК Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство КАК ОсновноеСредство
   |ИЗ
   |    РегистрСведений.МестонахождениеОС.СрезПоследних КАК МестонахождениеОССрезПоследних
   |
   |СГРУППИРОВАТЬ ПО
   |    МестонахождениеОССрезПоследних.Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство
   |ИТОГИ ПО
   |    Местонахождение, ОсновноеСредство ИЕРАРХИЯ";

Дабы тип ОС у колонки был.

(38) Ну вообще у колонки должен быть составной тип данных, и

   |    ВЫБОР КОГДА ИСТИНА !!!!! Тогда !!!!! МестонахождениеОССрезПоследних.Местонахождение ИНАЧЕ МестонахождениеОССрезПоследних.ОсновноеСредство КОНЕЦ КАК Местонахождение,

Только я не пойму что это даст.

(39) ничего я так уже пробовала, вложенными, объединенными, либо выводит мусор либо вообще теряет подразделения и выводит только ОС, построитель как бы не считает связь по владельцу основанием строить по этой связи дерево...

чо тут можно 40 постов обсуждать?

(36) спасибки NULLL, для меня не составит труда состыковать эти данные после запросов, хотела одним запросом все получить...

(41) Левыч закрой тему элегантным и оригинальным решением :)

+(42)... все получить, и ничего потом не обходить :)

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Запрос = Новый Запрос;
   
   Запрос.Текст =
   "ВЫБРАТЬ
   |    ВЫБОР
   |        КОГДА ИСТИНА
   |            ТОГДА МестонахождениеОССрезПоследних.Местонахождение
   |        ИНАЧЕ МестонахождениеОССрезПоследних.ОсновноеСредство
   |    КОНЕЦ КАК Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство
   |ИЗ
   |    РегистрСведений.МестонахождениеОС.СрезПоследних КАК МестонахождениеОССрезПоследних
   |
   |СГРУППИРОВАТЬ ПО
   |    МестонахождениеОССрезПоследних.Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство
   |ИТОГИ ПО
   |    Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство ИЕРАРХИЯ";
   Дерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
   ОбойтиСтроки(Дерево.Строки);
   
   //ЭлементыФормы.Дерево.СоздатьКолонки();
КонецПроцедуры

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

(43) Как?

(44)* маленькое уточнение:

...
   |ИТОГИ ПО
   |    Местонахождение,
   |    ОсновноеСредство ТОЛЬКО ИЕРАРХИЯ";
...

ну и с упорядочиванием поиграться для красоты...

с местонахождением засада, однако...

Эээ... иерархия по Местонахождению. По ОсновноеСредство - лишнее. Эээ... и колонка дерева - составного типа.

(48) автор хочет везде иерархию вроде...
там двоение начинается при некоторых условиях...

(49) Да, действительно в (9) есть. Сорри, запамятовал.

Автор, не теряй надежду - элегантное решение есть :)

(50) Ага, выгружать в табличный документ. Автор уже нашла решение без обхода результат, только делится не хочет.

(как вариант) У автора рабочее время с 08 до 17:09 :))

ИТОГИ ПО
   Местонахождение ТОЛЬКО ИЕРАРХИЯ,
   ОсновноеСредство ИЕРАРХИЯ

(52) не-а... млин, так и придется обычным обходом...

(39) это и даст составной тип данных.
(52) в карточке Владивосток.

(54) Это если выгружать, то может даст, а в моем случае мне кажется ничего оно не даст.

получилось без двоений, но как-то не шибко красиво... обход по выборке все же лучше будет, наверное ))

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Запрос = Новый Запрос;
   
   Запрос.Текст =
   "ВЫБРАТЬ
   |    ВЫБОР
   |        КОГДА ИСТИНА
   |            ТОГДА МестонахождениеОССрезПоследних.Местонахождение
   |        ИНАЧЕ МестонахождениеОССрезПоследних.ОсновноеСредство
   |    КОНЕЦ КАК Местонахождение,
   |    МестонахождениеОССрезПоследних.ОсновноеСредство КАК ОсновноеСредство
   |ИЗ
   |    РегистрСведений.МестонахождениеОС.СрезПоследних КАК МестонахождениеОССрезПоследних
   |ИТОГИ ПО
   |    Местонахождение,
   |    ОсновноеСредство ИЕРАРХИЯ";
   Дерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
   СтрокиКУдалению = Новый Массив;
   Если Дерево.Строки.Количество() = 0 Тогда
       Возврат;
   КонецЕсли;
   ОбойтиСтроки(Дерево.Строки, СтрокиКУдалению);
   Для Каждого СтрокаДерева Из СтрокиКУдалению Цикл
       СтрокаДерева.Родитель.Строки.Удалить(СтрокаДерева);
   КонецЦикла;
   ЭлементыФормы.Дерево.СоздатьКолонки();
КонецПроцедуры

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

(55) ну дык как раз и интересно бы выгрузить... и чтобы без телодвижений лишних...

(55) согласен. в Вашем случае смысла нет. глаз замылился.

Во идиоты. Это можно зделать без рекурсии, через поиск строк, эта функция умеет искать во всем дереве.

(59) убейся об стенку, сделай доброе дело...

(59) спб, расмешил :)

(60) и (61) Не ужели не получится, почему?

Процедура ОбойтиСтроки(Строки)
   Для Каждого СтрокаДерева Из Строки Цикл
      СтрокаДерева.ОбщаяКолонка = ?(ЗначениеЗаполнено(СтрокаДерева.Продукция), СтрокаДерева.Продукция.Наименование, СтрокаДерева.Подразделение.Наименование);
      ОбойтиСтроки(СтрокаДерева.Строки);
   КонецЦикла;
КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)    
   
   Запрос = Новый Запрос;
   
   Запрос.Текст =
   "ВЫБРАТЬ
   |    ЗаказыНаПроизводствоОстатки.Подразделение КАК Подразделение,
   |    ЗаказыНаПроизводствоОстатки.Номенклатура КАК Продукция,
   |    ВЫРАЗИТЬ("""" КАК СТРОКА(100)) КАК ОбщаяКолонка
   |ИЗ
   |    РегистрНакопления.ЗаказыНаПроизводство.Остатки КАК ЗаказыНаПроизводствоОстатки
   |ИТОГИ ПО
   |    Подразделение ИЕРАРХИЯ,
   |    Продукция ИЕРАРХИЯ";
   
   Дерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
   ОбойтиСтроки(Дерево.Строки);
   Дерево.Колонки.Удалить(0);
   Дерево.Колонки.Удалить(0);
   Дерево.ВыбратьСтроку();
   
   Возврат;

КонецПроцедуры

(62) Меня расмешило "Во идиоты" и его многозначное толкование :)

(64)
1. а так, интересно, правильно?

Процедура ОбойтиСтроки(Строки)
   НужныеСтроки = Строки.НайтиСтроки(Новый Структура("Продукция", NULL));
   Для Каждого СтрокаДерева Из НужныеСтроки Цикл
      СтрокаДерева.ОбщаяКолонка = СтрокаДерева.Подразделение.Наименование;
   КонецЦикла;
КонецПроцедуры

2. не проще ли  использовать конструкцию

   |    ВЫБОР
   |        КОГДА ИСТИНА
   |            ТОГДА МестонахождениеОССрезПоследних.Местонахождение
   |        ИНАЧЕ МестонахождениеОССрезПоследних.ОсновноеСредство
   |    КОНЕЦ КАК Местонахождение

чем потом удалять колонку?

+(65)
пардон
НужныеСтроки = Строки.НайтиСтроки(Новый Структура("Продукция", NULL), ИСТИНА);

второй параметр в (65) забыл указать.

(66) Самым лучшим был-бы вариант еслибы вообще ничего удалять не пришлось.

А где же автор, разве я не заслужил спасибо.

(65) Первый вариант: Пардон. Тогда вызов и процедура ОбойтиСтроки вообще не нужны.
Второй вариант: Не прокатит, ВЫБОР - пролетает. Итоги с использованием ИЕРАРХИЯ - значения регистра не будут присутствовать/вычисляться в иерархических записях.

(68) а чем (56) не понравилось? вполне себе работает, если через СоздатьКолонки(), то можно колонку удалить, а если сделать колонку в табполе, то можно и не удалять, зато значения ссылочные, а не строковые...