|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
Функция СоздатьФайлВХранилище(ЛокПолноеИмяФайла,ЛокНаименованиеЭлемента)Экспорт Попытка ЛокХранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ЛокПолноеИмяФайла)); Исключение Возврат Null; КонецПопытки; ЛокСправочникХЗН = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент(); ЛокСправочникХЗН.Наименование = ЛокНаименованиеЭлемента; ЛокСправочникХЗН.Хранилище = ЛокХранилище; Попытка ЛокСправочникХЗН.Записать(); Возврат ЛокСправочникХЗН; Исключение Возврат Null; КонецПопытки; КонецФункции Функция ЗаменаФайлаВХранилище(ЛокПолноеИмяФайла,ЛокНаименованиеЭлемента) Экспорт Попытка ЛокХранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ЛокПолноеИмяФайла)); Исключение Возврат Null; КонецПопытки; ЛокСправочникХЗНСсылка = Справочники.ХранилищеДополнительнойИнформации.НайтиПоНаименованию(ЛокНаименованиеЭлемента); Если ЛокСправочникХЗНСсылка.Пустая() Тогда Возврат Null; КонецЕсли; ЛокСправочникХЗН = ЛокСправочникХЗНСсылка.ПолучитьОбъект(); ЛокСправочникХЗН.Хранилище = ЛокХранилище; Попытка ЛокСправочникХЗН.Записать(); Возврат ЛокСправочникХЗН; Исключение Возврат Null; КонецПопытки; КонецФункции Функция ЗаписатьФайлИзХранилища(ЛокПолноеИмяФайла,ЛокНаименованиеЭлемента) Экспорт Попытка ЛокСпр = Справочники.ХранилищеДополнительнойИнформации.НайтиПоНаименованию(ЛокНаименованиеЭлемента); ЛокСпр.Хранилище.Получить().Записать(ЛокПолноеИмяФайла); Возврат Истина; Исключение Возврат Ложь; КонецПопытки; КонецФункции Функция СоздатьВременныйФайлИзХранилища(ЛокНаименованиеЭлемента,ЛокРасширение) ЛокПолноеИмяФайла = КаталогВременныхФайлов()+ПолучитьИмяВременногоФайла(ЛокРасширение); Если ЗаписатьФайлИзХранилища(ЛокПолноеИмяФайла,ЛокНаименованиеЭлемента) Тогда Возврат ЛокПолноеИмяФайла; Иначе Возврат Null; КонецЕсли; КонецФункции |
About the Author
