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

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

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

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

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

КонецЕсли;

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

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

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

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

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

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

 

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

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

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

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

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

 КонецЕсли;

 

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

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

 	КонецЕсли;   

  // как в журнале документов программно изменять период, пример:

НастройкаПериода = ЭлементыФормы.Список.  СтандартныйПериод ;

НастройкаПериода.ВариантНачала = ВариантГраницыПериода.Месяц;

НастройкаПериода.ВариантОкончания = ВариантГраницыИнтервала.БезОграничения;

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

НастройкаПериода.РедактироватьКакПериод = Ложь;   

 ДокументСписок.Отбор.Дата.Использование = Истина;

ДокументСписок.Отбор.Дата.ВидСравнения  = ВидСравнения.ИнтервалВключаяГраницы;

ДокументСписок.Отбор.Дата.ЗначениеС  = ДатаНачало;

ДокументСписок.Отбор.Дата.ЗначениеПо = ДатаКонец;

ДокументСписок.Отбор.Дата.установить();