Добавление факсимиле/логотипа в готовую печатную форму (УТ 11)

В общем, встала как-то задача, что надо "сделать ТОРГ-12 с факсимиле". Вопрос "зачем" не рассматривался, а, сами понимаете, изменить имеющуюся стандартную форму, чтобы туда можно было вставлять факсимиле нужной организации - дело крайне неблагодарное. Ну и решил я зайти с другой стороны.

Речь идет об Управлении торговлей 11, но, в целом это применимо с небольшими доработками и на бухгалтерию, и на унф и т.д. 

Есть общая форма "ПечатьДокументов", туда в конечном итоге отправляются все печатные формы, сформированные через стандартный механизм печати, значит там и будем и мучать. Я добавил ее в расширение, чтобы не снимать ее с поддержки.

Сам ТабличныйДокумент лежи в переменной "ТекущаяПечатнаяФорма".

Первое - надо получить список имеющихся в системе логотипов и факсимиле:

&НаСервере
Функция ФайлОрганизации(Организация, Тип="Логотип") Экспорт
	врРез = новый Структура;
	врРез.Вставить("Файл", 			"");
	врРез.Вставить("Имя", 			"");
	врРез.Вставить("Организация", 	Организация);
	врРез.Вставить("Расширение", 	"");
	врРез.Вставить("Существует", 	Ложь);
	врРез.Вставить("Данные", 		Неопределено);
	
	Если Тип = "Логотип" Тогда
		Если НЕ Организация.ФайлЛоготип.Пустая() Тогда
			Если Организация.ФайлЛоготип.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВТомахНаДиске Тогда
				врРез.Имя = СокрЛП(Организация.ФайлЛоготип.ПутьКФайлу);
				врРез.Файл = СокрЛП(Организация.ФайлЛоготип.Том.ПолныйПутьWindows);
				Если Прав(врРез.Файл,1) <> "\" Тогда
					врРез.Файл = врРез.Файл + "\";
				КонецЕсли;
				врРез.Файл = врРез.Файл + врРез.Имя;
				врФайл = новый Файл(врРез.Файл);
				врРез.Существует = врФайл.Существует();
				врРез.Расширение = врФайл.Расширение;
				Если врРез.Существует Тогда
					врРез.Данные = новый ДвоичныеДанные(врРез.Файл);
				КонецЕсли;
			ИначеЕсли Организация.ФайлЛоготип.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе Тогда
				врНаборЗаписей = РегистрыСведений.ДвоичныеДанныеФайлов.СоздатьНаборЗаписей();
				врНаборЗаписей.Отбор.Файл.Установить(Организация.ФайлЛоготип);
				врНаборЗаписей.Прочитать();
				Если врНаборЗаписей.Количество() > 0 Тогда
					врХрЛоготип = врНаборЗаписей[0].ДвоичныеДанныеФайла;
					врРез.Данные = врХрЛоготип.Получить();
					врРез.Существует = Истина;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	ИначеЕсли Тип = "Печать" Тогда
		Если НЕ Организация.ФайлФаксимильнаяПечать.Пустая() Тогда
			Если Организация.ФайлФаксимильнаяПечать.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВТомахНаДиске Тогда
				врРез.Имя = СокрЛП(Организация.ФайлФаксимильнаяПечать.ПутьКФайлу);
				врРез.Файл = СокрЛП(Организация.ФайлФаксимильнаяПечать.Том.ПолныйПутьWindows);
				Если Прав(врРез.Файл,1) <> "\" Тогда
					врРез.Файл = врРез.Файл + "\";
				КонецЕсли;
				врРез.Файл = врРез.Файл + врРез.Имя;
				врФайл = новый Файл(врРез.Файл);
				врРез.Существует = врФайл.Существует();
				врРез.Расширение = врФайл.Расширение;
				Если врРез.Существует Тогда
					врРез.Данные = новый ДвоичныеДанные(врРез.Файл);
				КонецЕсли;
			ИначеЕсли Организация.ФайлФаксимильнаяПечать.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе Тогда
				врНаборЗаписей = РегистрыСведений.ДвоичныеДанныеФайлов.СоздатьНаборЗаписей();
				врНаборЗаписей.Отбор.Файл.Установить(Организация.ФайлФаксимильнаяПечать);
				врНаборЗаписей.Прочитать();
				Если врНаборЗаписей.Количество() > 0 Тогда
					врХрЛоготип = врНаборЗаписей[0].ДвоичныеДанныеФайла;
					врРез.Данные = врХрЛоготип.Получить();
					врРез.Существует = Истина;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	Возврат врРез;
КонецФункции

&НаСервере
Функция ФайлыОрганизаций()
	врРез = новый СписокЗначений;
	врВыборка = Справочники.Организации.Выбрать();
	Пока врВыборка.Следующий() Цикл
		врФайл = ФайлОрганизации(врВыборка.Ссылка, "Логотип");
		Если врФайл.Существует Тогда
			врРез.Добавить(врФайл, СокрЛП(врВыборка.Ссылка)+" Логотип");
		КонецЕсли;
		врФайл 	= ФайлОрганизации(врВыборка.Ссылка, "Печать");
		Если врФайл.Существует Тогда
			врРез.Добавить(врФайл, СокрЛП(врВыборка.Ссылка)+" Печать");
		КонецЕсли;
	КонецЦикла;
	Возврат врРез;
КонецФункции

Таким образом получили список с имеющимися факсимиле/логотипами. Далее добавляем кнопку на форму, называем ее, скажем "Факсимиле" и вешаем обработчик, в котором просим пользователя выбрать, что он хочет вставить:

&НаКлиенте
Процедура _факсимилеВместо(Команда)
	врСписокФайлов 	= ФайлыОрганизаций();
	врОповещение = Новый ОписаниеОповещения("_ПослеВыбораРисунка", ЭтотОбъект);
	врСписокФайлов.ПоказатьВыборЭлемента(врОповещение,"Выберите изображение");	
КонецПроцедуры

&НаКлиенте
Процедура _ВыбораРисунка(Элемент, Параметры) Экспорт
    Если Элемент <> Неопределено Тогда
        врФайл = Элемент.Значение;
		врКартинка = новый Картинка(врФайл.Данные);
		врРисунок = ТекущаяПечатнаяФорма.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
		врРисунок.Картинка = врКартинка;
		врРисунок.Высота = 40; 
		врРисунок.Ширина = 40;
		врРисунок.РазмерКартинки = РазмерКартинки.Пропорционально;
		врРисунок.ГраницаСверху = Ложь;
		врРисунок.ГраницаСлева = Ложь;
		врРисунок.ГраницаСправа = Ложь;
		врРисунок.ГраницаСнизу = Ложь;
		//__ чтобы прозрачный рисунок остался прозрачным
		врРисунок.ЦветФона = новый Цвет(); 
    КонецЕсли;
КонецПроцедуры

Тестировалось все это на 

1С:Предприятие 8.3 (8.3.17.1549)

Управление торговлей, редакция 11 (11.4.13.51)