Помогите довести до ума Справку по ИНВ-17

Новая тема
"Помогите довести до ума код Печатной формы для справки ИНВ-17
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ОстаткиИОбороты.Субконто1 КАК Контрагент,
| ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйДт,
| ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйКт,
| ОстаткиИОбороты.Субконто3 как регистратор
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
| ,
| &ДатаКон,
| ,
| ,
| Счет В (&МассивСчетов),
| ,
| Организация = &Организация
| И Субконто1 В (&Контрагенты)) КАК ОстаткиИОбороты
|ГДЕ
| (ОстаткиИОбороты.СуммаКонечныйОстатокДт > 0
| ИЛИ ОстаткиИОбороты.СуммаКонечныйОстатокКт > 0)
|ИТОГИ
| СУММА(СуммаКонечныйДт),
| СУММА(СуммаКонечныйКт)
|ПО
| Контрагент
|АВТОУПОРЯДОЧИВАНИЕ";

МассивСчетов = ДокДанные.СчетаРасчетов.Выгрузить().ВыгрузитьКолонку("СчетРасчетов");
МассивСчетов = ОбщегоНазначения.УдалитьПовторяющиесяЭлементыМассива(МассивСчетов);

МассивКонтрагентов = ДокДанные.Контрагенты.Выгрузить().ВыгрузитьКолонку("Контрагент");


ВидыСубконто = Новый Массив();
ВидыСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты);
ВидыСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ДокументыРасчетовСКонтрагентами);

Запрос.Параметры.Вставить("ВидыСубконто", ВидыСубконто);
Запрос.Параметры.Вставить("ДатаКон", КонецДня(ДокДанные.Дата));
Запрос.Параметры.Вставить("МассивСчетов", МассивСчетов);
Запрос.Параметры.Вставить("Организация", ДокДанные.Организация);
Запрос.Параметры.Вставить("Контрагенты", МассивКонтрагентов);

Результат = Запрос.Выполнить();

ВыборкаКГруппы = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

облПодШапкой = Макет.ПолучитьОбласть("ПодШапкой");
ТабДок.Вывести(облПодШапкой);

облИтогоКонтрагент = Макет.ПолучитьОбласть("ИтогоКонтрагент");

облСтрока = Макет.ПолучитьОбласть("Строка");

Сч = 1;
ИтогДт = 0;
ИтогКт = 0;

Пока ВыборкаКГруппы.Следующий() Цикл
Если (ВыборкаКГруппы.СуммаКонечныйДт > 0 ИЛИ ВыборкаКГруппы.СуммаКонечныйКт > 0) тогда
облИтогоКонтрагент.Параметры.СуммаИтогоКонтрагентДт = ВыборкаКГруппы.СуммаКонечныйДт;
облИтогоКонтрагент.Параметры.СуммаИтогоКонтрагентКт = ВыборкаКГруппы.СуммаКонечныйКт;
облИтогоКонтрагент.Параметры.Контрагент = ВыборкаКГруппы.Контрагент;
КонтрагентСтрокой =   Строка(ВыборкаКГруппы.Контрагент) +" " +
УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(ВыборкаКГруппы.Контрагент,"Юридический") + " " +
УправлениеКонтактнойИнформацией.ПолучитьТелефонИзКонтактнойИнформации(ВыборкаКГруппы.Контрагент);
облИтогоКонтрагент.Параметры.КонтрагентСтр = КонтрагентСтрокой;
ТабДок.Вывести(облИтогоКонтрагент);
ИтогДт = ИтогДт +  ВыборкаКГруппы.СуммаКонечныйДт;
ИтогКт = ИтогКт +  ВыборкаКГруппы.СуммаКонечныйКт;
ВыборкаСтр = ВыборкаКГруппы.Выбрать(ОбходРезультатаЗапроса.Прямой);
Пока ВыборкаСтр.Следующий() Цикл
// облСтрока.Параметры.КонтрагентСтр = КонтрагентСтрокой;
облСтрока.Параметры.СуммаДт = ВыборкаСтр.СуммаКонечныйДт;
облСтрока.Параметры.СуммаКт = ВыборкаСтр.СуммаКонечныйКт;
облСтрока.Параметры.ДокСтр  = ВыборкаСтр.регистратор;
облСтрока.Параметры.НомерСтроки = Сч;
ТабДок.Вывести(облСтрока);
Сч = Сч+1;
КонецЦикла;
КонецЕсли;
КонецЦикла;


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

Быстрый переход