Фиксация изменений документа в регистре сведений

&НаСервере
Процедура ПолучитьТаблицуРазличий()
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	               |	ТЗ_Товары.Номенклатура КАК Номенклатура,
	               |	ТЗ_Товары.Количество КАК Количество
	               |ПОМЕСТИТЬ ВТ_Товары
	               |ИЗ
	               |	&ТЗ_Товары КАК ТЗ_Товары
	               |;
	               |
	               |////////////////////////////////////////////////////////////­////////////////////
	               |ВЫБРАТЬ
	               |	""Добавили в документ"" КАК ЧтоСделали,
	               |	ВТ_Товары.Номенклатура КАК Номенклатура,
	               |	ВТ_Товары.Количество КАК Количество
	               |ИЗ
	               |	ВТ_Товары КАК ВТ_Товары
	               |		ЛЕВОЕ СОЕДИНЕНИЕ Документ.Реализация.Товары КАК РеализацияТовары
	               |		ПО (&Ссылка = РеализацияТовары.Ссылка)
	               |			И ВТ_Товары.Номенклатура = РеализацияТовары.Номенклатура
	               |			И ВТ_Товары.Количество = РеализацияТовары.Количество
	               |ГДЕ
	               |	РеализацияТовары.Ссылка ЕСТЬ NULL
	               |
	               |ОБЪЕДИНИТЬ ВСЕ
	               |
	               |ВЫБРАТЬ
	               |	""Убрали из документа"",
	               |	РеализацияТовары.Номенклатура,
	               |	РеализацияТовары.Количество
	               |ИЗ
	               |	Документ.Реализация.Товары КАК РеализацияТовары
	               |		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_Товары КАК ВТ_Товары
	               |		ПО РеализацияТовары.Номенклатура = ВТ_Товары.Номенклатура
	               |			И РеализацияТовары.Количество = ВТ_Товары.Количество
	               |ГДЕ
	               |	ВТ_Товары.Номенклатура ЕСТЬ NULL
	               |	И РеализацияТовары.Ссылка = &Ссылка";
	
	Запрос.УстановитьПараметр("ТЗ_Товары", Объект.Товары.Выгрузить());
	Запрос.УстановитьПараметр("Ссылка", Объект.Ссылка);
	
	ТЗ_Различий = Запрос.Выполнить().Выгрузить();
	
	Для Каждого Строка из ТЗ_Различий Цикл
		ТекстСообщения = "";
		Для Каждого Колонка из ТЗ_Различий.Колонки Цикл
			ТекстСообщения = ТекстСообщения + Колонка.Имя + ": " + Строка[Колонка.Имя] + ", ";
		КонецЦикла;
		
		Сообщить(Лев(ТекстСообщения, СтрДлина(ТекстСообщения) - 2));
	КонецЦикла
КонецПроцедуры

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
	ПолучитьТаблицуРазличий();
КонецПроцедуры