|
0
Uragan_a
24.05.12
✎
14:32
|
как правильно сделать цикл по бух итогам, чтобы получить по каждому ОС, осточную стоимость и амортизацию в одной таблице?
Вот тут амортизация норм по 104, а как тут же остаточную дернуть она на 108 хранится, получается дебет 108.
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства,, 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,"104" ,,, 1,, );
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСубконто(ВидыСубконто.ОсновныеСредства);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ОсновныеСредства) = 1 Цикл
Амортизация = Ит.СКК();
Таб.ВывестиСекцию("Субконто1");
КонецЦикла;
Чтобы получилась табличка типа:
ОС/Амортизация/Остаточная стоимость
Тут пока только:
ОС/Амортизация
|
|
|
1
viktor_vv
24.05.12
✎
14:39
|
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,"104,108" ,,, 1,, );
Ит.ВыбратьСубконто(ВидыСубконто.ОсновныеСредства);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ОсновныеСредства) = 1 Цикл
Аммортизация = 0 ;
Остаточная = 0 ;
Ит.ВыбратьСчета();
Пока ИТ.ПолучитьСчет() = 1 Цикл
Если Ит.Счет = СчетПоКоду("104") Тогда
Амортизация = Ит.СКК();
ИначеЕсли Ит.Счет = СчетПоКоду("108") Тогда
Остаточная = Ит.СКД();
КонецЕсли ;
Таб.ВывестиСекцию("Субконто1");
КонецЦикла;
|
|