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