Выбор периода

- Для неуправляемых форм

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

- Для управляемых форм

/////////////////////////////////////УстановитьПериод///////////////////////////////////////////////

&НаКлиенте

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

Диалог = Новый ДиалогРедактированияСтандартногоПериода();

Диалог.Период = Новый СтандартныйПериод(НачалоПериода, КонецПериода);

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

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

&НаКлиенте

Процедура ВыборПериодаЗавершение(Период, ДополнительныеПараметры) Экспорт

Диалог = ДополнительныеПараметры.Диалог;

Если Период <> Неопределено Тогда

НачалоПериода = Период.ДатаНачала;

КонецПериода = Период.ДатаОкончания;

КонецЕсли;

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

/////////////////////////////////////////////////////////////////////////////////////////////////////

или

Типовой вариант Бухгалтерия 3.0 (АнализСубконто)

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