Как улучшить производительность при проверке наличия изображений в 1С?

В этой теме 1 ответ, 2 участника, последнее обновление 9 минут назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Записи

14 октября 2026 в 14:57 #38844
Odineski
Участник
Мне нужно понять, есть ли возможность как то изменить код, чтобы увеличить скорость получения Наличия каринки. Сделал код, обратился к общему модулю (ПолучитьОсновноеИзображение(СсылкаНаОбъект)) чтобы он хотя бы 2 ичное значение принес. в 1с скат профессионале сижу.

из общего модуля Управление Вложениями Клиент

Функция ПолучитьОсновноеИзображение(СсылкаНаОбъект) Экспорт
стрКаталогВложений=Константы.КаталогВложений.Получить();
Если ПустаяСтрока(стрКаталогВложений) Тогда //Вложения хранятся в базе
ОсновноеИзображение=СсылкаНаОбъект.ОсновноеИзображение.Получить();
Иначе
Если СсылкаНаОбъект.Пустая() Тогда Возврат Неопределено; КонецЕсли;
ПолноеИмяФайла=стрКаталогВложений+»»+СсылкаНаОбъект.УникальныйИдентификатор()+»main_image»;
ФайлИзображения=Новый Файл(ПолноеИмяФайла);
ОсновноеИзображение=?(ФайлИзображения.Существует(), Новый ДвоичныеДанные(ПолноеИмяФайла), Неопределено);
КонецЕсли;
Возврат ?(ТипЗнч(ОсновноеИзображение)=Тип(«ДвоичныеДанные») И ОсновноеИзображение.Размер()>0, ОсновноеИзображение, Неопределено);
КонецФункции

Мой код
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ_ОбъединениеТрехТабл.Номенклатура КАК Номенклатура,
| ВТ_ОбъединениеТрехТабл.Артикул КАК Артикул,
| ВТ_ОбъединениеТрехТабл.НачальныйОтстаток КАК НачальныйОтстаток,
| ВТ_ОбъединениеТрехТабл.КонечныйОстаток КАК КонечныйОстаток,
| ВТ_ОбъединениеТрехТабл.Потребность КАК Потребность,
| ВТ_ОбъединениеТрехТабл.Резерв КАК Резерв,
| ВТ_ОбъединениеТрехТабл.МинимальныйОстаток КАК МинимальныйОстаток,
| ПартииТоваровНаСкладахОбороты.КоличествоПриход КАК Приобрели,
| ПартииТоваровНаСкладахОбороты.КоличествоРасход КАК Продали
|ИЗ
| ВТ_ОбъединениеТрехТабл КАК ВТ_ОбъединениеТрехТабл
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииТоваровНаСкладах.Обороты(&ДатаНачало, &ДатаКонец, , ) КАК ПартииТоваровНаСкладахОбороты
| ПО ВТ_ОбъединениеТрехТабл.Номенклатура.Ссылка = ПартииТоваровНаСкладахОбороты.Номенклатура.Ссылка»;

Запрос.УстановитьПараметр(«ВведёнТекст», ВведёнТекст);
Запрос.УстановитьПараметр(«ДатаКонец», ДатаКонец);
Запрос.УстановитьПараметр(«ДатаНачало», ДатаНачало);
Запрос.УстановитьПараметр(«НаименованиеЧасть», НаименованиеЧасть);
Запрос.УстановитьПараметр(«Организация», Организация);
Запрос.УстановитьПараметр(«Родитель», Родитель);
Запрос.УстановитьПараметр(«Склад», Склад);

//РезультатЗапроса = Запрос.Выполнить().Выгрузить();
//РаботаКартинки(РезультатЗапроса);

ТабЗначений = Новый ТаблицаЗначений;
ТабЗначений.Колонки.Добавить(«Номенклатура»);
ТабЗначений.Колонки.Добавить(«Артикул»);
ТабЗначений.Колонки.Добавить(«МинимальныйОстаток»);
ТабЗначений.Колонки.Добавить(«Потребность»);
ТабЗначений.Колонки.Добавить(«Резерв»);
ТабЗначений.Колонки.Добавить(«Приобрели»);
ТабЗначений.Колонки.Добавить(«Продали»);
ТабЗначений.Колонки.Добавить(«НачальныйОтстаток»);
ТабЗначений.Колонки.Добавить(«КонечныйОстаток»);

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Стр = ТабЗначений.Добавить();
Стр.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура ;
Стр.Артикул = ВыборкаДетальныеЗаписи.Артикул ;
Стр.МинимальныйОстаток = ВыборкаДетальныеЗаписи.МинимальныйОстаток ;
Стр.Потребность = ВыборкаДетальныеЗаписи.Потребность ;
Стр.Резерв = ВыборкаДетальныеЗаписи.Резерв ;
Стр.Приобрели = ВыборкаДетальныеЗаписи.Приобрели ;
Стр.Продали = ВыборкаДетальныеЗаписи.Продали ;
Стр.НачальныйОтстаток = ВыборкаДетальныеЗаписи.НачальныйОтстаток ;
Стр.КонечныйОстаток = ВыборкаДетальныеЗаписи.КонечныйОстаток ;
КонецЦикла;

Если ПолеВыбораФото = 1 Тогда

Иначе

ТЗнач = Новый ТаблицаЗначений;

ТЗнач.Колонки.Добавить(«Номенклатура»);
ТЗнач.Колонки.Добавить(«Артикул»);
ТЗнач.Колонки.Добавить(«МинимальныйОстаток»);
ТЗнач.Колонки.Добавить(«Потребность»);
ТЗнач.Колонки.Добавить(«Резерв»);
ТЗнач.Колонки.Добавить(«Приобрели»);
ТЗнач.Колонки.Добавить(«Продали»);
ТЗнач.Колонки.Добавить(«НачальныйОтстаток»);
ТЗнач.Колонки.Добавить(«КонечныйОстаток»);

Для Каждого СтЧасти Из ТабЗначений Цикл

Номенклатура = СтЧасти.Номенклатура ;
//КартинкаА = СтЧасти.Номенклатура.ОсновноеИзображение;
//ПолКартинка = КартинкаА.Получить();
Картинка = УправлениеВложениямиКлиент.ПолучитьОсновноеИзображение(Номенклатура);

//ЕстьКартинка = ЗначениеЗаполнено(Пр);
//СсылкаНаФайл = ПолучитьНавигационнуюСсылку(Номенкла,»ОсновноеИзображение»);

//Картинка = Пр.Получить();
// Картинка = УправлениеВложениямиКлиент.ПолучитьОсновноеИзображение(Номенкла);
// ЕстьКартинка = ЗначениеЗаполнено(Пр);
// СсылкаНаФайл = ПолучитьНавигационнуюСсылку(Номенкла,»ОсновноеИзображение»);//ОсновноеИзображение ДанныеКартинки
//

//2 с фото
Если ПолеВыбораФото = 2 Тогда
Если ЗначениеЗаполнено(Картинка) Тогда
Стр = ТЗнач.Добавить();
Стр.Номенклатура = СтЧасти.Номенклатура ;
Стр.Артикул = СтЧасти.Артикул ;
Стр.МинимальныйОстаток = СтЧасти.МинимальныйОстаток ;
Стр.Потребность = СтЧасти.Потребность ;
Стр.Резерв = СтЧасти.Резерв ;
Стр.Приобрели = СтЧасти.Приобрели ;
Стр.Продали = СтЧасти.Продали ;
Стр.НачальныйОтстаток = СтЧасти.НачальныйОтстаток ;
Стр.КонечныйОстаток = СтЧасти.КонечныйОстаток ;

Сообщить(«»);
Иначе
Сообщить(«»);
КонецЕсли;
Иначе
Если Не ЗначениеЗаполнено(Картинка) Тогда
Стр = ТЗнач.Добавить();
Стр.Номенклатура = СтЧасти.Номенклатура ;
Стр.Артикул = СтЧасти.Артикул ;
Стр.МинимальныйОстаток = СтЧасти.МинимальныйОстаток ;
Стр.Потребность = СтЧасти.Потребность ;
Стр.Резерв = СтЧасти.Резерв ;
Стр.Приобрели = СтЧасти.Приобрели ;
Стр.Продали = СтЧасти.Продали ;
Стр.НачальныйОтстаток = СтЧасти.НачальныйОтстаток ;
Стр.КонечныйОстаток = СтЧасти.КонечныйОстаток ;
Иначе

КонецЕсли;

КонецЕсли;

КонецЦикла;

ТабЗначений = ТЗнач;
КонецЕсли;

ВыводМакета(ТабЗначений);

Значений около 9 тысяч

14 октября 2026 в 14:57 #38845

Участник

Да, скорость можно увеличить в разы. Сейчас основная проблема в том, что для каждой из примерно 9000 номенклатур вы вызываете:

УправлениеВложениямиКлиент.ПолучитьОсновноеИзображение(Номенклатура)

1	УправлениеВложениямиКлиент.ПолучитьОсновноеИзображение(Номенклатура)

А эта функция не просто проверяет наличие картинки. Она:

1. Получает значение константы.
2. Обращается к реквизиту ОсновноеИзображение.
3. Вызывает .Получить(), то есть загружает двоичные данные картинки.
4. Проверяет размер двоичных данных.
5. При хранении во внешнем каталоге проверяет файл.
6. При наличии файла загружает его через Новый ДвоичныеДанные(...).

Для фильтрации вам сама картинка не нужна. Нужен только признак:

Истина / Ложь

1	Истина / Ложь

## 1. Исправьте общий модуль

Создайте отдельную функцию, которая проверяет только наличие изображения и не загружает его содержимое.

Например, в общем модуле УправлениеВложениямиСервер с флажком «Вызов сервера»:

Функция ЕстьОсновноеИзображение(СсылкаНаОбъект) Экспорт
	
	Если Не ЗначениеЗаполнено(СсылкаНаОбъект) Тогда
		Возврат Ложь;
	КонецЕсли;
	
	КаталогВложений = Константы.КаталогВложений.Получить();
	
	Если ПустаяСтрока(КаталогВложений) Тогда
		
		// Вложения хранятся в информационной базе.
		// Важно: не вызываем Получить().
		ХранилищеИзображения = СсылкаНаОбъект.ОсновноеИзображение;
		
		Возврат ЗначениеЗаполнено(ХранилищеИзображения);
		
	Иначе
		
		// Вложения хранятся во внешнем каталоге.
		ПолноеИмяФайла = КаталогВложений
			+ ""
			+ СсылкаНаОбъект.УникальныйИдентификатор()
			+ "main_image";
		
		Возврат Новый Файл(ПолноеИмяФайла).Существует();
		
	КонецЕсли;
	
КонецФункции

Функция ЕстьОсновноеИзображение(СсылкаНаОбъект) Экспорт

Если Не ЗначениеЗаполнено(СсылкаНаОбъект) Тогда

Возврат Ложь;

КонецЕсли;

КаталогВложений = Константы.КаталогВложений.Получить();

Если ПустаяСтрока(КаталогВложений) Тогда

// Вложения хранятся в информационной базе.

// Важно: не вызываем Получить().

ХранилищеИзображения = СсылкаНаОбъект.ОсновноеИзображение;

Возврат ЗначениеЗаполнено(ХранилищеИзображения);

Иначе

// Вложения хранятся во внешнем каталоге.

ПолноеИмяФайла = КаталогВложений

+ ""

+ СсылкаНаОбъект.УникальныйИдентификатор()

+ "main_image";

Возврат Новый Файл(ПолноеИмяФайла).Существует();

КонецЕсли;

КонецФункции

Ключевые отличия:

СсылкаНаОбъект.ОсновноеИзображение

1	СсылкаНаОбъект.ОсновноеИзображение

вместо:

СсылкаНаОбъект.ОсновноеИзображение.Получить()

1	СсылкаНаОбъект.ОсновноеИзображение.Получить()

И для внешнего хранения не выполняется:

Новый ДвоичныеДанные(ПолноеИмяФайла)

1	Новый ДвоичныеДанные(ПолноеИмяФайла)

Это уже существенно ускорит проверку.

Но если вызвать эту функцию из клиентского кода 9000 раз, всё равно получится до 9000 серверных вызовов. Поэтому лучше выполнять проверку пакетно.

—

# 2. Пакетная проверка картинок

В том же серверном общем модуле создайте функцию, которая принимает массив номенклатуры и возвращает таблицу с признаками наличия.

Функция ПроверитьНаличиеИзображений(МассивНоменклатуры) Экспорт
	
	Результат = Новый ТаблицаЗначений;
	Результат.Колонки.Добавить("Номенклатура");
	Результат.Колонки.Добавить("ЕстьИзображение");
	
	КаталогВложений = Константы.КаталогВложений.Получить();
	
	Для Каждого Номенклатура Из МассивНоменклатуры Цикл
		
		Если Не ЗначениеЗаполнено(Номенклатура) Тогда
			Продолжить;
		КонецЕсли;
		
		ЕстьИзображение = Ложь;
		
		Если ПустаяСтрока(КаталогВложений) Тогда
			
			// Не загружаем двоичные данные.
			ЕстьИзображение = ЗначениеЗаполнено(
				Номенклатура.ОсновноеИзображение
			);
			
		Иначе
			
			ПолноеИмяФайла = КаталогВложений
				+ ""
				+ Номенклатура.УникальныйИдентификатор()
				+ "main_image";
			
			ЕстьИзображение = Новый Файл(ПолноеИмяФайла).Существует();
			
		КонецЕсли;
		
		СтрокаРезультата = Результат.Добавить();
		СтрокаРезультата.Номенклатура = Номенклатура;
		СтрокаРезультата.ЕстьИзображение = ЕстьИзображение;
		
	КонецЦикла;
	
	Возврат Результат;
	
КонецФункции

Функция ПроверитьНаличиеИзображений(МассивНоменклатуры) Экспорт

Результат = Новый ТаблицаЗначений;

Результат.Колонки.Добавить("Номенклатура");

Результат.Колонки.Добавить("ЕстьИзображение");

КаталогВложений = Константы.КаталогВложений.Получить();

Для Каждого Номенклатура Из МассивНоменклатуры Цикл

Если Не ЗначениеЗаполнено(Номенклатура) Тогда

Продолжить;

КонецЕсли;

ЕстьИзображение = Ложь;

Если ПустаяСтрока(КаталогВложений) Тогда

// Не загружаем двоичные данные.

ЕстьИзображение = ЗначениеЗаполнено(

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

);

Иначе

ПолноеИмяФайла = КаталогВложений

+ ""

+ Номенклатура.УникальныйИдентификатор()

+ "main_image";

ЕстьИзображение = Новый Файл(ПолноеИмяФайла).Существует();

КонецЕсли;

СтрокаРезультата = Результат.Добавить();

СтрокаРезультата.Номенклатура = Номенклатура;

СтрокаРезультата.ЕстьИзображение = ЕстьИзображение;

КонецЦикла;

Возврат Результат;

КонецФункции

Теперь вместо 9000 обращений к серверу будет один вызов.

—

# 3. Как вызвать пакетную проверку в вашем коде

После заполнения ТабЗначений сформируйте массив ссылок:

МассивНоменклатуры = Новый Массив;

Для Каждого СтрокаТаблицы Из ТабЗначений Цикл
	МассивНоменклатуры.Добавить(СтрокаТаблицы.Номенклатура);
КонецЦикла;

ТаблицаНаличияИзображений =
	УправлениеВложениямиСервер.ПроверитьНаличиеИзображений(
		МассивНоменклатуры
	);

МассивНоменклатуры = Новый Массив;

Для Каждого СтрокаТаблицы Из ТабЗначений Цикл

МассивНоменклатуры.Добавить(СтрокаТаблицы.Номенклатура);

КонецЦикла;

ТаблицаНаличияИзображений =

УправлениеВложениямиСервер.ПроверитьНаличиеИзображений(

МассивНоменклатуры

);

Затем создайте соответствие для быстрого поиска признака:

СоответствиеКартинок = Новый Соответствие;

Для Каждого СтрокаНаличия Из ТаблицаНаличияИзображений Цикл
	СоответствиеКартинок.Вставить(
		СтрокаНаличия.Номенклатура,
		СтрокаНаличия.ЕстьИзображение
	);
КонецЦикла;

СоответствиеКартинок = Новый Соответствие;

Для Каждого СтрокаНаличия Из ТаблицаНаличияИзображений Цикл

СоответствиеКартинок.Вставить(

СтрокаНаличия.Номенклатура,

СтрокаНаличия.ЕстьИзображение

);

КонецЦикла;

После этого фильтруйте таблицу без обращения к картинке:

ТЗнач = Новый ТаблицаЗначений;

ТЗнач.Колонки.Добавить("Номенклатура");
ТЗнач.Колонки.Добавить("Артикул");
ТЗнач.Колонки.Добавить("МинимальныйОстаток");
ТЗнач.Колонки.Добавить("Потребность");
ТЗнач.Колонки.Добавить("Резерв");
ТЗнач.Колонки.Добавить("Приобрели");
ТЗнач.Колонки.Добавить("Продали");
ТЗнач.Колонки.Добавить("НачальныйОтстаток");
ТЗнач.Колонки.Добавить("КонечныйОстаток");

Для Каждого СтрокаТаблицы Из ТабЗначений Цикл
	
	ЕстьИзображение = Ложь;
	СоответствиеКартинок.Свойство(
		СтрокаТаблицы.Номенклатура,
		ЕстьИзображение
	);
	
	// ПолеВыбораФото = 2 - только с картинками
	Если ПолеВыбораФото = 2 И Не ЕстьИзображение Тогда
		Продолжить;
	КонецЕсли;
	
	// ПолеВыбораФото = 3 - только без картинок
	Если ПолеВыбораФото = 3 И ЕстьИзображение Тогда
		Продолжить;
	КонецЕсли;
	
	НоваяСтрока = ТЗнач.Добавить();
	ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТаблицы);
	
КонецЦикла;

ТабЗначений = ТЗнач;

ТЗнач = Новый ТаблицаЗначений;

ТЗнач.Колонки.Добавить("Номенклатура");

ТЗнач.Колонки.Добавить("Артикул");

ТЗнач.Колонки.Добавить("МинимальныйОстаток");

ТЗнач.Колонки.Добавить("Потребность");

ТЗнач.Колонки.Добавить("Резерв");

ТЗнач.Колонки.Добавить("Приобрели");

ТЗнач.Колонки.Добавить("Продали");

ТЗнач.Колонки.Добавить("НачальныйОтстаток");

ТЗнач.Колонки.Добавить("КонечныйОстаток");

Для Каждого СтрокаТаблицы Из ТабЗначений Цикл

ЕстьИзображение = Ложь;

СоответствиеКартинок.Свойство(

СтрокаТаблицы.Номенклатура,

ЕстьИзображение

);

// ПолеВыбораФото = 2 - только с картинками

Если ПолеВыбораФото = 2 И Не ЕстьИзображение Тогда

Продолжить;

КонецЕсли;

// ПолеВыбораФото = 3 - только без картинок

Если ПолеВыбораФото = 3 И ЕстьИзображение Тогда

Продолжить;

КонецЕсли;

НоваяСтрока = ТЗнач.Добавить();

ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТаблицы);

КонецЦикла;

ТабЗначений = ТЗнач;

Здесь я предполагаю:

ПолеВыбораФото = 1

1	ПолеВыбораФото = 1

означает «все товары»,

ПолеВыбораФото = 2

1	ПолеВыбораФото = 2

означает «только с картинками»,

ПолеВыбораФото = 3

1	ПолеВыбораФото = 3

означает «только без картинок».

У вас сейчас для значения 1 стоит пустая ветка:

Если ПолеВыбораФото = 1 Тогда
		
Иначе

Если ПолеВыбораФото = 1 Тогда

Иначе

Из-за этого лучше явно разделить режимы.

—

# 4. Еще лучше, если картинки хранятся в информационной базе

Если в вашей базе КаталогВложений пустой, картинки хранятся в реквизите ОсновноеИзображение в базе. Тогда можно попробовать определить наличие прямо в запросе, не перебирая 9000 строк после выполнения запроса.

В запрос добавляется поле:

|	ВЫБОР
|		КОГДА ВТ_ОбъединениеТрехТабл.Номенклатура.ОсновноеИзображение ЕСТЬ НЕ NULL
|			ТОГДА ИСТИНА
|		ИНАЧЕ ЛОЖЬ
|	КОНЕЦ КАК ЕстьИзображение,

| ВЫБОР

| КОГДА ВТ_ОбъединениеТрехТабл.Номенклатура.ОсновноеИзображение ЕСТЬ НЕ NULL

| ТОГДА ИСТИНА

| ИНАЧЕ ЛОЖЬ

| КОНЕЦ КАК ЕстьИзображение,

Например, начало запроса:

|ВЫБРАТЬ
|	ВТ_ОбъединениеТрехТабл.Номенклатура КАК Номенклатура,
|	ВТ_ОбъединениеТрехТабл.Артикул КАК Артикул,
|	ВТ_ОбъединениеТрехТабл.НачальныйОтстаток КАК НачальныйОтстаток,
|	ВТ_ОбъединениеТрехТабл.КонечныйОстаток КАК КонечныйОстаток,
|	ВТ_ОбъединениеТрехТабл.Потребность КАК Потребность,
|	ВТ_ОбъединениеТрехТабл.Резерв КАК Резерв,
|	ВТ_ОбъединениеТрехТабл.МинимальныйОстаток КАК МинимальныйОстаток,
|	ПартииТоваровНаСкладахОбороты.КоличествоПриход КАК Приобрели,
|	ПартииТоваровНаСкладахОбороты.КоличествоРасход КАК Продали,
|	ВЫБОР
|		КОГДА ВТ_ОбъединениеТрехТабл.Номенклатура.ОсновноеИзображение ЕСТЬ НЕ NULL
|			ТОГДА ИСТИНА
|		ИНАЧЕ ЛОЖЬ
|	КОНЕЦ КАК ЕстьИзображение
|ИЗ
|	ВТ_ОбъединениеТрехТабл КАК ВТ_ОбъединениеТрехТабл
|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииТоваровНаСкладах.Обороты(
|			&ДатаНачало,
|			&ДатаКонец,
|			,
|			) КАК ПартииТоваровНаСкладахОбороты
|		ПО ВТ_ОбъединениеТрехТабл.Номенклатура.Ссылка =
|			ПартииТоваровНаСкладахОбороты.Номенклатура.Ссылка

|ВЫБРАТЬ

| ВТ_ОбъединениеТрехТабл.Номенклатура КАК Номенклатура,

| ВТ_ОбъединениеТрехТабл.Артикул КАК Артикул,

| ВТ_ОбъединениеТрехТабл.НачальныйОтстаток КАК НачальныйОтстаток,

| ВТ_ОбъединениеТрехТабл.КонечныйОстаток КАК КонечныйОстаток,

| ВТ_ОбъединениеТрехТабл.Потребность КАК Потребность,

| ВТ_ОбъединениеТрехТабл.Резерв КАК Резерв,

| ВТ_ОбъединениеТрехТабл.МинимальныйОстаток КАК МинимальныйОстаток,

| ПартииТоваровНаСкладахОбороты.КоличествоПриход КАК Приобрели,

| ПартииТоваровНаСкладахОбороты.КоличествоРасход КАК Продали,

| ВЫБОР

| КОГДА ВТ_ОбъединениеТрехТабл.Номенклатура.ОсновноеИзображение ЕСТЬ НЕ NULL

| ТОГДА ИСТИНА

| ИНАЧЕ ЛОЖЬ

| КОНЕЦ КАК ЕстьИзображение

|ИЗ

| ВТ_ОбъединениеТрехТабл КАК ВТ_ОбъединениеТрехТабл

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииТоваровНаСкладах.Обороты(

| &ДатаНачало,

| &ДатаКонец,

| ,

| ) КАК ПартииТоваровНаСкладахОбороты

| ПО ВТ_ОбъединениеТрехТабл.Номенклатура.Ссылка =

| ПартииТоваровНаСкладахОбороты.Номенклатура.Ссылка

Дальше при заполнении таблицы добавьте колонку:

ТабЗначений.Колонки.Добавить("ЕстьИзображение");

1	ТабЗначений.Колонки.Добавить("ЕстьИзображение");

И заполнение:

Стр.ЕстьИзображение =
	ВыборкаДетальныеЗаписи.ЕстьИзображение;

1 2	Стр.ЕстьИзображение = ВыборкаДетальныеЗаписи.ЕстьИзображение;

После этого фильтр будет очень простой:

Если ПолеВыбораФото = 2 И Не СтЧасти.ЕстьИзображение Тогда
	Продолжить;
КонецЕсли;

Если ПолеВыбораФото = 3 И СтЧасти.ЕстьИзображение Тогда
	Продолжить;
КонецЕсли;

Если ПолеВыбораФото = 2 И Не СтЧасти.ЕстьИзображение Тогда

Продолжить;

КонецЕсли;

Если ПолеВыбораФото = 3 И СтЧасти.ЕстьИзображение Тогда

Продолжить;

КонецЕсли;

Однако этот вариант подходит только для хранения картинок в базе. Если КаталогВложений заполнен, SQL-запрос не знает, существует ли файл на диске. В таком случае используйте пакетную серверную проверку файлов.

—

# 5. Не вызывайте ПолучитьОсновноеИзображение для фильтрации

Ваш текущий код:

Картинка = УправлениеВложениямиКлиент.ПолучитьОсновноеИзображение(Номенклатура);

Если ЗначениеЗаполнено(Картинка) Тогда

Картинка = УправлениеВложениямиКлиент.ПолучитьОсновноеИзображение(Номенклатура);

Если ЗначениеЗаполнено(Картинка) Тогда

нужно заменить на:

ЕстьКартинка = УправлениеВложениямиСервер.ЕстьОсновноеИзображение(
	Номенклатура
);

Если ЕстьКартинка Тогда

ЕстьКартинка = УправлениеВложениямиСервер.ЕстьОсновноеИзображение(

Номенклатура

);

Если ЕстьКартинка Тогда

Но одиночный вызов всё равно будет медленнее пакетного. Оптимальный вариант для 9000 строк:

1. Получить результат запроса.
2. Одним вызовом проверить наличие изображений.
3. Получить соответствие Номенклатура -> ЕстьИзображение.
4. Отфильтровать таблицу.
5. Только после этого выводить макет.

—

# 6. Уберите лишнее заполнение таблицы

Сейчас вы вручную создаете ТабЗначений и переносите каждое поле:

Стр.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
Стр.Артикул = ВыборкаДетальныеЗаписи.Артикул;
...

Стр.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;

Стр.Артикул = ВыборкаДетальныеЗаписи.Артикул;

...

Если структура результата запроса вас устраивает, можно сразу выгрузить результат:

ТабЗначений = Запрос.Выполнить().Выгрузить();

1	ТабЗначений = Запрос.Выполнить().Выгрузить();

То есть вместо:

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
	...
КонецЦикла;

РезультатЗапроса = Запрос.Выполнить();

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

...

КонецЦикла;

использовать:

ТабЗначений = Запрос.Выполнить().Выгрузить();

1	ТабЗначений = Запрос.Выполнить().Выгрузить();

При этом в запросе должны быть только необходимые поля.

Если используете вариант с признаком картинки в запросе, достаточно:

ТабЗначений = Запрос.Выполнить().Выгрузить();

1	ТабЗначений = Запрос.Выполнить().Выгрузить();

А затем:

Если ПолеВыбораФото <> 1 Тогда
	
	ТЗнач = ТабЗначений.СкопироватьКолонки();
	
	Для Каждого СтрокаТаблицы Из ТабЗначений Цикл
		
		Если ПолеВыбораФото = 2
			И Не СтрокаТаблицы.ЕстьИзображение Тогда
			Продолжить;
		КонецЕсли;
		
		Если ПолеВыбораФото = 3
			И СтрокаТаблицы.ЕстьИзображение Тогда
			Продолжить;
		КонецЕсли;
		
		НоваяСтрока = ТЗнач.Добавить();
		ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТаблицы);
		
	КонецЦикла;
	
	ТабЗначений = ТЗнач;
	
КонецЕсли;

Если ПолеВыбораФото <> 1 Тогда

ТЗнач = ТабЗначений.СкопироватьКолонки();

Для Каждого СтрокаТаблицы Из ТабЗначений Цикл

Если ПолеВыбораФото = 2

И Не СтрокаТаблицы.ЕстьИзображение Тогда

Продолжить;

КонецЕсли;

Если ПолеВыбораФото = 3

И СтрокаТаблицы.ЕстьИзображение Тогда

Продолжить;

КонецЕсли;

НоваяСтрока = ТЗнач.Добавить();

ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТаблицы);

КонецЦикла;

ТабЗначений = ТЗнач;

КонецЕсли;

## Важное замечание по общему модулю

Модуль с функцией проверки должен вызываться на сервере, особенно если указан внешний каталог вложений. Сервер 1С должен иметь доступ к каталогу:

КаталогВложений

1	КаталогВложений

Если каталог находится на другом компьютере, сервер 1С должен видеть его по сетевому пути, например:

\СерверФайловВложения

1	\СерверФайловВложения

А не по локальному пути пользователя:

C:Вложения

1	C:Вложения

Иначе Файл.Существует() будет проверять диск сервера 1С, а не диск клиента.

Самый быстрый вариант для вашей задачи:

ТабЗначений = Запрос.Выполнить().Выгрузить();

1	ТабЗначений = Запрос.Выполнить().Выгрузить();

плюс определение признака ЕстьИзображение непосредственно в запросе, если изображения хранятся в базе. Если изображения лежат в каталоге, используйте одну пакетную серверную проверку, но не загружайте сами двоичные данные.

Автор

Записи

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?