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

Автор Тема: 1С:Документооборот. Загрузка файла в карточку документа  (Прочитано 714 раз)

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

Оффлайн iPahan

  • *
  • Сообщений: 11
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2015-11-17
  • Сайт: 
  • Профессия: Ученик 1С
Конфигурация 1С:Документооборот.

Есть обработка, которая загружает файлы с ПК в карточку документа. Загрузка происходит напрямик в БД.

Функция ДобавитьФайлВКарточкуДокумента(ВладелецФайла, ПутьДоФайла)
ВыбФайл = Новый Файл(ПутьДоФайла);
Расширение = СтрЗаменить(ВыбФайл.Расширение, ".", "");
РазмерФайла = ВыбФайл.Размер();
ИмяФайлаБезРасширения = ВыбФайл.ИмяБезРасширения;

НовыйФайл = Справочники.Файлы.СоздатьЭлемент();
НовыйФайл.Наименование = ИмяФайлаБезРасширения;
НовыйФайл.ПолноеНаименование = ИмяФайлаБезРасширения;
НовыйФайл.ДатаСоздания = ТекущаяДата();
НовыйФайл.Автор = Справочники.Пользователи.НайтиПоНаименованию("Администратор");
НовыйФайл.ВладелецФайла = ВладелецФайла;
НовыйФайл.Записать();
//
НоваяВерсияФайла = Справочники.ВерсииФайлов.СоздатьЭлемент();
НоваяВерсияФайла.Владелец = НовыйФайл.Ссылка;
ХЗ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ПутьДоФайла));
НоваяВерсияФайла.ФайлХранилище = ХЗ;
НоваяВерсияФайла.Том = Константы.ХранитьФайлыВТомахНаДиске.Получить();
НоваяВерсияФайла.Автор = Справочники.Пользователи.НайтиПоНаименованию("Администратор");
НоваяВерсияФайла.ДатаСоздания = ТекущаяДата();
НоваяВерсияФайла.ДатаМодификацииУниверсальная = ТекущаяДата();
НоваяВерсияФайла.ДатаМодификацииФайла = ТекущаяДата();
НоваяВерсияФайла.Наименование = ИмяФайлаБезРасширения;
НоваяВерсияФайла.НомерВерсии = 1;
НоваяВерсияФайла.Расширение = Расширение;
НоваяВерсияФайла.Размер = РазмерФайла;
НоваяВерсияФайла.ТипХраненияФайла=Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе;
НоваяВерсияФайла.Записать();
//
НовыйФайл = НовыйФайл.Ссылка.ПолучитьОбъект();
НовыйФайл.ТекущаяВерсия = НоваяВерсияФайла.Ссылка;
НовыйФайл.ТекущаяВерсияДатаМодификацииФайла = ТекущаяДата();
НовыйФайл.ТекущаяВерсияАвтор = Справочники.Пользователи.НайтиПоНаименованию("Администратор");
НовыйФайл.ТекущаяВерсияДатаСоздания = ТекущаяДата();
НовыйФайл.ТекущаяВерсияНомерВерсии = 1;
НовыйФайл.ТекущаяВерсияРазмер = РазмерФайла;
НовыйФайл.ТекущаяВерсияРасширение = Расширение;
НовыйФайл.Записать();
//
МенеджерЗаписи = РегистрыСведений.ХранимыеФайлыВерсий.СоздатьМенеджерЗаписи();
МенеджерЗаписи.ВерсияФайла   = НоваяВерсияФайла.Ссылка;
МенеджерЗаписи.ХранимыйФайл = ХЗ;
МенеджерЗаписи.Записать();
Возврат НовыйФайл.Ссылка;
КонецФункции

Эта штука хороша, когда файлы хранятся в базе.
Как мне переписать эту обработку, если файлы хранятся не в базе, а в томах на диске?


Теги:
 

Не открывает форму сохраненного документа, открывает форму нового.

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

Ответов: 1
Просмотров: 4335
Последний ответ 13 Апр 2012, 23:26
от Vit1501
Автоматическое заполнение табличной части документа из табличной части другого

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

Ответов: 6
Просмотров: 15157
Последний ответ 16 Авг 2012, 12:07
от Will
Заполнение поля табличной части документа из табличной части справочника.

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

Ответов: 3
Просмотров: 3977
Последний ответ 06 Апр 2015, 20:08
от Kurt_Wagner
Заполнение табличной части документа реквизитами табличной части справочника

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

Ответов: 1
Просмотров: 450
Последний ответ 10 Май 2017, 20:44
от ilnur75
Добавление сведений в графу "основание" документа "ТОРГ-12"

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

Ответов: 4
Просмотров: 7477
Последний ответ 20 Авг 2013, 18:45
от Ярослав1984

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

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

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


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

* Реклама

Смотрите бесплатно более 300 видеоуроков по работе в 1С:Бухгалтерия 8 и 1C:ЗУП 8 ред. 3.0

СМОТРЕТЬ >>

* Поиск

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

* Реклама

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

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

oleg-x
135 Сообщений
alex0402
80 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
79 Сообщений
BuhRust
26 Сообщений
AIFrame
24 Сообщений
Golickoff Golickoff
23 Сообщений
ilyay ilyay
21 Сообщений
Варвар
20 Сообщений
Kironten
19 Сообщений
Римма
18 Сообщений

* Кто онлайн

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

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

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

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

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

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal