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

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

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

Оффлайн iPahan

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

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

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

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

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


Теги:
 

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

* Реклама

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

СМОТРЕТЬ >>

* Поиск

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

* Реклама

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

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

oleg-x
116 Сообщений
alex0402
102 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
73 Сообщений
AIFrame
51 Сообщений
Golickoff Golickoff
49 Сообщений
ilyay ilyay
49 Сообщений
ab30ru
38 Сообщений
wise wise
34 Сообщений
Амал
30 Сообщений
LexaK
22 Сообщений

* Кто онлайн

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

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

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

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

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

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal