Index: vhConsistency/Checks/DOM/VKP/Klant/LeverAdressen/UniekIdIndex.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/DOM/VKP/Klant/LeverAdressen/UniekIdIndex.cls.xml	(revision 0)
+++ vhConsistency/Checks/DOM/VKP/Klant/LeverAdressen/UniekIdIndex.cls.xml	(revision 53452)
@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhConsistency.Checks.DOM.VKP.Klant.LeverAdressen.UniekIdIndex">
+<Description>
+	Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.DOM.VKP.Klant.LeverAdressen.UniekIdIndex")</Description>
+<Super>vhConsistency.Check</Super>
+
+<Parameter name="HeeftAutomatischeDataCorrectie">
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	Set ..SkipCheck = $$$True
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VoerUitCheckVanuitKlanten()
+	
+	Do ..VoerUitCheckVanuitKKLAdresIIndex()
+	
+	Quit (..GeefAantalMeldingen()=0)
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitCheckVanuitKlanten">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantIterator As TECH.Iterator = ..VerkoopApi.GeefKlantIterator()
+	#dim LeveradresIterator As TECH.Iterator
+	#dim Klant As DOM.VKP.VanHoeckeKlant
+	#dim KlantId, LeveradresIndexKlantId As DOM.common.PartijID
+	#dim CacheLeveradres As DOM.VKP.LeverAdres
+	#dim BestaatLeveradresIndex As %Boolean
+	#dim CacheUniekId, CacheLeveradresId, CacheLeveradresNaam, AxLeveradresId, LeveradresIndexVolgnummer As %String
+	
+	While KlantIterator.HasNext() {
+		Set Klant = KlantIterator.Next()
+		Set KlantId = Klant.GeefID()
+		Set LeveradresIterator = Klant.GeefAdresIterator()
+		
+		While LeveradresIterator.HasNext() {
+			Set CacheLeveradres = LeveradresIterator.Next()
+			Set CacheUniekId = CacheLeveradres.GeefUniekId()
+			Set CacheLeveradresId = CacheLeveradres.GeefID()
+			Set CacheLeveradresNaam = CacheLeveradres.GeefNaam()
+			Set AxLeveradresId = CacheLeveradres.GeefAxLeveradresId()
+			Set BestaatLeveradresIndex = $Data(^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId))
+			
+			If BestaatLeveradresIndex {
+				Set LeveradresIndexKlantId = $Listget(^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId),1)
+				Set LeveradresIndexVolgnummer = $Listget(^KKL.AdresI("KlantId_AdresVolgNr",CacheUniekId),2)
+				
+				If $$$Not(LeveradresIndexKlantId = KlantId) {
+					Do ..CorrigeerFouteKlantIdInDataOpIndex(CacheUniekId, KlantId, LeveradresIndexVolgnummer, CacheLeveradresNaam, CacheLeveradresId, LeveradresIndexKlantId)
+				}
+				
+				If $$$Not(LeveradresIndexVolgnummer = CacheLeveradresId) {
+					Do ..CorrigeerFoutVolgnummerInDataOpIndex(CacheUniekId, LeveradresIndexKlantId, CacheLeveradresId, KlantId, CacheLeveradresNaam, LeveradresIndexVolgnummer)
+				}
+			} Else {
+				Do ..VoegToeOntbrekendeIndex(CacheUniekId, KlantId, CacheLeveradresId, CacheLeveradresNaam)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitCheckVanuitKKLAdresIIndex">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LeveradresIndexKlantId As DOM.common.PartijID
+	#dim LeveradresIndexVolgnummer As %String
+	#dim BestaatLeveradresInKKL As %Boolean
+	#dim Node As %String = ""
+	
+	While $$$HasLength($Order(^KKL.AdresI("KlantId_AdresVolgNr",Node))) {
+		Set Node = $Order(^KKL.AdresI("KlantId_AdresVolgNr",Node))
+		Set LeveradresIndexKlantId = $Listget(^KKL.AdresI("KlantId_AdresVolgNr",Node),1)
+		Set LeveradresIndexVolgnummer = $Listget(^KKL.AdresI("KlantId_AdresVolgNr",Node),2)
+		
+		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.")
+		} 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.")
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CorrigeerFouteKlantIdInDataOpIndex">
+<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_"'.")
+]]></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_"'.")
+]]></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_")'.")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>