Подскажите пожалуйста как программно создать множественный и единичный отбор в отчете.
Отчет сделал без скд и построителя. Макетом и выводил области.
Создал в отчете реквизит тип выбрал отбор. Потом создал табличное поле в данных выбрал реквизит отбор .
В запросе получал сотрудников,подразделение, контрагент .
Обычные формы платформа 8.2

Зачем изобретать велосипед с квадратными колесами?

сесть на берегу реки поздней весной и предаться медитации. через 3 дня в мозгу должны образоваться три буквы: С, К и Д

отчет слишком сложный ,в скд не получилось,да и в построитель переделывать долго

Ученик спросил учителя: "Вот программист, что никогда не проектирует, не сопровождает и не отлаживает свои программы. Однако все, кто его знают, считают его одним из лучших программистов в мире. Почему так?".
Учитель ответил: "Этот программист овладел Дао. Он ушел от нужды проектирования; он не сердится, если система падает, он принимает вселенную такой какая она есть. Он ушел от нужды сопровождения; ему безразлично, увидит ли кто-нибудь его код. Он ушел от нужды отладки; каждая из его программ совершенна изнутри, изящна и ясна, и ее цель самоочевидна. Поистине он постиг тайну Дао."

(3) У тебя же в результате все равно получается таблица значений. Вот ее и пихай в СКД, вопрос с отборами решится.

(4) "Дао" читать "СКД"?)

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

юзай СКД. А то сейчас налепишь чуши

Без скд кто нибудь знает как?

(6) если ты можешь назвать дао, ты не познал дао

Отчет не сложный. Используешь динамический список периоды и по нему строишь отчет запросом и настройками скд

(9) отринь мирское

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    СтандартнаяОбработка=Ложь;

    НачалоПериода='00010101';
    КонецПериода=ТекущаяДата();
    Настройки=КомпоновщикНастроек.ПолучитьНастройки(); // Получаем настройки отчета
    ПараметрНачалоПериода=Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода");
    Если ПараметрНачалоПериода<>Неопределено И ПараметрНачалоПериода.Использование Тогда
        НачалоПериода=ПараметрНачалоПериода.Значение.Дата;
    КонецЕсли;
    ПараметрКонецПериода=Настройки.ПараметрыДанных.Элементы.Найти("КонецПериода");
    Если ПараметрКонецПериода<>Неопределено И ПараметрКонецПериода.Использование Тогда
        КонецПериода=КонецДня(ПараметрКонецПериода.Значение.Дата);
    КонецЕсли;
    
    Результат=ПолучитьРезультат(НачалоПериода, КонецПериода);  //сложная и мудрёная ТЗ
    //Результат=ПолучитьРезультат('20130401', '20130401235959');

    ДанныеРасшифровки=Новый ДанныеРасшифровкиКомпоновкиДанных; // Создаём данные расшифровки
    КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных; // Создаём компоновщик макета
    // Инициализируем макет компоновки, используя схему компоновки данных
    // и созданные ранее настройки и данные расшифровки
    СхемаКомпоновкиДанных=ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
    МакетКомпоновки=КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);

    // Скомпонуем результат
    ПроцессорКомпоновки=Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, Новый Структура("Результат", Результат), ДанныеРасшифровки);

    ДокументРезультат.Очистить();

    // Выводим результат в табличный документ
    ПроцессорВывода=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновки);
КонецПроцедуры

Вобщем делай на СКД иначе колхоз

(9) Если без СКД, то все отборы делаешь в запросе или в ТЗ.

Он не знает хочет чтобы мы за него всё написали?

Вообще есть один код где то похожий. Могу скинуть

еслиб знал не спрашивал,тебя не заставляют

Надо?

как знаешь. ну тогда читай Хрусталеву

Кидай пример

(20) а можно я?

Процедура ОбновитьФормуТиповогоОтчетаПоКомпоновщику(ОтчетОбъект, ФормаОтчета) Экспорт
        
        Если ЭтоСтараяВерсияОтчета(ОтчетОбъект) Тогда
            // Параметры периода
            ЗначениеПараметраНачалоПериода = ОтчетОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("НачалоПериода"));
            ЗначениеПараметраКонецПериода = ОтчетОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("КонецПериода"));
            ЗначениеПараметраПериод = ОтчетОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Период"));
            
            Если ЗначениеПараметраНачалоПериода <> Неопределено
                И ЗначениеПараметраКонецПериода <> Неопределено Тогда
                ФормаОтчета.НачалоПериода = ЗначениеПараметраНачалоПериода.Значение;
                ФормаОтчета.КонецПериода = ЗначениеПараметраКонецПериода.Значение;
                ФормаОтчета.ЭлементыФормы.ПанельПериод.ТекущаяСтраница = ФормаОтчета.ЭлементыФормы.ПанельПериод.Страницы.Интервал;
            ИначеЕсли ЗначениеПараметраПериод <> Неопределено Тогда
                ФормаОтчета.Период = ЗначениеПараметраПериод.Значение;
                ФормаОтчета.ЭлементыФормы.ПанельПериод.ТекущаяСтраница = ФормаОтчета.ЭлементыФормы.ПанельПериод.Страницы.Период;
            Иначе
                ФормаОтчета.ЭлементыФормы.ПанельПериод.ТекущаяСтраница = ФормаОтчета.ЭлементыФормы.ПанельПериод.Страницы.Пустой;
            КонецЕсли;
            
            // Вывод заголовка отменяется
            Значение = ОтчетОбъект.КомпоновщикНастроек.Настройки.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("TitleOutput")).Значение;
            Пометка = (Значение = ТипВыводаТекстаКомпоновкиДанных.Выводить);
            Если ФормаОтчета.ЭлементыФормы.ДействияФормы.Кнопки.Найти("Заголовок") <> Неопределено тогда
                ФормаОтчета.ЭлементыФормы.ДействияФормы.Кнопки.Заголовок.Пометка = Пометка;
            КонецЕсли;
        Иначе
            
            ЗначенияНастроек = ПолучитьЗначенияНастроекПанелиПользователяОбъекта(ОтчетОбъект);
            ВыводитьЗаголовокОтчета = Истина;
            Если ЗначенияНастроек = Неопределено
                ИЛИ Не ЗначенияНастроек.Свойство("ВыводитьЗаголовокОтчета", ВыводитьЗаголовокОтчета) Тогда
                ВыводитьЗаголовок = Истина;    
            Иначе
                ВыводитьЗаголовок = ВыводитьЗаголовокОтчета;
            КонецЕсли;
            Если ФормаОтчета.ЭлементыФормы.КоманднаяПанельДействияСОтчетом.Кнопки.Найти("Заголовок") <> Неопределено тогда
                ФормаОтчета.ЭлементыФормы.КоманднаяПанельДействияСОтчетом.Кнопки.Заголовок.Пометка = ВыводитьЗаголовок;
            КонецЕсли;
            
            ДополнительныеНастройкиОтчета = Новый Массив;
            ПараметрыИсполненияОтчета = ОтчетОбъект.ПолучитьПараметрыИсполненияОтчета();
            Если ПараметрыИсполненияОтчета.Свойство("ДополнительныеНастройкиОтчета") И ПараметрыИсполненияОтчета.ДополнительныеНастройкиОтчета тогда
                ДополнительныеНастройкиОтчета = ОтчетОбъект.ПолучитьДополнительныеНастройкиОтчета();
            КонецЕсли;
            
            Для каждого ДопНастройка из ДополнительныеНастройкиОтчета Цикл
                ЗначениеФлажка = ДопНастройка.ЗначениеПоУмолчанию;
                Если ЗначенияНастроек = Неопределено
                    ИЛИ Не ЗначенияНастроек.Свойство(ДопНастройка.Имя, ЗначениеФлажка) Тогда
                    Флажок = ложь;    
                Иначе
                    Флажок = ЗначениеФлажка;
                КонецЕсли;
                Если ФормаОтчета.ЭлементыФормы.Найти(ДопНастройка.Имя) <> Неопределено тогда
                    ФормаОтчета.ЭлементыФормы[ДопНастройка.Имя].Значение = Флажок;
                КонецЕсли;
            КонецЦикла;
            
            Если ЗначенияНастроек = Неопределено тогда
                СкопироватьЭлементы(ФормаОтчета.КомпоновщикНастроекПользователя.Настройки.Выбор, ФормаОтчета.КомпоновщикНастроек.Настройки.Выбор);
            Иначе
                ВыбранныеПоляПользователя = ФормаОтчета.КомпоновщикНастроекПользователя.Настройки.Выбор;
                ВыбранныеПоля = ОтчетОбъект.КомпоновщикНастроек.Настройки.Выбор;
                ОбновитьПоляВНастройкеПользователя(ВыбранныеПоляПользователя, ВыбранныеПоля);
            КонецЕсли;
            ВосстановитьПараметрыТабличногоДокумента(ФормаОтчета.ЭлементыФормы.Результат, ОтчетОбъект.СохраненнаяНастройка);    
            
        КонецЕсли;
    КонецПроцедуры
    
    // Процедура РезультатОбработкаРасшифровки
    // Действие, выполняемое при вызове расшифровки пользователем
    Процедура СтандартнаяОбработкаРасшифровкиТиповогоОтчета(ОтчетОбъект, ФормаОтчета, Расшифровка, СтандартнаяОбработка) Экспорт
        
        Перем ВыполненноеДействие;
        
        // Запретим стандартную обработку расшифровки
        СтандартнаяОбработка = Ложь;
        
        // Создадим и инициализируем обработчик расшифровки
        ОбработкаРасшифровки = Новый ОбработкаРасшифровкиКомпоновкиДанных(ФормаОтчета.ДанныеРасшифровки,
        Новый ИсточникДоступныхНастроекКомпоновкиДанных(ПолучитьСхемуКомпоновкиОбъекта(ОтчетОбъект)));
        
        // Осуществим выбор действия расшифровки пользователем
        Настройки = ОбработкаРасшифровки.Выполнить(Расшифровка, ВыполненноеДействие);
        
        Если Настройки <> Неопределено Тогда
            // Пользователь выбрал действие, для которого нужно менять настройки
            
            Если ВыполненноеДействие = ДействиеОбработкиРасшифровкиКомпоновкиДанных.Упорядочить Тогда
                // Если требется упорядочить - упорядочим в текущем отчете
                ОтчетОбъект.КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
                ФормаОтчета.ОбновитьОтчет();
                
            Иначе
                
                НовыйОтчет = Отчеты[ОтчетОбъект.Метаданные().Имя].Создать();
                ЗаполнитьЗначенияСвойств(НовыйОтчет, ОтчетОбъект, , "СохраненнаяНастройка");
                НовыйОтчет.КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
                
                ФормаНовогоОтчета = НовыйОтчет.ПолучитьФорму();
                НазначитьФормеУникальныйКлючИдентификации(ФормаНовогоОтчета);
                ФормаНовогоОтчета.ЭтоОтработкаРасшифровки = Истина;
                Если Не ЭтоСтараяВерсияОтчета(ОтчетОбъект) Тогда
                    ФормаНовогоОтчета.РежимРедактированияНастройки = Истина;
                    ФормаНовогоОтчета.ПредставлениеНастройки = "Расшифровка " + Символы.ПС + ОтчетОбъект.СохраненнаяНастройка;
                КонецЕсли;
                ФормаНовогоОтчета.Открыть();
                ФормаНовогоОтчета.ОбновитьОтчет();
                
            КонецЕсли;
            
        КонецЕсли;
        
    КонецПроцедуры


на типовом отчете СКД основаны процедуры осталось тебе только вставить код, привязать в модуле менеджера и сделать инициализацию

(21) разрешаю

Калач спасибо)

и я как обычно..

(0)
Есть у меня в списке номенклатура кнопка "Показать товары с остатками"
Процедура ниже.
Работает практически мгновенно, больше 10000 значение в отбор не загонял, незнаю как поведет себя.

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

    
    ЭлементыФормы.ДействияФормы.Кнопки.ПоказатьТоварыНаОстатках.Пометка = Истина;
    ЭлементыФормы.ДействияФормы.Кнопки.ПоказатьТоварыНаОстатках.Текст = "Товары с остатками = " + СокрЛП(ВыбСклад);
КонецПроцедуры

(26) Документы можно по этому же принципу отбирать.
Вначале запрос, с нужным отбором.
Потом стандартно для всех
ЭлементОтбора                =    Список.Отбор.Найти("Ссылка");
ЭлементОтбора.ВидСравнения    =    ВидСравнения.ВСписке;
ЭлементОтбора.Значение        =    мСписок;
ЭлементОтбора.Использование    =    Истина;