Сформировать отчет СКД в привилегированном режиме
Как сформировать отчет СКД в привилегированном режиме? Делаю так не работает:
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
СтандартнаяОбработка= Ложь;
УстановитьПривилегированныйРежим(Истина);
Настройки = КомпоновщикНастроек.ПолучитьНастройки();
П_пользователь = Настройки.ПараметрыДанных.Элементы.Найти("ТекущийПользователь");
Если Не П_пользователь = Неопределено Тогда
П_пользователь.Значение = Пользователи.ТекущийПользователь();
КонецЕсли;
Если Не РольДоступна("Снабжение") Тогда
Для Каждого ЭлКолонки Из Настройки.Выбор.Элементы Цикл
Если ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("Цена") Тогда
ЭлКолонки.Использование = Ложь;
КонецЕсли;
Если ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("СуммаЗаказа") Тогда
ЭлКолонки.Использование = Ложь;
КонецЕсли;
Если ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("ЦенаПоступления") Тогда
ЭлКолонки.Использование = Ложь;
КонецЕсли;
Если ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("СуммаПоступления") Тогда
ЭлКолонки.Использование = Ложь;
КонецЕсли;
Если ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("ЦенаТребуется") Тогда
ЭлКолонки.Использование = Ложь;
КонецЕсли;
Если ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("СуммаТребуется") Тогда
ЭлКолонки.Использование = Ложь;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки,ДанныеРасшифровки);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.НачатьВывод();
ЭлементРезультата = ПроцессорКомпоновки.Следующий();
Пока ЭлементРезультата <> Неопределено Цикл
ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);
ЭлементРезультата = ПроцессорКомпоновки.Следующий();
КонецЦикла;
ПроцессорВывода.ЗакончитьВывод();
УстановитьПривилегированныйРежим(Ложь );
КонецПроцедуры ПоказатьОтветы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Установить привилегированный режим можно в общем модуле.
В модуле объекта внешнего отчета:
В общем модуле КФ_СерверВызов:
В модуле объекта внешнего отчета:
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
Организации=КФ_СерверВызов.ДоступныеОрганизацииПоДокументам("ЗаявкаНаРасходованиеДенежныхСредств");
Параметры=Новый Структура("Организации",Организации);
ВПривилегированномРежиме=Истина;
ССообщениями=Истина;
КФ_СерверВызов.СКДПриКомпоновкеРезультата(ЭтотОбъект,ДокументРезультат,ДанныеРасшифровки,СтандартнаяОбработка,
ВПривилегированномРежиме,Параметры,ССообщениями);
КонецПроцедуры
ПоказатьВ общем модуле КФ_СерверВызов:
Функция СКДПриКомпоновкеРезультата(ОтчетОбъект,ДокументРезультат,ДанныеРасшифровки,СтандартнаяОбработка,
ВПривилегированномРежиме=Ложь,Параметры=Неопределено,ССообщениями=Ложь,ОриентСтр=Неопределено,ИспользоватьКФМакетОформления=Истина) Экспорт
Если ВПривилегированномРежиме Тогда
//Для внешних отчетов в функции СведенияОВнешнейОбработке()
//нужно ПараметрыРегистрации.Вставить("БезопасныйРежим",Ложь). Иначе не работает.
УстановитьПривилегированныйРежим(Истина);
Если ССообщениями И Не ПривилегированныйРежим() Тогда
Сообщить("Ошибка в программе. Не установился привилегированный режим.");
КонецЕсли;
КонецЕсли;
СтандартнаяОбработка=Ложь;
//Макет компоновки
КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных;
Настройки=ОтчетОбъект.КомпоновщикНастроек.ПолучитьНастройки();
...
КонецФункции
Показать