vizlipuzli
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: &НаКлиенте
Процедура ПриОткрытии(Отказ)
Иниц();
КонецПроцедуры
&НаКлиенте
Процедура Иниц()
мСхемаКомпоновки = Новый СхемаКомпоновкиДанных;
ИсточникДанных = мСхемаКомпоновки.ИсточникиДанных.Добавить();
ИсточникДанных.Имя = "ИсточникДанных1";
ИсточникДанных.ТипИсточникаДанных = "Local";
мНаборДанных = мСхемаКомпоновки.НаборыДанных.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных"));
мНаборДанных.Имя = "НаборДанных1";
мНаборДанных.ИсточникДанных = ИсточникДанных.Имя;
мНаборДанных.Запрос = "ВЫБРАТЬ ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка) КАК Номенклатура ГДЕ Ложь";
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(мСхемаКомпоновки));
КомпоновщикНастроек.Восстановить();
Для Каждого Элемент из КомпоновщикНастроек.Настройки.Отбор.ДоступныеПоляОтбора.Элементы Цикл
НовыйЭлемент = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
НовыйЭлемент.Использование = Истина;
НовыйЭлемент.ЛевоеЗначение = Элемент.Поле;
КонецЦикла;
КонецПроцедуры |
|
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 19:22 24-04-2010 | Исправлено: vizlipuzli, 19:23 24-04-2010 |
|
