3_1_6_62

SSL/src/CommonModules/НапоминанияПользователяСлужебный/Module.bsl

@@ -45,6 +45,42 @@
 	
 КонецПроцедуры
 
+// Изменить текст напоминаний по предмету.
+// 
+// Параметры:
+//  Предмет - ЛюбаяСсылка - предмет напоминания;
+//  Идентификатор - Строка - уточняет предмет напоминания, например, "ДеньРождения".
+//  НовыйТекст - Строка - текст напоминания;
+//
+Процедура ИзменитьТекстНапоминанийПоПредмету(Предмет, Идентификатор, НовыйТекст) Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст =
+		"ВЫБРАТЬ
+		|	НапоминанияПользователя.Пользователь,
+		|	НапоминанияПользователя.ВремяСобытия,
+		|	НапоминанияПользователя.Источник
+		|ИЗ
+		|	РегистрСведений.НапоминанияПользователя КАК НапоминанияПользователя
+		|ГДЕ
+		|	НапоминанияПользователя.Идентификатор = &Идентификатор
+		|	И НапоминанияПользователя.Источник = &Источник";
+	
+	Запрос.УстановитьПараметр("Идентификатор", Идентификатор);
+	Запрос.УстановитьПараметр("Источник", Предмет);
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
+	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
+		МенеджерЗаписи = РегистрыСведений.НапоминанияПользователя.СоздатьМенеджерЗаписи();
+		ЗаполнитьЗначенияСвойств(МенеджерЗаписи, ВыборкаДетальныеЗаписи);
+		МенеджерЗаписи.Прочитать();
+		МенеджерЗаписи.Описание = НовыйТекст;
+		МенеджерЗаписи.Записать();
+	КонецЦикла;
+	
+КонецПроцедуры
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции