Процедура ОчиститьЗаПериод()

	Пока Истина Цикл

		НачатьТранзакцию(РежимУправленияБлокировкойДанных.Управляемый);

		Попытка

			текЗапрос = новый Запрос;

			текЗапрос.Текст = 



			"ВЫБРАТЬ

			|	усИсторияОстатковПоПоказателям.Склад,

			|	усИсторияОстатковПоПоказателям.Поклажедатель,

			|	усИсторияОстатковПоПоказателям.Показатель,

			|	усИсторияОстатковПоПоказателям.Период

			|ИЗ

			|	РегистрСведений.усИсторияОстатковПоПоказателям КАК усИсторияОстатковПоПоказателям

			|ГДЕ

			|	усИсторияОстатковПоПоказателям.Период МЕЖДУ &ПериодС И &ПериодПо";



			текЗапрос.УстановитьПараметр("ПериодС", ГраницаОчисткиС);

			текЗапрос.УстановитьПараметр("ПериодПо", ГраницаОчисткиПо);

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



			// Блокировка данных

			текБлокировка = Новый БлокировкаДанных;

			тбдЖурнал = текБлокировка.Добавить("РегистрСведений.усИсторияОстатковПоПоказателям");

			тбдЖурнал.Режим = РежимБлокировкиДанных.Исключительный;

			Если тбзЗаписиЖурнала.Количество() тогда

				тбдЖурнал.ИсточникДанных = тбзЗаписиЖурнала;

				тбдЖурнал.ИспользоватьИзИсточникаДанных("Склад", "Склад");

				тбдЖурнал.ИспользоватьИзИсточникаДанных("Поклажедатель", "Поклажедатель");

				тбдЖурнал.ИспользоватьИзИсточникаДанных("Показатель", "Показатель");



				// Заблокировать

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



				Для каждого текЗаписьЖурнала из тбзЗаписиЖурнала цикл

					текЗапись = РегистрыСведений.усИсторияОстатковПоПоказателям.СоздатьМенеджерЗаписи();

					ЗаполнитьЗначенияСвойств(текЗапись, текЗаписьЖурнала);

					текЗапись.Удалить();

				КонецЦикла;



			КонецЕсли;



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

			Прервать;



		Исключение // сообщим об ошибке

			стрОписаниеОшибки = ОписаниеОшибки();

			ОтменитьТранзакцию();

			Сообщить("Ошибка блокировки" + ОписаниеОшибки());

			Прервать;

		КонецПопытки;

	КонецЦикла;

КонецПроцедуры // ОчиститьЗаПериод()   

 // Установка исключительной блокировки

БлокировкаДанных = Новый БлокировкаДанных;

	

// При создании элемента блокировки указывается пространство блокировки.

ЭлементБлокировки = БлокировкаДанных.Добавить("РегистрНакопления.ОстаткиНоменклатуры");

	

// Возможна установка либо исключительного, либо разделяемого режима.

ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;

	

// Ввод значения, сужающего указанное пространство блокировки (используется вариант установки одного конкретного значения).

ЭлементБлокировки.УстановитьЗначение("Склад", Склад);

	

// Указание источника, данные из которого сузят указанное пространство блокировки (используется вариант установки нескольких значений из источника данных – 

// табличной части Товары).

ЭлементБлокировки.ИсточникДанных = Товары; 

	

// Установка соответствия между полем пространства блокировки и полем источника.

ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Номенклатура", "Номенклатура");

	

БлокировкаДанных.Заблокировать();

Следует отметить, что блокировка устанавливается только в транзакции и действует до окончания транзакции.    

 // Установка разделяемой блокировки

БлокировкаДанных = Новый БлокировкаДанных;

	

// При создании элемента блокировки указывается пространство блокировки.

ЭлементБлокировки = БлокировкаДанных.Добавить("РегистрНакопления.ОстаткиНоменклатуры");

	

// Возможна установка либо исключительного, либо разделяемого режима.

ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;

	

// Ввод значения, сужающего указанное пространство блокировки (используется вариант установки одного конкретного значения).

ЭлементБлокировки.УстановитьЗначение("Склад", Склад);

	

// Указание источника, данные из которого сузят указанное пространство блокировки.

// Используется вариант установки нескольких значений из источника данных –  табличной части Товары).

ЭлементБлокировки.ИсточникДанных = Товары; 

	

// Установка соответствия между полем пространства блокировки и полем источника.

ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Номенклатура", "Номенклатура");

	

БлокировкаДанных.Заблокировать();