Ввод периода дат в отборах СКД

28.06.12

Разработка - СКД

Вы привыкли быстро указывать отбор на даты, пользуясь построителями и штатными окнами 1С? Вам неудобно и долго делать то же самое в отборах СКД? Ввод условия на период дат можно обеспечить с помощью простенькой процедуры, добавляемой в любое нужное место.

Надоело мне вводить периоды вручную - группу делай, границы указывай, лениво и ошибкоопасно. Разработал процедуру:

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

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

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

 
//================================================================================
 // Запрашиваем вид интервала
 //
 
спвар=Новый СписокЗначений;
 
спвар.Добавить(ВидСравнения.Интервал,"Не включая границы ( )");
 
спвар.Добавить(ВидСравнения.ИнтервалВключаяГраницы,"Включая границы [ ]");
 
спвар.Добавить(ВидСравнения.ИнтервалВключаяНачало,"Включая начало [ )");
 
спвар.Добавить(ВидСравнения.ИнтервалВключаяОкончание,"Включая конец ( ]");
 
выбзнч=спвар.ВыбратьЭлемент("Укажите тип интервала:");
 Если
выбзнч=Неопределено Тогда Возврат КонецЕсли;
 
// определяемся
 
Если выбзнч.Значение=ВидСравнения.ИнтервалВключаяГраницы
 или выбзнч.Значение=ВидСравнения.ИнтервалВключаяНачало
 Тогда
 
рВидСравненияНачГраницы=ВидСравненияКомпоновкиДанных.БольшеИлиРавно;
 Иначе
 
рВидСравненияНачГраницы=ВидСравненияКомпоновкиДанных.Больше;
 КонецЕсли;
 Если
выбзнч.Значение=ВидСравнения.ИнтервалВключаяГраницы
 или выбзнч.Значение=ВидСравнения.ИнтервалВключаяОкончание
 Тогда
 
рВидСравненияКонГраницы=ВидСравненияКомпоновкиДанных.МеньшеИлиРавно;
 Иначе
 
рВидСравненияКонГраницы=ВидСравненияКомпоновкиДанных.Меньше;
 КонецЕсли;

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


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

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


 

Сделал вызов этой процедуры в той форме, где находился нужный компоновщик:

РаботаСДиалогами.ВставитьУсловиеНаИнтервалДат(ЭлементыФормы.дОтборРК);

Стало можно быстро копипастить, а пользователям стало можно удобно вводить период.
Недостаток только в том, что текущей строкой отбора должна быть самая верхняя, корневая.
Плюсить особо не за что, а вот если пригодится кому, будет приятно. :)

См. также

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 руб.

02.09.2020    119908    656    389    

701

Генератор схемы компоновки данных (СКД), написание кода схемы программно

Инструментарий разработчика СКД Платформа 1С v8.3 Конфигурации 1cv8 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

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

3 стартмани

05.02.2024    3889    24    obmailok    17    

63

Набор-объект для СКД по тексту или запросу

Запросы СКД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024    1964    2    Yashazz    0    

29

СКД на JavaScript в 1С

СКД WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Долгое время поддерживаю web-портал, в котором появилась необходимость создавать отчеты. Просмотрев различные фреймворки на js, я решил сделать свое решение, которое позволяло бы быстро разрабатывать и добавлять новые отчеты на web-портал.

2 стартмани

11.12.2023    8027    20    John_d    25    

122

Использование менеджера временных таблиц в СКД

СКД Платформа 1С v8.3 Система компоновки данных Конфигурации 1cv8 Бесплатно (free)

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

05.12.2023    4528    PROSTO-1C    13    

61

Модель СКД

Инструментарий разработчика СКД Платформа 1С v8.3 Система компоновки данных Абонемент ($m)

DSL для работы с СКД.

1 стартмани

15.11.2023    5708    15    kalyaka    5    

85

Пользовательские настройки отчетов 1С. Часть 1. Простые и расширенные настройки

СКД Инструкции пользователю Платформа 1С v8.3 Конфигурации 1cv8 1С:Бухгалтерия 3.0 Россия Бесплатно (free)

Простые приемы работы с отчетами на СКД. Что нужно знать пользователю про настройку отчетов, чтобы использовать их на полную катушку.

18.09.2023    6328    accounting_cons    5    

29

Разрыв страницы в СКД. Легко!

СКД Платформа 1С v8.3 Система компоновки данных Бесплатно (free)

Когда отчет надо разделить по страницам, это всегда проблема для разработчика. Поскольку в СКД нет стандартных вариантов, как это сделать. Нашел (на свой взгляд) самое простое и оптимальное решение.

01.09.2023    4407    KVIKS    15    

80
Вознаграждение за ответ
Показать полностью
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. VladZetRu 9 28.06.12 17:37 Сейчас в теме
И зачем так изгаляться, в СКД нужно использовать Параметр Стандартный период, и получением из него дополнительных Параметров НачальнаяДата(ДатаНачала или как Вы еще хотите) и КонечнаяДата используемых в запросе СКД.
Параметр СтандартныйПериод выводим на форму и пользуемся.
2. Yashazz 4707 28.06.12 19:07 Сейчас в теме
(1) СтандартныйПериод можно загнать в общее дерево отбора?
3. VladZetRu 9 28.06.12 22:52 Сейчас в теме
(2)Да. Создаешь параметр ПериодОтчета с типом Стандартный период доступный пользователю, а также параметры ДатаНач(Имя совпадает с тем, что в запросе) и ДатаКон не доступные Пользователю, назначаешь им значения в выражении типа &ПериодОтчета.ДатаНачала и соответвенно &ПериодОтчета.ДатаОкончания.
Параметру ПериодОтчета можешь задать значение по умолчанию типа ЭтотМесяц или ПроизвольныйПериод.
4. Serj1C 483 29.06.12 07:24 Сейчас в теме
(3) VladZetRu, В дерево отборов "Период отчета" не попадет, в параметрах останется
6. Yashazz 4707 02.07.12 10:03 Сейчас в теме
(4) Именно.
(5) Это я знаю. Цель была именно в том, чтоб все поля, имеющие тип даты, дать пользователю ставить самому удобно, а не обеспечивать это каждый раз через параметры. В дереве отборов параметры не позволяют использовать "стандартный период".
5. anton.fly7 173 29.06.12 09:02 Сейчас в теме
7. e.kogan 1892 24.05.17 16:21 Сейчас в теме +200 $m
Между прочим, сколько всего напридумывали в новых релизах, а дату интервалом до сих пор нельзя обусловить :( надо бы под тонкий клиент адаптировать, нэ?
8. Cooler 22 24.05.17 16:26 Сейчас в теме
Гм! Подарок к годовщине свадьбы?
9. e.kogan 1892 27.05.17 15:33 Сейчас в теме +1000 $m
(8) Не, к годовщине свадьбы мне бы лёгонький трассировщик кода... )
10. Cooler 22 27.05.17 18:44 Сейчас в теме
"Высокие, высокие отношения!" (с)
Оставьте свое сообщение