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

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

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

Оффлайн nikioioio

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

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


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

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

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


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


Теги:
 

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

* Реклама

* Поиск

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

* Реклама

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

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

oleg-x
122 Сообщений
alex0402
104 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
73 Сообщений
ilyay ilyay
50 Сообщений
Golickoff Golickoff
49 Сообщений
AIFrame
43 Сообщений
ab30ru
38 Сообщений
wise wise
36 Сообщений
Амал
32 Сообщений
Dethmontt Dethmontt
25 Сообщений

* Кто онлайн

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

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

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

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

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

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal