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