"вот, типа, "наброска"! Сразу предупреждаю, что я в этом не бум-бум! <br> <br>//В документе:<br> <br>Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога,ФлагСтандОбр)<br> <br> Если ИдентЭлемДиалога = "ТорговаяТочка" Тогда <br> ФлагСтандОбр=0;<br> Параметры = СоздатьОбъект("СписокЗначений");<br> Если ВыбрРодитель.Выбран() = 1 Тогда // поле на форме<br> Параметры.ДобавитьЗначение(ВыбрРодитель, "ВыбрРодитель");<br> Иначе<br> Параметры.ДобавитьЗначение("""", "ВыбрРодитель");<br> КонецЕсли;<br> Параметры.ДобавитьЗначение(флРазрешитьВыбор, "Выбор"); // флаг на форме<br> ОткрытьФорму("Справочник.МестаХранения.ФормаСписка", Параметры);<br> КонецЕсли;<br> <br>КонецПроцедуры<br> <br>//В справочнике Справочник.МестаХранения.ФормаСписка:<br> <br>Процедура ПриОткрытии()<br> <br> Если ПустоеЗначение(Форма.Параметр) = 0 Тогда<br> Если ТипЗначенияСтр(Форма.Параметр) = "СписокЗначений" Тогда<br> Параметры = Форма.Параметр;<br> ВыбрРодитель = Параметры.Получить("ВыбрРодитель");<br> Если ПустоеЗначение(ВыбрРодитель) = 0 Тогда<br> Если ТипЗначенияСтр(ВыбрРодитель) = "Справочник" Тогда<br> Если (ВыбрРодитель.Вид() = Вид()) И (ВыбрРодитель.ЭтоГруппа() = 1) Тогда<br> ИспользоватьРодителя(ВыбрРодитель, флРазрешитьВыбор);<br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли; <br> КонецЕсли;<br> <br>КонецПроцедуры"