"БИ = СоздатьОбъект("БухгалтерскиеИтоги");<br>БИ.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства, , 1);<br>БИ.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "01",,, 3, , "С"); <br><br>БИ2 = СоздатьОбъект("БухгалтерскиеИтоги");<br>БИ2.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства, , 1);<br>БИ2.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "01","83.01",, 3, "Проводка", "СК"); <br><br>БИ3 = СоздатьОбъект("БухгалтерскиеИтоги");<br>БИ3.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства, , 1);<br>БИ3.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "01", "08.30.02",, 3, "Проводка", "СК");<br><br>Таб.ВывестиСекцию("Шапка");<br>Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); <br> <br>БИ.ВыбратьСубконто(ВидыСубконто.ОсновныеСредства);<br>БИ2.ВыбратьСубконто(ВидыСубконто.ОсновныеСредства); <br>БИ3.ВыбратьСубконто(ВидыСубконто.ОсновныеСредства);<br><br>ном=0;<br>СКД = 0;<br>СКК = 0; <br><br>Пока (БИ.ПолучитьСубконто(ВидыСубконто.ОсновныеСредства) = 1) Цикл<br><br> <br> ном = ном + 1; <br> Группа = БИ.Субконто(ВидыСубконто.ОсновныеСредства).Группа;<br> ИнвОС = БИ.Субконто(ВидыСубконто.ОсновныеСредства).Код;<br> НаимОС = БИ.Субконто(ВидыСубконто.ОсновныеСредства).Наименование;<br> ТекДата = РабочаяДата();<br> ДатаВВода = БИ.Субконто(ВидыСубконто.ОсновныеСредства).ТекущийЭлемент().ДатаВводаВЭксплуатацию.Получить(ТекДата);<br> ДО01 = БИ.ДО(СчетПоКоду ("01")); <br> КО02 = БИ.КО(СчетПоКоду ("02"));<br> ОстСтоим = БИ.СКД() - БИ.СКК();<br><br><br>Пока (БИ2.ПолучитьСубконто(ВидыСубконто.ОсновныеСредства) = 1) Цикл<br> //Переоценка <br> КО83 = БИ2.ДО(СчетПоКоду("01")); <br> ДО83 = БИ2.КО(СчетПоКоду("02"));<br> //Модернизация <br>КонецЦикла;<br>................<br><br> Таб.ВывестиСекцию("Строка"); <br> <br>КонецЦикла;<br>"