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