s result=##class(%ResultSet).%New("%DynamicQuery:SQL")
		s sc=result.Prepare("SELECT Name FROM %Dictionary.CompiledProperty WHERE parent->Name = '"_..%ClassName(1)_"' AND Storable=1")
		s sc=result.Execute()
		while result.Next(.sc) {
			s OldValue = $zobjmethod(%this,result.Data("Name")_"GetStored",..%Id())
			s NewValue = $zobjproperty(%this,result.Data("Name"))
			s:$ISOBJECT(NewValue) NewValue = NewValue.%Id()
			if OldValue'=NewValue {
				// Для каждого измененного хранимого свойства пишем историю
				s HistoryElement = ##class(admin.HistoryElement).%New()
				s HistoryElement.History = History
				s HistoryElement.PropertyName = result.Data("Name")
				s HistoryElement.OldValue = OldValue
				s HistoryElement.NewValue = NewValue
				d HistoryElement.%Save()
				d HistoryElement.%Close()
				k HistoryElement
			}
		}