[rootx]

Ну вот что типа того выводит суммы амортизации по каждому Осу

 while  select sum(AmountMST),  AccountNum from   rassettrans    group by   AccountNum
    where    rassettrans.TransDate >=   fromdate   //Выбираем все проводки по ОС  за период из таблицы RassetTrans
          &&  rassettrans.TransDate <=   todate
          &&  rassettrans.AssetTransType == RAssetTransType::Depreciation       // Тип проводки = Амортизация
          &&  rassettrans.assetStandardId == AssetStandard
    {
                  Select *from rassettable1
                     where rassettable1.AccountNum ==  rAssetTable.AccountNum;
 
                  this.SendToExcel("A"+int2str(ranges),rassettrans.AccountNum);
                  this.SendToExcel("B"+int2str(ranges),rAssetTable1.Name);
                  this.SendToExcel("C"+int2str(ranges),num2str(rassettrans.AmountMST,10,2,2,0));
                  this.SendToExcel("D"+int2str(ranges),enum2str(rassettrans.AssetTransType));
                  this.SendToExcel("H"+int2str(ranges),rassettrans.Dimension[1]);
 
 
   }

Но лучше конечно использовать стандартные классы RassetSumCalc там есть всё