nikioioio
23.03.2016, 06:54
Добрый день. Есть стандартная обработка "ЗагрузкаДанныхИзТабличног оДокумента" В событии при записи описан алгоритм:
НомерСтолбцаИзображение = 3;
НомерСтолбцаОписаниеИзобр ажение = 4;
ЗапросСуществующих = Новый Запрос();
ЗапросСуществующих.Текст = "
|ВЫБРАТЬ
| ХранилищеДополнительнойИн формации.Ссылка
|ИЗ
| Справочник.ХранилищеДопол� �ительнойИнформации КАК ХранилищеДополнительнойИн формации
|ГДЕ
| ХранилищеДополнительнойИн формации.Объект = &Объект
| И ХранилищеДополнительнойИн формации.Наименование = &Наименование";
Объект.Записать();
ФайлКартинки = Новый Файл(СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]));
Предупреждение(ФайлКартин� �и.Существует());
Если ФайлКартинки.Существует() Тогда
Предупреждение("!");
ЗапросСуществующих.Устано� �итьПараметр("Объект", Объект.Ссылка);
ЗапросСуществующих.Устано� �итьПараметр("Наименование", СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзобр ажение]));
Выборка = ЗапросСуществующих.Выполн� �ть().Выбрать();
Если Выборка.Количество() <= 0 Тогда
Предупреждение("!!");
ХранилищеОбъект = Справочники.ХранилищеДопо� �нительнойИнформации.Созда тьЭлемент();
ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнит� �льнойИнформацииОбъектов.И зображение;
ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(ТекстыЯчеек[НомерСтолбцаИзображение]),Новый СжатиеДанных);
ХранилищеОбъект.Объект = Объект.Ссылка;
ХранилищеОбъект.Наименова� �ие = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзобр ажение]);
ХранилищеОбъект.ИмяФайла = ТекстыЯчеек[НомерСтолбцаИзображение];
ХранилищеОбъект.Записать();
Объект.ОсновноеИзображени� �=ХранилищеОбъект.Ссылка;
КонецЕсли;
КонецЕсли;
Помогите переделать алгоритм так, чтобы принимались URL Ссылки вместо локальных ссылок типа C:\...
НомерСтолбцаИзображение = 3;
НомерСтолбцаОписаниеИзобр ажение = 4;
ЗапросСуществующих = Новый Запрос();
ЗапросСуществующих.Текст = "
|ВЫБРАТЬ
| ХранилищеДополнительнойИн формации.Ссылка
|ИЗ
| Справочник.ХранилищеДопол� �ительнойИнформации КАК ХранилищеДополнительнойИн формации
|ГДЕ
| ХранилищеДополнительнойИн формации.Объект = &Объект
| И ХранилищеДополнительнойИн формации.Наименование = &Наименование";
Объект.Записать();
ФайлКартинки = Новый Файл(СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]));
Предупреждение(ФайлКартин� �и.Существует());
Если ФайлКартинки.Существует() Тогда
Предупреждение("!");
ЗапросСуществующих.Устано� �итьПараметр("Объект", Объект.Ссылка);
ЗапросСуществующих.Устано� �итьПараметр("Наименование", СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзобр ажение]));
Выборка = ЗапросСуществующих.Выполн� �ть().Выбрать();
Если Выборка.Количество() <= 0 Тогда
Предупреждение("!!");
ХранилищеОбъект = Справочники.ХранилищеДопо� �нительнойИнформации.Созда тьЭлемент();
ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнит� �льнойИнформацииОбъектов.И зображение;
ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(ТекстыЯчеек[НомерСтолбцаИзображение]),Новый СжатиеДанных);
ХранилищеОбъект.Объект = Объект.Ссылка;
ХранилищеОбъект.Наименова� �ие = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзобр ажение]);
ХранилищеОбъект.ИмяФайла = ТекстыЯчеек[НомерСтолбцаИзображение];
ХранилищеОбъект.Записать();
Объект.ОсновноеИзображени� �=ХранилищеОбъект.Ссылка;
КонецЕсли;
КонецЕсли;
Помогите переделать алгоритм так, чтобы принимались URL Ссылки вместо локальных ссылок типа C:\...