СКД. Отображение нестандартной расшифровки

&НаКлиенте
Процедура РезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка, ДополнительныеПараметры)
	
	Комментарий = ПолучитьКомментарийНаСервере(Расшифровка);
	
	СтандартнаяОбработка = Ложь;
	СтруктураДляЗаписи = ПолучитьРасшифровкуНаСервере(Расшифровка);	 
	
	Оповещение = Новый ОписаниеОповещения("ВводТекстаВПримечание", ЭтаФорма, Комментарий);
	ПоказатьВводСтроки(Оповещение, Комментарий, "Введите примечание", ,Истина); 

КонецПроцедуры

&НаКлиенте
Процедура ВводТекстаВПримечание(Результат, ТекущиеДанные) Экспорт

	Если не Результат = Неопределено Тогда
		ТекущиеДанные = Результат;
		СтруктураДляЗаписи.Вставить("Комментарий", Результат);
	КонецЕсли; 
	
	ЗаполнитьРегистр();

	//Что тут написать, чтобы пользователь видел только что написанный комментарий без пересформирования
	//PS с переформированием всё работает.
	
КонецПроцедуры

&НаСервере
Функция ПолучитьКомментарийНаСервере(Расшифровка)
	
	Данные = ПолучитьИзВременногоХранилища(ДанныеРасшифровки); 

	Комментарий   = Данные.Элементы.Получить(Расшифровка).ПолучитьПоля()[0].Значение; 
	
	Если Комментарий = Неопределено Тогда		
		Возврат Неопределено;	
	Иначе	
		Возврат Комментарий;	
	КонецЕсли;
	
КонецФункции

&НаСервере
Функция ПолучитьРасшифровкуНаСервере(Расшифровка)

	Данные = ПолучитьИзВременногоХранилища(ДанныеРасшифровки); 
	
	МояСтруктура = Новый Структура;
	
	МояСтруктура.Вставить("ДатаОкончания", Данные.Элементы.Получить(Расшифровка - 1).ПолучитьПоля()[0].Значение);
	МояСтруктура.Вставить("ДатаНачала"   , Данные.Элементы.Получить(Расшифровка - 2).ПолучитьПоля()[0].Значение);	
	МояСтруктура.Вставить("Номенклатура" , Данные.Элементы.Получить(Расшифровка - 3).ПолучитьПоля()[0].Значение);
	//МояСтруктура.Вставить("Контрагент"   , Данные.Элементы.Получить(Расшифровка - 4).ПолучитьПоля()[0].Значение);
	//МояСтруктура.Вставить("Менеджер"     , Данные.Элементы.Получить(Расшифровка - 5).ПолучитьПоля()[0].Значение);
	МояСтруктура.Вставить("ЗаказКлиента" , Данные.Элементы.Получить(Расшифровка + 1).ПолучитьПоля()[0].Значение);
	МояСтруктура.Вставить("КодСтроки"    , Данные.Элементы.Получить(Расшифровка + 2).ПолучитьПоля()[0].Значение);
	МояСтруктура.Вставить("КолМесяцев"   , Данные.Элементы.Получить(Расшифровка + 3).ПолучитьПоля()[0].Значение);
	МояСтруктура.Вставить("Продажа"      , Данные.Элементы.Получить(Расшифровка + 4).ПолучитьПоля()[0].Значение);
	
	Возврат МояСтруктура;
	
КонецФункции      

&НаСервере
Процедура ЗаполнитьРегистр();
	
	Запись = РегистрыСведений.СрокиДействияЛицензийИТС.СоздатьМенеджерЗаписи();  
	
	Запись.ЗаказКлиента = СтруктураДляЗаписи.ЗаказКлиента;
	Запись.Номенклатура = СтруктураДляЗаписи.Номенклатура;
	Запись.КодСтроки = СтруктураДляЗаписи.КодСтроки;
	Запись.КоличествоМесяцев = СтруктураДляЗаписи.КолМесяцев;
	Запись.ДатаНачала = СтруктураДляЗаписи.ДатаНачала;
	Запись.ДатаОкончания = СтруктураДляЗаписи.ДатаОкончания;
	Запись.ПродажаСовершена = СтруктураДляЗаписи.Продажа;
	Запись.Комментарий = СтруктураДляЗаписи.Комментарий;
	
    Запись.Записать();
	
КонецПроцедуры;