Не пойму как определить износ и подставить к первоначальной стоим.!
//можно вписывать сюда:
Процедура Сформировать()
  Таб = СоздатьОбъект("Таблица");
  Таб.ИсходнаяТаблица("Сформировать");
  Ит = СоздатьОбъект("БухгалтерскиеИтоги");
  Ит.ИспользоватьПланСчетов(ОсновнойПланСчетов());
  Ит.ИспользоватьСубконто(ВидыСубконто.Подразделения,, 1, 0);
  Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы,, 1,0);
  Ит.ВыполнитьЗапрос(ВыбНачПериода,ВыбКонПериода,"10");
  Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
  
     ИтИ = СоздатьОбъект("БухгалтерскиеИтоги");
     ИтИ.ВыполнитьЗапрос(ВыбНачПериода,ВыбКонПериода,"10");
     ИтИ.ВыбратьСчета();
       Пока ИтИ.ПолучитьСчет(,"131") = 1 Цикл
   Изн=ИтИ.СКК("С");//Износ ??
       КонецЦикла;
  
       Ит.ВыбратьСубконто(1);
  Пока Ит.ПолучитьСубконто(1) = 1 Цикл
   ПД=Ит.Субконто(1);
   Подр=ПД.Наименование;
   Таб.ВывестиСекцию("Подразделение");
   Ит.ВыбратьСубконто(2);
   Пока Ит.ПолучитьСубконто(2) = 1 Цикл
   НА=Ит.Субконто(2);
    Если НА.ВидНеоборотногоАктива =
Перечисление.ВидыНеоборотныхАктивов.ОсновныеСредства Тогда
     Наим="Инв. № "+Сокрлп(НА.ИнвенНомер)+" "+НА.ПолнНаименование;
     ПервСт=Ит.СКД("С");//Первоначальая
     Зал=ПервСт-Изн;
     Таб.ВывестиСекцию("Заголовок");
    КонецЕсли;
   КонецЦикла;
        КонецЦикла;
  Таб.ТолькоПросмотр(1);
  Таб.Показать("Сформировать","");
КонецПроцедуры

А как насчёт ВыбратьСубконто(..) и ПолучитьСубконто(..)

Зачем ???

Хотя бы для того, чтобы знать на какое ОС начислено износ.
Интересное дело, запрос по счёту 10, а пытаешься спозиционироваться на 13...

А можно так чтоб ОС были все, и только к тем у которох есть износ, износ подсавлялся а к тем у которых нет ,нет ???

Блин, да что ж за день то такой...
Вызывайте программиста 1С