Для каждого Элемент Из Элементы Цикл
Если ТипЗнч(Элемент)=Тип("ТаблицаФормы") Тогда
Элемент.КоманднаяПанель.ПодчиненныеЭлементы[Элемент.Имя+"Найти"].ТолькоВоВсехДействиях = Ложь;
Элемент.КоманднаяПанель.ПодчиненныеЭлементы[Элемент.Имя+"Найти"].Отображение = ОтображениеКнопки.КартинкаИТекст;
КонецЕсли;
КонецЦикла;
Процедура Печать123(ТабДок, Ссылка) Экспорт
Макет = Документы.ПаспортЛЭП.ПолучитьМакет("Печать123");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПаспортЛЭП.Схема.ФайлХранилище КАК Схема,
| Файлы.ФайлХранилище КАК ФайлХранилище
|ИЗ
| Документ.ПаспортЛЭП КАК ПаспортЛЭП
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Файлы КАК Файлы
| ПО ПаспортЛЭП.Схема = Файлы.Ссылка";
Выборка = Запрос.Выполнить().Выбрать();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
КонецЦикла;
Данные = Выборка.Схема.Получить();
Если ТипЗнч(Данные) = Тип("Картинка") Тогда
лкКартинка = Данные;
ИначеЕсли ТипЗнч(Данные) = Тип("ДвоичныеДанные") Тогда
лкКартинка = Новый Картинка(Данные, Ложь);
КонецЕсли;
ТабДок = Новый ТабличныйДокумент;
ОбластьРисунок = Макет.ПолучитьОбласть("Рисунок");
Попытка
Путь = КаталогВременныхФайлов()+ "Картинка"+Формат(ТекущаяДата(),"ДФ=yyyyMMddЧЧммсс")+".bmp";
КартинкаВПамяти = Выборка.Схема.Получить();
КартинкаВПамяти.Записать(Путь);
ОбластьРисунок.Рисунки.Картинка.Картинка = Новый Картинка(Путь);
Исключение
ОбластьРисунок.Рисунки.Картинка.Картинка = Новый Картинка;
КонецПопытки;
ТабДок.Вывести(ОбластьРисунок);
/////////////////////////////////////////////////////////////////////////////////////////////////////
ВставлятьРазделительСтраниц = Истина;
КонецПроцедуры
Вернуться в Вопросы по программированию
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1