Здравствуйте, нашла обработку по поиску одинаковых ИНН в ТиС 7.7,но когда формирую отчет,выдает ошибку: Табл.ИНН = Табл.Юр.ИНН;
{C:\DOCUMENTS AND SETTINGS\ADM\РАБОЧИЙ СТОЛ\ПОИСКОДИННТОРГ.ERT(25)}: Поле агрегатного объекта не обнаружено (ИНН). Помогите, пожалуйста доработать отчет
Код программы:
Процедура Сформировать()  
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");

   // Запрос по справочнику
   ТекстЗапроса = "                    
       |Контрагент = Справочник.Контрагенты.ТекущийЭлемент;
       |Юр  = Справочник.Контрагенты.ЮрФизЛицо;        
       |Группировка Контрагент Без Групп;
       |Группировка Юр;        
       |";                                                            
   
   Запрос = СоздатьОбъект("Запрос");
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;    
   
   Табл = СоздатьОбъект("ТаблицаЗначений");
   Запрос.Выгрузить(Табл,, 0);
   Табл.НоваяКолонка("ИНН");  
   Табл.ВыбратьСтроки();  
   Пока Табл.ПолучитьСтроку() = 1 Цикл
       Табл.ИНН = Табл.Юр.ИНН;  
   КонецЦикла;
   Табл.НоваяСтрока();
   Табл.Инн = "";
   Табл.НоваяСтрока();
   Табл.Инн = "999999";
   //СчетчикЦикла = 0;
   //Для СчетчикЦикла = 1 по Табл.КоличествоКолонок() Цикл
   //  Табл.ПолучитьПараметрыКолонки(<Колонка>,<Тип>,<Дл,,Стр);
   //КонецЦикла;

   Табл.Сортировать("ИНН");  
   Табл.ВыбратьСтроки();
   ИНН = "";
   Номер = 0;  
   Номер1 = 0;
   Пока Табл.ПолучитьСтроку() = 1 Цикл  
       Номер = Номер + 1;      
       Если (Номер = 1) Или (Номер = Табл.КоличествоСтрок()) Тогда Продолжить; КонецЕсли;
       Если СокрЛП(Табл.Инн) = "" Тогда Продолжить; КонецЕсли;  
       //Сообщить(Ном);
       Если (СокрЛП(Табл.Инн) <>СокрЛП(Табл.ПолучитьЗначение(Номер - 1,"ИНН"))) И
       (СокрЛП(Табл.Инн) <> СокрЛП(Табл.ПолучитьЗначение(Номер + 1,"ИНН"))) Тогда Продолжить; КонецЕсли;
       Если СокрЛП(Табл.Инн) <> СокрЛП(Табл.ПолучитьЗначение(Номер - 1,"ИНН")) Тогда
            Таб.ВывестиСекцию("СтрокаР");
       КонецЕсли;  
       Номер1 = Номер1 + 1;
       ПечНом = Номер1;
       ПечКон = Табл.Контрагент;  
       Расш = Табл.Контрагент;
       ПечИНН = Табл.ИНН;
       Таб.ВывестиСекцию("Строка");
   КонецЦикла;
   Таб.ВывестиСЕкцию("Подвал");  
   Таб.ТолькоПросмотр(1);    
   Таб.Опции(1, 0);
   Таб.Показать("Поиск контрагентов с одинаковыми ИНН");
КонецПроцедуры

фото надо

Табл.ВыбратьСтроки();  
Пока Табл.ПолучитьСтроку() = 1 Цикл
  Если ПустоеЗначение(Табл.Юр) = 0 Тогда
     Табл.ИНН = Табл.Юр.ИНН;
  КонецЕсли;
КонецЦикла;

В запросе не судьба получить?
Далее как вариант:
Потом добавить в таблицу счетчик и свернуть по ИНН с суммой по счетчику
Там где значение будет более 1 (отсортировать) и будут дубли

Типа аналог having count :)

Табл.ВыбратьСтроки();  
Пока Табл.ПолучитьСтроку() = 1 Цикл
  Если ПустоеЗначение(Табл.Юр) = 0 Тогда
     Табл.ИНН = Табл.Контрагент.ИНН;
  КонецЕсли;
КонецЦикла;

добавила так :
Табл.ВыбратьСтроки();  
Пока Табл.ПолучитьСтроку() = 1 Цикл
  Если ПустоеЗначение(Табл.Юр) = 0 Тогда
     Табл.ИНН = Табл.Контрагент.ИНН;
  КонецЕсли;
КонецЦикла;

и так пробовала:
Табл.ВыбратьСтроки();  
Пока Табл.ПолучитьСтроку() = 1 Цикл
  Если ПустоеЗначение(Табл.Юр) = 0 Тогда
     Табл.ИНН = Табл.Юр.ИНН;
  КонецЕсли;
КонецЦикла;

выдает ошибку : Табл.ИНН = Табл.Юр.ИНН;
{C:\DOCUMENTS AND SETTINGS\ADM\РАБОЧИЙ СТОЛ\ПОИСКОДИННТОРГ.ERT(26)}: Поле агрегатного объекта не обнаружено (ИНН)

Табл.ВыбратьСтроки();  
Пока Табл.ПолучитьСтроку() = 1 Цикл
  Если Табл.Юр = Перечисление.ЮрФизЛицо.Юр Тогда
     Табл.ИНН = Табл.Контрагент.ИНН;
  КонецЕсли;
КонецЦикла;

как то так

(0) И откуда у Табл взялась колонка ИНН (после того, как в неё выгрузили результат запроса)?

(7)
>>Табл.НоваяКолонка("ИНН");

Кать, ты такая же горячая как и твой ник?

+(3)
Добавить переменную в запрос, убрать группировку (да и переменную) по контрагенту (одно ЮФЛ вполне может быть у нескольких контрагентов).

M0narch, написала как вы и сказали,выдает ошибку все равно:
Если Табл.Юр = Перечисление.ЮрФизЛицо.Юр Тогда
{C:\DOCUMENTS AND SETTINGS\ADM\РАБОЧИЙ СТОЛ\ПОИСКОДИННТОРГ.ERT(25)}: Поле агрегатного объекта не обнаружено (ЮрФизЛицо)

Следующее непонимание с моей стороны. В типовых у справочника Контрагенты ЮрФизЛицо - это справочник. На кой его с перечислением сравнивать?

+(12) Да и перечисления ЮрФизЛицо в типовых - что-то не припомню...

(0) всё путём, работает твой отчет в ТИС.
что делала с конфигурацией? ничего не меняла в справочниках?

записала:
   Табл = СоздатьОбъект("ТаблицаЗначений");
   Запрос.Выгрузить(Табл,, 0);
   Табл.НоваяКолонка("ИНН");
       Табл.ВыбратьСтроки();  
   Пока Табл.ПолучитьСтроку() = 1 Цикл
     Если ПустоеЗначение(Табл.Юр) = 0 Тогда
         Табл.ИНН = Табл.Юр.ИНН;
      КонецЕсли;
   КонецЦикла;

добавила новую колонку ИНН, теперь выходят все контрагенты, которые дублируются и нет

в справочниках ничего не меняла

Жаль что традицию с фото отменили.

(13) смотрю украинскую конфу, там есть ВидКонтрагента, с ЮрФизЛицо попутал

что делать???? :(((((

(19)мдшник в зипе можешь выложить?

Вот сработал код в ТиСе, намеренно ввел два одинаковых инн

Ры    8    
   8    6165127970
   9    6165127970

у меня не срабатывает((( как выложить то,"прикрепить файлы" нет же

почту напишите свою,отправлю

кошелек тоже выложи, пусть и з/п отправляет

(22) valeri35(GAFF)bk.ru

(24) :)

(23)пароль нужен для открытия

+27 тоже в мыло, естественно..

самое главное ни кто ошибки в цикле не заметил :)
в условиях Если

какая ошибка??

(0) в конфигурации версии923 отсутствует справочник ЮрФизЛица..
Есть только ЮрЛица и ФизЛица.

и что теперь делать?(

(32) написать свою обработку

(32)для контрагентов определены 2 реквизита - ЮрЛицо, ФизЛицо.

так что возможен вариант
      |Юр  = Справочник.Контрагенты.ЮрЛицо;  
      |Физ  = Справочник.Контрагенты.ФизЛицо;  

Определить в при присворении Табл.ИНН вид контрагента, и присвоить соответствующее значение

+34-му отбой! это в другой версии конфигурации!

(35)ни в какой не было. Там неопределенный справочник, а значения у него или ФЛ или ЮЛ.

(36)да, я уже ей это написал в письме.

в общем и целом - отчет должен работать нормально..

теперь уж думаю, что в БД есть ошибка в одном из контрагентов, у него не присвоен статус (вид) ЮЛ/ФЛ

(38)значит обернуть в Попытку/Исключение

(39)точно!

   Пока Табл.ПолучитьСтроку() = 1 Цикл
       Попытка
           Табл.ИНН = Табл.Юр.ИНН;  
       Исключение
           Сообщить(""+Табл.Контрагент+" пустой статус ФЛ/ЮЛ!");
       КонецПопытки;
   КонецЦикла;

все равно выходит та же большая таблица,со всеми контрагентами, и в окошке сообщить : ФС-Договоры пустой статус ФЛ/ЮЛ!
ФС-Договоры пустой статус ФЛ/ЮЛ!

"ФС-Договоры" это битые ссылки кто-то восстанавливал...

(41)а запускала тот код, что в первом посте?
я-ж написал: он у меня работает.. Только дополнительно эта Попытка..

Посмотрел распечатку: всё правильно выводит отчет! В справочнике Контрагенты задублированы.

все равно,также выводит

+44 и выводятся попарно
604    КММ    7735566910/773501001
605    я КММ    7735566910/773501001

а кое-где еще и по 3 штуки:

568    ФБУЗпоЖДТ((с/ф)    7701351634/164502001
569    яяФГУЗпоЖДТ((с/ф)-обновление11г    7701351634/164502001
570    яяФГУЗпоЖДТ (буг)-обновление11г    7701351634/164502001

(45)у них совпадает ИНН! потому и выводятся

(46) забей. год рождения - он свое дело знает крепко...

спасибо,получилось:)

(49) ну, вот и хорошо :)

(48) :))

Гхм...
Процедура Сформировать()
   Перем Запрос, ТекстЗапроса, Таб;
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |ТекущийЭлемент = Справочник.Контрагенты.ТекущийЭлемент;
   |ВидКонтрагента = Справочник.Контрагенты.ВидКонтрагента;
   |ИНН = Справочник.Контрагенты.ИНН;
   |Группировка ТекущийЭлемент упорядочить по ТекущийЭлемент.ИНН без групп;
   |Условие(ПустоеЗначение(ИНН)=0);
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;

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

код, видимо для другой конфигурации,
вот это:
   |ИНН = Справочник.Контрагенты.ИНН;
в ТиС не сработает, нет реквизита ИНН в спр.контрагентов, он в двух других

+52 а код-то короче :) хорошо написано :)