Диалог ввода периода, УФ

С удивлением обнаружил, что а) объект НастройкаПериода в тонком клиенте не существует, б) на ИС именно идейной копии старого привычного варианта нету, в) не всем клиентам нравится «Произвольный период», штатно заложенный в платформу. Ну вот не радуют их этим нынешние типовые конфы. Поэтому быстренько сляпал своё, для модального и немодального вызовов, ну и почему бы не выложить? Публикация представляет собой обработку, реализующую функционал окна выбора, и описания её вызова. Параметры вызова предусматривают исходное указание периода и регулировку видимости закладок «Интервал» и «Период». Для желающих встроен также «Стандартный период».

С некоторой степенью вероятности это баян, а я, возможно, просто не умею искать. Так что, можно пинать и необязательно плюсить.

Найденные коллегами примеры похожих решений:
//infostart.ru/public/77517/
//infostart.ru/public/194190/
//infostart.ru/public/175213/

Примеры вызова (сами вызывающие процедуры, в которые обёрнута форма, и собственно их инициация). Естественно, при немодальном вызове не забывайте вставить код, указанный в «ОбработкаОповещения». Наверняка есть ещё несколько способов вызова, пользуйтесь, как кому удобнее, я предлагаю лишь два из многих вариантов. 

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
    // …другой код…
    Если ИмяСобытия=«OnPeriodSelect» Тогда
        Предупреждение(«Получен период «+ПредставлениеПериода(Параметр.НачалоПериода,Параметр.КонецПериода));
    КонецЕсли;
    // …другой код…
КонецПроцедуры

&НаКлиенте
Функция ВвестиПериодМодально(рПараметры=«») Экспорт
    Попытка
        Если ТипЗнч(рПараметры)<>Тип(«Структура») Тогда
            рПараметры=Новый Структура;
        КонецЕсли;
        пар=Новый Структура;
        пар.Вставить(«НачалоПериода»,?(рПараметры.Свойство(«НачалоПериода»),рПараметры.НачалоПериода,Дата(1,1,1)));
        пар.Вставить(«КонецПериода»,?(рПараметры.Свойство(«КонецПериода»),рПараметры.КонецПериода,Дата(3999,12,31)));
        пар.Вставить(«ДоступенИнтервал»,?(рПараметры.Свойство(«ДоступенИнтервал»),рПараметры.ДоступенИнтервал,Истина));
        пар.Вставить(«ДоступенПериод»,?(рПараметры.Свойство(«ДоступенПериод»),рПараметры.ДоступенПериод,Истина));
        пар.Вставить(«ВызывающаяФорма»,?(рПараметры.Свойство(«ВызывающаяФорма»),рПараметры.ВызывающаяФорма,Неопределено));
        пар.Вставить(«ЭтоМодальныйРежим»,Истина);
        рез=ОткрытьФормуМодально(«Обработка.ВыборПроизвольногоПериода.Форма.ВыборПериода»,пар);
        Если ТипЗнч(рез)<>Тип(«Структура») Тогда // выбрана отмена
            Возврат Новый Структура(«НачалоПериода,КонецПериода»,пар.НачалоПериода,пар.КонецПериода);
        Иначе
            Возврат Новый Структура(«НачалоПериода,КонецПериода»,рез.Начало,рез.Конец);
        КонецЕсли;
    Исключение
        Сообщить(«ВвестиПериодМодально, ошибка: «+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);
        Возврат Новый Структура(«НачалоПериода,КонецПериода»,Дата(1,1,1),Дата(3999,12,31));
    КонецПопытки;
КонецФункции

&НаКлиенте
Процедура ВвестиПериод(рПараметры=«») Экспорт
    Попытка
        Если ТипЗнч(рПараметры)<>Тип(«Структура») Тогда
            рПараметры=Новый Структура;
        КонецЕсли;
        пар=Новый Структура;
        пар.Вставить(«НачалоПериода»,?(рПараметры.Свойство(«НачалоПериода»),рПараметры.НачалоПериода,Дата(1,1,1)));
        пар.Вставить(«КонецПериода»,?(рПараметры.Свойство(«КонецПериода»),рПараметры.КонецПериода,Дата(3999,12,31)));
        пар.Вставить(«ДоступенИнтервал»,?(рПараметры.Свойство(«ДоступенИнтервал»),рПараметры.ДоступенИнтервал,Истина));
        пар.Вставить(«ДоступенПериод»,?(рПараметры.Свойство(«ДоступенПериод»),рПараметры.ДоступенПериод,Истина));
        пар.Вставить(«ВызывающаяФорма»,?(рПараметры.Свойство(«ВызывающаяФорма»),рПараметры.ВызывающаяФорма,Неопределено));
        пар.Вставить(«ЭтоМодальныйРежим»,Ложь);
        ОткрытьФорму(«Обработка.ВыборПроизвольногоПериода.Форма.ВыборПериода»,пар);
    Исключение
        Сообщить(«ВвестиПериод, ошибка: «+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура КомандаВызоваМодально(Команда)
    // например, может применяться где-то посередине кода, где надо запросить период
    рез=ВвестиПериодМодально();
    Предупреждение(«Получен период «+ПредставлениеПериода(рез.НачалоПериода,рез.КонецПериода));
КонецПроцедуры

&НаКлиенте
Процедура КомандаВызоваНемодально(Команда)
    // например, может применяться из другой формы, когда на ней надо указать период
    пар=Новый Структура(«ВызывающаяФорма»,ЭтаФорма.УникальныйИдентификатор);
    ВвестиПериод(пар);
КонецПроцедуры