Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u -r56738 -r56739
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 56738)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 56739)
@@ -47,12 +47,70 @@
 	#dim IKIDHash As DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash = ..GeefIKIDHash(CanonischeWaarde)
 	#dim IKID As DOM.PM.Maatwerk.Calc.Common.IKID = IKIDHash.VoegToe(CanonischeWaarde,IngegevenKenmerken)
 	
-	Do IKIDHash.Save()
+	Try {
+		Do IKIDHash.Save()	
+
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do Exception.VoegToeExtraInfo(..GeefExtraInfoBijIkidHashSaveError(IngegevenKenmerken,CanonischeWaarde,IKIDHash))
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
 	
 	Quit IKID
 ]]></Implementation>
 </Method>
 
+<Method name="GeefExtraInfoBijIkidHashSaveError">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,CanonischeWaarde:%String,IKIDHash:DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InfoBijSaveError As %String = "Fout bij IkidHash Save() voor IngegevenKenmerken ID '" _ IngegevenKenmerken.GeefID()_ "'."
+	
+	Try {
+		Set InfoBijSaveError =  InfoBijSaveError _ $$$CRLF _ "Nieuwe Hash : '" _ IKIDHash.GeefHash() _ "'."
+		Set InfoBijSaveError =  InfoBijSaveError _ $$$CRLF _ "Nieuwe CanonischeWaarde : " _  $$$CRLF _ CanonischeWaarde
+		If $$$Not(IKIDHash.IKIDHashDatas.Count() = 1 ) {
+			Set InfoBijSaveError =  InfoBijSaveError _ $$$CRLF _ $$ObjToText^vhLib(IKIDHash)
+		}
+		Set InfoBijSaveError =  InfoBijSaveError _ $$$CRLF _ $$$CRLF
+		Set InfoBijSaveError =  InfoBijSaveError _ $$$CRLF _ "Reeds bestaande HashData voor IngegevenKenmerken : "
+		Set InfoBijSaveError =  InfoBijSaveError _ $$$CRLF _ ..GeefHashDataInfoVoorKenmerkenId(IngegevenKenmerken.GeefID())
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).LogExceptie(Exception)
+		Set InfoBijSaveError = InfoBijSaveError _ $$$CRLF _ "!! Error in method GeefExtraInfoBijIkidHashSaveError() : "_Exception.GeefOmschrijving()
+	}
+	
+	Quit InfoBijSaveError
+]]></Implementation>
+</Method>
+
+<Method name="GeefHashDataInfoVoorKenmerkenId">
+<FormalSpec>IngegevenKenmerkenId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim HashDataInfo As %String = ""
+
+	set IKIDHashDataRepository = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashDataRepository).%New()
+	#dim ResultSet As TECH.ResultSet = IKIDHashDataRepository.GeefHashDataResultSetVoorKenmerkenId(IngegevenKenmerkenId)
+	If ResultSet.Next() {
+		Set HashDataInfo = "IKIDHashData ID : '" _ (ResultSet.Data("ID")) _ "' - Hash ID : '" _ (ResultSet.Data("IKID")) _ "'."
+		Set HashDataInfo = HashDataInfo _ $$$CRLF _ "Oorspronkelijke CanonischeWaarde : " _  $$$CRLF _ (ResultSet.Data("CanonischeWaarde"))
+		If ResultSet.Next() {
+			Set HashDataInfo = HashDataInfo _ $$$CRLF _ "!!! Corrupte Tabel !!! Tweede IKIDHashData gevonden : ID '" _ (ResultSet.Get("ID")) _ "'."
+		}
+	}
+	Else {
+		Set HashDataInfo = "Geen data gevonden voor IngegevenKenmerken ID '" _ IngegevenKenmerkenId_ "'"
+	}
+	Do ResultSet.Close()
+	Set ResultSet = ""
+	
+	Quit HashDataInfo
+]]></Implementation>
+</Method>
+
 <Method name="IsMatUit3of5Stukken">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>