Index: DOM/PM/Maatwerk/Calc/Common/impl/IKIDService/IKIDHashHerberekenaar.cls.xml
===================================================================
diff -u -r56735 -r56765
--- DOM/PM/Maatwerk/Calc/Common/impl/IKIDService/IKIDHashHerberekenaar.cls.xml	(.../IKIDHashHerberekenaar.cls.xml)	(revision 56735)
+++ DOM/PM/Maatwerk/Calc/Common/impl/IKIDService/IKIDHashHerberekenaar.cls.xml	(.../IKIDHashHerberekenaar.cls.xml)	(revision 56765)
@@ -23,6 +23,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IKIDHistoryRepository">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHistoryRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OudeHash">
 <Type>%String</Type>
 <Private>1</Private>
@@ -48,6 +58,9 @@
 	set ..IKIDHashDataRepository = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashDataRepository).%New()
 	set ..IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
 	set ..IKIDHashGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashGenerator).%New()
+	Set ..IKIDHistoryRepository = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHistoryRepository).%New()
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -150,6 +163,8 @@
 <FormalSpec>NieuweIKIDID:%String,OudeIKIDID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ..BewaarIKIDHistory(NieuweIKIDID, OudeIKIDID)
+	
 	#dim Query As %String 
 	#dim ResultSet As TECH.ResultSet 
 	
@@ -167,6 +182,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BewaarIKIDHistory">
+<FormalSpec>NieuweIKIDID:%String,OudeIKIDID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim HuidigeDatum As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+		#dim IKIDHistory As DOM.PM.Maatwerk.Calc.Common.impl.IKIDHistory = ..IKIDHistoryRepository.Maak(HuidigeDatum, OudeIKIDID, NieuweIKIDID)
+		Do ..IKIDHistoryRepository.Bewaar(IKIDHistory)
+	} Catch {
+
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Kon IKIDHistory niet bewaren voor oude IKID '" _OudeIKIDID_"' en nieuwe IKID '" _NieuweIKIDID_"'")
+		Do Exception.ZetInnerExcepties(##class(TECH.ExceptionHandler).Catch())
+		
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BerekenNieuweCanonischeWaardeEnNieuweHash">
 <FormalSpec>IKIDid:%String</FormalSpec>
 <Private>1</Private>