Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r56083 -r57305
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 56083)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 57305)
@@ -4,6 +4,188 @@
 <IncludeCode>vhLib.Macro,Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="ConverteerTBX">
+<Description>
+d ##class(zTryout.WV.PM.Test).ConverteerTBX()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Kill ^WV.KenmerkConvert
+	
+	Set Convertor = ##class(APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor).%New()
+	Set IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
+	Set Vergelijker = ##class(zTryout.WV.PM.Test).%New()
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	
+	#dim PRNr,IngegevenKenmerken,ProductSpecificatie
+	#dim ErrorLijst,Familie,Variant,Status,ParsedStatus
+	#dim ProductSpecificatieID As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ""
+	#dim Product As DOM.PM.TBXProduct.TBXLade = ""
+	#dim Teller = 0
+	
+	Set PRNr = $Order(^KPR(""), -1)
+	While (PRNr '= "") && (Teller < 100000)
+	{
+		#dim MagProductVerwerken As %Boolean = $$$True
+		;Set MagProductVerwerken = (PRNr = 1722469)
+		
+		Set MagProductVerwerken = MagProductVerwerken && ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"),1) = "SY3")
+		
+		Set:(MagProductVerwerken) Product = ProductAPI.GeefProduct(PRNr)
+		Set MagProductVerwerken = MagProductVerwerken && (Product.%Extends("DOM.PM.TBXProduct.TBXLade")) && (Product.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) 
+		
+		If (MagProductVerwerken) {
+			Set ErrorLijst = ""
+			
+			Set ProductSpecificatie = ""
+			Set ProductSpecificatieID = $Piece($Get(^KPR(Product.GeefPRNr(),15)),"\",13)
+			
+			Set IngegevenKenmerken = ""
+			If ($$$HasLength(ProductSpecificatieID))
+			{
+				Set ProductSpecificatie = Product.GeefProductSpecificatie()  ;##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%OpenId(ProductSpecificatieID)
+				If ('$IsObject(ProductSpecificatie)) {
+					Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon ProductSpecificatie met ID "_ProductSpecificatieID_" niet openen voor product "_PRNr)
+				}
+				
+				#dim InitialKM As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = Product.GeefIngegevenKenmerken()
+				#dim InitialCanonischeWaarde As %String = IngegevenKenmerkenAPI.GeefCanonischeWaarde(InitialKM)
+			}
+			
+			Set IngegevenKenmerken = Convertor.Converteer(Product, .ErrorLijst)
+			Do ##class(TECH.Algo.Sort.MergeSort).Sort(IngegevenKenmerken.NietMeeleveren,##class(TECH.Comparator.StringComparator).%New())
+			
+			If (ErrorLijst.Count() > 0)
+			{
+				w "Probleem bij product "_PRNr_":",!
+				Set Iterator = ##class(TECH.ListIterator).%New(ErrorLijst)
+				While (Iterator.HasNext())
+				{
+					w Iterator.Next(),!
+				}
+			}
+
+			If (InitialCanonischeWaarde = IngegevenKenmerkenAPI.GeefCanonischeWaarde(IngegevenKenmerken)) {
+				Write !,PRNr_" : IngegevenKenmerken hebben dezelfde waarde als voorheen."
+			}
+			Else {
+	/*   * /
+				
+				#dim Verschil As %String = ..VergelijkObjecten(InitialKM, IngegevenKenmerken)
+				Set ^WV.KenmerkConvert(PRNr, "TEST", ProductSpecificatieID) = $LB(Verschil)
+				Set ^WV.KenmerkConvert("IdxVerschil", Verschil) = $G(^WV.KenmerkConvert("IdxVerschil", Verschil)) _ $LB(PRNr)
+				Set Teller = $Increment(^WV.KenmerkConvert)
+				
+				;Write !!,$$ObjToText^vhLib(InitialKM)
+				;Write !!,$$ObjToText^vhLib(IngegevenKenmerken)
+	/*  */
+				Set Status = IngegevenKenmerken.%ValidateObject()
+				If ($$$ISOK(Status))
+				{
+					Set Familie = Product.GeefFamilie()
+					Set Variant = Product.GeefVariant()
+					
+					Kill %ProdSpecInitialIkid
+					Kill %ProdSpecNewIkid
+					
+					If ($$$Not($IsObject(ProductSpecificatie))) {
+						Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, IngegevenKenmerken)
+					}
+					Else {
+						Do ProductSpecificatie.ZetIngegevenKenmerken(IngegevenKenmerken)
+					}
+					Do ProductSpecificatie.Annotaties.SetAt("De ingegeven kenmerken werden gegenereerd door conversie van het oude product","Gegenereerd door")
+					Set Status = ProductSpecificatie.%Save()
+					
+					Set Teller = $Increment(^WV.KenmerkConvert)
+					Set ^WV.KenmerkConvert(PRNr, (%ProdSpecNewIkid = %ProdSpecInitialIkid) , ProductSpecificatie.%Id()) = $LB(%ProdSpecInitialIkid, %ProdSpecNewIkid)
+					#dim Verschil As %String = Vergelijker.VergelijkTbxKenmerken(PRNr)
+					Set $LI(^WV.KenmerkConvert(PRNr, (%ProdSpecNewIkid = %ProdSpecInitialIkid) , ProductSpecificatie.%Id()),3) = Verschil
+					Set ^WV.KenmerkConvert("IdxVerschil", Verschil) = $G(^WV.KenmerkConvert("IdxVerschil", Verschil)) _ $LB(PRNr)
+					
+					Set ParsedStatus = $$ParseStatus^vhLib(Status)
+					If (ParsedStatus '= "")
+					{
+						w "Save gefaald voor "_PRNr_": "_ParsedStatus,!
+					}
+					Else
+					{
+						Set $Piece(^KPR(Product.GeefPRNr(),15),"\",13) = ProductSpecificatie.%Id()
+					}
+				}
+				Else
+				{
+					Set ParsedStatus = $$ParseStatus^vhLib(Status)
+					w "Kon IK niet opslaan voor "_PRNr_": "_ParsedStatus,!
+				}
+	/*	*/
+			}
+		}
+		Set PRNr = $Order(^KPR(PRNr),-1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VergelijkObjecten">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Object1:%RegisteredObject,Object2:%RegisteredObject</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ObjectDifferenciator = ##class(TECH.ObjectUtils.impl.Differenciator).%New()
+
+	#dim Verschil As %String = ""
+	#dim Verschillen As %ListOfDataTypes = ObjectDifferenciator.GetDifferences(Object1,Object2)
+	
+	If Verschillen.Count() {
+		Set Verschil = ##class(TECH.ListUtils).ListToPieces(Verschillen, ", ")
+	}
+	Quit Verschil
+]]></Implementation>
+</Method>
+
+<Method name="VergelijkTbxKenmerken">
+<Description>
+Oproepen via 
+  d ##class(zTryout.WV.PM.Test).%New().VergelijkTbxKenmerken(ProductId) </Description>
+<FormalSpec>ProductId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Verschil As %String = ""
+	// ^WV.KenmerkConvert(2108833,0,1661580)	= 	$lb("pVlxqzA+BNMRGtoVvPavOg==||1","EsLteSDUqsKlxDzpvrT+vA==||1")
+	If $D(^WV.KenmerkConvert(ProductId,0)) {
+		#dim ProdSpecId As %String = $O(^WV.KenmerkConvert(ProductId,0,""))
+		#dim InitialIkid As %String = $LG(^WV.KenmerkConvert(ProductId,0,ProdSpecId),1)
+		#dim NewIkid As %String = $LG(^WV.KenmerkConvert(ProductId,0,ProdSpecId),2)
+		Write !, InitialIkid_" - "_ NewIkid
+		
+		If ($$$HasLength(InitialIkid)) && ($$$HasLength(NewIkid)) {
+			Set IkidService = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDService).%New()
+			#dim InitialKM As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = IkidService.GeefIngegevenKenmerkenVoorIKIDID(InitialIkid)
+			#dim NewKM As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = IkidService.GeefIngegevenKenmerkenVoorIKIDID(NewIkid)
+			
+			Set Verschil = ..VergelijkObjecten(InitialKM,NewKM)
+			Write:($$$HasLength(Verschil)) " : "_Verschil
+		}
+	}
+	Quit Verschil
+]]></Implementation>
+</Method>
+
+<Method name="VergelijkTbxKenmerkenALL">
+<Description>
+Oproepen via 
+  d ##class(zTryout.WV.PM.Test).%New().VergelijkTbxKenmerkenALL() </Description>
+<Implementation><![CDATA[
+	#dim ProductId As %String = ""
+	For { 
+		Set ProductId = $Order(^WV.KenmerkConvert(ProductId))
+		Quit:(ProductId="")
+		Continue:($$$Not($D(^WV.KenmerkConvert(ProductId,0))))
+		
+		Do ..VergelijkTbxKenmerken(ProductId)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="IsRecentMaatwerkProduct">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>