Процедура ПриОткрытии() 
    Если Открыта() Тогда 
        //УстановитьСтандартныйИнтервалОтчета(ДатаНач,ДатаКон); 
    КонецЕсли; 
    ОбновитьПараметрыПериодаПоФорме(КомпоновщикНастроек,ЭтаФорма);     
КонецПроцедуры 


Процедура ДействияФормыПечать(Кнопка) 
    табдок = ЭлементыФормы.Результат; 
    табдок.Записать(КаталогВременныхФайлов()+"\TABLE.xls",ТипФайлаТабличногоДокумента.XLS97); 
    ЗапуститьПриложение(КаталогВременныхФайлов()+"\TABLE.xls"); 
КонецПроцедуры 

Процедура ОбновитьПараметрыПериодаПоФорме(КомпоновщикНастроек, Форма) Экспорт 
     
    ЗначениеПараметраНачалоПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ДатаНач")); 
    ЗначениеПараметраКонецПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ДатаКон")); 
    ЗначениеПараметраСЧ = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("СЧ")); 
     
    Если ЗначениеПараметраНачалоПериода <> Неопределено Тогда 
        ЗначениеПараметраНачалоПериода.Значение = Форма.ДатаНач; 
        ЗначениеПараметраНачалоПериода.Использование = (Форма.ДатаНач <> '0001-01-01'); 
    КонецЕсли; 
     
    Если ЗначениеПараметраКонецПериода <> Неопределено Тогда 
        ЗначениеПараметраКонецПериода.Значение = ?(Форма.ДатаКон = '0001-01-01', Форма.ДатаКон, КонецДня(Форма.ДатаКон)); 
        ЗначениеПараметраКонецПериода.Использование = (Форма.ДатаКон <> '0001-01-01'); 
    КонецЕсли; 
    Сч = Новый Массив; 
    Сч.Добавить("004"); 
    Сч.Добавить("29.10"); 
     
    Если ЗначениеПараметраСЧ <> Неопределено Тогда 
        ЗначениеПараметраСЧ.Значение = Сч; 
        ЗначениеПараметраСЧ.Использование = Истина; 
    КонецЕсли; 
     
КонецПроцедуры 

Процедура НастройкаПериодаНажатие(Элемент) 
    Если НП.Редактировать() Тогда 
        ДатаНач = НП.ПолучитьДатуНачала(); 
        ДатаКон = НП.ПолучитьДатуОкончания(); 
        ОбновитьПараметрыПериодаПоФорме(КомпоновщикНастроек,ЭтаФорма); 
    КонецЕсли; 
КонецПроцедуры 

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка) 
    НП = Новый НастройкаПериода; 
    НП.ВариантНастройки = ВариантНастройкиПериода.Период; 
    НП.УстановитьПериод(НачалоДня(ДатаНач), ?(ДатаКон = '00010101', ДатаКон, КонецДня(ДатаКон))); 
    ОбновитьПараметрыПериодаПоФорме(КомпоновщикНастроек,ЭтаФорма); 
КонецПроцедуры 

Процедура КонтрагентПриИзмении(Элемент) 
ОбновитьПараметрыКонтрагента(КомпоновщикНастроек,ЭтаФорма); 
КонецПроцедуры 

Процедура ОбновитьПараметрыКонтрагента(КомпоновщикНастроек, Форма) Экспорт 

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