Кнопка отправить по электронной почте (нет)

1. budda1975 07.08.23 09:34 Сейчас в теме
Не подскажите - есть внешняя печатная форма ( писал не я ), для 1с БП 30
выводин на печать, но нет пиктограмки "отправить по эл почте" в чем может быть дело ?


на форме такие процедуры
&НаКлиенте
Процедура КнопкаВыполнитьНажатие(Кнопка)
ОбъектыНазначения = Новый Массив(1);
ОбъектыНазначения[0] = Объект.СсылкаНаОбъект;
Печать("ПечатьАктаНаПередачуПрав", ОбъектыНазначения);
КонецПроцедуры

&НаСервере
Функция ПечатьНаСервере(ИдентификаторКоманды, ОбъектыНазначения)
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
Возврат ОбработкаОбъект.Печать(ИдентификаторКоманды, ОбъектыНазначения);
КонецФункции // ПечатьНаСервере()

&НаКлиенте
Процедура Печать(ИдентификаторКоманды, ОбъектыНазначения) Экспорт
ТабДок = ПечатьНаСервере(ИдентификаторКоманды, ОбъектыНазначения);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
табДок.ОтображатьЗаголовки = Ложь;
Форма = ПолучитьФорму("ВнешняяОбработка.ПечатьАктаНаПередачуПрав_303.Форма.ФормаТабДока", , ЭтаФорма, ЭтаФорма);
Форма.ТабличныйДокумент = ТабДок;
Форма.Открыть();
//ТабДок.Показать();
КонецПроцедуры


в модуле

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

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

.....
ТабДок.Вывести(Область);
......

Возврат ТабДок;
КонецФункции // Печать()
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. budda1975 07.08.23 09:45 Сейчас в теме
upd
посмотрел как в типовой там процедура
&НаКлиенте
Процедура ОтправитьПоЭлектроннойПочте(Команда)

ОтправкаПочтовыхСообщенийКлиент.ОтправитьОтчет(ЭтотОбъект);

КонецПроцедуры

втащил ее в свою форму, сделал кнопку - при нажатии пишет :
{ОбщийМодуль.ОтправкаПочтовыхСообщенийКлиент.Модуль(72)}: ПараметрыОтчета.Вставить("ТабличныйДокумент", Отчет.Результат);
{ВнешняяОбработка.ПечатьАктаНаПередачуПрав_303.Форма.ФормаТабДока.Форма(16)}: ОтправкаПочтовыхСообщенийКлиент.ОтправитьОтчет(ЭтотОбъект);
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот