kb-personal/src/content/docs/knowledge-base/Общие/Обмен данными/1. Планы обмена/Как прочиттать изменения.md

title, slug

title	slug
Как прочиттать изменения	общие-обмен-данными-1-планы-обмена/как-прочиттать-изменения

С присваиванием номера сообщения

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

Просто запросом

УзелОбмена = ПланыОбмена.ОбменИсточникПриемник.НайтиПоКоду("ПР");

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Узел", УзелОбмена);
Запрос.Текст = 
"ВЫБРАТЬ
|	КонтрагентыИзменения.Узел КАК Узел,
|	КонтрагентыИзменения.НомерСообщения КАК НомерСообщения,
|	КонтрагентыИзменения.Ссылка КАК Ссылка
|ИЗ
|	Справочник.Контрагенты.Изменения КАК КонтрагентыИзменения
|ГДЕ
|	КонтрагентыИзменения.Узел = &Узел";

РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
    Сообщение = Новый СообщениеПользователю;
    Сообщение.Текст = Выборка.Ссылка;
    Сообщение.Сообщить();
КонецЦикла;