1С 8.x : Форма ~ Работа со стандартным периодом

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

ПеременнаяТипаСтандартныйПериод = Новый СтандартныйПериод();

Диалог.Период = ПеременнаяТипаСтандартныйПериод;

Если Диалог.Редактировать() Тогда

   ПеременнаяТипаСтандартныйПериод = Диалог.Период;

КонецЕсли;

Запрос.УстановитьПараметр("ДатаНачала", ПеременнаяТипаСтандартныйПериод.ДатаНачала);

Запрос.УстановитьПараметр("ДатаОкончания", ПеременнаяТипаСтандартныйПериод.ДатаОкончания);   

 НП = Новый НастройкаПериода	;

 НП.ВариантНастройки=ВариантНастройкиПериода.Интервал;

 НП.ВариантНачала=ВариантГраницыИнтервала.КонкретнаяДата;

 НП.ВариантОкончания=ВариантГраницыИнтервала.КонкретнаяДата;

 

 НП.ДатаНачала=ДатаНачала;

 НП.ДатаОкончания=ДатаОкончания;

 Если НП.Редактировать()Тогда

 	ДатаНачала=НП.ПолучитьДатуНачала();

 	ДатаОкончания= НП.ПолучитьДатуОкончания();

 КонецЕсли;

 

 Если ДатаОкончания=Дата('00010101') Тогда

 	ДатаОкончания=ТекущаяДата();

 	КонецЕсли;