"Добрый день уважаемые форумчане. <br>Я в семерке плохо шарю, но некоторые моменты знаю. <br>к вам такая просьба. <br>мне нужно сделать отчет который выводит список контрагентов у которых одинаковый ИНН или не заполненный ИНН. <br>Вот мои наброски <br>+ Code<br>//_____________________________________________________________________________<br> <br>Функция ПоискКонтрагента(пПоиск)<br> спрФиз = СоздатьОбъект("Справочник.ФизЛица");<br> спрЮр = СоздатьОбъект("Справочник.ЮрЛица");<br> спрСвои = СоздатьОбъект("Справочник.СвоиЮрЛица");<br> Если спрФиз.НайтиПоНаименованию(пПоиск,0,1)=1 Тогда<br> СпрЛица = спрФиз.ИНН;<br> Возврат СпрЛица;<br> ИначеЕсли спрЮр.НайтиПоНаименованию(пПоиск,0,1)=1 Тогда<br> СпрЛица = спрЮр.ИНН;<br> Возврат СпрЛица;<br> ИначеЕсли спрСвои.НайтиПоНаименованию(пПоиск,0,1)=1 Тогда<br> СпрЛица = спрСвои.ИНН;<br> Возврат СпрЛица;<br> Иначе<br> Возврат 0;<br> КонецЕсли;<br>КонецФункции //<br> <br><br>//*******************************************<br> <br>Процедура Сформировать() <br> Таб=СоздатьОбъект("Таблица");<br> Таб.ВывестиСекцию("Шапка");<br> Таб.ТолькоПросмотр(1);<br> Спр1 = СоздатьОбъект("Справочник.Контрагенты");<br> Спр1.ВыбратьЭлементы();<br> Пока Спр1.ПолучитьЭлемент() = 1 Цикл<br> Если (Спр1.ЭтоГруппа() = 0) и (Спр1.ПометкаУдаления() = 0) Тогда <br> Спр2 = СоздатьОбъект("Справочник.Контрагенты");<br> Спр2.ВыбратьЭлементы();<br> СпрЛица1 = ПоискКонтрагента(Спр1.ЮрФизЛицо);<br> Если СпрЛица1 = """" Тогда<br> Таб.ВывестиСекцию("Строка");<br> Иначе<br> Пока Спр2.ПолучитьЭлемент() = 1 Цикл <br> <br> Если (Спр2.ЭтоГруппа() = 0) и (Спр2.ПометкаУдаления() = 0) Тогда <br> <br> СпрЛица2 = ПоискКонтрагента(Спр2.ЮрФизЛицо);<br> Если СпрЛица1=СпрЛица2 Тогда<br> Таб.ВывестиСекцию("Строка");<br> КонецЕсли;<br> <br> <br> КонецЕсли;<br> КонецЦикла;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЦикла;<br> Таб.Показать();<br>КонецПроцедуры<br><br>как можно упрастить данный модуль? может как нибудь через запрос можно сделать? в 8ке я бы без проблем решил бы эту задачу..."