Index: vhPowerTools/DOM/PM/Maatwerk/Calc/Common/IKIDService.cls.xml
===================================================================
diff -u -r38648 -r56614
--- vhPowerTools/DOM/PM/Maatwerk/Calc/Common/IKIDService.cls.xml	(.../IKIDService.cls.xml)	(revision 38648)
+++ vhPowerTools/DOM/PM/Maatwerk/Calc/Common/IKIDService.cls.xml	(.../IKIDService.cls.xml)	(revision 56614)
@@ -68,146 +68,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="VeranderHash">
-<FormalSpec>OudeHash:%String,OudVolgNr:%Integer,VraagBevestiging:%Boolean=1,Verwijder:%Boolean=0</FormalSpec>
-<Implementation><![CDATA[
-	do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalUsageException).%New("Deze mag niet meer gebruikt worden.. check svn revisie om nieuwe klasse te vinden"))
-	
-	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-	Try { 
-		#dim OudeIKIDID As %String = OudeHash_"||"_OudVolgNr	
-		#dim OudeIKIDtmp As DOM.PM.Maatwerk.Calc.Common.IKID = ##class(DOM.PM.Maatwerk.Calc.Common.IKID).OpenId(OudeIKIDID)
-		
-		Set IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
-		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = IngegevenKenmerkenAPI.GeefIngegevenKenmerken(OudeIKIDtmp)
-		#dim CanonischeWaarde As %String = ..GeefCanonischeWaarde(IngegevenKenmerken)
-		Set OudeIKIDtmp = ""
-	
-		#dim TijdelijkeIKIDHash As DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash = ..GeefIKIDHash(CanonischeWaarde)
-		#dim NieuweHash As %String = TijdelijkeIKIDHash.GeefHash()
-		#dim NieuwVolgNr As %Integer = 1
-		#dim NieuweIKIDID As %String = NieuweHash_"||"_NieuwVolgNr
-		Set TijdelijkeIKIDHash = ""
-	
-		#dim Doorvoeren As %String
-		Write !,"Vervang IKID '"_OudeIKIDID_"' door nieuwe IKID '"_NieuweIKIDID_"'."
-		Write !!,"Nieuwe Canonische waarde : ",!,CanonischeWaarde
-		If VraagBevestiging {
-			Write !!,"Bent u zeker ? (J/N)",$C(9)
-			Read Doorvoeren
-		}
-		Else {
-			Set Doorvoeren = "J"
-		}
-		If ##class(TECH.StringUtils).ToUpper(Doorvoeren) = "J" {	
-			#dim IKIDHashDataID As %String
-			#dim Query As %String = "SELECT ID from DOM_PM_Maatwerk_Calc_Common_impl.IKIDHashData where IKID = ?"
-			#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(OudeIKIDID))
-			If ResultSet.Next() {
-				Set IKIDHashDataID = ResultSet.Data("ID")
-			}Else{
-				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Oude IKID '"_OudeIKIDID_"' niet gevonden."))
-			}	
-			
-			#dim IKIDHashData As DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData).OpenId(IKIDHashDataID)
-			
-			Set OudeIKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(OudeHash)
-			#dim IKIDHash As DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash = OudeIKIDHash.%ConstructClone(1)			
-			Do IKIDHash.ZetHashEnkelViaTerminal(NieuweHash)
-			Set IKIDHash.IKIDHashDatas = OudeIKIDHash.IKIDHashDatas
-			
-			Set Query = "DELETE DOM_PM_Maatwerk_Calc_Common_impl.IKIDHash WHERE ID = ?"
-			Do ExecDynQuery^vhLib.Query(Query,$LB(OudeHash))
-			
-			Do ##class(DOM.PM.Maatwerk.Calc.Common.IKID).DeleteId(OudeIKIDID)
-			
-			Do IKIDHash.Save()
-			
-			Set NieuweIKID = ##class(DOM.PM.Maatwerk.Calc.Common.IKID).%New(NieuweHash,NieuwVolgNr)
-			Do NieuweIKID.Save()
-			
-			Do IKIDHashData.ZetIKIDEnkelViaTerminal(NieuweIKID)
-			Do IKIDHashData.ZetCanonischeWaardeEnkelViaTerminal(CanonischeWaarde)			
-			Do IKIDHashData.Save()		
-			
-			Set Query = "UPDATE DOM_EC_Winkelkar.MaatwerkLijn SET IKID = ? where IKID = ?"
-			Do ExecDynQuery^vhLib.Query(Query,$LB(NieuweIKIDID,OudeIKIDID))
-			
-			Set Query = "UPDATE APPS_VKP_Maatwerk_impl.BewaardeKenmerken SET IKID = ? where IKID = ?"
-			Do ExecDynQuery^vhLib.Query(Query,$LB(NieuweIKIDID,OudeIKIDID))
-			
-			Set Query = "UPDATE DOM_PM_Maatwerk_Calc_Common.ProductSpecificatie SET IKID = ? where IKID = ?"
-			Do ExecDynQuery^vhLib.Query(Query,$LB(NieuweIKIDID,OudeIKIDID))
-			
-			Set IngegevenKenmerken = IngegevenKenmerkenAPI.GeefIngegevenKenmerken(NieuweIKID)
-			#dim IngegevenKenmerkenID As %String = IngegevenKenmerken.GeefID()
-			
-			Write !!,"Aanpassing is gedaan.",!
-			Write !!
-			If VraagBevestiging {
-				Do ##class(zTryout.FM.DOM.PM.Maatwerk.IKIDTools).Main(IngegevenKenmerkenID)
-			}
-			
-			Do OperatieScope.Gelukt()
-		}Else{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geannuleerd door de gebruiker"))
-		}
-	}Catch{
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do OperatieScope.Gefaald()
-		Write !!,"Niet gelukt, wijzigingen ongedaan gemaakt.",!
-		Write !,Exception.ToString()
-		Write !,Exception.GeefStack()
-		
-		If Verwijder && (Exception.ToString()["ID key not unique for extent") {
-			Do ..Verwijder(OudeIKIDID, OudeHash)	
-		}
-	}
-]]></Implementation>
-</Method>
-
-<Method name="Verwijder">
-<FormalSpec>OudeIKIDID:%String,OudeHash:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim IKIDHashDataID As %String
-	#dim Query As %String = "SELECT ID from DOM_PM_Maatwerk_Calc_Common_impl.IKIDHashData where IKID = ?"
-	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(OudeIKIDID))
-	If ResultSet.Next() {
-		Set IKIDHashDataID = ResultSet.Data("ID")
-		Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHashData).DeleteId(IKIDHashDataID)		
-		
-		Set Query = "DELETE DOM_PM_Maatwerk_Calc_Common_impl.IKIDHash WHERE ID = ?"
-		Do ExecDynQuery^vhLib.Query(Query,$LB(OudeHash))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="GeefCanonischeWaarde">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
-	Quit IKCanonischeWaardeGenerator.GeefCanonischeWaarde(IngegevenKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="GeefIKIDHash">
-<FormalSpec>CanonischeWaarde:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash</ReturnType>
-<Implementation><![CDATA[
-	Set Hash = $System.Encryption.Base64Encode($System.Encryption.MD5Encode(CanonischeWaarde))
-	Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(Hash)
-	If ('$IsObject(IKIDHash))
-	{
-		Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%New(Hash)
-	}
-	Quit IKIDHash
-]]></Implementation>
-</Method>
 </Class>