Index: zTryout/KCA/KenmerkenApi.cls.xml
===================================================================
diff -u
--- zTryout/KCA/KenmerkenApi.cls.xml	(revision 0)
+++ zTryout/KCA/KenmerkenApi.cls.xml	(revision 56740)
@@ -0,0 +1,208 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.KenmerkenApi">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="IngegevenKenmerkenAPI">
+<Type>DOM.PM.impl.IngegevenKenmerkenAPIimpl</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ExportLegraboxSifon">
+<Description>
+Do ##class(zTryout.KCA.KenmerkenApi).ExportLegraboxSifon()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	
+	#dim Query As %String = ""
+	Set Query = "select %NOLOCK P.ID, P.ProductSpecificatieID, PS.IKID as PSIKID "_
+	" from Prod.Product P "_
+	" join DOM_PM_impl.AdministratiefProduct AP on P.ID = AP.ID"_
+	" left join DOM_PM_Maatwerk_Calc_Common.ProductSpecificatie As PS on PS.ID = P.ProductSpecificatieID"_
+	" left join DOM_PM_Maatwerk_Calc_Common_impl.IKIDHashData HD on HD.IKID = PS.IKID"_
+	" left join DOM_PM_Maatwerk_Calc_Common_impl.LBXKenmerkenv01 As IK on IK.ID = HD.IngegevenKenmerken"_
+	" where AP.KortTekst like 'LB%' "_
+	" AND IK.ID IS NULL"_
+	" AND HD.Canonischewaarde is NULL  and P.ID > 1890000"
+	#dim Params As %List = $ListBuild()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetDynamicResultSet(Query, Params)
+	
+	
+	Kill ^KCA.FixLbx
+	While ResultSet.Next() {
+		Set ^KCA.FixLbx(ResultSet.GetData(1)) = $LB(ResultSet.GetData(1),ResultSet.GetData(2),ResultSet.GetData(3) )
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BuildFixDataLegraboxSifon">
+<Description>
+Do ##class(zTryout.KCA.KenmerkenApi).%New().BuildFixDataLegraboxSifon()</Description>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
+
+	#dim PId As %String = ""
+	For { Set PId = $Order(^KCA.FixLbx(PId))  Quit:(PId="")
+		write !,PId
+		#dim lbPRec As %List = ^KCA.FixLbx(PId)
+		#dim ProdSpecId As %String = $LG(lbPRec,2)
+		#dim KcaIKID As %String = $LG(lbPRec,3)
+		#dim OudeCanonW As %String = ""
+		#dim BerekendeCanonischeW As %String = ""
+		#dim NieuweIkidHash As %String = ""
+		#dim NieuweIkid As %String = ""
+		#dim IngegevenKmID As %String = ""
+		
+		Do ..MatchIkidsLegraboxSifon(PId, ProdSpecId, KcaIKID, .OudeCanonW, .IngegevenKmID)
+		
+		// IK openen + CanW berekenen 
+		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%OpenId(IngegevenKmID)
+		Set BerekendeCanonischeW = ..IngegevenKenmerkenAPI.GeefCanonischeWaarde(IngegevenKenmerken)
+		Set NieuweIkidHash = ..IngegevenKenmerkenAPI.GeefHash(IngegevenKenmerken)
+		Set NieuweIkid = NieuweIkidHash _ "||1"
+		
+		// Controle consistente data CanonischeW 
+		Write !,$G(BerekendeCanonischeW)
+		If (BerekendeCanonischeW = OudeCanonW) {
+			Write !,"Error : CanonischeW's zijn gelijk !!! " , !, OudeCanonW, !, BerekendeCanonischeW
+			Break
+		}
+		ElseIf ($P(OudeCanonW,"/",1) [ "Dubbel") {
+			If ($P(BerekendeCanonischeW,"/",1,3) '= $P(OudeCanonW,"/",1,3)) {
+				Write !,"Error : CanonischeW's komen NIET overeen bij Dubbele uitsparing " , !, OudeCanonW, !, BerekendeCanonischeW
+				Break
+			}
+		}
+		ElseIf $$$Not(OudeCanonW [ BerekendeCanonischeW) {
+			Write !,"Error : CanonischeW's komen NIET overeen " , !, OudeCanonW, !, BerekendeCanonischeW
+			Break
+		}
+		
+		Write !,NieuweIkidHash
+		
+		// Output Data 
+		Set ^WV.FixLbx(PId) = $LB(PId, ProdSpecId, KcaIKID, NieuweIkid, "", OudeCanonW, BerekendeCanonischeW, IngegevenKmID )
+
+		Write !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MatchIkidsLegraboxSifon">
+<FormalSpec><![CDATA[PId:%String,ProdSpecId:%String,KcaIKID:%String,&OudeCanonW:%String,&IngegevenKmID:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	
+	#dim Query As %String = ""
+	Set Query = "select P.ProductSpecificatieID, PS.IKID as OudeIKID, HD.CanonischeWaarde AS OudeCanonW, HD.IngegevenKenmerken As IngegevenKmID, PS.FAMILIE, HD.IKID as HDIKID,  P.KortTekst"_
+	" from Prod.Product P "_
+ ;	" join DOM_PM_impl.AdministratiefProduct AP on P.ID = AP.ID"_
+	" left join DOM_PM_Maatwerk_Calc_Common.ProductSpecificatie As PS on PS.ID = P.ProductSpecificatieID"_
+	" left join DOM_PM_Maatwerk_Calc_Common_impl.IKIDHashData HD on HD.IKID = PS.IKID"_
+ ;	" left join DOM_PM_Maatwerk_Calc_Common_impl.LBXKenmerkenv01 As IK on IK.ID = HD.IngegevenKenmerken"_
+	" where P.ID = ?"
+	#dim Params As %List = $ListBuild(PId)
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetDynamicResultSet(Query, Params)
+	
+	If ResultSet.Next() {
+		;Set ^KCA.FixLbx(ResultSet.GetData(1)) = $LB(ResultSet.GetData(1),ResultSet.GetData(2),ResultSet.GetData(3) )
+		#dim WimProdSpecId As %String = ResultSet.GetData(1)
+		#dim WimIKID As %String = ResultSet.GetData(2)
+		Set OudeCanonW = ResultSet.GetData(3)
+		Set IngegevenKmID = ResultSet.GetData(4)
+		
+		// Controle consistente data 
+		If $$$Not(ProdSpecId = WimProdSpecId) {
+			Write !,"Error : ProdSpecId's komen niet overeen " _ ProdSpecId _ " "_WimProdSpecId
+			Break
+		}
+		If $$$Not(KcaIKID = WimIKID) {
+			Write !,"Error : IKID's komen niet overeen " _ KcaIKID _ " "_WimIKID
+			Break
+		}
+	}
+	Else {
+		Write !,"Error : Geen records gevonden"
+		Break
+	}
+	
+	If ResultSet.Next() {
+		Write !,"Error : Meerdere records gevonden"
+		Break		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="UpdateLegraboxSifonIKID">
+<Description>
+Do ##class(zTryout.KCA.KenmerkenApi).%New().UpdateLegraboxSifonIKID()</Description>
+<Implementation><![CDATA[
+	;Set ..IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
+
+	#dim PId As %String = ""
+	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 )
+
+		#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) {
+				Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDService).%New().GeefIngegevenKenmerkenVoorIKIDID(NieuweIkid)
+				Do ..UpdateProductSpecificatie(ProdSpecId, NieuweIkid,IngegevenKenmerken)
+			}
+			Else {
+				Do ..UpdateProductSpecificatie(ProdSpecId, NieuweIkid,"")
+			}
+			
+		} Else {
+			w !, "Nieuwe IKID bestaat niet ! " _NieuweIkid
+			Break
+		}
+		
+
+	/*		
+		#dim OudeCanonW As %String = ""
+		#dim BerekendeCanonischeW As %String = ""
+		#dim NieuweIkidHash As %String = ""
+		
+		#dim IngegevenKmID As %String = ""
+	*/
+
+	}
+]]></Implementation>
+</Method>
+
+<Method name="UpdateProductSpecificatie">
+<FormalSpec>ProdSpecId:%String,NieuweIkid:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).OpenId(ProdSpecId)
+	
+	If $IsObject(IngegevenKenmerken) {
+		#dim IkidHashId As %String = $P(NieuweIkid,"||",1)
+		;#dim sc As %Status = ##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()
+		Write !,"Nog niks aanpast. Huidige IkikId : " _ ProductSpecificatie.IKIDGetObjectId()
+	}
+	Else {
+		Do ProductSpecificatie.IKIDSetObjectId(NieuweIkid)
+	}
+	
+	Do ProductSpecificatie.Save()
+	
+	w !, "Saved ProductSpecificatie " _ProdSpecId _" met IKID " _NieuweIkid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>