Добавление функционала прикрепленных файлов без изменения конфигурации

14.01.21

Разработка - Инструментарий разработчика

Пришло как-то на работе задание организовать прикрепление файлов к справочнику Основные средства. Все бы ничего, да только конфигурация типовая, решил попробовать к БСП, но и при ее использовании необходимо вносить изменения в конфу, крайняя попытка была предложить прикреплять файлы не справочнику, а к документу принятия к учету, но и тут фиаско: наши бухгалтера вставляли данные напрямую в справочник. Решил я эту проблему, написав расширение. В данной статье описан процесс создания. И выложен готовый файл для скачивания.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Добавление функционала прикрепленных файлов без изменения конфигурации:
.cfe 36,17Kb
23
23 Скачать (1 SM) Купить за 1 850 руб.

Решение было протестировано на платформе 1С:Предприятие 8.3 (8.3.18.1208). И так реализовано было все максимально просто: в первую очередь я создал справочник (В предварительно созданном расширении, в которое добавил Справочник основных средств ) для хранения прикрепленных файлов назвал "ПрикрепленныеФайлы" задал три реквизита:

  1. "Файл" с типом ХранилищеЗначения
  2. "Имяфайла" тип Строка
  3.  "ВладелецФайла" тип соосветственно СправочникСсылкаОсоновныеСредства

Далее создал форму справочника с соответствующими полями и кнопками "Сохранить на диск" "Загрузить с диска", а также форму списка. Код формы элемента получился следующий:


&НаКлиенте
Процедура ЗагрузитьСДиска(Команда)
	АдресВХранилище = "";
ВыбранноеИмяФайла = "";
Если ПоместитьФайл(АдресВХранилище, , ВыбранноеИмяФайла, , УникальныйИдентификатор) Тогда
Файл = Новый Файл(ВыбранноеИмяФайла);
Имя = Файл.Имя;
СсылкаНаФайлВоВременномХранилище = АдресВХранилище;
Объект.Наименование = Файл.Имя;
Модифицированность = Истина; 
Объект.ИмяФайла = Имя;
КонецЕсли;               
КонецПроцедуры

&НаКлиенте
Процедура СохранитьНаДиск(Команда)
	Если Объект.ИмяФайла = "" Тогда
Предупреждение("У поставщика нет сохраненного в базе договора");
Иначе
СсылкаНаФайлВИБ = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "Файл");
ПолучитьФайл(СсылкаНаФайлВИБ, Объект.ИмяФайла);
КонецЕсли;        
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	Имя = Объект.ИмяФайла; 
КонецПроцедуры

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

&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	//Удалить файл из временного хранилища
Если ЭтоАдресВременногоХранилища(СсылкаНаФайлВоВременномХранилище) Тогда
УдалитьИзВременногоХранилища(СсылкаНаФайлВоВременномХранилище);
КонецЕсли;
КонецПроцедуры

На форму элемента  справочника ОС (предварительно поместив ее в расширение)  добавил кнопки "Прикрепить файл" и "Показать файлы"

Коды обработчиков нажатий:


&НаКлиенте
Процедура Вложения_ПоказатьФайлыПосле(Команда)
	ПараметрыФилльтра = Новый Структура;
	Отбор = Новый Структура;
	Отбор.Вставить("ВладелецФайла", Объект.Ссылка);
	ПараметрыФилльтра.Вставить("Отбор", Отбор);	
	ОткрытьФорму("Справочник.ПрикрепленныеФайлы.ФормаСписка",ПараметрыФилльтра);
КонецПроцедуры

&НаКлиенте
Процедура Вложения_ПрикрепитьФайлПосле(Команда)
П = Новый Структура;

П.Вставить("Основание", Объект.Ссылка);

ОткрытьФорму("Справочник.ПрикрепленныеФайлы.Форма.ФормаЭлемента", П);

КонецПроцедуры

На этом все. Вопросы. Критику просьба оставлять в комментариях. Постараюсь отвечать оперативно.

Прикрепление файлов вложения расширение

См. также

Инструментарий разработчика Роли и права Запросы СКД Программист Руководитель проекта Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Платные (руб)

Инструменты для разработчиков 1С 8.3: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.

15500 руб.

02.09.2020    174115    974    403    

930

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя. Решение в Реестре отечественного ПО

8400 руб.

20.08.2024    15900    113    48    

113

Пакетная печать Печатные формы Инструментарий разработчика Программист Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

22200 руб.

06.10.2023    17815    49    15    

80

Инструментарий разработчика Программист Платформа 1С v8.3 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки.

9360 руб.

17.05.2024    27979    99    48    

141

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

15000 руб.

10.11.2023    12257    50    33    

69

Инструментарий разработчика Программист 8.3.14 Россия Платные (руб)

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

20000 руб.

07.10.2021    18281    7    32    

43

Инструментарий разработчика Платформа 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

Разработка Конструктор автоматизированных рабочих мест "Конструктор АРМ" реализована в виде расширения и является универсальным инструментом для создания АРМ любой сложности в пользовательском режиме.

3600 руб.

27.12.2024    1376    2    0    

5
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Рамзес 30 28.12.20 14:55 Сейчас в теме
Пометка на удаление владельца прикрепленных файлов как-нибудь обрабатывается?
2. solutioncp24 141 29.12.20 05:11 Сейчас в теме
здравствуйте, нет не обрабатывается
3. Zhilyakovdr 147 30.12.20 10:26 Сейчас в теме
Добрый день.
1) в частичном снятии в конфигурации запрета на редактирование нет ничего страшного;
2) хранить файлы в хранилище значений не очень хорошо;
3) для использования подсистемы БСП в данных целях придется снять блокировку только с нескольких объектов "Определяемые типы" все остальное делается в расширении.

За попытку использования БСП однозначно "+" )))
п.с. если интересны подробности могу написать мини инструкцию-памятку.
4. solutioncp24 141 30.12.20 12:26 Сейчас в теме
(3)ну напишите интересно, моя задача была сделать полностью без снятия блокировок
5. пользователь 24.02.21 13:10
Сообщение было скрыто модератором.
...
7. Elvira_Saydasheva 5 06.04.22 04:05 Сейчас в теме
(5) Доброго времени суток!
Вам отправили? Тоже необходимо почитать))).
6. Nastya_Lavskaya 14.02.22 11:56 Сейчас в теме
Добрый день. при попытке Сохранить на диск Ошибка

Неправильный путь к файлу '/e1cib/data/Справочник.икц_Файлы.Файл?ref=00000000000000000000000000000000'
{Бух.Справочник.икц_Файлы.Форма.ФормаЭлемента.Форма(22)}: ПолучитьФайл(СсылкаНаФайлВИБ, Объект.ИмяФайла);

по причине:
Неправильный путь к файлу '/e1cib/data/Справочник.икц_Файлы.Файл?ref=00000000000000000000000000000000'

Подскажите пожалуйста, что я делаю не верно? Спасибо
8. пользователь 13.10.22 07:21
Сообщение было скрыто модератором.
...
Оставьте свое сообщение