выгрузка картинок из справочника номенклатура

Форум Программирование Общие вопросы программирования (Dev)
Платформа 1С v8.3
1. davr 14.09.22 19:09 Сейчас в теме
УНФ. нужно выгрузить все картинки из справочника номенклатура написал обработку но выходит ошибка когда получаю значение из ХранилищеЗначений возвращает Неопределено 
&НаСервере
Процедура ВыгрузитьКартинкиНаСервере()   
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	НоменклатураПрисоединенныеФайлы.Расширение КАК Расширение,
		|	НоменклатураПрисоединенныеФайлы.ФайлХранилище КАК ФайлХранилище,
		|	НоменклатураПрисоединенныеФайлы.Ссылка КАК СсылкаПФ,
		|	НоменклатураПрисоединенныеФайлы.ВладелецФайла КАК ВладелецФайла,
		|	НоменклатураПрисоединенныеФайлы.ВладелецФайла.Код КАК ВладелецФайлаКод,
		|	Номенклатура.Ссылка КАК Ссылка
		|ИЗ
		|	Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
		|		ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура
		|		ПО НоменклатураПрисоединенныеФайлы.ВладелецФайла = Номенклатура.Ссылка
		|ГДЕ
		|	НЕ НоменклатураПрисоединенныеФайлы.ВладелецФайла ЕСТЬ NULL";
	
	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	КаталогИБ = "C:\Pic\";  
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл		
		Файл = ВыборкаДетальныеЗаписи.ФайлХранилище.Получить();
   	    Файл.Записать(КаталогИБ + ВыборкаДетальныеЗаписи.ВладелецФайлаКод+"_"+ВыборкаДетальныеЗаписи.ВладелецФайла+"."+ВыборкаДетальныеЗаписи.Расширение);	
	КонецЦикла; 
	
КонецПроцедуры

&НаКлиенте
Процедура ВыгрузитьКартинки(Команда)
	ВыгрузитьКартинкиНаСервере();
КонецПроцедуры
Показать


Если я не ошибаюсь то картинки хранятся в реквизите ФайлХранилище
Прикрепленные файлы:
+ – Ответить
По теме из базы знаний
Найденные решения
12. davr 15.09.22 07:51 Сейчас в теме
сделал 
&НаСервере
Процедура ВыгрузитьКартинкиНаСервере()   
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	НоменклатураПрисоединенныеФайлы.Расширение КАК Расширение,
		|	НоменклатураПрисоединенныеФайлы.ФайлХранилище КАК ФайлХранилище,
		|	НоменклатураПрисоединенныеФайлы.Ссылка КАК СсылкаПФ,
		|	НоменклатураПрисоединенныеФайлы.ВладелецФайла КАК ВладелецФайла,
		|	НоменклатураПрисоединенныеФайлы.ВладелецФайла.Код КАК ВладелецФайлаКод,
		|	Номенклатура.Ссылка КАК Ссылка,
		|   Номенклатура.ФайлКартинки КАК ФайлКартинки
		|ИЗ
		|	Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
		|		ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура
		|		ПО НоменклатураПрисоединенныеФайлы.ВладелецФайла = Номенклатура.Ссылка
		|ГДЕ
		|	НЕ НоменклатураПрисоединенныеФайлы.ВладелецФайла ЕСТЬ NULL";
	
	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	КаталогИБ = "C:\Pic\";  
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл    
		
		СтрокаСсылка = СокрЛП(Строка(ВыборкаДетальныеЗаписи.СсылкаПФ));
		ДвоичныйФайл = ПрисоединенныеФайлы.ПолучитьДвоичныеДанныеФайла(ВыборкаДетальныеЗаписи.СсылкаПФ);
		ДвоичныйФайл.Записать(КаталогИБ + ВыборкаДетальныеЗаписи.ВладелецФайлаКод+"_"+СтрокаСсылка+"."+ВыборкаДетальныеЗаписи.Расширение);	
		
	КонецЦикла; 
	
КонецПроцедуры
Показать
+ – Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. user1831019 14.09.22 21:00 Сейчас в теме
Значит, ошибаетесь. И картинка хранится не в хранилище значений.
+ – Ответить
3. winapi 61 14.09.22 21:09 Сейчас в теме
Ну так добавьте проверку, остальные выгрузятся.
+ – Ответить
4. davr 14.09.22 21:39 Сейчас в теме
(3) во всех возвращает неопределено
+ – Ответить
5. user1831019 14.09.22 21:40 Сейчас в теме
(4) Фантастика! Видимо, там ничего не хранится.
А хранится в томах.
+ – Ответить
6. davr 14.09.22 21:42 Сейчас в теме
(5) подскажите пожалуйста как мне выгрузить картинки если они хранятся в томах
+ – Ответить
7. user1831019 14.09.22 21:43 Сейчас в теме
(6) БСП
+ – Ответить
8. davr 14.09.22 21:48 Сейчас в теме
(7)Работа с файлами?
+ – Ответить
9. user1831019 14.09.22 21:53 Сейчас в теме
(8) Тепло.
+ – Ответить
10. davr 14.09.22 22:02 Сейчас в теме
(9)
Прикрепленные файлы:
+ – Ответить
11. davr 14.09.22 22:02 Сейчас в теме
(9) галочка не стоит хранится не в томах
+ – Ответить
13. davr 15.09.22 07:52 Сейчас в теме
(7) спасибо за подсказку друг
+ – Ответить
12. davr 15.09.22 07:51 Сейчас в теме
сделал 
&НаСервере
Процедура ВыгрузитьКартинкиНаСервере()   
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	НоменклатураПрисоединенныеФайлы.Расширение КАК Расширение,
		|	НоменклатураПрисоединенныеФайлы.ФайлХранилище КАК ФайлХранилище,
		|	НоменклатураПрисоединенныеФайлы.Ссылка КАК СсылкаПФ,
		|	НоменклатураПрисоединенныеФайлы.ВладелецФайла КАК ВладелецФайла,
		|	НоменклатураПрисоединенныеФайлы.ВладелецФайла.Код КАК ВладелецФайлаКод,
		|	Номенклатура.Ссылка КАК Ссылка,
		|   Номенклатура.ФайлКартинки КАК ФайлКартинки
		|ИЗ
		|	Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
		|		ПОЛНОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура
		|		ПО НоменклатураПрисоединенныеФайлы.ВладелецФайла = Номенклатура.Ссылка
		|ГДЕ
		|	НЕ НоменклатураПрисоединенныеФайлы.ВладелецФайла ЕСТЬ NULL";
	
	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	КаталогИБ = "C:\Pic\";  
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл    
		
		СтрокаСсылка = СокрЛП(Строка(ВыборкаДетальныеЗаписи.СсылкаПФ));
		ДвоичныйФайл = ПрисоединенныеФайлы.ПолучитьДвоичныеДанныеФайла(ВыборкаДетальныеЗаписи.СсылкаПФ);
		ДвоичныйФайл.Записать(КаталогИБ + ВыборкаДетальныеЗаписи.ВладелецФайлаКод+"_"+СтрокаСсылка+"."+ВыборкаДетальныеЗаписи.Расширение);	
		
	КонецЦикла; 
	
КонецПроцедуры
Показать
+ – Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот