Процедура УстановитьПолучитьПараметрыДатыКомпоновке(Установить=Истина) Экспорт
НайденныйПараметр = ЭтотОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода");
Если НайденныйПараметр>Неопределено тогда
Если Установить тогда
Если ТипЗнч(НайденныйПараметр.Значение)=Тип("Дата") тогда
НайденныйПараметр.Значение = НачалоДня(НачалоПериода);
Иначе
НайденныйПараметр.Значение.Дата = НачалоДня(НачалоПериода);
КонецЕсли;
Иначе
Если ТипЗнч(НайденныйПараметр.Значение)=Тип("Дата") тогда
НачалоПериода = НайденныйПараметр.Значение;
Иначе
НачалоПериода = НайденныйПараметр.Значение.Дата;
КонецЕсли;
КонецЕсли;
НайденныйПараметр.Использование = истина;
КонецЕсли;
НайденныйПараметр = ЭтотОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ОкончаниеПериода");
Если НайденныйПараметр>Неопределено тогда
Если Установить тогда
Если ТипЗнч(НайденныйПараметр.Значение)=Тип("Дата") тогда
НайденныйПараметр.Значение = КонецДня(ОкончаниеПериода);
Иначе
НайденныйПараметр.Значение.Дата = КонецДня(ОкончаниеПериода);
КонецЕсли;
иначе
Если ТипЗнч(НайденныйПараметр.Значение)=Тип("Дата") тогда
КонецПериода = НайденныйПараметр.Значение;
Иначе
КонецПериода = НайденныйПараметр.Значение.Дата;
КонецЕсли;
КонецЕсли;
НайденныйПараметр.Использование = истина;
КонецЕсли;
КонецПроцедуры