|
1 2 3 4 5 6 7 8 |
&НаКлиенте Процедура РабочийВариант(Команда) ИмяОтчета = "КассоваяКнигаБезВариантов"; ПараметрыФормы = Новый Структура; ПараметрыФормы.Вставить("СформироватьПриОткрытии",Истина); ПараметрыФормы.Вставить("ПользовательскиеНастройки",ЗаполнитьПользовательскиеНастройкиОтчета(ИмяОтчета,Новый Структура("НачалоПериода",ТекущаяДата()),"КассоваяКнигаПоДокументам")); ОткрытьФорму("Отчет." + ИмяОтчета + ".Форма", ПараметрыФормы); КонецПроцедуры |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Функция ЗаполнитьПользовательскиеНастройкиОтчета(ИмяОтчета,ПараметрыПользователя,ИмяВарианта) Экспорт ОтчетОбъект=Отчеты[ИмяОтчета].Создать(); КомпоновщикНастроек = ОтчетОбъект.КомпоновщикНастроек; Если ИмяВарианта<>"" Тогда Варианты=ОтчетОбъект.СхемаКомпоновкиДанных.ВариантыНастроек; НайденныйВариант=Варианты.Найти(ИмяВарианта); Если НайденныйВариант<>Неопределено Тогда Настройки=НайденныйВариант.Настройки; Для каждого ПараметрПользователя Из ПараметрыПользователя Цикл Настройки.ПараметрыДанных.УстановитьЗначениеПараметра(ПараметрПользователя.Ключ, ПараметрПользователя.Значение); КонецЦикла; КонецЕсли; Иначе Настройки = КомпоновщикНастроек.ПолучитьНастройки(); КонецЕсли; КомпоновщикНастроек.ЗагрузитьНастройки(Настройки); Возврат КомпоновщикНастроек.ПользовательскиеНастройки; КонецФункции |
Заполнение параметров:
|
1 2 3 4 5 6 7 8 9 10 |
&НаКлиенте Процедура аксИсторияПараметровОборудования(Команда) ИмяОтчета = "ПараметрыОборудования"; ПараметрыОткрытия = Новый Структура; ПараметрыОткрытия.Вставить("СформироватьПриОткрытии", Истина); ПараметрыОткрытия.Вставить("Вариант", ЗаполнитьПользовательскиеНастройкиОтчета(ИмяОтчета, Новый Структура("Номенклатура", ЭтотОбъект.Объект.Ссылка), "Параметры оборудования")); ОткрытьФорму("Отчет." + ИмяОтчета + ".Форма", ПараметрыОткрытия, ЭтаФорма); КонецПроцедуры |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Функция ЗаполнитьПользовательскиеНастройкиОтчета(ИмяОтчета,ПараметрыПользователя,ИмяВарианта) Экспорт ОтчетОбъект = Отчеты[ИмяОтчета].Создать(); КомпоновщикНастроек = ОтчетОбъект.КомпоновщикНастроек; Если ИмяВарианта <> "" Тогда Варианты = ОтчетОбъект.СхемаКомпоновкиДанных.ВариантыНастроек; НайденныйВариант = Варианты.Найти(ИмяВарианта); Если НайденныйВариант <> Неопределено Тогда Настройки = НайденныйВариант.Настройки; Для Каждого ПараметрПользователя Из ПараметрыПользователя Цикл Настройки.ПараметрыДанных.УстановитьЗначениеПараметра(ПараметрПользователя.Ключ, ПараметрПользователя.Значение); КонецЦикла; КонецЕсли; Иначе Настройки = КомпоновщикНастроек.ПолучитьНастройки(); КонецЕсли; КомпоновщикНастроек.ЗагрузитьНастройки(Настройки); Возврат КомпоновщикНастроек.Настройки; КонецФункции |