ОШИБКА! Добавление внешней обработки (Отчет) Не удалось выполнить команду. Метод объекта не обнаружен (ВыполнитьКоманду)
&НаКлиенте
Функция ПолучитьМакетНаСервере()
Возврат РеквизитФормыВЗначение("Объект").ПолучитьМакет("Макет");
КонецФункции
&НаСервере
Функция ПолучитьМакет(Макет)
ЭтотОтчет = РеквизитФормыВЗначение("Отчет");
Макет = ЭтотОтчет.ПолучитьМакет(Макет);
Возврат Макет
КонецФункции
&НаКлиенте
Функция СведенияОВнешнейОбработке() Экспорт
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
ПараметрыРегистрации.Вставить("Назначение", "Документ.РеализацияТоваровУслуг");
ПараметрыРегистрации.Вставить("Наименование", "АктВыполненныхРабот");
ПараметрыРегистрации.Вставить("Версия", "1.0");
ПараметрыРегистрации.Вставить("Информация", "Дополнительная отчетная форма");
ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
Команды = ПолучитьТаблицуКоманд();
ДобавитьКоманду(Команды, "АктВыполненныхРабот",
"АктВыполненныхРабот",
"ВызовСерверногоМетода",
Ложь,
"Отчет");
ПараметрыРегистрации.Вставить("Команды", Команды);
Возврат ПараметрыРегистрации;
КонецФункции
&НаКлиенте
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование = "ВызовСерверногоМетода", ПоказыватьОповещение = Ложь, Модификатор = "Отчет")
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
Функция ПолучитьТаблицуКоманд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Возврат Команды;
КонецФункции
&НаСервере
Процедура СформироватьОтчетНаСервере()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслуг.Дата,
| РеализацияТоваровУслуг.НомерАвтомобиля,
| РеализацияТоваровУслуг.МаркаАвтомобиля,
| РеализацияТоваровУслуг.Водитель КАК Фамилия,
| РеализацияТоваровУслуг.Номер,
| РеализацияТоваровУслуг.СуммаДокумента,
| РеализацияТоваровУслуг.Комментарий
|ИЗ
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| РеализацияТоваровУслуг.Дата МЕЖДУ &Дата1 И &Дата2
| И РеализацияТоваровУслуг.Контрагент = &Контрагент"
;
Запрос.УстановитьПараметр("Дата1", НачалоДня(Объект.ДатаНачало));
Запрос.УстановитьПараметр("Дата2", КонецДня(Объект.ДатаОкончания));
Запрос.УстановитьПараметр("Контрагент", Объект.Контрагент);
ТЗ = Запрос.Выполнить().Выгрузить();
//ПолучениеОбщегоМакета
ТабличныйДокумент = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
//НаСервере("Макет");
//ПолучениеОбласти"Заголовок"
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
ОбластьМакета.Параметры.ТекстЗаголовка = "Акт об оказании услуг";
ТабличныйДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
СтруктураДанныхПредставлениеПоставщика = Новый Структура;
ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(ФормированиеПечатныхФорм.СведенияОЮрФизЛице(Объект.Контрагент,Объект.ДатаНачало),
"ПолноеНаименование");
СтруктураДанныхПредставлениеПоставщика.Вставить("ПредставлениеПоставщика" ,ПредставлениеПоставщика);
ОбластьМакета.Параметры.Заполнить(СтруктураДанныхПредставлениеПоставщика);
ТабличныйДокумент.Вывести(ОбластьМакета);
//ПолучениеШапкаТаблицы
ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");
ТабличныйДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("СтрокаТаблицыКомплектующие");
Для Каждого СтрТЗ Из ТЗ Цикл
//ОбластьМакета.Параметры.Заполнить(СтрТЗ);
ОбластьМакета.Параметры.Заполнить.Номер = СтрТЗ.РеализацияТоваровУслуг.Код;
ОбластьМакета.Параметры.Заполнить.Дата = СтрТЗ.РеализацияТоваровУслуг.Дата;
ОбластьМакета.Параметры.Заполнить.НомерАвтомобиля = СтрТЗ.РеализацияТоваровУслуг.НомерАвтомобиля;
ОбластьМакета.Параметры.Заполнить.МаркаАвтомобиля = СтрТз.РеализацияТоваровУслуг.МаркаАвтомобиля;
ОбластьМакета.Параметры.Заполнить.Фамилия = СтрТз.РеализацияТоваровУслуг.Водитель;
ОбластьМакета.Параметры.Заполнить.НомерРеализации = СтрТз.РеализацияТоваровУслуг.Номер;
ОбластьМакета.Параметры.Заполнить.Сумма = СтрТз.РеализацияТоваровУслуг.СуммаДокумента;
ОбластьМакета.Параметры.Заполнить.Комментарий = СтрТз.РеализацияТоваровУслуг.Комментарий;
ТабличныйДокумент.Вывести(ОбластьМакета);
// вывести строку
КонецЦикла;
ОбластьМакета = Макет.ПолучитьОбласть("ПодвалТаблицы");
СуммаДокумента = СтрТз.РеализацияТоваровУслуг.СуммаДокумента;
//СтруктураДанныхИтог = НовыйСтруктура;
//СтруктураДанныхИтог.Вставить("Всего",СуммаДокумента);
//ОбластьМакета.Параметры.Заполнить(СтруктураДанныхИтог);
ТабличныйДокумент.Вывести(ОбластьМакета);
// вывести подвал
ОбластьМакета = Макет.ПолучитьОбласть("ПодвалРоспись");
СтруктураДанныхПредставлениеПолучателя = Новый Структура;
ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(ФормированиеПечатныхФорм.СведенияОЮрФизЛице(Объект.Контрагент,Объект.ДатаНачало),
"ПолноеНаименование");
СтруктураДанныхПредставлениеПолучателя.Вставить("ПредставлениеПолучателя" ,ПредставлениеПолучателя);
ОбластьМакета.Параметры.Заполнить(СтруктураДанныхПредставлениеПолучателя)
КонецПроцедуры
&НаКлиенте
Процедура СформироватьОтчет(Команда)
СформироватьОтчетНаСервере();
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначения) Экспорт
//ИдентификаторКоманды = НоваяКоманда.Идентификатор;
КонецПроцедуры
ПоказатьПо теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Функция СведенияОВнешнейОбработке() Экспорт
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
ПараметрыРегистрации.Вставить("Назначение", "Документ.РеализацияТоваровУслуг");
ПараметрыРегистрации.Вставить("Наименование", "АктВыполненныхРабот");
ПараметрыРегистрации.Вставить("Версия", "1.0");
ПараметрыРегистрации.Вставить("Информация", "Дополнительная отчетная форма");
ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
Команды = ПолучитьТаблицуКоманд();
ДобавитьКоманду(Команды, "АктВыполненныхРабот",
"АктВыполненныхРабот",
"ВызовСерверногоМетода",
Ложь,
"Отчет");
ПараметрыРегистрации.Вставить("Команды", Команды);
Возврат ПараметрыРегистрации;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование = "ВызовСерверногоМетода", ПоказыватьОповещение = Ложь, Модификатор = "Отчет")
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
Функция ПолучитьТаблицуКоманд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Возврат Команды;
КонецФункции
ПоказатьВот код обработки
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот