редактировать метку
Процедура ПриЗаписиЗаказаКлиента(Источник, Отказ) Экспорт
Если Отказ Тогда
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(УправлениеСвойствами.ПолучитьЗначениеДополнительногоРеквизита(Источник, "НомерЗаказаИнтернетМагазина")) Тогда
Возврат;
КонецЕсли;
ПартнерРозница = Справочники.Партнеры.НайтиПоНаименованию("Розничный покупатель", Истина);
Если ЗначениеЗаполнено(ПартнерРозница) Тогда
Источник.Партнер = ПартнерРозница;
Если ЗначениеЗаполнено(ПартнерРозница.ОсновнойКонтрагент) Тогда
Источник.Контрагент = ПартнерРозница.ОсновнойКонтрагент;
КонецЕсли;
Источник.КонтрагентФизЛицо = Неопределено;
Сообщить("Розничный покупатель успешно подставлен в заказ " + Источник.Номер);
КонецЕсли;
КонецПроцедуры
#КонецОбласти