Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
20 Сен 2017, 03:18
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Алгоритм загрузки изображений из excel по ссылке URL в реквизит основное изображение  (Прочитано 865 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн nikioioio

  • *
  • Сообщений: 0
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2014-04-13
  • Сайт: 
  • Профессия: Консультант 1С
Добрый день. Есть стандартная обработка "ЗагрузкаДанныхИзТабличногоДокумента" В событии при записи описан алгоритм:

НомерСтолбцаИзображение = 3;
НомерСтолбцаОписаниеИзображение = 4;


ЗапросСуществующих = Новый Запрос();
ЗапросСуществующих.Текст = "
|ВЫБРАТЬ
|   ХранилищеДополнительнойИнформации.Ссылка
|ИЗ
|   Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
|ГДЕ
|   ХранилищеДополнительнойИнформации.Объект = &Объект
|   И ХранилищеДополнительнойИнформации.Наименование = &Наименование";

Объект.Записать();

ФайлКартинки = Новый Файл(СокрЛП(ТекстыЯчеек[НомерСтолбцаИзображение]));
 Предупреждение(ФайлКартинки.Существует());
Если ФайлКартинки.Существует() Тогда
   Предупреждение("!");
   ЗапросСуществующих.УстановитьПараметр("Объект", Объект.Ссылка);
   ЗапросСуществующих.УстановитьПараметр("Наименование", СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]));
   Выборка = ЗапросСуществующих.Выполнить().Выбрать();
   Если Выборка.Количество() <= 0 Тогда
      Предупреждение("!!");
      ХранилищеОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
      ХранилищеОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
      ХранилищеОбъект.Хранилище = Новый ХранилищеЗначения(Новый Картинка(ТекстыЯчеек[НомерСтолбцаИзображение]),Новый СжатиеДанных);
      ХранилищеОбъект.Объект = Объект.Ссылка;
      ХранилищеОбъект.Наименование = СокрЛП(ТекстыЯчеек[НомерСтолбцаОписаниеИзображение]);
      ХранилищеОбъект.ИмяФайла = ТекстыЯчеек[НомерСтолбцаИзображение];
      ХранилищеОбъект.Записать();
      Объект.ОсновноеИзображение=ХранилищеОбъект.Ссылка;
   КонецЕсли;
КонецЕсли;


Помогите переделать алгоритм так, чтобы принимались URL Ссылки вместо локальных ссылок типа C:\...


Теги:
 

Реквизит "ГоловнойКонтрагент" в справочнике "Контрагенты"

Автор SergWolf07Раздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 3
Просмотров: 6791
Последний ответ 28 Авг 2011, 19:12
от SergWolf07
Реквизит "касса"

Автор AnterKanРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 5
Просмотров: 2631
Последний ответ 11 Май 2012, 20:51
от AnterKan
Реквизит документа из другого документа

Автор slaviik3Раздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 5
Просмотров: 1337
Последний ответ 02 Ноя 2015, 12:04
от Kironten
Круглый стол "Автоматизация учета и отчетности по МСФО: Excel против программных продуктов"

Автор mixqnРаздел Мероприятия

Ответов: 0
Просмотров: 1621
Последний ответ 10 Сен 2014, 10:25
от mixqn
работа с файлами excel открытие файла xls, чтение данных и запись нового файла xls

Автор ktu78Раздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 1
Просмотров: 2374
Последний ответ 11 Фев 2016, 12:49
от Rasty

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

oleg-x
174 Сообщений
alex0402
82 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
80 Сообщений
AsadRoman
36 Сообщений
Kironten
34 Сообщений
ilyay ilyay
30 Сообщений
Golickoff Golickoff
29 Сообщений
AIFrame
27 Сообщений
BuhRust
26 Сообщений
Варвар
20 Сообщений

* Кто онлайн

  • Точка Гостей: 228
  • Точка Скрытых: 0
  • Точка Пользователей: 3
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal