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

 НП = Новый НастройкаПериода	;
 НП.ВариантНастройки=ВариантНастройкиПериода.Интервал;
 НП.ВариантНачала=ВариантГраницыИнтервала.КонкретнаяДата;
 НП.ВариантОкончания=ВариантГраницыИнтервала.КонкретнаяДата;
 
 НП.ДатаНачала=ДатаНачала;
 НП.ДатаОкончания=ДатаОкончания;
 Если НП.Редактировать()Тогда
 	ДатаНачала=НП.ПолучитьДатуНачала();
 	ДатаОкончания= НП.ПолучитьДатуОкончания();
 КонецЕсли;
 
 Если ДатаОкончания=Дата('00010101') Тогда
 	ДатаОкончания=ТекущаяДата();
 	КонецЕсли;   

  // как в журнале документов программно изменять период, пример:
НастройкаПериода = ЭлементыФормы.Список.  СтандартныйПериод ;
НастройкаПериода.ВариантНачала = ВариантГраницыПериода.Месяц;
НастройкаПериода.ВариантОкончания = ВариантГраницыИнтервала.БезОграничения;
НастройкаПериода.РедактироватьКакИнтервал = Истина;
НастройкаПериода.РедактироватьКакПериод = Ложь;   

 ДокументСписок.Отбор.Дата.Использование = Истина;
ДокументСписок.Отбор.Дата.ВидСравнения  = ВидСравнения.ИнтервалВключаяГраницы;
ДокументСписок.Отбор.Дата.ЗначениеС  = ДатаНачало;
ДокументСписок.Отбор.Дата.ЗначениеПо = ДатаКонец;
ДокументСписок.Отбор.Дата.установить();