1С (1C): Вопросы по конфигурациям (часть 6) - [3437] :: Программы

Код:

&НаСервереБезКонтекста
Процедура ОчиститьНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ * ИЗ РегистрСведений.НаличиеПрисоединенныхФайлов КАК НаличиеПрисоединенныхФайлов
|ГДЕ
| НЕ НаличиеПрисоединенныхФайлов.ОбъектСФайлами ССЫЛКА Справочник.Номенклатура";

РезультатЗапроса = Запрос.Выполнить();

Выборка = РезультатЗапроса.Выбрать();

НаборЗаписей = РегистрыСведений.НаличиеПрисоединенныхФайлов.СоздатьНаборЗаписей();

Пока Выборка.Следующий() Цикл
НаборЗаписей.Отбор.ОбъектСФайлами.Установить(Выборка.ОбъектСФайлами);
НаборЗаписей.Прочитать();
НаборЗаписей.Очистить();
НаборЗаписей.Записать();
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = " Файл "+Выборка.ОбъектСФайлами+" очищен";
Сообщение.Сообщить();
КонецЦикла;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ *
|ИЗ
| РегистрСведений.ПрисоединенныеФайлы КАК ПрисоединенныеФайлы
|ГДЕ
| ПрисоединенныеФайлы.ПрисоединенныйФайл.Ссылка ЕСТЬ NULL";

РезультатЗапроса = Запрос.Выполнить();

Выборка = РезультатЗапроса.Выбрать();

НаборЗаписей = РегистрыСведений.ПрисоединенныеФайлы.СоздатьНаборЗаписей();

Пока Выборка.Следующий() Цикл
НаборЗаписей.Отбор.ПрисоединенныйФайл.Установить(Выборка.ПрисоединенныйФайл);
НаборЗаписей.Прочитать();
НаборЗаписей.Очистить();
НаборЗаписей.Записать();
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = " Файл "+Выборка.ПрисоединенныйФайл+" очищен";
Сообщение.Сообщить();
КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура Очистить(Команда)
ОчиститьНаСервере();
КонецПроцедуры

Модерирует : gyra, Maz
Maz (25-09-2017 16:49): 1С (1C): Вопросы по конфигурациям (часть 7)	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению