Андрей Сергеевич Борисов

Андрей Сергеевич Борисов

Обеспечу современными, доступными решениями для управления Бизнесом

подробнее +

Как вывести картинку в Табличном документе 1С

  • 14.04.16 3:44
  • Andrey Борисов

Как вставить картинку в Табличный документ

Пример фото вагона

В продолжение предыдущей статьи, заказчик попросил вывести в экселевский файл список номеров вагонов и фотографии. Ниже есть листинг как это сделать. Отдельно следует отметить, что файл получается большой.

Предыдущая статья

	Таб = ПолучитьМакет("Макет"); //Оригинальный макет содержащий внешний вид документа
	Макет =  Новый ТабличныйДокумент;  //Макет конкретного документа выводимо на печать
	//------Настроить поля макета документа
	Макет.ПолеСверху=0;
	Макет.ПолеСлева=0;
	Макет.ПолеСправа=0;
	Макет.ПолеСнизу=0;
	Макет.АвтоМасштаб=Истина;
	Макет.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
	//-----Получить шаблон макета документа
	
	СписокВагнов=Справочники.ФотоВагонов.Выбрать();
	ОбщееЧисло=1;
	Пока СписокВагнов.Следующий() Цикл 
		стркаВагона=Таб.ПолучитьОбласть("Строка");
		стркаВагона.Параметры.Заполнить(СписокВагнов);
		стркаВагона.Параметры.Заполнить(СписокВагнов.Вагон);
		стркаВагона.Параметры.ОбщееЧисло=ОбщееЧисло;
		Рисунок = стркаВагона.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); 
		Рисунок.Верх = 5; 
		Рисунок.Высота = 75; 
		Рисунок.Ширина = 75; 
		Рисунок.Лево = 5; 
		Рисунок.Картинка = Новый Картинка(Константы.КаталогФотоВагонов.Получить()+СписокВагнов.ФайлФото); 
		Рисунок.РазмерКартинки = РазмерКартинки.Пропорционально; 
		Макет.Вывести(стркаВагона);
		ОбщееЧисло=ОбщееЧисло+1;
	КонецЦикла;
	Макет.Показать();