Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 сен 2024, 03:15

Дополнительный отчет БП 3.0

Автор magnifico61, 26 ноя 2015, 16:05

0 Пользователей и 1 гость просматривают эту тему.

magnifico61

Функция СведенияОВнешнейОбработке() Экспорт

РегистрационныеДанные = Новый Структура;
РегистрационныеДанные.Вставить("Наименование", "РасшифровкаПрибыль");
РегистрационныеДанные.Вставить("БезопасныйРежим", Ложь);
РегистрационныеДанные.Вставить("Версия", "1.0");
РегистрационныеДанные.Вставить("Вид", "ДополнительныйОтчет");
РегистрационныеДанные.Вставить("Информация", "Произвольное наименование");
РегистрационныеДанные.Вставить("ХранилищеВариантов", Неопределено);

///////////// команды /////////////////////////
тзКоманд = Новый ТаблицаЗначений;
тзКоманд.Колонки.Добавить("Идентификатор");
тзКоманд.Колонки.Добавить("Представление");
тзКоманд.Колонки.Добавить("Модификатор");
тзКоманд.Колонки.Добавить("ПоказыватьОповещение");
тзКоманд.Колонки.Добавить("Использование");
строкаКоманды = тзКоманд.Добавить();
строкаКоманды.Идентификатор = "1";
строкаКоманды.Представление = "Корректировка";
строкаКоманды.ПоказыватьОповещение = Истина;
строкаКоманды.Использование = "ОткрытиеФормы";
РегистрационныеДанные.Вставить("Команды", тзКоманд);
Возврат РегистрационныеДанные;
КонецФункции


Пытаюсь добавить в дополнительные отчеты в БП 3.0 и выдает ошибку

{ОбщийМодуль.ДополнительныеОтчетыИОбработки.Модуль(2907)}: Поле объекта не обнаружено (ХранилищеВариантов)
Если ВнешнийОбъектМетаданные.ХранилищеВариантов <> Неопределено Тогда

Не могу понять почему

vvashkarin

Попробуйте без этой строчки:
- "РегистрационныеДанные.Вставить("ХранилищеВариантов", Неопределено);"

Добавлено: 26 ноя 2015, 17:21


Еще лучше все таки обозначить типы колонок. но это не к теме ошибки))
тзКоманды = Новый ТаблицаЗначений;
тзКоманды .Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
тзКоманды .Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
тзКоманды .Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
тзКоманды .Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
тзКоманды .Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));

magnifico61


vvashkarin

Цитата: magnifico61 от 26 ноя 2015, 17:50
та же самая ошибка

Напишите расширение файла отчета

SkyNetYar

Функция СведенияОВнешнейОбработке() Экспорт

    ПараметрыРегистрации = Новый Структура;
    МассивНазначений = Новый Массив;
    МассивНазначений.Добавить("");

    ПараметрыРегистрации.Вставить("Вид", "ДополнительныйОтчет");
    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
    ПараметрыРегистрации.Вставить("Наименование", "ВАШЕ ИМЯ ОБРАБОТКИ"); // <<<<< Укажите свое имя отчета
    ПараметрыРегистрации.Вставить("Версия", "1.0");
    ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
    ПараметрыРегистрации.Вставить("Информация", "Дополнительный отчет");

    ТаблицаКоманд = ПолучитьТаблицуКоманд();

    ДобавитьКоманду(ТаблицаКоманд, "Открыть", "", "ОткрытиеФормы", Истина);

    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);

    Возврат ПараметрыРегистрации;
КонецФункции

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

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
  НоваяКоманда = ТаблицаКоманд.Добавить();
  НоваяКоманда.Представление = Представление;
  НоваяКоманда.Идентификатор = Идентификатор;
  НоваяКоманда.Использование = Использование;
  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
  НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры

Все должно работать.
ХранилищеВариантов", Неопределено - это зачем вообще?
Варианты отчета и так неплохо сохраняются ,и без этих параметров.

magnifico61

Все равно ошибка с хранилищем ((

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск