г. Санкт-Петербург
Войти
Логин
Пароль
Зарегистрироваться
После регистрации на сайте вам будет доступно отслеживание состояния заказов, личный кабинет и другие новые возможности
Заказать звонок
Логин
Пароль
Зарегистрироваться
После регистрации на сайте вам будет доступно отслеживание состояния заказов, личный кабинет и другие новые возможности
Логин
Пароль
Зарегистрироваться
После регистрации на сайте вам будет доступно отслеживание состояния заказов, личный кабинет и другие новые возможности

RSS
Установка решения Выгрузка html - описания для номенклатуры (с редактором html - описания), Для установки решения Выгрузки html (хтмл) описания необходимо обязательно установить расширения конфигурации 1С Расширения Для конф. Управление торговлей или Комплексная автоматизация
 
Потребуется установка двух расширений конфигурации:

  • Одно добавляет Html - редактор в номенклатуру
  • второе добавляет функционал необходимый для выгрузки данных описания на сайт.



Если необходимо чтобы HTML описание будучи заполненным полностью заменяло описание товара

Нужно заменить в настройках выгрузки Описание на указанный ниже "свой алгоритм":
Код
ГИ_НаменованиеФайлаСОписанием = "_html-описание номенклатуры_";

ГИ_ЗначенияОписанийНоменклатуры = Новый Соответствие();

ГИ_НужноСформироватьТаблицуОписаний = Ложь;
Если ПараметрыОбмена.Свойство("ГИ_ЗначенияОписанийНоменклатуры") Тогда
   
   Если ПараметрыОбмена.ГИ_ЗначенияОписанийНоменклатуры[ [Номенклатура] ] = Неопределено Тогда
      ГИ_НужноСформироватьТаблицуОписаний = Истина;
   Иначе
      ГИ_ЗначенияОписанийНоменклатуры = ПараметрыОбмена.ГИ_ЗначенияОписанийНоменклатуры;
   КонецЕсли;
   
Иначе
   ГИ_НужноСформироватьТаблицуОписаний = Истина;
КонецЕсли;

Если ГИ_НужноСформироватьТаблицуОписаний Тогда   
   
   ГИ_ПараметрыКонфигурации = ГИHTML_ОбщегоНазначения.ПолучитьПараметрыКонфигурации();

   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ГИ_НаменованиеФайлаСОписанием", ГИ_НаменованиеФайлаСОписанием);
   Запрос.МенеджерВременныхТаблиц = [МенеджерВременныхТаблиц];
   Запрос.Текст = "
   |ВЫБРАТЬ
   |   Ссылка,
   |   ВладелецФайла КАК Номенклатура
   |ПОМЕСТИТЬ
   |   ГИ_ФайлыОписаний
   |ИЗ
   |   Справочник.НоменклатураПрисоединенныеФайлы
   |ГДЕ
   |   ВладелецФайла В (ВЫБРАТЬ Номенклатура ИЗ ВремНоменклатура)
   |      И
   |   Наименование = &ГИ_НаменованиеФайлаСОписанием
   |ИНДЕКСИРОВАТЬ ПО
   |   Ссылка
   |;
   |
   |ВЫБРАТЬ
   |   ФайлыОписаний.Номенклатура КАК Номенклатура,
   |   ДвоичныеДанныеФайлов." + ГИ_ПараметрыКонфигурации.ИмяРесурсаХранимыйФайл + " КАК ДвоичныеДанные
   |ПОМЕСТИТЬ
   |   ГИ_ФайлыОписанийДвоичныеДанные
   |ИЗ
   |   ГИ_ФайлыОписаний КАК ФайлыОписаний
   |   ВНУТРЕННЕЕ СОЕДИНЕНИЕ
   |   РегистрСведений." + ГИ_ПараметрыКонфигурации.ИмяРегистраПрисоединенныеФайлы + " КАК ДвоичныеДанныеФайлов
   |   ПО
   |      ДвоичныеДанныеФайлов." + ГИ_ПараметрыКонфигурации.ИмяИзмеренияПрисоединенныйФайл + " = ФайлыОписаний.Ссылка   
   |ИНДЕКСИРОВАТЬ ПО
   |   Номенклатура   
   |;
   |
   |ВЫБРАТЬ
   |   СпрНоменклатура.Ссылка КАК Номенклатура,
   |   СпрНоменклатура.Описание КАК ТиповоеОписание,
   |   ФайлыОписанийДвоичныеДанные.ДвоичныеДанные КАК ДвоичныеДанныеФайлаОписания,
   |   ( ФайлыОписанийДвоичныеДанные.ДвоичныеДанные ЕСТЬ NULL ) КАК ВыгружатьТиповоеОписание
   |ИЗ
   |   Справочник.Номенклатура КАК СпрНоменклатура
   |   
   |   ВНУТРЕННЕЕ СОЕДИНЕНИЕ
   |   ВремНоменклатура КАК ВремНоменклатура
   |   ПО
   |      ВремНоменклатура.Номенклатура = СпрНоменклатура.Ссылка
   |      
   |   ЛЕВОЕ СОЕДИНЕНИЕ
   |   ГИ_ФайлыОписанийДвоичныеДанные КАК ФайлыОписанийДвоичныеДанные
   |   ПО
   |      ФайлыОписанийДвоичныеДанные.Номенклатура = СпрНоменклатура.Ссылка
   |;";
   
   Выборка = Запрос.Выполнить().Выбрать();
      
   Пока Выборка.Следующий() Цикл
   
      ГИ_Описание = Неопределено;
      Если Выборка.ВыгружатьТиповоеОписание Тогда
         ГИ_Описание = Выборка.ТиповоеОписание;
      Иначе
         ГИ_Описание = ПолучитьСтрокуИзДвоичныхДанных(Выборка.ДвоичныеДанныеФайлаОписания.Получить(), КодировкаТекста.Системная);   
      КонецЕсли;





      ГИ_ЗначенияОписанийНоменклатуры.Вставить(
         Выборка.Номенклатура,
         ГИ_Описание
      );
      
   КонецЦикла;
   
   ПараметрыОбмена.Вставить("ГИ_ЗначенияОписанийНоменклатуры", ГИ_ЗначенияОписанийНоменклатуры);
   
КонецЕсли;

[Результат] = ГИ_ЗначенияОписанийНоменклатуры[ [Номенклатура] ];