K
KiR
Задача: Получить СКД и КО с периодом проводка
Решение:
Вопрос: результат не совпадает с обороткой. некоторых договоров, у которых есть СКД и нет КО - не отбирает. почему так происходит, что я сделал неверно? Заранее спасибо
Решение:
Код:
БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент,1);
БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры, Договор,1);
БухИт.ВыполнитьЗапрос( НачДата, КонДата, "58.3",,,,"Проводка",);
БухИт.ВыбратьСубконто(1);
Пока БухИт.ПолучитьСубконто(1) = 1 Цикл
БухИт.ВыбратьСубконто(2);
Пока БухИт.ПолучитьСубконто(2) = 1 Цикл
БухИт.ВыбратьСчета();
Пока БухИт.ПолучитьСчет() = 1 Цикл
БухИт.ВыбратьПериоды(,,,1);
Пока БухИт.ПолучитьПериод() = 1 Цикл
ТЗ.НоваяСтрока();
ТЗ.Контрагент = БухИт.Субконто(1).Наименование;
ТЗ.Договор = БухИт.Субконто(2).Наименование;
ТЗ.Сумма = БухИт.СКД();
ТЗ.КДвГ = (КонГода(КонДата) - НачГода(КонДата))+1;
ТЗ.ДатаН = БухИт.НачДата;
ТЗ.ВозвратКредита = БухИт.КО();
ТЗ.ПрСтавка = Сред(Прав(БухИт.Субконто2).Наименование,7),1,5);
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;