Index: zTryout/KCA/KenmerkenApi.cls.xml
===================================================================
diff -u -r56740 -r57192
--- zTryout/KCA/KenmerkenApi.cls.xml	(.../KenmerkenApi.cls.xml)	(revision 56740)
+++ zTryout/KCA/KenmerkenApi.cls.xml	(.../KenmerkenApi.cls.xml)	(revision 57192)
@@ -141,19 +141,23 @@
 	;Set ..IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
 
 	#dim PId As %String = ""
+	;Set PId = 2215120
 	For { Set PId = $Order(^WV.FixLbx(PId))  Quit:(PId="")
 		write !,PId
 		#dim lbPRec As %List = ^WV.FixLbx(PId)
 
 		// Output Data 
 		//Set ^WV.FixLbx(PId) = $LB(PId, ProdSpecId, KcaIKID, NieuweIkid, "", OudeCanonW, BerekendeCanonischeW, IngegevenKmID )
-
+		
+		;Continue:(PId'?1(1"2215132"))
+		
 		#dim ProdSpecId As %String = $LG(lbPRec,2)
 		#dim KcaIKID As %String = $LG(lbPRec,3)
 		#dim NieuweIkid As %String = $LG(lbPRec,4)
 		If ##class(DOM.PM.Maatwerk.Calc.Common.IKID).%ExistsId(NieuweIkid) {
 			w !,NieuweIkid
 			if (PId = 99992215132) {
+				;Break 
 				Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDService).%New().GeefIngegevenKenmerkenVoorIKIDID(NieuweIkid)
 				Do ..UpdateProductSpecificatie(ProdSpecId, NieuweIkid,IngegevenKenmerken)
 			}
@@ -163,7 +167,7 @@
 			
 		} Else {
 			w !, "Nieuwe IKID bestaat niet ! " _NieuweIkid
-			Break
+			;Break
 		}
 		
 
@@ -187,7 +191,8 @@
 	
 	If $IsObject(IngegevenKenmerken) {
 		#dim IkidHashId As %String = $P(NieuweIkid,"||",1)
-		;#dim sc As %Status = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%DeleteId(IkidHashId)
+		#dim sc As %Status = $$$OK
+		;Set:(##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%ExistsId(IkidHashId)) sc = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%DeleteId(IkidHashId)
 		;Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Delete van Ikid niet gelukt.")
 		;Do ProductSpecificatie.ZetIngegevenKenmerken(IngegevenKenmerken)
 		;Write !,"Nieuwe IkikId : " _ ProductSpecificatie.IKIDGetObjectId()