Index: vhConsistency/Checks/DOM/VKP/Klant/LeverAdressen/UniekIdIndex.cls.xml
===================================================================
diff -u -r53452 -r53482
--- vhConsistency/Checks/DOM/VKP/Klant/LeverAdressen/UniekIdIndex.cls.xml	(.../UniekIdIndex.cls.xml)	(revision 53452)
+++ vhConsistency/Checks/DOM/VKP/Klant/LeverAdressen/UniekIdIndex.cls.xml	(.../UniekIdIndex.cls.xml)	(revision 53482)
@@ -24,7 +24,6 @@
 <Implementation><![CDATA[
 	Do ##super()
 	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
-	Set ..SkipCheck = $$$True
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -99,12 +98,12 @@
 		
 		If $$$Not(..VerkoopApi.BestaatKlant(LeveradresIndexKlantId)) {
 			Kill ^KKL.AdresI("KlantId_AdresVolgNr",Node)
-			Do ..VoegMeldingToe("De data '"_LeveradresIndexKlantId_","_LeveradresIndexVolgnummer_"' in de UniekIdIndex '^KKL.AdresI(""KlantId_AdresVolgNr"","_Node_")' gebruikend => Deze klant bestaat niet! De index werd opgekuist.")
+			Do ..VoegMeldingToe("De data '"_LeveradresIndexKlantId_","_LeveradresIndexVolgnummer_"' in de UniekIdIndex '"_$Name(^KKL.AdresI("KlantId_AdresVolgNr",Node))_"' gebruikend => Deze klant bestaat niet! De index werd opgekuist.")
 		} Else {
 			Set BestaatLeveradresInKKL = $Data(^KKL(^KK1($Extract(LeveradresIndexKlantId,4,99)),"L"_##class(TECH.StringUtils).AlignRight(LeveradresIndexVolgnummer," ",3)))
 			If $$$Not(BestaatLeveradresInKKL) {
 				Kill ^KKL.AdresI("KlantId_AdresVolgNr",Node)
-				Do ..VoegMeldingToe("De data '"_LeveradresIndexKlantId_","_LeveradresIndexVolgnummer_"' in de UniekIdIndex '^KKL.AdresI(""KlantId_AdresVolgNr"","_Node_")' gebruikend werd geen overeenkomstig leveradres gevonden in de KKL. De index werd opgekuist.")
+				Do ..VoegMeldingToe("De data '"_LeveradresIndexKlantId_","_LeveradresIndexVolgnummer_"' in de UniekIdIndex '"_$Name(^KKL.AdresI("KlantId_AdresVolgNr",Node))_"' gebruikend werd geen overeenkomstig leveradres gevonden in de KKL. De index werd opgekuist.")
 			}
 		}
 	}
@@ -115,26 +114,26 @@
 <FormalSpec>CacheUniekId:%String,KlantId:DOM.common.PartijID,LeveradresIndexVolgnummer:%String,CacheLeveradresNaam:%String,CacheLeveradresId:%String,LeveradresIndexKlantId:DOM.common.PartijID</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId) = $lb(""_KlantId_"",""_LeveradresIndexVolgnummer_"")
-	Do ..VoegMeldingToe("Voor '"_KlantId_"' is er voor leveradres '"_CacheLeveradresNaam_"' met ID '"_CacheLeveradresId_"' volgens UniekId '"_CacheUniekId_"' in de data op '^KKL.AdresI(""KlantId_AdresVolgNr"","_CacheUniekId_")' een foute KlantId verbeterd. Er stond Id '"_LeveradresIndexKlantId_"'.")
+	Set ^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId) = $lb(KlantId,LeveradresIndexVolgnummer)
+	Do ..VoegMeldingToe("Voor '"_KlantId_"' is er voor leveradres '"_CacheLeveradresNaam_"' met ID '"_CacheLeveradresId_"' volgens UniekId '"_CacheUniekId_"' in de data op '"_$Name(^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId))_"' een foute KlantId verbeterd. Er stond Id '"_LeveradresIndexKlantId_"'.")
 ]]></Implementation>
 </Method>
 
 <Method name="CorrigeerFoutVolgnummerInDataOpIndex">
 <FormalSpec>CacheUniekId:%String,LeveradresIndexKlantId:DOM.common.PartijID,CacheLeveradresId:%String,KlantId:DOM.common.PartijID,CacheLeveradresNaam:%String,LeveradresIndexVolgnummer:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId) = $lb(""_LeveradresIndexKlantId_"",""_CacheLeveradresId_"")
-	Do ..VoegMeldingToe("Voor '"_KlantId_"' is er voor leveradres '"_CacheLeveradresNaam_"' met ID '"_CacheLeveradresId_"' volgens UniekId '"_CacheUniekId_"' in de data op '^KKL.AdresI(""KlantId_AdresVolgNr"","_CacheUniekId_")' een fout Volgnummer verbeterd. Er stond Id '"_LeveradresIndexVolgnummer_"'.")
+	Set ^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId) = $lb(LeveradresIndexKlantId,CacheLeveradresId)
+	Do ..VoegMeldingToe("Voor '"_KlantId_"' is er voor leveradres '"_CacheLeveradresNaam_"' met ID '"_CacheLeveradresId_"' volgens UniekId '"_CacheUniekId_"' in de data op '"_$Name(^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId))_"' een fout Volgnummer verbeterd. Er stond Id '"_LeveradresIndexVolgnummer_"'.")
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeOntbrekendeIndex">
 <FormalSpec>CacheUniekId:%String,KlantId:DOM.common.PartijID,CacheLeveradresId:%String,CacheLeveradresNaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId) = $lb(""_KlantId_"",""_CacheLeveradresId_"")
-	Do ..VoegMeldingToe("Voor '"_KlantId_"' is er voor leveradres '"_CacheLeveradresNaam_"' met ID '"_CacheLeveradresId_"' volgens UniekId '"_CacheUniekId_"' een ontbrekende index toegevoegd, nml. '^KKL.AdresI(""KlantId_AdresVolgNr"","_CacheUniekId_")'.")
+	Set ^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId) = $lb(KlantId,CacheLeveradresId)
+	Do ..VoegMeldingToe("Voor '"_KlantId_"' is er voor leveradres '"_CacheLeveradresNaam_"' met ID '"_CacheLeveradresId_"' volgens UniekId '"_CacheUniekId_"' een ontbrekende index toegevoegd, nml. '"_$Name(^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId))_"'.")
 ]]></Implementation>
 </Method>
 </Class>