1С 8.3 Замена файла в хранилище значения
Данные > Примеры кода 1С > 1С 8.3 Хранилище значений
Перейти в раздел примеры кода 1С 8.3:
Замена файла в хранилище значения (&НаСервере) в 1С 8.3:
&НаСервере
Процедура ЗаменаФайлаВХранилище() Экспорт
НазваниеФайла = "Война_и_мир";
ИмяФайла = "D:\import\"+НазваниеФайла+".txt";
Хранилище_Файл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ИмяФайла));
Текущая_книга = Справочники.Книги.НайтиПоНаименованию(НазваниеФайла);
Если Текущая_книга.Пустая() Тогда
Сообщить("Книга "+НазваниеФайла+" в базе данных 1С не найдена!");
Иначе // Найдена - меняем!
Справочник_Книга = Текущая_книга.ПолучитьОбъект();
Справочник_Книга.Хранилище = Хранилище_Файл;
Справочник_Книга.Записать();
КонецЕсли;
КонецПроцедуры
Процедура ЗаменаФайлаВХранилище() Экспорт
НазваниеФайла = "Война_и_мир";
ИмяФайла = "D:\import\"+НазваниеФайла+".txt";
Хранилище_Файл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ИмяФайла));
Текущая_книга = Справочники.Книги.НайтиПоНаименованию(НазваниеФайла);
Если Текущая_книга.Пустая() Тогда
Сообщить("Книга "+НазваниеФайла+" в базе данных 1С не найдена!");
Иначе // Найдена - меняем!
Справочник_Книга = Текущая_книга.ПолучитьОбъект();
Справочник_Книга.Хранилище = Хранилище_Файл;
Справочник_Книга.Записать();
КонецЕсли;
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник