Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r61232 -r61416
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 61232)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 61416)
@@ -20,6 +20,9 @@
 	ElseIf $$$StartsWith(Variant,"TBX") {
 		Set IngegevenKenmerken = ..GeefKenmerkenTBX(ProductId)
 		;Write !," **** "_$$ObjToText^vhLib(GeconverteerdeKenmerken.LegacyKenmerken)
+		Write !!
+		ZWrite ^Prod.Ken.DataDefinitieD(ProductId)
+		Write !!
 	}
 	Else {
 		Write !!,"Product is "_Variant_" --> unimplemented",!
@@ -69,9 +72,9 @@
 	While (PRNr '= "") && (Teller < 100000)
 	{
 		#dim MagProductVerwerken As %Boolean = $$$True
-		;Set MagProductVerwerken = (PRNr = 1722469)
+		;Set MagProductVerwerken = (PRNr = 1439272)
 		
-		Set MagProductVerwerken = MagProductVerwerken && ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"),1) = "SY3")
+		Set MagProductVerwerken = MagProductVerwerken && ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"),1) '= "")
 		
 		Set:(MagProductVerwerken) Product = ProductAPI.GeefProduct(PRNr)
 		Set MagProductVerwerken = MagProductVerwerken && (Product.%Extends("DOM.PM.TBXProduct.TBXLade")) && (Product.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) 
@@ -113,19 +116,22 @@
 				Write !,PRNr_" : IngegevenKenmerken hebben dezelfde waarde als voorheen."
 			}
 			Else {
+	/*   * /
 				Set:($IsObject(InitialKM)) Verschil = ..VergelijkObjecten(InitialKM, IngegevenKenmerken)
 				Set:(Verschil = "") Verschil = "-"
 				Set:(Verschil [ "GUIKenmerken.CorpusBreedte") Verschil = "-"
-				
-	/*   * /
-				#dim VoegToeIndex As %Boolean = (Verschil '= "-") || ($LL($G(^WV.KenmerkConvert("IdxVerschil", "-"))) < 100)
 				Set ^WV.KenmerkConvert(PRNr, "TEST", $$$If($$$HasLength(ProductSpecificatieID),ProductSpecificatieID,"-")) = $LB(Verschil)
-				Set:(VoegToeIndex) ^WV.KenmerkConvert("IdxVerschil", Verschil) = $G(^WV.KenmerkConvert("IdxVerschil", Verschil)) _ $LB(PRNr)
+				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:($IsObject(InitialKM)) Verschil = ..VergelijkObjecten(InitialKM, IngegevenKenmerken)
+				Set:(Verschil = "") Verschil = "-"
+				Set:(Verschil [ "GUIKenmerken.CorpusBreedte") Verschil = "-"
+
 				Set Status = IngegevenKenmerken.%ValidateObject()
 				If ($$$ISOK(Status)) && (Verschil '= "-")
 				{