Имя: Пароль:
1C
1С v8
Вопрос по СКД
0 seraf
 
13.12.12
19:59
Привет. Учусь расшифровку делать, проблема в том что в расшифровку нужно передавать не только отбор, но и даты, а в моём варианте при открытии устанавливаются параметры скд, поэтому приходится еще раз нажимать сформировать.
Как передать их сразу, аналогично отбору?

&НаКлиенте
Процедура РезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
   
   Перем ВыбранноеДействие, ПараметрДействия;
   
   СтандартнаяОбработка = Ложь;
   
   ЗначениеРасшифровки = ПолучитьЗначениеРасшифровки(Расшифровка);
   
   Если ТипЗнч(ЗначениеРасшифровки) = Тип("СправочникСсылка.Номенклатура") Тогда
       
       Отбор = Новый Структура("Номенклатура", ЗначениеРасшифровки);
       ПараметрыОтчета = Новый Структура("СформироватьПриОткрытии, Отбор", Истина, Отбор);
       ОткрытьФорму("Отчет.АнализЗатрат.Форма", ПараметрыОтчета, ЭтаФорма, Истина);
       
   КонецЕсли;

КонецПроцедуры

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

   КонецЕсли;
   
КонецПроцедуры

&НаКлиенте
Процедура УстановитьПараметрыПериода(ДатаНач, ДатаКон)
   
   Параметр = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("НачПер"));
   Параметр.Значение = ДатаНач;
   Параметр.Использование = Истина;
   Параметр = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("КонПер"));
   Параметр.Значение = ДатаКон;
   Параметр.Использование = Истина;
   
КонецПроцедуры
1 seraf
 
13.12.12
20:00
(0) при открытии конечно даты беру из владельца сейчас, опечатка
2 seraf
 
14.12.12
16:56
апну, а вдруг)