Перенос присоединенных файлов во внешние тома

08.07.14

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

Обработка по переносу хранимых файлов из  базы в тома (файлы на диск)

Скачать файлы

Наименование Файл Версия Размер
ПеренестиПрисоединенныеФайлыНаДиск.epf
.epf 7,50Kb
235
.epf 7,50Kb 235 Скачать
ПеренестиПрисоединенныеФайлыНаДиск_2.epf
.epf 7,71Kb
485
.epf 2 7,71Kb 485 Скачать

При начале учета не верно оценил интересы руководства  и пользователей в удобстве хранения файлов для объектов, таких как номенклатура, документы поступления и реализации, входящая эл.почта. При начале ведения учета настроил  хранения файлов в базе, а зря. И так получилось что за 3 месяца работы размер базы ООООчень сильно вырос. Принял решение перенести все файлы  в тома. Поискав на в сети ничего не нашел кроме обработки Перенос присоединенных файлов номенклатуры во внешние тома , но файлы номенклатуры  это только малая часть. Так что ее то я взял за основу и немного переработав сделал для себя обработку по переносу всех «присоединенных файлов» в тома.

 Возможности:

Выбор справочника присоединенных файлов .

Индикатор =)

 

 

!!!! Перед началом работы с обработкой необходимо настроить правила хранения файлов

После можно работать с обработкой.

 

После переноса файлов необходимо сжать информационную базу.

 

Обработка тестировалась на УТ 11 и документообороте.

 

Отдельное спасибо dima-1c 

 

См. также

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

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

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 руб.

02.09.2020    119925    656    389    

701

Infostart PrintWizard

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

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

18000 руб.

06.10.2023    7010    20    6    

37

Infostart УДиФ: Управление данными и формами

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

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

10000 руб.

10.11.2023    3249    10    1    

31

SALE! 30%

PowerTools

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

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177342    1070    0    

846

Многопоточность. Универсальный «Менеджер потоков» 2.1

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

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018    99205    239    97    

296

[ЕХТ] Фреймворк для Расширений 1С

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

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019    17914    6    8    

38

1С HTML Шаблоны / HTML Templates

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

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    27945    3    10    

14

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

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

В процессе работы в 1С часто возникает потребность получить данные из другой базы.  Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019    23490    15    15    

31
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. kapustinag 27.02.13 11:32 Сейчас в теме
Правильное решение.
К сожалению, в УПП хранение файлов в томах на диске пока приделано только к "произвольному электронному документу" и т.п. То есть для УПП, если захочется сделать так же, без доработок основной конфигурации не обойтись.
2. Рамзес 29 07.03.13 11:38 Сейчас в теме
(1) Достаточно внести изменения в модуль формы «Форма списка файлов и изображений» справочника "Хранилище дополнительной информации".
8. eugensn 05.09.13 17:38 Сейчас в теме
(2) Рамзес, Какие именно изменения в модуле формы позволят обойти данное ограничение УПП?
3. deniskot 05.04.13 09:34 Сейчас в теме
не работает на Документообороте КОРП 1,2,6,1
{Форма.Форма.Форма(59)}: Ошибка при вызове метода контекста (Выполнить)
Возврат Запрос.Выполнить().Выгрузить()[0][0];
по причине:
{(1, 71)}: Таблица не найдена "Справочник.000000001"
Выбрать Сумма(Количество) из (Выбрать Количество(*) как Количество Из <<?>>Справочник.000000001
4. damontut 8 19.04.13 09:32 Сейчас в теме
В документообороте есть штатная обработка.
5. dihlam 09.05.13 13:27 Сейчас в теме
Добрый день.

1С:Предприятие 8.2 (8.2.18.82)
Управление торговлей, редакция 11.1

Ошибка:
Метод объекта не обнаружен(ДобавитьНаДиск)
Nikovit; cupertino; dima_kystym; dmitryburykin; apvl; Lyubin.Evgeniy; ivansulla; +7 Ответить
13. banco 21.06.14 14:38 Сейчас в теме
(5) dihlam,
вместо ФайловыеФункции.ДобавитьНаДиск
написать ФайловыеФункцииСлужебный.ДобавитьНаДиск
6. kuza_87 28 14.06.13 05:52 Сейчас в теме
Спасибо тебе огромное! Классная обработка, к тому же универсальная. Я её маленько под себя ещё переделал, сделал отбор по периоду. А то у меня памяти не хватало чтобы хотя бы один справочник выгрузить
7. cowboy121 30.07.13 10:55 Сейчас в теме
Добрый день!
Не очищается база после сжатия таблиц информационной базы. В чем может быть проблема?
9. Рамзес 29 06.09.13 10:21 Сейчас в теме
Вносим изменения в три процедуры модуля формы:
Процедура КоманднаяПанельДополнительныхФайловОткрытьФайлы(Кнопка)
	
	// { Админ [14.04.2011 11:36:35]
	ВыделенныеСтроки = ЭлементыФормы.ДополнительныеФайлы.ВыделенныеСтроки;
	ОбъектФайла = ЭлементыФормы.ДополнительныеФайлы.ТекущиеДанные;
	ТипОбъекта = ТипЗнч(ОбъектФайла.Ссылка.Объект);
	
	
	// для ОСТов нельзя рушить иерархию папок на сервере, поэтому для них путь прописан в имени файла
	// для остальных все файлы находятся в одной папке на сервере (не распределены по подпапкам)
	Если ТипОбъекта = Тип("СправочникСсылка.СерииНоменклатуры") Тогда
		ИмяКаталога = "F:\Сертификаты";
	ИначеЕсли ТипОбъекта = Тип("СправочникСсылка.СпецификацииНоменклатуры") Тогда
		ИмяКаталога = "F:\папка обмена\Чертежи\Эскизы сварных кромок";
	ИначеЕсли ТипОбъекта = Тип("СправочникСсылка.ОСТ") Тогда
		ИмяКаталога = "";
	КонецЕсли;
	
	Если ВыделенныеСтроки = Неопределено Тогда
		ОткрытьФайлДополнительнойИнформации(ИмяКаталога, ОбъектФайла.ИмяФайла);
	Иначе
		Если ВыделенныеСтроки.Количество() = 0 Тогда
			Возврат;
		КонецЕсли;

		Для каждого СсылкаФайл из ВыделенныеСтроки Цикл
			ОткрытьФайлДополнительнойИнформации(ИмяКаталога, ОбъектФайла.ИмяФайла);
		КонецЦикла;
	КонецЕсли; 
	
	Возврат;
	// } Админ [14.04.2011 11:36:35]
	
	РаботаСФайлами.ОткрытьФайлы(ЭлементыФормы.ДополнительныеФайлы.ТекущиеДанные, ЭлементыФормы.ДополнительныеФайлы.ВыделенныеСтроки, Ложь);

КонецПроцедуры
Показать


Процедура ДополнительныеФайлыПередОкончаниемРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования, Отказ)
	
	НовоеРасширениеФайла = РаботаСФайлами.ПолучитьРасширениеФайла(ЭлементыФормы.ДополнительныеФайлы.ТекущиеДанные.ИмяФайла);

	Если Не ОтменаРедактирования
	   И РаботаСФайлами.НельзяИзменятьРасширение(мТекущееРасширениеФайла, НовоеРасширениеФайла) Тогда

		Отказ = Истина;
		ЭлементыФормы.ДополнительныеФайлы.ТекущаяКолонка = ЭлементыФормы.ДополнительныеФайлы.Колонки.ИмяФайла;
		Возврат;

	КонецЕсли;

	Если Не ОтменаРедактирования
	   И НоваяСтрока
	   И ЭлементыФормы.ДополнительныеФайлы.ТекущиеДанные.Хранилище.Получить() = Неопределено Тогда
	   
		// { Админ [14.04.2011 11:36:35]
		// ничего не проверяем - позволяем не заполнять ячейку Хранилище - комментарим код от 1с:
		
		//Отказ = Истина;
		//Предупреждение("Необходимо выбрать файл.");
		//ЭлементыФормы.ДополнительныеФайлы.ТекущаяКолонка = ЭлементыФормы.ДополнительныеФайлы.Колонки.ИмяФайла;
		//Возврат;
		
		// } Админ [14.04.2011 11:36:35]
	
	КонецЕсли;

	ПередОкончаниемРедактирования(Элемент, НоваяСтрока, Перечисления.ВидыДополнительнойИнформацииОбъектов.Файл);

КонецПроцедуры
Показать


Процедура ДополнительныеФайлыИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)

	Диалог = РаботаСФайлами.ПолучитьДиалогВыбораФайлов(Ложь);

	Если Не Диалог.Выбрать() Тогда
		Возврат;
	КонецЕсли;

	// { Админ [14.04.2011 11:36:35]
	Попытка
		ТекОбъект = ЭлементыФормы.ДополнительныеФайлы.ТекущиеДанные;
		//ТекОбъект.Хранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные(Диалог.ПолноеИмяФайла), Новый СжатиеДанных);
		
		Если ТипЗнч(ОбязательныеОтборы.Объект) = Тип("СправочникСсылка.ОСТ") Тогда
			// для ОСТов нельзя рушить иерархию папок на сервере, поэтому для них путь прописываем в имени файла
			ТекОбъект.ИмяФайла = Диалог.ПолноеИмяФайла;
		Иначе
			// для остальных все файлы находятся в одной папке на сервере (не распределены по подпапкам)
			ТекОбъект.ИмяФайла = Сред(Диалог.ПолноеИмяФайла, СтрДлина(Диалог.Каталог) + 1);
		КонецЕсли;
		
	Исключение
		Сообщить("" + ОписаниеОшибки());
	КонецПопытки;
	Возврат; 
	// } Админ [14.04.2011 11:36:35]
	
	Попытка
		ТекОбъект = ЭлементыФормы.ДополнительныеФайлы.ТекущиеДанные;
		ТекОбъект.Хранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные(Диалог.ПолноеИмяФайла), Новый СжатиеДанных);
		ТекОбъект.ИмяФайла = Сред(Диалог.ПолноеИмяФайла, СтрДлина(Диалог.Каталог) + 1);
	Исключение
		Сообщить("" + ОписаниеОшибки());
	КонецПопытки;
	
	Ответ = Вопрос("Удалить файл источник?",РежимДиалогаВопрос.ДаНетОтмена,,КодВозвратаДиалога.Нет,"Удаление файла");
	Если Ответ = КодВозвратаДиалога.Да Тогда
		УдалитьФайлы(Диалог.ПолноеИмяФайла);
	КонецЕсли;

КонецПроцедуры
Показать


и добавляем процедуру:
// { Админ [09.09.2011 11:28:42]
// Данная процедура скопирована из общего модуля РаботаСФайлами, но в отличие от нее открывает файл
// не Эксплорером, а приложением, ассоциированным с расширением файла. Причина в том, что при запуске
// Эксплорера пользователя выбрасывает на рабочий стол сервера.
//
// Открывает переданный файл на диске с учетом типа файлов. Файлы, с которыми 
// может работать 1С:Предприятие открываются в 1С:Предприятии. Остальные файлы
// пытаются открыться зарегистрированным для них в системе приложением.
//
// Параметры
//  ИмяКаталога  – Строка, содержащая путь к каталогу файла на диске.
//  ИмяФайла     – Строка, содержащая имя файла, без имени каталога.
//
Процедура ОткрытьФайлДополнительнойИнформации(ИмяКаталога, ИмяФайла)

	Если ИмяКаталога = "" Тогда 
		// это хранилище для справочника ОСТ, в имени файла прописан полный путь
		ЗапуститьПриложение(ИмяФайла);
		Возврат
	КонецЕсли;
	
	ПолноеИмяФайла = РаботаСФайлами.ПолучитьИмяФайла(ИмяКаталога, РаботаСФайлами.УдалитьЗапрещенныеСимволыИмени(ИмяФайла));
	РасширениеФайла = Врег(РаботаСФайлами.ПолучитьРасширениеФайла(ИмяФайла));

	Если РасширениеФайла = "MXL" Тогда

		ТабличныйДокумент = Новый ТабличныйДокумент;
		ТабличныйДокумент.Прочитать(ПолноеИмяФайла);
		ТабличныйДокумент.Показать(ИмяФайла, Лев(ИмяФайла, СтрДлина(ИмяФайла) - 4));

	ИначеЕсли РасширениеФайла = "TXT" Тогда

		ТекстовыйДокумент = Новый ТекстовыйДокумент;
		ТекстовыйДокумент.Прочитать(ПолноеИмяФайла);
		ТекстовыйДокумент.Показать(ИмяФайла, Лев(ИмяФайла, СтрДлина(ИмяФайла) - 4));

	Иначе

		ЗапуститьПриложение(ПолноеИмяФайла);

	КонецЕсли;

КонецПроцедуры // ОткрытьФайлДополнительнойИнформации()
Показать
ВРедная; vshish; sparklemal; Операция1Ы; iiceberg; +5 Ответить
10. DimanYa 27.01.14 13:10 Сейчас в теме
Для бухгалтерии может подойди?

Или не пойдёт, но можно немного поменять в названиях процедур?

Структура хранения одинаковая по идее должна быть и в Ут 11 и в БП 3.0
11. DimanYa 27.01.14 13:28 Сейчас в теме
Извиняюсь, нашёл типовую обработку
12. zayav 25.03.14 16:56 Сейчас в теме
как быть ?

Не удалось добавить файл: "0002.jpg". Обратитесь к администратору системы.

в журнале:
Не удалось добавить файл ни на один из томов. Список ошибок:

Ошибка при добавлении файла на том: img (\\server\g\1CImage\20140325\): {ОбщийМодуль.ФайловыеФункции.Модуль(289)}: Неверный тип данных для добавления на том
ВызватьИсключение(СтрокаИсключения);


1С:Предприятие 8.2 (8.2.14.540)
УТ 11.0 (11.0.7.8)
Прикрепленные файлы:
14. 1977 2 09.07.14 11:32 Сейчас в теме
Жалко, что версии 1с КА не будет томов.......
15. пользователь 05.05.15 17:03
Сообщение было скрыто модератором.
...
20. riofrost 24.04.16 19:59 Сейчас в теме
(15) yaneev, (17) dima_kystym,
чтобы работало на конфигурациях построенных на БСП 2.2.5 (это УТ 11.1 и УНФ 1.5 к примеру), надо заменить код
ФайловыеФункцииСлужебный.ДобавитьНаДиск(ДвоичныеДанные, ПрисоединенныйФайл.ПутьКФайлу, ПрисоединенныйФайл.Том, ТекущаяДата(), "",
											ПрисоединенныйФайл.Наименование, ПрисоединенныйФайл.Расширение, ПрисоединенныйФайл.Размер, ПрисоединенныйФайл.Зашифрован);

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


То есть, обязательно надо обновить данные в справочнике присоединенных файлов.

Ну и еще, для правильной индикации счетчик файлов стоит внести в цикл:

	
//.....
        н = н + СтруктураПорции.РазмерПорции - СтруктураПорции.КоличествоОшибок;	
    КонецЦикла;
	
Индикатор  = н;
pihy; unichkin; +2 Ответить
16. dima_kystym 11.05.15 17:37 Сейчас в теме
1С:Предприятие 8.3 (8.3.6.1977)Управление торговлей, редакция 11.1 (11.1.10.138)
Ошибка:
Метод объекта не обнаружен(ДобавитьНаДиск)
в чем может быть ошибка
17. dima_kystym 12.05.15 10:40 Сейчас в теме
"Метод объекта не обнаружен(ДобавитьНаДиск)" эту ошибку победил сейчас ошибка слишком много фактических параметров, может по дате можно отфильтровать присрединенные файлы?
18. Rustam10 15.10.15 23:43 Сейчас в теме
(17) dima_kystym, решение у №15 смотри.
19. ben_art 13 21.12.15 15:29 Сейчас в теме
Подскажите пожалуйста , как перенести файл из базы на внешний том , но при этом чтоб сохранилась ссылкав объекте на файл
21. пользователь 11.08.16 08:54
Сообщение было скрыто модератором.
...
22. realEvgenius 1 27.07.17 23:13 Сейчас в теме
Народ, кто пользовал? в КА2.2. работает, нет? Стоит брать?
23. maXon777 128 15.02.18 17:45 Сейчас в теме
(22)
Юзал в СРМ 3.0 - с мелкими доработками из пункта 15 работает из коробки
24. user962204 13.09.19 12:40 Сейчас в теме
Добрый день!
Конфа УТ 11.4.8.92
Платформа 8.3.15.1565

Вылезает ошибка "Поле объекта не обнаружен (Присоединенные файлы)"

РегистрСведений Присоединенный 1с переименовал как УдалитьПрисоединенныеФайлы.

Надо его поменять его на что то..

Кто то сталкивался?
25. ActionBlog 24.10.19 14:44 Сейчас в теме
Спасибо за обработку!

Наткнулся на интересную ситуацию - у нас в базе все файлы называются одинаково "Pictures1". В этом случае программа начинает плодить подпапки и в них записывать файлы с одинаковыми наименованиями, плодит-плодит и в определенный момент выдает ошибку, что больше не может плодить подпапки :)

Для решения этой ситуации я рандомно переименовываю прикрепленные файлы.

Добавил в обработку функцию, которая генерит рандомное число

Функция Рандом() Экспорт
	UID=Новый УникальныйИдентификатор();
	UID = СтрЗаменить(UID,"-","");
	Значение = "";
	Для Н=1 По СтрДлина(UID) Цикл
		Симв = Сред(UID,Н,1);
		Значение = Значение+Прав(КодСимвола(Симв),1);
	КонецЦикла;
	Возврат Значение;
КонецФункции
Показать


И после строки кода
ПрисоединенныйФайл = Выборка.ПолучитьОбъект();


Добавил строку
ПрисоединенныйФайл.Наименование = Рандом();
26. webandroid 2 19.12.19 09:53 Сейчас в теме
На УТ 11.4.6 будет работать? есть смысл качать?
27. valerij1257 19.12.19 17:55 Сейчас в теме
На УТ 11.3.4 будет работать?
28. valerij1257 24.12.19 18:54 Сейчас в теме
ПеренестиПрисоединенныеФайлыНаДиск_2.epf

на ут 11.3.4. не работает. Дает вот такую ошибку(((
Прикрепленные файлы:
29. evn-zorin 32 19.01.23 10:09 Сейчас в теме
для ут 10.3 есть подобное?
Оставьте свое сообщение