Процедура ОчиститьЗаПериод()
	Пока Истина Цикл
		НачатьТранзакцию(РежимУправленияБлокировкойДанных.Управляемый);
		Попытка
			текЗапрос = новый Запрос;
			текЗапрос.Текст = 

			"ВЫБРАТЬ
			|	усИсторияОстатковПоПоказателям.Склад,
			|	усИсторияОстатковПоПоказателям.Поклажедатель,
			|	усИсторияОстатковПоПоказателям.Показатель,
			|	усИсторияОстатковПоПоказателям.Период
			|ИЗ
			|	РегистрСведений.усИсторияОстатковПоПоказателям КАК усИсторияОстатковПоПоказателям
			|ГДЕ
			|	усИсторияОстатковПоПоказателям.Период МЕЖДУ &ПериодС И &ПериодПо";

			текЗапрос.УстановитьПараметр("ПериодС", ГраницаОчисткиС);
			текЗапрос.УстановитьПараметр("ПериодПо", ГраницаОчисткиПо);
			тбзЗаписиЖурнала = текЗапрос.Выполнить().Выгрузить();

			// Блокировка данных
			текБлокировка = Новый БлокировкаДанных;
			тбдЖурнал = текБлокировка.Добавить("РегистрСведений.усИсторияОстатковПоПоказателям");
			тбдЖурнал.Режим = РежимБлокировкиДанных.Исключительный;
			Если тбзЗаписиЖурнала.Количество() тогда
				тбдЖурнал.ИсточникДанных = тбзЗаписиЖурнала;
				тбдЖурнал.ИспользоватьИзИсточникаДанных("Склад", "Склад");
				тбдЖурнал.ИспользоватьИзИсточникаДанных("Поклажедатель", "Поклажедатель");
				тбдЖурнал.ИспользоватьИзИсточникаДанных("Показатель", "Показатель");

				// Заблокировать
				текБлокировка.Заблокировать();

				Для каждого текЗаписьЖурнала из тбзЗаписиЖурнала цикл
					текЗапись = РегистрыСведений.усИсторияОстатковПоПоказателям.СоздатьМенеджерЗаписи();
					ЗаполнитьЗначенияСвойств(текЗапись, текЗаписьЖурнала);
					текЗапись.Удалить();
				КонецЦикла;

			КонецЕсли;

			ЗафиксироватьТранзакцию();
			Прервать;

		Исключение // сообщим об ошибке
			стрОписаниеОшибки = ОписаниеОшибки();
			ОтменитьТранзакцию();
			Сообщить("Ошибка блокировки" + ОписаниеОшибки());
			Прервать;
		КонецПопытки;
	КонецЦикла;
КонецПроцедуры // ОчиститьЗаПериод()   

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

 // Установка разделяемой блокировки
БлокировкаДанных = Новый БлокировкаДанных;
	
// При создании элемента блокировки указывается пространство блокировки.
ЭлементБлокировки = БлокировкаДанных.Добавить("РегистрНакопления.ОстаткиНоменклатуры");
	
// Возможна установка либо исключительного, либо разделяемого режима.
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
	
// Ввод значения, сужающего указанное пространство блокировки (используется вариант установки одного конкретного значения).
ЭлементБлокировки.УстановитьЗначение("Склад", Склад);
	
// Указание источника, данные из которого сузят указанное пространство блокировки.
// Используется вариант установки нескольких значений из источника данных –  табличной части Товары).
ЭлементБлокировки.ИсточникДанных = Товары; 
	
// Установка соответствия между полем пространства блокировки и полем источника.
ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Номенклатура", "Номенклатура");
	
БлокировкаДанных.Заблокировать();