Форум Программирование Общие вопросы программирования (Dev)

Программно задать отборы в СКД

Система компоновки данных

1. Nadushka74 4 11.01.17 12:19 Сейчас в теме

Как Задать В СКД программно данные для отбора. Если это значение предопредленное то там все проще не бывает, а если это обычное значение справочника, и нужно чтоб было оно заполнено и пользователь не задавал его сам.

Ответы

В избранное Подписаться на ответы

Свернуть все

2. docerman 54 11.01.17 12:31 Сейчас в теме

Заполнить нужно один раз - затем сохранить настройки и использовать сохраненные настройки. Или сохраните настройки под собой, а пользователь пусть пользуется вашими настройками.

3. user667308_icscloud 11.01.17 12:36 Сейчас в теме

НайтиПоКоду или НайтиПоНаименованию

4. Nadushka74 4 11.01.17 13:43 Сейчас в теме

(3) где указать это?

5. user667308_icscloud 11.01.17 13:45 Сейчас в теме

там же, где вы указываете предопределенное значение.

6. docerman 54 11.01.17 13:52 Сейчас в теме

НайтиПоКоду или НайтиПоНаименованию - это не кошерно. И код и наименование пользователи могут поменять.

10. user667308_icscloud 11.01.17 15:23 Сейчас в теме

(6)

НайтиПоКоду или НайтиПоНаименованию - это не кошерно. И код и наименование пользователи могут поменять.

Согласен, поменять могут, но вроде условие топикстартера было:

и пользователь не задавал его сам.

Подскажите, как тогда в приведенном Вами примере, задать отбор по конкретной организации из справочника (не прибегая к выбору пользователем и предопределенному значению)?

11. docerman 54 11.01.17 15:58 Сейчас в теме

(10) Делаем сами настройки в режиме предприятия, а пользователь пользуется нашими настройками. В результате пользователь не делает выбор.

7. bad_wag 35 11.01.17 13:54 Сейчас в теме

Примерно так:

НастройкиКомпоновкиДанных = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;

ГруппаОтбора = НастройкиКомпоновкиДанных.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных"));
ГруппаОтбора.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИли;

Элемент1 = ГруппаОтбора.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
Элемент1.ВидСравнения = ВидСравненияКомпоновкиДанных.Содержит;
Элемент1.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Наименование");
Элемент1.ПравоеЗначение = ЗначениеОтбора;

Показать

8. docerman 54 11.01.17 13:56 Сейчас в теме

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
	
	Если ЗначениеЗаполнено(Организация) Тогда
		УстановитьОтборСКД("Организация", ВидСравненияКомпоновкиДанных.Равно, Организация);
	Иначе
		УстановитьОтборСКД("Организация", ВидСравненияКомпоновкиДанных.Равно, Неопределено);
	КонецЕсли;
	
КонецПроцедуры

Процедура УстановитьОтборСКД(ИмяПоля, ВидОтбора, Значение)
    ПолеОтбора = Новый ПолеКомпоновкиДанных(ИмяПоля);
    ОтборыКомпановщика = КомпоновщикНастроек.Настройки.Отбор.Элементы;
    Для Каждого Стр Из ОтборыКомпановщика Цикл
        Если Стр.ЛевоеЗначение = ПолеОтбора Тогда
            Отбор = Стр;
        КонецЕсли;
    КонецЦикла;
    Если Отбор = Неопределено Тогда
        Отбор = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
        Отбор.ЛевоеЗначение  = ПолеОтбора;
    КонецЕсли;
    
    Если Значение <> Неопределено Тогда
        Отбор.ВидСравнения   = ВидОтбора;
        Отбор.Использование  = Истина;
        Отбор.ПравоеЗначение  = Значение;
    Иначе
        Отбор.Использование  = Ложь;
    КонецЕсли;
    
КонецПроцедуры

//Организация - реквизит отчета

Показать

9. docerman 54 11.01.17 13:57 Сейчас в теме

как-то так

12. docerman 54 11.01.17 16:01 Сейчас в теме

Или добавляем свою константу с соответствующим типом и обращаемся к ней - это в том случае если СКД используется не для отчета.

13. user667308_icscloud 12.01.17 07:55 Сейчас в теме

(12)

Тогда уж если развивать эту тему, то плодить константы тоже не кошерно, кошернее будет создать РС или ПВХ под настройки. :-)

Оставьте свое сообщение

E-mail:

Вопросы с вознаграждением

Распределение РБП при закрытии месяца (4) 1 $m БУ КА2 8.3.14 ИТ-компания Windows Россия 1С БУ УУ НУ Бизнес-аналитик Бухгалтер Программист	4	сегодня, 16:05 semenoof
СКД в ERP (27) 1 $m Dev ERP2 v8	27	сегодня, 09:47 AlexeyIsip
Настройка параметров страницы при печати в отчете СКД (3) 0.03 $m Dev 8.3.14	3	сегодня, 06:02 user1582372
Расчет себестоимости в КА 2.4. Отрицательные остатки в регистре себестоимость. (9) 1 $m Учет КА2 v8 Оптовая торговля, дистрибуция, логистика	9	вчера, 20:32 ПодводныйТ
Как в серверной 1С базе очистить таблицу расширений? (9) 1 $m DB	9	вчера, 13:39 ЕСТЬNULL
Способ сведения двух баз ERP в одну (7) 0.1 $m Обмен ERP2	7	вчера, 09:10 DenisZakharov
Нужна помощь в запуске чат бота в УНФ, база серверная (19) 2 $m Учет УНФ	19	19.04.2021 Asuneft
Вопрос по расширениям и типовым операциям в БГУ 2.0 (5) 0.15 $m Dev БГУ Расширение (cfe)	5	19.04.2021 alfa_1969
КД2 или КД3 ? (30) 5 $m Обмен ERP2 БП3.0 КА2 КД УХ 8.3.14 Аудит и бухгалтерские услуги, юриспруденция Недвижимость, риэлторская деятельность	30	19.04.2021 alexander-lubich
Не сохраняется значение реквизита (3) 0.5 $m Dev УТ11 v8 ИТ-компания 1С Программист	3	19.04.2021 user1500067
Ошибки и предупреждения журнала регистрации. Для любой типовой конфигурации 1С: Предприятие 8.3 (4) 0.01 $m Admin v8 1cv8.cf	4	19.04.2021 capitan
Напоминание от системы (50) 0.15 $m Dev	50	17.04.2021 user1087014
Отчет о розн продажах из 1С унф в 1С унф (7) 1 $m Обмен УНФ	7	15.04.2021 user1523568
Сумма задолженности меньше суммы документа оплаты. Обратите внимание на сформированные проводки! (1) 1 $m БУ	1	15.04.2021 mvl_dimir
При нажатие на кнопку Сформировать (5) 0.2 $m Dev	5	15.04.2021 user1087014
Анкетирование и проведение опросов в ЗУП КОРП (HR - аналитика) (0) 0.1 $m Зарплата	0	15.04.2021 Raskad
Обработка чистки базы. Удаление лишних организаций. Нужна помощь. (22) 9.4 $m Testing БП3.0	22	15.04.2021 Kuzya_brаtsk
Утверждение документов ЗУП 3.1 (9) 0.2 $m Зарплата ЗУП3.x	9	14.04.2021 Verdad
Перечисление алиментов (как физлицу напрямую так и в УФК) параметры платежей (КБК, ОКТМО) (2) 0.1 $m БУ	2	14.04.2021 Raskad
1с Розница РМК поиск по штрихкоду (23) 0.07 $m Торговля Розница v8	23	14.04.2021 Nubsdale