Попытка



	// Начать транзакцию

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



	// Создать элемент номенклатура, записать

	// Создать элемент единицы измерения, установить владельца, записать

	// Обновить базовую единицу измерения в номенклатуре, записать



	// Зафиксировать транзакцию

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



Исключение



	// Отменить транзакцию

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



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

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

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

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

		Попытка

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

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



			"ВЫБРАТЬ

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

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

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

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

			|ИЗ

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

			|ГДЕ

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



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

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

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



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

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

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

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

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

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

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

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

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



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

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



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

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

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

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

				КонецЦикла;



			КонецЕсли;



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

			Прервать;



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

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

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

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

			Прервать;

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

	КонецЦикла;

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

 // Указание режима открываемой транзакции

// Транзакция предназначена для записи в информационную базу согласованных изменений. 

// Все изменения, внесенные в информационную базу после начала транзакции,

// бу­дут затем либо целиком записаны, либо целиком отменены. 

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

	

	// Код, исполняемый в рамках транзакции.

	// ...	

   

  Если ОбнаруженыОшибки Тогда 

   // Отменяем открытую ранее транзакцию.

   // Все изменения, внесенные в информационную базу в процессе транзакции, будут отменены.   

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

   КонецЕсли;



// Завершаем успешную транзакцию. 

// Все изменения, внесенные в информационную базу в процессе транзакции, будут записаны. 

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

 // Увеличение закупочной цены на 5%

ВыборкаТоваров = Справочники.Номенклатура.Выбрать();

НачатьТранзакцию();

Пока ВыборкаТоваров.Следующий() Цикл

    ТоварОбъект = ВыборкаТоваров.ПолучитьОбъект();

    ЗакупочнаяЦена = ТоварОбъект.ЗакупочнаяЦена;

    Если ЗакупочнаяЦена <> 0 Тогда

        ТоварОбъект.ЗакупочнаяЦена = ЗакупочнаяЦена * 1.05;

        ТоварОбъект.Записать();

    КонецЕсли;

КонецЦикла;

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