Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ХозрасчетныйОстатки.Счет КАК Счет,
| ХозрасчетныйОстатки.Субконто1 КАК Контрагент,
| ХозрасчетныйОстатки.СуммаОстатокДт КАК ОстатокДт,
| ХозрасчетныйОстатки.СуммаОстатокКт КАК ОстатокКт,
| КонтактнаяИнформация.Объект.ОсновнойБанковскийСчет.НомерСчета КАК НомерСчета,
| КонтактнаяИнформация.Объект.ОсновнойБанковскийСчет.Банк КАК СчетБанк,
| КонтактнаяИнформация.Объект.ОсновнойБанковскийСчет.БанкДляРасчетов.КоррСчет КАК КоррСчет,
| КонтактнаяИнформация.Представление КАК ЮрАдрес,
| КонтактнаяИнформация.Объект.ОсновнойБанковскийСчет.Банк.Наименование КАК БанкНаименование,
| КонтактнаяИнформация.Объект.ОсновнойБанковскийСчет.Банк.Город КАК БанкГород,
| КонтактнаяИнформация.Объект.ОсновнойБанковскийСчет.Банк.КоррСчет КАК БанкКоррСчет
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, Счет В ИЕРАРХИИ (&СписокСчетов), , Организация = &Организация) КАК ХозрасчетныйОстатки
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ПО ХозрасчетныйОстатки.Субконто1 = КонтактнаяИнформация.Объект
|ГДЕ
| КонтактнаяИнформация.Вид = &Вид
|ИТОГИ
| СУММА(ОстатокДт),
| СУММА(ОстатокКт)
|ПО
| Счет
|АВТОУПОРЯДОЧИВАНИЕ";
// параметры
Запрос.УстановитьПараметр("Дата", Дата);
//Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками);
Запрос.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента);
Запрос.УстановитьПараметр("Организация", Организация);
Запрос.УстановитьПараметр("Контрагент", Контрагент);
М = Новый Массив;
Для Каждого ТекущаяСтрока Из СписокСчетов Цикл
М.Добавить(ТекущаяСтрока.Счет);
КонецЦикла;
Запрос.УстановитьПараметр("СписокСчетов", М);
Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
|
А 10% от программиста
