// Добавление новых данных в существующую запись регистра сведений

НаборЗаписей = РегистрыСведений.ДокументоОборот.СоздатьНаборЗаписей();

	НаборЗаписей.Отбор.Доставка.Установить(Доставка);

	НаборЗаписей.Отбор.Этап.Установить(Этап);	

	НаборЗаписей.Прочитать();

	Для каждого Запись из НаборЗаписей Цикл

		Запись.ДатаВремя = ДатаР;

		Запись.Отдел = фио.Подразделение;

		Запись.ФИО = ПараметрыСеанса.ТекущийПользователь;    

	    Запись.Документы = Документы;   

		Запись.Примечание = Примечание;   

	КонецЦикла;

	НаборЗаписей.Записать();   

 НаборЗаписей = РегистрыСведений.CRM_Напоминания.СоздатьНаборЗаписей();

	Отбор = НаборЗаписей.Отбор;

	Отбор.Объект.Установить(Объект.Ссылка);

	Отбор.Завершено.Установить(Ложь);

	НаборЗаписей.Прочитать();

	

	Если НаборЗаписей.Количество() > 0 Тогда

		

		Если ЗадаватьВопрос Тогда

			ТекстВопроса = "Завершить все напоминания для " + Строка(Объект.Ссылка) + " ?";

			Ответ = Вопрос(ТекстВопроса,РежимДиалогаВопрос.ДаНет, ,КодВозвратаДиалога.Да);

		Иначе

			Ответ = КодВозвратаДиалога.Да

		КонецЕсли;

		

		Если Ответ = КодВозвратаДиалога.Да Тогда

			

			Для каждого Запись Из НаборЗаписей Цикл

				

				РегистрСведенийМенеджерЗаписи = РегистрыСведений.CRM_Напоминания.СоздатьМенеджерЗаписи();

				ЗаполнитьЗначенияСвойств(РегистрСведенийМенеджерЗаписи, Запись);

				РегистрСведенийМенеджерЗаписи.Прочитать();

				

				Если  РегистрСведенийМенеджерЗаписи.Выбран() Тогда  //напоминание небыло удалено

					Если НЕ РегистрСведенийМенеджерЗаписи.УдалитьПоИстеченииСрока Тогда

						РегистрСведенийМенеджерЗаписи.Завершено = Истина;		 

						РегистрСведенийМенеджерЗаписи.Записать();

					Иначе

						РегистрСведенийМенеджерЗаписи.Удалить();

					КонецЕсли;

				КонецЕсли;

				

			КонецЦикла;

			

		КонецЕсли;

		

	КонецЕсли;

   

 МенеджерЗаписи = РегистрыСведений.НоменклатураКонтрагентов.СоздатьМенеджерЗаписи();

		МенеджерЗаписи.Контрагент                 = Контрагент;

		МенеджерЗаписи.Номенклатура               = СтрокаТаблицыТовары.Номенклатура;

		МенеджерЗаписи.ХарактеристикаНоменклатуры = СтрокаТаблицыТовары.ХарактеристикаНоменклатуры;

		МенеджерЗаписи.Прочитать();

		Если МенеджерЗаписи.Выбран() Тогда

			Вес = МенеджерЗаписи.ВесНоменклатурыКонтрагента;

		КонецЕсли;