Предназначена для проверки синхронизации обмена с другими похожими конфигурциями УТ, УПП и прочее.
В этих конфигурациях создаем обработку с одним реквизитом Таблица тип ТабличныйДокумент и с помощью комбинации Ctrl + C и Ctrl + V вставляем результат из отчета. Прописываем следующий код:
&НаСервере Процедура ВыбратьКонтрагентовИНайтиПоГУИДНаСервере() ТаблицаГУИД = Новый ТаблицаЗначений; ТаблицаГУИД.Колонки.Добавить("ГУИД"); ТаблицаГУИД.Индексы.Добавить("ГУИД"); ТаблицаИННКПП = Новый ТаблицаЗначений; ТаблицаИННКПП.Колонки.Добавить("ИНН"); ТаблицаИННКПП.Колонки.Добавить("КПП"); ТаблицаИННКПП.Колонки.Добавить("Наименование"); ТаблицаИННКПП.Колонки.Добавить("НаименованиеП"); ТаблицаИННКПП.Индексы.Добавить("ИНН,КПП,Наименование,НаименованиеП"); Для Инд=1 По 20000 Цикл Стр = СокрЛП(Таблица.Область(Инд,1,Инд,1).Текст); Если ПустаяСтрока(Стр) Тогда Продолжить; КонецЕсли; СтрТаблицаГУИД = ТаблицаГУИД.Добавить(); СтрТаблицаГУИД.ГУИД = Стр; СтрИНН = СокрЛП(Таблица.Область(Инд,2,Инд,2).Текст); СтрКПП = СокрЛП(Таблица.Область(Инд,3,Инд,3).Текст); СтрНаименование = СокрЛП(Таблица.Область(Инд,4,Инд,4).Текст); СтрНаименованиеП = СокрЛП(Таблица.Область(Инд,5,Инд,5).Текст); СтрТаблицаИНН = ТаблицаИННКПП.Добавить(); СтрТаблицаИНН.ИНН = СтрИНН; СтрТаблицаИНН.КПП = СтрКПП; СтрТаблицаИНН.Наименование = СтрНаименование; СтрТаблицаИНН.НаименованиеП = СтрНаименованиеП; КонецЦикла; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Контрагенты.Ссылка, | Контрагенты.ИНН, | Контрагенты.КПП, | Контрагенты.Наименование, | Контрагенты.НаименованиеПолное |ИЗ | Справочник.Контрагенты КАК Контрагенты |ГДЕ | Контрагенты.ЭтоГруппа = ЛОЖЬ | И Контрагенты.ПометкаУдаления = ЛОЖЬ"; РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); НайденоСтрокСГУИД = 0; НеНайденоСтрокСГУИД = 0; НеНайденоПоИНН = 0; НайденоПоИНН = 0; НеНайденоПоКПП = 0; НайденоПоКПП = 0; Пока ВыборкаДетальныеЗаписи.Следующий() Цикл ГУИД = СокрЛП(ВыборкаДетальныеЗаписи.Ссылка.УникальныйИдентификатор()); Если ТаблицаГУИД.Найти(ГУИД,"ГУИД")=Неопределено Тогда НеНайденоСтрокСГУИД = НеНайденоСтрокСГУИД + 1; Если ТаблицаИННКПП.Найти(ВыборкаДетальныеЗаписи.ИНН,"ИНН")= Неопределено Тогда НеНайденоПоИНН = НеНайденоПоИНН + 1; Если ТаблицаИННКПП.Найти(ВыборкаДетальныеЗаписи.КПП,"КПП") = Неопределено Тогда НеНайденоПоКПП = НеНайденоПоКПП + 1; Иначе НайденоПоКПП = НайденоПоКПП + 1; КонецЕсли; Иначе НайденоПоИНН = НайденоПоИНН +1; КонецЕсли; Иначе НайденоСтрокСГУИД = НайденоСтрокСГУИД + 1; КонецЕсли; КонецЦикла; Сообщить("Найдено строк ГУИД "+СокрЛП(НайденоСтрокСГУИД)); Сообщить("Не найдено строк ГУИД "+СокрЛП(НеНайденоСтрокСГУИД)); Сообщить("Найдено строк ИНН "+СокрЛП(НайденоПоИНН)); Сообщить("Не найдено строк ИНН "+СокрЛП(НеНайденоПоИНН)); Сообщить("Найдено строк КПП "+СокрЛП(НайденоПоКПП)); Сообщить("Не найдено строк КПП "+СокрЛП(НеНайденоПоКПП)); //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА КонецПроцедуры &НаКлиенте Процедура ВыбратьКонтрагентовИНайтиПоГУИД(Команда) ВыбратьКонтрагентовИНайтиПоГУИДНаСервере(); КонецПроцедуры
И все работает.
Проверено на платформе: 1С:Предприятие 8.3 (8.3.10.2561) конфигурация Бухгалтерия предприятия, редакция 3.0 (3.0.60.50)
Вступайте в нашу телеграмм-группу Инфостарт
