Структура справочника

Новая тема
Показывать по 10 20 40 сообщений
"вот, типа, "наброска"! Сразу предупреждаю, что я в этом не бум-бум! :-)

//В документе:

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

//В справочнике Справочник.МестаХранения.ФормаСписка:

Процедура ПриОткрытии()
             
               Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
                              Если ТипЗначенияСтр(Форма.Параметр) = "СписокЗначений" Тогда
                                              Параметры       = Форма.Параметр;
                                              ВыбрРодитель = Параметры.Получить("ВыбрРодитель");
                                              Если ПустоеЗначение(ВыбрРодитель) = 0 Тогда
                                                              Если ТипЗначенияСтр(ВыбрРодитель) = "Справочник" Тогда
                                                                             Если (ВыбрРодитель.Вид() = Вид()) И (ВыбрРодитель.ЭтоГруппа() = 1) Тогда
                                                                                             ИспользоватьРодителя(ВыбрРодитель, флРазрешитьВыбор);
                                                                             КонецЕсли;
                                                              КонецЕсли;
                                              КонецЕсли;
                              КонецЕсли;  
               КонецЕсли;
             
КонецПроцедуры"
"Семерочные принципы переносить на восьмерку признак плохого тона! ;)"
Вроде бы вопрос был про управляемые формы, а там все совсем не так...
"Отбор["Код"].ВидСравнения =
?(Код.ЭтоГруппа,
ВидСравнения.ВСпискеПоИерархии,
ВидСравнения.Равно);"
не о "переносе" речь! Если это, действительно, возможно в семерке, то уж в 8-ке, думаю, "и подавно"? Или я не прав?
не спорю!
"Может так?

Процедура ПриОткрытии()  СписокГрупп = Новый СписокЗначений;  // Любым способом определяем группы, которые не надо видеть, т.е. "скрыть часть его структуры", например...   СписокГрупп.Добавить(Справочники.КакойТоСправочник.НайтиПоКоду("000000004"));  Отбор.Ссылка.Видсравнения = ВидСравнения.НеВСпискеПоИерархии;  Отбор.Ссылка.Значение = СписокГрупп;  Отбор.Ссылка.Использование = Истина;КонецПроцедуры 



На 8.2 не пробовал, тем более на управляемых формах."
попробовал на обычных формах, все равно папку с кодом "000000004" отображает! Элементы не отображает, но папку отображает...если иерархический просмотр отключить, то скрывает, но тогда справочник абсолютно не читабелен...
Читают тему
(гостей: 1)

Быстрый переход