1С 8.3 Добавляем команды в общую форму отчета на БСП
Данные > Примеры кода 1С > 1С 8.3 Форма, элементы
Перейти в раздел примеры кода 1С 8.3:
В общем модуле ВариантыОтчетовПереопределяемый, в процедуре НастроитьВариантыОтчетов добавляем:
Код 1С 8.3:
Процедура НастроитьВариантыОтчетов(Настройки) Экспорт
ВариантыОтчетов.НастроитьОтчетВМодулеМенеджера(Настройки, Метаданные.Отчеты.тдс_ОтчетПоДебиторскойЗадолженности);
КонецПроцедуры
ВариантыОтчетов.НастроитьОтчетВМодулеМенеджера(Настройки, Метаданные.Отчеты.тдс_ОтчетПоДебиторскойЗадолженности);
КонецПроцедуры
В модуль менеджера отчета добавляем процедуру
Код 1С 8.3:
Процедура НастроитьВариантыОтчета(Настройки, НастройкиОтчета) Экспорт
НастройкиОтчета.ОпределитьНастройкиФормы = Истина;
КонецПроцедуры
НастройкиОтчета.ОпределитьНастройкиФормы = Истина;
КонецПроцедуры
В модуль объекта отчета добавляем
Код 1С 8.3:
Процедура ОпределитьНастройкиФормы(Форма, КлючВарианта, Настройки) Экспорт
Настройки.События.ПриСозданииНаСервере = Истина;
КонецПроцедуры
Процедура ПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка) Экспорт
НоваяКоманда = Форма.Команды.Добавить("ИсходныеДанные");
НоваяКоманда.Заголовок = "Исходные данные";
НоваяКоманда.Действие = "ит_УправлениеФормамиКлиентСервер.ВыгрузитьСКДвТаблицуЗначений";
НоваяКоманда.Картинка = БиблиотекаКартинок.ФорматExcel;
НоваяКоманда.Отображение = ОтображениеКнопки.КартинкаИТекст;
ОтчетыСервер.ВывестиКоманду(Форма, НоваяКоманда, "Интеграция");
КонецПроцедуры
Настройки.События.ПриСозданииНаСервере = Истина;
КонецПроцедуры
Процедура ПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка) Экспорт
НоваяКоманда = Форма.Команды.Добавить("ИсходныеДанные");
НоваяКоманда.Заголовок = "Исходные данные";
НоваяКоманда.Действие = "ит_УправлениеФормамиКлиентСервер.ВыгрузитьСКДвТаблицуЗначений";
НоваяКоманда.Картинка = БиблиотекаКартинок.ФорматExcel;
НоваяКоманда.Отображение = ОтображениеКнопки.КартинкаИТекст;
ОтчетыСервер.ВывестиКоманду(Форма, НоваяКоманда, "Интеграция");
КонецПроцедуры
В общем модуле ит_УправлениеФормамиКлиентСервер добавляем клиентскую процедуру, отвечающую за действие команды.
Код 1С 8.3:
&НаКлиенте
Процедура ВыгрузитьСКДвТаблицуЗначений(ФормаОтчета, Команда) Экспорт
// ваш код команды
КонецПроцедуры
Процедура ВыгрузитьСКДвТаблицуЗначений(ФормаОтчета, Команда) Экспорт
// ваш код команды
КонецПроцедуры
Copy-paste с форума телеграм-канала.
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник