1.
budda1975
07.08.23 09:34
Сейчас в теме
Не подскажите - есть внешняя печатная форма ( писал не я ), для 1с БП 30
выводин на печать, но нет пиктограмки "отправить по эл почте" в чем может быть дело ?
на форме такие процедуры
&НаКлиенте
Процедура КнопкаВыполнитьНажатие(Кнопка)
ОбъектыНазначения = Новый Массив(1);
ОбъектыНазначения[0] = Объект.СсылкаНаОбъект;
Печать("ПечатьАктаНаПередачуПрав", ОбъектыНазначения);
КонецПроцедуры
&НаСервере
Функция ПечатьНаСервере(ИдентификаторКоманды, ОбъектыНазначения)
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
Возврат ОбработкаОбъект.Печать(ИдентификаторКоманды, ОбъектыНазначения);
КонецФункции // ПечатьНаСервере()
&НаКлиенте
Процедура Печать(ИдентификаторКоманды, ОбъектыНазначения) Экспорт
ТабДок = ПечатьНаСервере(ИдентификаторКоманды, ОбъектыНазначения);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
табДок.ОтображатьЗаголовки = Ложь;
Форма = ПолучитьФорму("ВнешняяОбработка.ПечатьАктаНаПередачуПрав_303.Форма.ФормаТабДока", , ЭтаФорма, ЭтаФорма);
Форма.ТабличныйДокумент = ТабДок;
Форма.Открыть();
//ТабДок.Показать();
КонецПроцедуры
в модуле
Функция СведенияОВнешнейОбработке() Экспорт
РегДанные = Новый Структура;
РегДанные.Вставить("БезопасныйРежим", Истина);
РегДанные.Вставить("Вид", "ПечатнаяФорма");
РегДанные.Вставить("Наименование", "Печать акта на передачу прав (отчетность)");
РегДанные.Вставить("Версия", "1.0");
РегДанные.Вставить("Информация", "");
РегДанные.Вставить("БезопасныйРежим", Истина);
ОписаниеКоманд = Новый ТаблицаЗначений;
ОписаниеКоманд.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
ОписаниеКоманд.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
ОписаниеКоманд.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
ОписаниеКоманд.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
ОписаниеКоманд.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Стр = ОписаниеКоманд.Добавить();
Стр.Использование = "ВызовКлиентскогоМетода";
Стр.Идентификатор = "ПечатьАктаНаПередачуПрав";
Стр.ПоказыватьОповещение = Ложь;
Стр.Представление = "Печать акта на передачу прав (отчетность)";
Стр.Модификатор = "";
РегДанные.Вставить("Команды", ОписаниеКоманд);
Возврат РегДанные;
КонецФункции // СведенияОВнешнейОбработке()
Функция Печать(ИдентификаторКоманды, ОбъектыНазначения) Экспорт
Если НЕ ИдентификаторКоманды = "ПечатьАктаНаПередачуПрав" Тогда
Сообщить("Неправильный идентификатор команды!");
Возврат Неопределено;
КонецЕсли;
ТабДок = Новый ТабличныйДокумент;
.....
ТабДок.Вывести(Область);
......
Возврат ТабДок;
КонецФункции // Печать()