Имя: Пароль:
1C
1С v8
Злополучный отбор
0 vanyshan
 
13.10.11
23:39
Добрый всем ночи!
Создал отбор,ошибка в том, что приходится все время чтобы этот отбор заработал включать кнопку "иерархический просмотр".
Что не так, подскажите. Справочник "Номенклатура"

Процедура ТоварыНоменклатураНачалоВыбора(Элемент, СтандартнаяОбработка)
   
   Если Не ДоговорКонтрагента.Пустая()Тогда
       СтандартнаяОбработка=Ложь;
   
   ФормаВыбора = Справочники.Номенклатура.ПолучитьФормуВыбора(,Элемент);
   Отбор = ФормаВыбора.СправочникСписок.Отбор.Ссылка;  
   Отбор.Использование = Истина;
   Отбор.ВидСравнения = ВидСравнения.ВСпискеПоИерархии;
   
   Запрос=Новый Запрос("ВЫБРАТЬ
   |УсловияПоставокПоДоговорамКонтрагентовПоНоменклатуреСрезПоследних.Номенклатура,
   |УсловияПоставокПоДоговорамКонтрагентовПоНоменклатуреСрезПоследних.ДоговорКонтрагента
   |ИЗ
   |РегистрСведений.УсловияПоставокПоДоговорамКонтрагентовПоНоменклатуре.СрезПоследних(&Период, ДоговорКонтрагента = &Договор) КАК УсловияПоставокПоДоговорамКонтрагентовПоНоменклатуреСрезПоследних");
       Запрос.УстановитьПараметр("Период", Дата);
       Запрос.УстановитьПараметр("Договор", ДоговорКонтрагента);
       Выборка=Запрос.Выполнить().Выбрать();
       
       СписокЭлементов = Новый  СписокЗначений;
       Пока Выборка.Следующий() Цикл
           СписокЭлементов.Добавить(Выборка.Номенклатура);
       КонецЦикла;
       
       Отбор.Значение = СписокЭлементов;
       ФормаВыбора.Открыть();    
КонецЕсли;
   КонецПроцедуры
1 vanyshan
 
13.10.11
23:40
Может вид сравнения не тот указал?
Справочник имеет иерархию групп и элементов.
2 sanja26
 
13.10.11
23:41
У справочникСписок задать иерархический просмотр
3 vanyshan
 
13.10.11
23:43
А как это прописать?
4 Икогнито
 
13.10.11
23:43
Отбор.Значение.Загрузить(СписокЭлементов);
5 Икогнито
 
13.10.11
23:44
Или Отбор.Значение.Добавить(Выборка.Номенклатура);
6 vanyshan
 
14.10.11
00:17
Что то не получается. Пробую
ФормаВыбора.ЭлементыФормы.СправочникСписок.ИерархическийПросмотр = ИСТИНА; - все равно не срабатывает.
7 Mort
 
14.10.11
00:19
Так тебе нужно не включать его, а отключать.
8 vanyshan
 
14.10.11
00:22
Спасибо, торможу, видимо совсем заработался!
9 vmv
 
14.10.11
01:06
СрезПоследних(&Период, ДоговорКонтрагента = &Договор)

вроде как предан анафеме давно