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