"Пока Запрос.Группировка("Контрагент") = 1 Цикл<br><br><br><br>Вы это имеете ввиду?<br><br>Не работает.<br><br>Привожу полный листинг:<br><br><br><br>Процедура ЖурналУчета()<br><br> <br><br> Таб.ИсходнаяТаблица("ЖурналУчета");<br><br> УстановленныйОтбор = """";<br><br> Если СтандартнаяФорма = 0 Тогда<br><br> Если ВыбКонтрагент.Выбран() = 1 Тогда<br><br> УстановленныйОтбор = "Установлен отбор по контрагенту: "+СокрЛП(ВыбКонтрагент.Наименование);<br><br> КонецЕсли;<br><br> КонецЕсли;<br><br> Таб.ВывестиСекцию("Шапка");<br><br><br><br> ТекстЗапроса = "Период с ДатаНачала по ДатаКонца;<br><br> |ОбрабатыватьДокументы Все;<br><br> |Обрабатывать НеПомеченныеНаУдаление;<br><br> |Док = Документ.СчетФактураПолученный.ТекущийДокумент,<br><br> | Документ.ПоступлениеТоваров.ТекущийДокумент,<br><br> | Документ.ПоступлениеМатериалов.ТекущийДокумент,<br><br> | Документ.ПоступлениеОборудования.ТекущийДокумент,<br><br> | Документ.ПоступлениеОС.ТекущийДокумент,<br><br> | Документ.ПоступлениеНМА.ТекущийДокумент,<br><br> | Документ.УслугиСтороннихОрганизаций.ТекущийДокумент; <br><br> |ДокументОснование = Документ.СчетФактураПолученный.ДокументОприходования,<br><br> | Документ.ПоступлениеТоваров.ТекущийДокумент,<br><br> | Документ.ПоступлениеМатериалов.ТекущийДокумент,<br><br> | Документ.ПоступлениеОборудования.ТекущийДокумент,<br><br> | Документ.ПоступлениеОС.ТекущийДокумент,<br><br> | Документ.ПоступлениеНМА.ТекущийДокумент,<br><br> | Документ.УслугиСтороннихОрганизаций.ТекущийДокумент;<br><br> |Контрагент = Документ.СчетФактураПолученный.Контрагент,<br><br> | Документ.ПоступлениеТоваров.Контрагент,<br><br> | Документ.ПоступлениеМатериалов.Контрагент,<br><br> | Документ.ПоступлениеОборудования.Контрагент,<br><br> | Документ.ПоступлениеОС.Контрагент,<br><br> | Документ.ПоступлениеНМА.Контрагент,<br><br> | Документ.УслугиСтороннихОрганизаций.Контрагент;<br><br> |Валюта = Документ.СчетФактураПолученный.Договор.ВалютаДоговора,<br><br> | Документ.ПоступлениеТоваров.Договор.ВалютаДоговора,<br><br> | Документ.ПоступлениеМатериалов.Договор.ВалютаДоговора,<br><br> | Документ.ПоступлениеОборудования.Договор.ВалютаДоговора,<br><br> | Документ.ПоступлениеОС.Договор.ВалютаДоговора,<br><br> | Документ.ПоступлениеНМА.Договор.ВалютаДоговора,<br><br> | Документ.УслугиСтороннихОрганизаций.Договор.ВалютаДоговора;<br><br> |ДатаНомер = Документ.СчетФактураПолученный.ДатаНомерСчетаФактуры,<br><br> | Документ.ПоступлениеТоваров.ДатаНомерСчетаФактуры,<br><br> | Документ.ПоступлениеМатериалов.ДатаНомерСчетаФактуры,<br><br> | Документ.ПоступлениеОборудования.ДатаНомерСчетаФактуры,<br><br> | Документ.ПоступлениеОС.ДатаНомерСчетаФактуры,<br><br> | Документ.ПоступлениеНМА.ДатаНомерСчетаФактуры,<br><br> | Документ.УслугиСтороннихОрганизаций.ДатаНомерСчетаФактуры;<br><br> |Всего = Документ.СчетФактураПолученный.Всего,<br><br> | Документ.ПоступлениеТоваров.Всего,<br><br> | Документ.ПоступлениеМатериалов.Всего,<br><br> | Документ.ПоступлениеОборудования.Всего,<br><br> | Документ.ПоступлениеОС.Всего,<br><br> | Документ.ПоступлениеНМА.Всего,<br><br> | Документ.УслугиСтороннихОрганизаций.Всего;";<br><br> Если СтандартнаяФорма = 0 Тогда<br><br> Если ГруппироватьПоКонтрагентам = 1 Тогда<br><br> ТекстЗапроса = ТекстЗапроса + "<br><br> |Группировка Контрагент;";<br><br> КонецЕсли;<br><br> КонецЕсли;<br><br> ТекстЗапроса = ТекстЗапроса + "<br><br> |Группировка Док;<br><br> |Функция ВсегоПокупок = Сумма(Всего);";<br><br> Если СтандартнаяФорма = 0 Тогда<br><br> Если ВыбКонтрагент.Выбран() = 1 Тогда<br><br> ТекстЗапроса = ТекстЗапроса + "<br><br> |Условие (Контрагент в ВыбКонтрагент);";<br><br> КонецЕсли;<br><br> КонецЕсли;<br><br> ТекстЗапроса = ТекстЗапроса + "<br><br> |Условие (ПустоеЗначение(ДатаНомер) = 0);";<br><br> <br><br> Запрос = СоздатьОбъект("Запрос");<br><br> Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br><br> Предупреждение("Невозможно выполнить запрос");<br><br> Возврат;<br><br> КонецЕсли;<br><br> <br><br> Ном = 1;<br><br> Пока Запрос.Группировка("Контрагент") = 1 Цикл<br><br> Если (СтандартнаяФорма = 1) или (ГруппироватьПоКонтрагентам = 0) Тогда<br><br> _Счет = """";<br><br> _Доктик = Запрос.Док; <br><br> Если _Доктик.Вид() = "СчетФактураПолученный" Тогда<br><br> _Счет = СокрЛП(Строка(_Доктик.Счет.Код));<br><br> КонецЕсли; <br><br> Таб.ВывестиСекцию("Строка");<br><br> Ном = Ном + 1;<br><br> <br><br> ИначеЕсли ГруппироватьПоКонтрагентам = 1 Тогда<br><br> Если Запрос.Контрагент.ЭтоГруппа() = 1 Тогда<br><br> Продолжить;<br><br> КонецЕсли;<br><br> Сообщить(Запрос.Контрагент);<br><br> Таб.ВывестиСекцию("Контрагент");<br><br> <br><br> Пока Запрос.Группировка("Док") = 1 Цикл<br><br> _Счет = """";<br><br> _Доктик = Запрос.Док; <br><br> Если _Доктик.Вид() = "СчетФактураПолученный" Тогда<br><br> _Счет = СокрЛП(Строка(_Доктик.Счет.Код));<br><br> КонецЕсли; <br><br> Таб.ВывестиСекцию("Строка");<br><br> Ном = Ном + 1;<br><br> КонецЦикла;<br><br> <br><br> КонецЕсли;<br><br> КонецЦикла;<br><br><br><br> ВерхнийКолонтитул = "Журнал учета полученных счетов-фактур ("+ПериодСтр(ДатаНачала, ДатаКонца)+")";<br><br> НижнийКолонтитул = "Отчет сформирован "+ТекущаяДата()+" "+ТекущееВремя()+?(ПустоеЗначение(ИмяПользователя())=0," Пользователь: "+ИмяПользователя(),"""");<br><br> <br><br> Таб.Опции(0,0,6,0, "Параметры печати журналы полученных счетов-фактур" );<br><br> Таб.ОбластьПечати(2);<br><br> Таб.ПовторятьПриПечатиСтроки(6, 6);<br><br> Таб.ПараметрыСтраницы(1,,,,,,,,,1);<br><br> Таб.ТолькоПросмотр(1);<br><br> Таб.Показать("Журнал учета полученных счетов-фактур",""""); <br><br> <br><br>КонецПроцедуры // ЖурналУчета()"