7.7 Картинка товара в подборе номенклатуры 1С 7.7 Тис

а у меня почему не работает?

Что именно не работает? Фото экрана где?

ну, зачем это
Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото));
будь проще
Фото.Загрузить(ФайлФото);

Ранее то же писал, что код сложноват.

Всем привет, я опять пришел)) решил вернутся к теме этой!
Пишу инструкцию для таких как я.
Делал в карточке товара:

Далее:
//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

ПустаяКартинка=СоздатьОбъект("Картинка");
КаталогФотографий = КаталогИБ() + "IMAGE.DIR\";
ФайлФото = КаталогФотографий + СокрЛП(Строка(ТекущийЭлемент().Артикул))+".jpg";
Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда
Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото));
Фото.РежимРисования(3);
Форма.Фото.Видимость(1);
Иначе
ПустаяКартинка=СоздатьОбъект("Картинка");
КаталогФотографий = КаталогИБ() + "IMAGE.DIR\no.bmp";
Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото));
Фото.РежимРисования(3);
Форма.Фото.Видимость(1);
КонецЕсли;

// Заполним таблицу для выбора печатной формы

так выглядит в коде.

с данным кодом не выпадает ошибка:
Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото));
{Справочник.Номенклатура.Форма.Модуль(1150)}: Общая файловая ошибка при доступе к c:\Program Files (x86)........

Предложения по сокращению кода, при отсутствии изображения - та же ошибка.

А если нет фотки, вот так:

Запустить 1С от администратора, ошибка должна уйти.

--- Объединение сообщений, 19 мар 2017 ---

И зачем искать ПервыйФайл:

Код:

Если ФС.СуществуетФайл (ФотоФайл) = 1 Тогда
Фото.Загрузить (ФотоФайл)
Иначе
Фото.Загрузить (КаталогФото + "no.bmp");
КонецЕсли;
Фото.РежимРисования(3);

ну не надо фото класть в программ файлс, положите НЕ на системный диск

Процедура ПриОткрытии()

ПустаяКартинка=СоздатьОбъект("Картинка");
КаталогФотографий = КаталогИБ() + "IMAGE.DIR\";
ФайлФото = КаталогФотографий + СокрЛП(Строка(ТекущийЭлемент().Артикул))+".jpg";
Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда
Фото.Загрузить(ФайлФото);
Фото.РежимРисования(3);
Форма.Фото.Видимость(1);
Иначе
Фото.Загрузить (КаталогФотографий + "no.bmp");
Фото.РежимРисования(3);
Форма.Фото.Видимость(1);
КонецЕсли;

Вот сократил!

Все-равно не работает?
В папке есть файл с таким именем?
Запускали 1С от администратора (имею ввиду файл 1С.exe, а не вход под админом) ?

Все работает!
и в справочнике Номенклатура наладил показ картинок!

но начинает страдать прокрутка, перебирает изображения

Файл весит много, редактором уменьшите раза в 4 будет побыстрее!

Это для формы списка:
Функция ПоказатьФото()

ПустаяКартинка=СоздатьОбъект("Картинка");
КаталогФотографий = КаталогИБ() + "IMAGE.DIR\";
ФайлФото = КаталогФотографий + СокрЛП(Строка(ТекущийЭлемент().Артикул))+".jpg";
Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда
Фото.Загрузить(ФайлФото);
Фото.РежимРисования(3);
Форма.Фото.Видимость(1);
Иначе
Фото.Загрузить (КаталогФотографий + "no.bmp");
Фото.РежимРисования(3);
Форма.Фото.Видимость(1);
КонецЕсли;
Возврат "";
КонецФункции //ПоказатьФото()

сейчас картинки 500 х 500 пикселей, размер от 50 до 60 кб, это нарезка для сайта, там сайт порежет на 3 размера, потом подменю на меньшие.
пока все процессе наладки
P.S. - 1с стоит на SSD диске

Вам ещё надо в карточке сделать две кнопки - "загрузить фото" и "удалить фото", не вручную менять назнавание.
Я задавал вопрос на счёт того, что бы поставить 1С на ssd, спец сказал, что работать быстрее 1С не будет, а только грузиться, hard для 1С лучше.

Зачем на свойства повесили ПоказатьФото()? Может из-за этого тормозит? Размер фото нормальный для прокрутки.
Удерите от туда ПоказатьФото(), а за формой положите текст, название, например, "Фото товара"(чтобы Вам было понятно, что это такое); формула - ПоказатьФото().
В карточке ПоказатьФото() отдельная процедура, ПриОткрытии() вызов этой процедуры (думаю это было бы правильней).

Добрый вечер! Подскажите пожалуйста, сделал все как тут указывали, но при открытии выбивает ошибку "Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото)); Значение не представляет агрегатный объект (Загрузить)"
Как это можно побороть?

а каталог фото где лежит?

Функция ПоказатьФото()

ПустаяКартинка=СоздатьОбъект("Картинка");
КаталогФотографий = КаталогИБ() + "IMAGE.DIR\";
ФайлФото = КаталогФотографий + СокрЛП(Строка(ТекущийЭлемент().Артикул))+".jpg";
Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда
Фото.Загрузить(ФайлФото);
Фото.РежимРисования(3);
Форма.Фото.Видимость(1);
Иначе
Фото.Загрузить (КаталогФотографий + "no.bmp");
Фото.РежимРисования(3);
Форма.Фото.Видимость(1);
КонецЕсли;
Возврат "";
КонецФункции //ПоказатьФото()

Спасибо, разобрался! С дуру Переменную объявил локально