LaCastet
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Имеем сильно доработанную УНФ 1.5.4.40, платформа 8.3.13.1644. Переношу вручную процедуры из последних релизов для ставки НДС 20%.
В общем модуле ОбщегоНазначения флаги Сервер, Внешнее соединение добавляю функцию:
Код: Функция НайтиОшибкуДоступностиРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, ПроверяемыеВыражения)
МетаданныеОбъекта = Метаданные.НайтиПоПолномуИмени(ПолноеИмяОбъектаМетаданных);
Если МетаданныеОбъекта = Неопределено Тогда
Возврат Новый Структура("Ошибка, ОписаниеОшибки", Истина,
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Ошибка получения метаданных ""%1""'"), ПолноеИмяОбъектаМетаданных));
КонецЕсли;
// Разрешение вызова из безопасного режима внешней обработки или расширения.
// Информация о доступности полей источника схемы при проверке метаданных не является секретной.
УстановитьОтключениеБезопасногоРежима(Истина);
УстановитьПривилегированныйРежим(Истина);
Схема = Новый СхемаЗапроса;
Пакет = Схема.ПакетЗапросов.Добавить(Тип("ЗапросВыбораСхемыЗапроса"));
Оператор = Пакет.Операторы.Получить(0);
Источник = Оператор.Источники.Добавить(ПолноеИмяОбъектаМетаданных, "Таблица");
ТекстОшибки = "";
Для Каждого ТекущееВыражение Из ПроверяемыеВыражения Цикл
Если Не ПолеИсточникаСхемыЗапросаДоступно(Источник, ТекущееВыражение) Тогда
ТекстОшибки = ТекстОшибки + Символы.ПС + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = '- Поле объекта ""%1"" не найдено'"), ТекущееВыражение);
КонецЕсли;
КонецЦикла;
Возврат Новый Структура("Ошибка, ОписаниеОшибки", Не ПустаяСтрока(ТекстОшибки), ТекстОшибки);
КонецФункции
|
УстановитьОтключениеБезопасногоРежима(Истина) вызывает ошибку Сервер, хотя в модуле флаг Сервер стоит. На последней УНФ ошибок нет.
----------
Пиво — это еще одно доказательство того, что Господь любит нас и хочет, чтоб мы были счастливы! |
|
