1C 8.0 Как загрузить картинки из каталога для номенклатуры??
15.05.2006
17:05
#1
"пишу вот что...
Процедура КнопкаВыполнитьНажатие(Кнопка)
НайденныеФайлы = НайтиФайлы("D:\Sites\", "*.*");
Спр = Справочники.Номенклатура;
Для Каждого НайденныеФайлы из НайденныеФайлы Цикл
ИмяФайла=(НайденныеФайлы.ИмяБезРасширения);
СРасш=("D:\Sites\"+НайденныеФайлы.Имя);
Сообщить(СРасш);
Найд=Спр.НайтиПоРеквизиту("Артикул",ИмяФайла);
Если Найд<>Спр.ПустаяСсылка() Тогда
ФормаСписка=Найд.ОсновноеИзображение.ПолучитьФорму("ФормаИзображения");
Сообщить("Получилось");
ФормаСписка.Открыть();
КонецЕсли
КонецЦикла
КонецПроцедуры
Во-первых: не открывает формы с пустыми фото, во-вторых: как присвоить и записать необходимое фото??
Спасибо.."
Процедура КнопкаВыполнитьНажатие(Кнопка)
НайденныеФайлы = НайтиФайлы("D:\Sites\", "*.*");
Спр = Справочники.Номенклатура;
Для Каждого НайденныеФайлы из НайденныеФайлы Цикл
ИмяФайла=(НайденныеФайлы.ИмяБезРасширения);
СРасш=("D:\Sites\"+НайденныеФайлы.Имя);
Сообщить(СРасш);
Найд=Спр.НайтиПоРеквизиту("Артикул",ИмяФайла);
Если Найд<>Спр.ПустаяСсылка() Тогда
ФормаСписка=Найд.ОсновноеИзображение.ПолучитьФорму("ФормаИзображения");
Сообщить("Получилось");
ФормаСписка.Открыть();
КонецЕсли
КонецЦикла
КонецПроцедуры
Во-первых: не открывает формы с пустыми фото, во-вторых: как присвоить и записать необходимое фото??
Спасибо.."
Читают тему
(гостей: 1)