Имя: Пароль:
1C
1С v8
Задать параметры СКД програмно
0 bborisko
 
25.02.13
14:30
НовФорма = ПолучитьФорму("ОбщаяФорма.ВыборПроизвольногоПериода");
Результ = НовФорма.ОткрытьМодально();

Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[0].Значение = Результ.НачалоПериода;
Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[1].Значение = Результ.КонецПериода;

Ничего не происходить. Значения не появляются. Подскажите плиз.
1 SherifSP
 
25.02.13
14:32
(0)
ЗначениеПараметраНачалоПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("НачалоПериода"));
       ЗначениеПараметраКонецПериода = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("КонецПериода"));
       ЗначениеПараметраПериод = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Период"));
       
       Если ЗначениеПараметраНачалоПериода <> Неопределено Тогда
           ЗначениеПараметраНачалоПериода.Значение = Форма.НачалоПериода;
           ЗначениеПараметраНачалоПериода.Использование = Истина;
       КонецЕсли;
       
       Если ЗначениеПараметраКонецПериода <> Неопределено Тогда
           ЗначениеПараметраКонецПериода.Значение = ?(Форма.КонецПериода = '0001-01-01', Форма.КонецПериода, КонецДня(Форма.КонецПериода));
           ЗначениеПараметраКонецПериода.Использование = Истина;
       КонецЕсли;
       
       Если ЗначениеПараметраПериод <> Неопределено Тогда
           ЗначениеПараметраПериод.Значение = ?(Форма.Период = '0001-01-01', Форма.Период, КонецДня(Форма.Период));
           ЗначениеПараметраПериод.Использование = Истина;
       КонецЕсли;