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