Выбор периода для управляемых форм

26.06.14

Форма выбора стандартного периода для управляемых форм

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
ВыборПериодаУпрФормы.cf .cf 12,15Kb 70	70	Скачать (1 SM)	Купить за 1 850 руб.

Пример (8.3 интерфейс такси):

На любой форме добавляем кнопку.

в команде кнопки прописываем:

&НаКлиенте
Процедура ВыбратьПериод(Команда)

         ОписаниеОповещения = Новый ОписаниеОповещения("РезультатВыбораПериода",ЭтотОбъект);
         ОткрытьФорму("ОбщаяФорма.ФормаВыбораПериода",,,,,,ОписаниеОповещения);

КонецПроцедуры

 

&НаКлиенте
Процедура РезультатВыбораПериода(Результат, ДополнительныеПараметры) Экспорт

         Если Результат <> Неопределено Тогда
                  ЭтотОбъект.ДатаНачала = Результат.ДатаНачала;
                  ЭтотОбъект.ДатаОкончания = Результат.ДатаОкончания; 
         КонецЕсли;

КонецПроцедуры

Форма выбора стандартного периода

+21 –1

См. также

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

5000 руб.

14.01.2016 55604 17 23

Управление дашбордами

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020 19918 28 6

Дизайн Гайд для создания форм на 1С. Когда и как использовать различные элементы, примеры и антипримеры по использованию

Работа с интерфейсом Программист Стажер Платформа 1С v8.3 Бесплатно (free)

Это инструкция по дизайну форм в среде 1С. Гайд охватывает рекомендации и стандарты для оптимизации пользовательского интерфейса. В гайде содержатся указания по использованию элементов интерфейса, включая как основные, так и продвинутые аспекты. Предоставляются также примеры и антипримеры для наглядного понимания принципов дизайна

20.08.2024 23341 mrXoxot 44

130

Прогресс-бар в поле динамического списка

Работа с интерфейсом Программист Платформа 1С v8.3 Бесплатно (free)

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

27.05.2024 11896 smielka 37

105

Новогоднее оформление для 1С

Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

27.12.2023 18327 1228 elcoan 53

125

Конструктор HTML, CSS и javascript

Инструментарий разработчика Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

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

3 стартмани

10.04.2023 12857 167 acces969 31

126

Модель состояния для MVC

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022 7911 kalyaka 6

[Расширение] Смена стиля оформления интерфейса

Работа с интерфейсом Программист Пользователь Платформа 1С v8.3 8.3.14 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Абонемент ($m)

Ещё с времен платформы 8.3.13 можно изменять цвет стилей интерфейса главного окна. Данное расширение позволит вам выбрать из подготовленных десятка стилей на свой вкус.

1 стартмани

01.07.2022 26818 422 rpgshnik 69

101

Комментарии

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

Свернуть все

1. Adeptus 244 27.06.14 10:11 Сейчас в теме

Не плохо но вот это получше выглядит и поудобнее!
http://infostart.ru/public/90540/

2. w-divin 27.06.14 14:53 Сейчас в теме

(0) я просто в шоке от таких публикаций. А сделайте еще публикации с "ПоказатьВопрос" и "ПоказатьПредупреждение". А еще можно вообще весь СП выложить...

(1) Adeptus, лучше, но не канает в УФ )))

Ответить

3. w-divin 27.06.14 14:54 Сейчас в теме

А еще и обработку скачивать с 2мя реквизитами и 12ю строками текста - вообще превосходно...

4. MaxxiMiliSan 267 27.06.14 15:34 Сейчас в теме

стандратная удобней)

5. Nuuq 76 09.02.15 18:18 Сейчас в теме

Я вот так сделал:
- в обработке определено 2 реквизита Дата1 и Дата2
- в УФ форме добавлена кнопка и команда формы

&НаКлиенте
Процедура КомандаВыбратьПериод(Команда)
	
	Диалог = Новый ДиалогРедактированияСтандартногоПериода();								 
	Диалог.Период = Новый СтандартныйПериод(Объект.Дата1, Объект.Дата2);	    
	Если (Диалог.Редактировать()) Тогда
		Объект.Дата1 = Диалог.Период.ДатаНачала;
		Объект.Дата2 = Диалог.Период.ДатаОкончания;
	КонецЕсли;

КонецПроцедуры

Показать

... по-моему просто и удобно

Ответить

6. Katano 28.03.15 03:41 Сейчас в теме

(5) Nuuq, А как же модальность ))

8. ehcore 22.06.16 10:45 Сейчас в теме

(5) Nuuq, спасибо! Изменил немного код для использования в режиме модальности:

&НаКлиенте
Процедура ВыбратьПериод(Команда)
    Диалог = Новый ДиалогРедактированияСтандартногоПериода();                                 
    Диалог.Период = Новый СтандартныйПериод(Объект.Дата1, Объект.Дата2);        
	ОписаниеОповещенияОЗакрытии = Новый ОписаниеОповещения("ВыполнитьПослеВыбораПериода",ЭтотОбъект);
	Диалог.Показать(ОписаниеОповещенияОЗакрытии); 
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьПослеВыбораПериода(Результат, Параметры) Экспорт
	Если Результат <> Неопределено Тогда
		Объект.Дата1 = Результат.ДатаНачала;
		Объект.Дата2 = Результат.ДатаОкончания;
	КонецЕсли;	
КонецПроцедуры

Показать

Написав сообщение увидел, что код почти повторяет код автора темы, за исключением использования выбора периода через стандартные периоды.

Ответить

9. irvin12345 93 24.10.16 03:44 Сейчас в теме

(8) ehcore, Сначала сделал то же самое, а потом увидел ваш комментарий.
Ваш вариант все равно лучше, тк не везде есть общая форма выбора периода, а в моём случае - выбирает дату а не период (ЗУП ГУ)

13. nissti 6 27.08.21 17:13 Сейчас в теме

Спасибо большое! Как раз нужна обработка, используемая в БУХ и ЗУП. Так вот общей формы "ВыборСтандартногоПериода", которая есть в БУХ, в ЗУПе нет, а "ВыборПериода" - что-то не осилила, как его прикрутить...Он в ЗУП для ПФР только, так-то везде месяц и все..
В обычных формах я всегда вот так использую

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

Показать

а в управляемых впервые делаю. Спасибо!

7. chmv 03.04.15 13:25 Сейчас в теме

а как её вызвать из СКД?

10. Xershi 1262 01.03.18 14:43 Сейчас в теме

(7) в СКД проще использовать общую форму!

11. yuraskas 178 27.05.21 11:29 Сейчас в теме

Использовал код (8). И обнаружил странное поведение формы. Если открыть форму, не выбирать период, закрыть форму - все ок. А вот если выбрать период, и закрыть форму - то при закрытии программа заходить в "Процедура ВыполнитьПослеВыбораПериода(Результат, Параметры) Экспорт", почему???

12. nnnnnndfge 11.06.21 12:36 Сейчас в теме

Отличие хорошая разработка! Удобно пример кода, очень благодарить!

14. YA_420766153 19.10.21 13:23 Сейчас в теме

(2)Немного разжую

&НаСервере
Функция ПолучитьДаты()
	Период = Новый Структура;
	Период.Вставить("НачалоМесяца",НачалоМесяца(ТекущаяДата()));
	Период.Вставить("КонецМесяца",ТекущаяДата());
	Возврат Период
КонецФункции

&НаКлиенте
Процедура ДиалогПериод(Команда)
	Диалог = Новый ДиалогРедактированияСтандартногоПериода();
	ПериодОтбора = Новый Структура;
	Даты = ПолучитьДаты(); 
    Диалог.Период = Новый СтандартныйПериод(Даты.НачалоМесяца, Даты.КонецМесяца);        
    Если (Диалог.Редактировать()) Тогда
        ПериодОтбора.Вставить("ДатаНачала", Диалог.Период.ДатаНачала);
        ПериодОтбора.Вставить("ДатаОкончания", Диалог.Период.ДатаОкончания);
    КонецЕсли;
КонецПроцедуры

Показать

15. mihco 2 16.12.21 20:39 Сейчас в теме

Вот так правильно, без модальных окон:

&НаКлиенте
Процедура ВыбратьПериод(Команда)
	
	Диалог = Новый ДиалогРедактированияСтандартногоПериода();
	Диалог.Период.ДатаНачала    = НачалоПериода;
	Диалог.Период.ДатаОкончания = КонецПериода;
	
	ДополнительныеПараметры = Новый Структура("Диалог", Диалог);
	ОписаниеОповещения = Новый ОписаниеОповещения("ВыбратьПроизвольныйПериодЗавершение",
		ЭтотОбъект, ДополнительныеПараметры);
	Диалог.Показать(ОписаниеОповещения);
	
КонецПроцедуры 

&НаКлиенте
Процедура ВыбратьПроизвольныйПериодЗавершение(Период, ДополнительныеПараметры) Экспорт
	
	Диалог = ДополнительныеПараметры.Диалог;
	
	Если Период <> Неопределено Тогда
		
		НачалоПериода= Диалог.Период.ДатаНачала;
		КонецПериода= Диалог.Период.ДатаОкончания;
		
	КонецЕсли;
	
КонецПроцедуры

Показать

16. e.a.afanasyev 28.01.22 19:02 Сейчас в теме

&НаКлиенте
Асинх Процедура КомандаВыбратьПериодДатаЗаказа(Команда)
	Диалог = Новый ДиалогРедактированияСтандартногоПериода();                                 
    Диалог.Период = Новый СтандартныйПериод(ДатаЗаказаНачалоПериода, ДатаЗаказаКонецПериода);        
    Обещание = Диалог.РедактироватьАсинх(); 
	Результат = Ждать Обещание; 
	Если Не Результат = Неопределено Тогда
		ДатаЗаказаНачалоПериода = Результат.ДатаНачала;
		ДатаЗаказаКонецПериода = Результат.ДатаОкончания;	
	КонецЕсли;
КонецПроцедуры

Показать