v8: Почему не выводит картинку?

 Процедура КнопкаВыполнитьНажатие(Кнопка)

    

    ТабДокумент = Новый ТабличныйДокумент; 

    Макет = ЭтотОбъект.ПолучитьМакет("Макет"); 

    ОбластьМакета = Макет.ПолучитьОбласть("Шапка"); 

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

    ОбластьМакета = Макет.ПолучитьОбласть("Строка"); 

    

    Запрос = Новый Запрос; 

    Запрос.Текст = 

    "ВЫБРАТЬ

    |   Номенклатура.Наименование,

    |   Номенклатура.Артикул,

    |   Номенклатура.ОсновноеИзображение.Хранилище КАК Хранилище

    |ИЗ

    |   Справочник.Номенклатура КАК Номенклатура"; 

    

    

    Выборка = Запрос.Выполнить().Выбрать(); 

    номер=0;

    Пока Выборка.Следующий() цикл

        номер=номер+1;

        ОбластьМакета.Параметры.номер = номер;                                 

        //вставляем рисунок

        

        Рис=Макет.Рисунки.D1;

        Если ЗначениеЗаполнено(Выборка.Хранилище) Тогда

            Дан=Выборка.Хранилище.Получить();

            Рис.Картинка=Новый Картинка(Дан.ПолучитьДвоичныеДанные());;

            Рис.РазмерКартинки = РазмерКартинки.АвтоРазмер; 

            Рис.Верх = 5; 

            Рис.Высота = 10; 

            Рис.Ширина = 10; 

            Рис.Лево = 5;       

        КонецЕсли;

 

                    

        ОбластьМакета.Параметры.IMG = Выборка.Хранилище;

        ОбластьМакета.Параметры.Артикул = Выборка.Артикул;

        ОбластьМакета.Параметры.Наименование = Выборка.Наименование;        

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

    КонецЦикла;     

    

    ТабДокумент.ОтображатьСетку = Ложь; 

    ТабДокумент.ТолькоПросмотр = Ложь; 

    ТабДокумент.ОтображатьЗаголовки = Ложь; 

    //ТабДокумент.Показать(); 

    ТабДокумент.ОтображатьГруппировки=Истина;

    ТабДокумент.КоличествоЭкземпляров = 4;

    ТабДокумент.Записать("D:\1C\1.xls",ТипФайлаТабличногоДокумента.XLS);

 

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

  Рис.Картинка=Дан;