Доброго времени суток, Уважаемые. Помогите с таким вопросом. Написал правила переноса внутренних договоров Документооборот --- УТП. При переносе контрагента создаются только новые, старые нельзя трогать, установил флаг "Не замещать существующие объекты по справочнику контрагенты", возникла проблема, контрагентов не меняет, но меняет контактную информацию. КИ выгружаю в событии после выгрузки. Как мне ограничить выгрузку КИ, если контрагент найден. Вот код
Если Источник.КонтактнаяИнформация.Количество() > 0 Тогда
ИсходящиеДанные = Новый Структура("Объект, Тип, Вид, Представление");
ИсходящиеДанные.Объект = Источник.Ссылка;
Для Каждого ТекСтрока Из Источник.КонтактнаяИнформация Цикл
ИсходящиеДанные.Объект = Источник.Ссылка;
Если ТекСтрока.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Телефон") Тогда
ИсходящиеДанные.Тип = "Телефон";
ИначеЕсли ТекСтрока.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Адрес") Тогда
ИсходящиеДанные.Тип = "Адрес";
ИначеЕсли ТекСтрока.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты") Тогда
ИсходящиеДанные.Тип = "АдресЭлектроннойПочты";
ИначеЕсли ТекСтрока.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.ВебСтраница") Тогда
ИсходящиеДанные.Тип = "ВебСтраница";
Иначе
ИсходящиеДанные.Тип = "Другое";
КонецЕсли;
Если ТекСтрока.Вид = ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.EmailКорреспондента") Тогда
ИсходящиеДанные.Вид = "000000025";
ИначеЕсли ТекСтрока.Вид = ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.ПочтовыйАдресКорреспондента") Тогда
ИсходящиеДанные.Вид = "000000031";
ИначеЕсли ТекСтрока.Вид = ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.ТелефонКорреспондента") Тогда
ИсходящиеДанные.Вид = "000000005";
ИначеЕсли ТекСтрока.Вид = ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.ФаксКорреспондента") Тогда
ИсходящиеДанные.Вид = "000000027";
ИначеЕсли ТекСтрока.Вид = ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.ФактическийАдресКорреспондента") Тогда
ИсходящиеДанные.Вид = "000000008";
ИначеЕсли ТекСтрока.Вид = ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.ЮридическийАдресКорреспондента") Тогда
ИсходящиеДанные.Вид = "000000010";
Иначе
ИсходящиеДанные.Вид = "000000027";
КонецЕсли;
ИсходящиеДанные.Представление = ТекСтрока.Представление;
ВыгрузитьПоПравилу(,,ИсходящиеДанные,,"КонтактнаяИнформация");
КонецЦикла;
КонецЕсли; Показать