Имя: Пароль:
1C
1C 7.7
v7: Помогите с запросом в 7 БИ ☑
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");
КонецЦикла;
2 viktor_vv
 
24.05.12
✎
14:41
(1)*

   ИначеЕсли Ит.Счет = СчетПоКоду("108") Тогда
     Остаточная = Ит.СКД();
   КонецЕсли ;
  КонецЦикла ;
Таб.ВывестиСекцию("Субконто1");
  КонецЦикла ;
3 Uragan_a
 
24.05.12
✎
14:52
спасибо