Код

	Текст="
	|select
	|	Хранилище.Данные Данные,
	|	Хранилище.ИмяФайла ИмяФайла,
	|	Хранилище.Архив Архив
	|from Хранилище Хранилище (nolock)
	|WHERE
	|Хранилище.Объект=:Объект*
	|";
	Запрос=глСоединение();
	ИТЗ=СоздатьОбъект("ИндексированнаяТаблица");
	Запрос.УстановитьТекстовыйПараметр("Объект",Форма.Параметр.ТекущийДокумент());
	Запрос.ВыполнитьИнструкцию(Текст,ИТЗ);
	ИТЗ.ВыбратьСтроки();
	Каталог=КаталогВременныхФайлов();
	Пока ИТЗ.ПолучитьСтроку() = 1 Цикл
		Данные=ИТЗ.Данные;
		Сообщить(Данные.Размер());
		Файл=СокрЛП(ИТЗ.ИмяФайла);
		Архив=ИТЗ.Архив;
		Путь=Каталог+Файл;
		Данные.СохранитьВФайл(Путь,Архив);
		Данные.Закрыть();
		ЗапуститьПриложение(Путь);
	КонецЦикла;

 

Код

	Текст="
	|select
	|	Хранилище.Номер Номер,
	|	Хранилище.ИмяФайла ИмяФайла,
	|	Хранилище.Архив Архив
	|from Хранилище Хранилище (nolock)
	|WHERE
	|Хранилище.Объект=:Объект*
	|";
	Запрос=глСоединение();
	ИТЗ=СоздатьОбъект("ИндексированнаяТаблица");
	ТЗ=СоздатьОбъект("ТаблицаЗначений");
	Запрос.УстановитьТекстовыйПараметр("Объект",Форма.Параметр.ТекущийДокумент());
	Запрос.ВыполнитьИнструкцию(Текст,ИТЗ);
	ИТЗ.ВыбратьСтроки();
	Текст="
	|select Хранилище.Данные
	|from Хранилище Хранилище (nolock)
	|WHERE
	|Хранилище.Объект=:Объект*
	|and
	|Хранилище.Номер=?
	|";
	Запрос.УстановитьТекстовыйПараметр("Объект",Форма.Параметр.ТекущийДокумент());
	Запрос.ДобПараметр(1,4,0,0);
	Запрос.Подготовить(Текст);

	Пока ИТЗ.ПолучитьСтроку() = 1 Цикл
		Запрос.УстПараметр(1,ИТЗ.Номер);
		Данные=Запрос.ВыполнитьСкалярный();
		Архив=ИТЗ.Архив;
		Файл=СокрЛП(ИТЗ.ИмяФайла);
		Путь=КаталогВременныхФайлов()+Файл;
		Данные.СохранитьВФайл(Путь,Архив);
		Данные.Закрыть();
		ЗапуститьПриложение(Путь);
	КонецЦикла;
Выходить так что Данные должны возвращаться в 1 экземпляре.
ТОгда все пашет!