0
Neg
25.09.12
✎
15:40
|
Сч76СО = СчетПоКоду("76.СО", ПланыСчетов.Основной);
БИ = СоздатьОбъект("БухгалтерскиеИтоги");
Если Собственники.Выбран() = 1 Тогда
БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты, Собственники, 1);
Иначе
БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
КонецЕсли;
ДатаНачала = Константа.СвидетельствоДатаВыдачи;
Если (ПустоеЗначение(Константа.СвидетельствоДатаВыдачи)=1) или (ДатаНачала>ДатаДолга) Тогда
ДатаНачала = НачГода(ДатаДолга);
КонецЕсли;
БИ.ВыполнитьЗапрос(ДатаНачала, ДатаДолга, Сч76СО,,,3,2);
Итого = 0;
Если Сорт = 1 Тогда
СортироваПо = "Код";
Иначе
СортироваПо = "Наименование";
КонецЕсли;
БИ.ВыбратьСубконто(1,,,,,СортироваПо);
Пока БИ.ПолучитьСубконто(1) = 1 Цикл
ЛСч = БИ.Субконто(1);
Задолженность = БИ.СКД();
Оплата = БИ.КО();
КонецЦикла;
Все работает, но как сделать, чтобы Оплата показывалась за последний месяц, а не за весь период?
|
|