Процедура ОбработкаПроведения()

	Пока ПолучитьСтроку() = 1 Цикл 

		Операция.НоваяПроводка();

		Операция.Кредит.Счет = СчетПоКоду("60.1");

		Операция.Дебет.Счет = СчетПоКоду("08.4");

		Операция.СодержаниеПроводки = "Поступление ОС";

		Операция.Сумма = Сумма; 

		Операция.НомерЖурнала="OC";

	КонецЦикла;

	Операция.Записать();

КонецПроцедуры