Процедура ОбработкаПроведения() Пока ПолучитьСтроку() = 1 Цикл Операция.НоваяПроводка(); Операция.Кредит.Счет = СчетПоКоду("60.1"); Операция.Дебет.Счет = СчетПоКоду("08.4"); Операция.СодержаниеПроводки = "Поступление ОС"; Операция.Сумма = Сумма; Операция.НомерЖурнала="OC"; КонецЦикла; Операция.Записать(); КонецПроцедуры