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

14.11.13

Разработка - Инструментарий разработчика

Почти привычное окно указания периода, давно всем знакомая форма объекта НастройкаПериода. Но теперь - для управляемых форм. Обработка и 2 способа её вызова. Сэкономит время программисту, которого клиент попросил "сделать, как было раньше".

Скачать файлы

Наименование Файл Версия Размер
ВыборПериодаУФ
.epf 9,64Kb
11
.epf 9,64Kb 11 Скачать

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

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

Найденные коллегами примеры похожих решений: //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)));
       
пар.Вставить("ДоступенИнтервал",?(рПараметры.Свойство("ДоступенИнтервал"),рПараметры.ДоступенИнтервал,Истина));
       
пар.Вставить("ДоступенПериод",?(рПараметры.Свойство("ДоступенПериод"),рПараметры.ДоступенПериод,Истина));
       
пар.Вставить("ВызывающаяФорма",?(рПараметры.Свойство("ВызывающаяФорма"),рПараметры.ВызывающаяФорма,Неопределено));
       
пар.Вставить("ЭтоМодальныйРежим",Ложь);
       
ОткрытьФорму("Обработка.ВыборПроизвольногоПериода.Форма.ВыборПериода",пар);
    Исключение
       
Сообщить("ВвестиПериод, ошибка: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);
    КонецПопытки;
КонецПроцедуры

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

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

настройка периода ввод периода диалог периода управляемые формы УФ

См. также

SALE! 20%

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

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

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

13000 10400 руб.

02.09.2020    122233    673    389    

715

SALE! 25%

Infostart PrintWizard

Пакетная печать Печатные формы Инструментарий разработчика Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 15300 руб.

06.10.2023    7313    22    6    

39

SALE! 20%

Infostart УДиФ: Управление данными и формами

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

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

10000 8000 руб.

10.11.2023    3560    11    1    

34

SALE! 30%

PowerTools

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

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177768    1074    0    

849

Многопоточность. Универсальный «Менеджер потоков» 2.1

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

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018    99360    239    97    

296

[ЕХТ] Фреймворк для Расширений 1С

Инструментарий разработчика Платформа 1С v8.3 Управляемые формы Платные (руб)

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019    18124    6    8    

40

1С HTML Шаблоны / HTML Templates

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    28114    3    10    

15

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

Инструментарий разработчика Обмен между базами 1C Платформа 1С v8.3 Платные (руб)

В процессе работы в 1С часто возникает потребность получить данные из другой базы.  Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019    23605    15    15    

32
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. anton.fly7 173 13.11.13 15:56 Сейчас в теме
я вот такую делал, когда с 1с77 переходил ))

http://infostart.ru/public/77517/
2. Yashazz 4709 13.11.13 18:12 Сейчас в теме
(1) Дык, я нутром чуял, шо баяню. Ну не могло за столько лет не быть ни одной подобной разработки. Кстати, интерфейс симпатичнее, чем у моей, только бы ачипятки поправить, и вообще супер. ))
7. yuraos 991 14.11.13 12:03 Сейчас в теме
(1)(4)(5)
так сто можешь для порядку навставлять в статью ссылок.
---
чтоб собратьям приятное сделать...
:)
3. AltF1 8 14.11.13 08:19 Сейчас в теме
Типовой механизм в упр. формах достойно выглядит
8. Yashazz 4709 14.11.13 12:18 Сейчас в теме
(3) Это который? То же, что у меня на третьем скрине?
4. yuraos 991 14.11.13 11:54 Сейчас в теме
Плюсану ка собрату по разуму.
:)
а вот мой скромненький аналог:
EditPeriod
6. yuraos 991 14.11.13 12:01 Сейчас в теме
(5)
еще одну статейку видел -
но интерфейс диалога выбора совсем не стандартный
и только для обычного приложения.
9. Yashazz 4709 17.11.13 00:49 Сейчас в теме
Ссылки вставил, правда, что-то при редактировании не задалось... Кстати, посмотрел их - именно идейной копии того, что есть штатно в обычных формах, таки нету, а есть разные вариации нестандартного вида.
10. anig99 2843 17.11.13 17:03 Сейчас в теме
В процедуре ПриСозданииНаСервере есть ошибка

Если ЗначениеЗаполнено(Параметры.НачалоПериода) Тогда
		спНачало = "Указанная дата";
		ДатаНачала = текдата;
	Иначе
		спНачало = "Без ограничения";
	КонецЕсли;


Должно быть

Если ЗначениеЗаполнено(Параметры.НачалоПериода) Тогда
		спНачало = "Указанная дата";
		ДатаНачала = Параметры.НачалоПериода;
	Иначе
		спНачало = "Без ограничения";
	КонецЕсли;
12. Yashazz 4709 20.11.13 17:26 Сейчас в теме
(10) Ага, спасибо, упустил.
(11) Да уж. "Стандартный период" са-а-авсем не панацея.
11. DAnry 8 20.11.13 16:46 Сейчас в теме
Плюсанул, лишний раз доказывает, что конфигурации на управляемых формах требуют доводки и "прилизывания"
13. Yashazz 4709 07.01.14 21:44 Сейчас в теме
Кстати, я обратил внимание, что разукрашка "съедает" сивмолы "<>", так что если копируете, будьте внимательны. Если нет условия, то это оно самое. И, вообще, не худо бы сообщить об этом автору разукрашки.
Оставьте свое сообщение