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

СМОТРЕТЬ >>

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

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

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

Оффлайн iPahan

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

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

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

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

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


Теги:
 

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

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

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

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

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

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

Ответов: 3
Просмотров: 3348
Последний ответ 06 Апр 2015, 20:08
от Kurt_Wagner
Добавление сведений в графу "основание" документа "ТОРГ-12"

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

Ответов: 4
Просмотров: 6788
Последний ответ 20 Авг 2013, 18:45
от Ярослав1984
"Не совпадают сумма документа и общая сумма по платежным ведомостям"

Автор yunovoРаздел Пользователям "1С - Предприятие 8"

Ответов: 1
Просмотров: 3810
Последний ответ 11 Янв 2015, 02:55
от MuI_I_Ika

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

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

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


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

* Реклама

* Поиск

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

* Реклама

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

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

Геннадий ОбьГЭС Геннадий ОбьГЭС
157 Сообщений
alex0402
125 Сообщений
MuI_I_Ika MuI_I_Ika
55 Сообщений
Norfolk
52 Сообщений
LexaK
51 Сообщений
alexandr_ll
23 Сообщений
друган
20 Сообщений
ef0din
19 Сообщений
Константин5825
18 Сообщений
AsadRoman
17 Сообщений

* Кто онлайн

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

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

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

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

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

Поиск

 

Dellos Catering - выездной ресторан кейтеринг по всему Миру
SimplePortal 2.3.5 © 2008-2012, SimplePortal