0
rJLe6aH
26.11.21
✎
16:27
|
Имеется макет Htmlдокумента справочника "HtmlПлеер" в котором есть тег:
<audio id="player" src="|||ПутьКФайлу|||"><img src="|||КартинкаВосПауз|||" width="50" hight="55"></button>
На управляемой форме в модуле код:
&НаКлиенте
Процедура Загрузить(Команда)
Оповещение = Новый ОписаниеОповещения("АдрессФайлаНажатиеЗавершение", ЭтотОбъект);
НачатьПомещениеФайлаНаСервер(Оповещение,,,,,УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура АдрессФайлаНажатиеЗавершение(ОписаниеПомещенногоФайла, ДополнительныеПараметры) Экспорт
Если ОписаниеПомещенногоФайла = Неопределено Тогда
Возврат;
КонецЕсли;
АдресФайла = ОписаниеПомещенногоФайла.Адрес;
Модифицированность = Истина;
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
Если ЭтоАдресВременногоХранилища(АдресФайла) Тогда
ДанныеФайла = ПолучитьИзВременногоХранилища(АдресФайла);
ТекущийОбъект.ФайлХЗ = Новый ХранилищеЗначения(ДанныеФайла);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Объект.Ссылка.Пустая() Тогда
Возврат;
КонецЕсли;
АудиоПлеер = Справочники.КарточкаКомпозиции.ПолучитьМакет("HtmlПлеер").ПолучитьТекст();
АдресФайла = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ФайлХЗ");
АудиоПлеер = СтрЗаменить(АудиоПлеер,"|||ПутьКФайлу|||","C:\Program Files\1cv8\common" + АдресФайла);
КонецПроцедуры
Последняя строка кода формы, где АудиоПлеер = СтрЗаменить(АудиоПлеер,"|||ПутьКФайлу|||","C:\Program Files\1cv8\common" + АдресФайла);
Нужно заменить "|||ПутьКФайлу|||" на путь в бд 1с-ки, что бы показался плеер на форме в поле HtmlДокумента.
Если есть предложения как решить проблему или найти другой способ реализации кода, прошу помощи)
|
|