Код

//_____________________________________________________________________________
Функция глИзмененыРеквизиты(Конт)  Экспорт
	Вид = Конт.Вид();
	Если Конт.ДатаДок <> Конт.ТекущийДокумент().ДатаДок Тогда
	    Возврат 1;
	КонецЕсли;
	Для Н=1 По Метаданные.Документ(Вид).РеквизитШапки() Цикл
		Ид=Метаданные.Документ(Вид).РеквизитШапки(Н).Идентификатор;
		Если Конт.ПолучитьАтрибут(Ид)<>Конт.ТекущийДокумент().ПолучитьАтрибут(Ид) Тогда
			Возврат 1;
		КонецЕсли;
	КонецЦикла;
	Док = Конт.ТекущийДокумент();
	Если Док.КоличествоСтрок()<>Конт.КоличествоСтрок() Тогда
	    Возврат 1;
	КонецЕсли;
	Для Н=1 По Метаданные.Документ(Вид).РеквизитТабличнойЧасти() Цикл

		Конт.ВыбратьСтроки();
		Пока Конт.ПолучитьСтроку()=1 Цикл

			Док.ПолучитьСтрокуПоНомеру(Конт.НомерСтроки);

			Ид=Метаданные.Документ(Вид).РеквизитТабличнойЧасти(Н).Идентификатор;

			Если Конт.ПолучитьАтрибут(Ид)<>Док.ПолучитьАтрибут(Ид) Тогда
				Возврат 1;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	Возврат 0;
КонецФункции //глИзмененыРеквизиты


//_____________________________________________________________________________
Процедура глРегистрацияИзменений(Конт) Экспорт
	Если Конт.Выбран() = 0 Тогда
	    Возврат;
	КонецЕсли;
	Если глИзмененыРеквизиты(Конт) = 0 Тогда
		Возврат;
	КонецЕсли;
КонецПроцедуры //глРегистрацияИзменений(Конт)