| Может возникнуть задача сохранить напечатанный документ в электронном виде и иметь возможность обращаться к нему через механизм присоединенных файлов. Сам механизм присоединенных файлов реализуется средствами БСП. Здесь опишем механизм сохранения напечатанного документа в электронном виде с помощью присоединенных файлов. | ||
|
Допустим, имеется команда формирования печатной формы документа. После того как ТабДок сформирован, вызовем процедуру общего модуля СохранениеПечатныхФормКлиент (с установленными флажками клиента)
|
||
| СохранениеПечатныхФормКлиент.СохранениеПечатныхФорм(ТабДок, ПараметрКоманды); | ||
| Процедура имеет следующий вид | ||
|
Процедура СохранениеПечатныхФорм(ТабДок, Ссылка) Экспорт
Если Ссылка.Количество() = 1 Тогда СписокКодов = Новый СписокЗначений; СписокКодов.Добавить("Да"); СписокКодов.Добавить("Нет"); Если Вопрос("Сохранять результат в присоединенных файлах?", СписокКодов) = "Да" Тогда ПутьКТому = СохранениеПечатныхФормСервер.ПолучитьТомХраненияФайлов(); ПутьКВременномуФайлу = ПутьКТому + "Tabl.xls"; ТабДок.Записать(ПутьКВременномуФайлу, "xls"); УИ = Ссылка[0].УникальныйИдентификатор(); Дат = Формат(ТекущаяДата(), "ДФ=ддММгг"); ИмяПриказа = "Приказ_"+Дат; МассивФайлов = СохранениеПечатныхФормСервер.ПолучитьПрикрепленныеФайлыКОбъекту(Ссылка[0]); Если МассивФайлов.Количество() > 0 Тогда
Спс = Новый СписокЗначений; Спс.ЗагрузитьЗначения(МассивФайлов); Эл = Спс.ВыбратьЭлемент("Выберите файл для замены"); Если Эл = Неопределено Тогда Ответ = ВвестиСтроку(ИмяПриказа, "Введите имя файла приказа (без расширения)"); Если Не Ответ Тогда Возврат; КонецЕсли; Для Каждого Элем Из МассивФайлов Цикл Если ИмяПриказа = Строка(Элем) Тогда Предупреждение("Файл с именем " + ИмяПриказа + " уже существует"); Возврат; КонецЕсли; КонецЦикла; Иначе Если Вопрос("Файл будет заменен. Продолжить?", СписокКодов) = "Нет" Тогда Возврат; КонецЕсли; Результат = ПрисоединенныеФайлыКлиент.ПоместитьФайлВХранилище(ПутьКВременномуФайлу, УИ); ПрисоединенныеФайлыСлужебныйВызовСервера.ОбновитьПрисоединенныйФайл(Эл.Значение, Результат); Возврат; КонецЕсли; Иначе Ответ = ВвестиСтроку(ИмяПриказа, "Введите имя файла приказа (без расширения)"); Если Не Ответ Тогда Возврат; КонецЕсли; КонецЕсли; Результат = ПрисоединенныеФайлыКлиент.ПоместитьФайлВХранилище(ПутьКВременномуФайлу, УИ); ПрисоединенныйФайл = СохранениеПечатныхФормСервер.ДобавитьФайл(Ссылка[0], ИмяПриказа, Результат.ДатаМодификацииУниверсальная, Результат.АдресФайлаВоВременномХранилище, Результат.АдресВременногоХранилищаТекста); УдалитьИзВременногоХранилища(Результат.АдресФайлаВоВременномХранилище);
КонецЕсли;
КонецЕсли; КонецПроцедуры
|
||
| Серверный модуль СохранениеПечатныхФормСервер содержит следующие функции | ||
|
Функция ПолучитьТомХраненияФайлов() Экспорт
Возврат Справочники.ТомаХраненияФайлов.НайтиПоНаименованию("Server").ПолныйПутьWindows; КонецФункции
|
||
|
Функция ПолучитьПрикрепленныеФайлыКОбъекту(Знач Объект) Экспорт
МассивФайлов = Новый Массив; ТипыВладельцев = Метаданные.РегистрыСведений.НаличиеПрисоединенныхФайлов. Измерения.ОбъектСФайлами.Тип.Типы(); // Удалите пробелы в строке кода! Если ТипыВладельцев.Найти(ТипЗнч(Объект)) <> Неопределено Тогда МассивФайловЛокальный = ПрисоединенныеФайлыСлужебный.ПолучитьВсеПодчиненныеФайлы(Объект); Для Каждого СсылкаНаФайл Из МассивФайловЛокальный Цикл МассивФайлов.Добавить(СсылкаНаФайл); КонецЦикла; КонецЕсли; Возврат МассивФайлов;
КонецФункции |
||
|
Функция ДобавитьФайл(Ссылка, ИмяПриказа, ДатаМодификацииУниверсальная, АдресФайлаВоВременномХранилище, АдресВременногоХранилищаТекста) Экспорт
ПрисоединенныйФайл = ПрисоединенныеФайлы.ДобавитьФайл(Ссылка, ИмяПриказа, "xls", ,ДатаМодификацииУниверсальная, АдресФайлаВоВременномХранилище, АдресВременногоХранилищаТекста,""); Возврат ПрисоединенныйФайл;
КонецФункции |
||
| Если есть вопросы по материалу - обращайтесь! | ||
|
Сергей Семенов, разработчик 1С ООО «Кодерлайн» |
