СтандартнаяОбработка = Ложь;
Если Диалог.Выбрать() Тогда
Объект.Файл = Диалог.ПолноеИмяФайла;
ФайлНачалоВыбораНаСервере(Диалог.ПолноеИмяФайла);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ФайлНачалоВыбораНаСервере(ПолноеИмяФайла)
ВыбранноеФото = Новый Картинка(ПолноеИмяФайла,Ложь);
Ном = Справочники.Номенклатура.НайтиПоНаименованию("Тестовая номенклатура №1");
НомПрисоед = Справочники.НоменклатураПрисоединенныеФайлы.НайтиПоНаименованию(ПолноеИмяФайла);
Если НомПрисоед = Справочники.НоменклатураПрисоединенныеФайлы.ПустаяСсылка() Тогда
НомПрисоед = Справочники.НоменклатураПрисоединенныеФайлы.СоздатьЭлемент();
НомПрисоед.Автор = ПараметрыСеанса.ТекущийПользователь;
НомПрисоед.ВладелецФайла = Ном;
НомПрисоед.ДатаСоздания = ТекущаяДата();
НомПрисоед.Наименование = ПолноеИмяФайла;
НомПрисоед.ПутьКФайлу = ПолноеИмяФайла;
НомПрисоед.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе;
Иначе
НомПрисоед = НомПрисоед.ПолучитьОбъект();
КонецЕсли;
//НомПрисоед.ФайлХранилище = Новый ХранилищеЗначения(ВыбранноеФото, Новый СжатиеДанных());
//НомПрисоед.ФайлХранилище = Новый ХранилищеЗначения(ВыбранноеФото);
//НомПрисоед.ФайлХранилище = Новый ХранилищеЗначения(ВыбранноеФото.ПолучитьДвоичныеДанные());
НомПрисоед.ФайлХранилище = Новый ХранилищеЗначения(ВыбранноеФото.ПолучитьДвоичныеДанные(), Новый СжатиеДанных());
НомПрисоед.Записать();
КонецПроцедуры
</1c>
Получаю во всех случаях: http://vfl.ru/fotos/53e9f03d2894991.html Подскажите, ЧЯДНТ
С БСП не в ладах, поэтому если будете к ней отсылать, объясните на пальцах.
Заранее спасибо!
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший