Index: vhUnitTest/DOM/PM/TestData.cls.xml
===================================================================
diff -u -r1507 -r1619
--- vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 1507)
+++ vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 1619)
@@ -145,6 +145,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#define ProdKenmSetAt(%v,%k)   ##class(Prod.Kenmerk.DataDefinitie).Set("OL",UnID,%k,%v)
+	#define ProdKenmSetAtOEI(%v,%k)   ##class(Prod.Kenmerk.DataDefinitie).Set("OEI",UnID,%k,%v)
 
 	Set UnID = PRNr
 	Set:('$IsObject(..BLProdMulti)) ..BLProdMulti=##class(BL.Kenm.ProdMulti).Create("OL") 
@@ -675,7 +676,33 @@
 		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
 	}
 	
+	/// Product met OEI Kenmerken en OL Kenmerken
+	Elseif PRNr = "1024" {	
+		Do $$$ProdKenmSetAtOEI("LI","LiRe")
+		Do $$$ProdKenmSetAtOEI("LAH.M000S.BEUK.9","Sleutel")
+		
+		Do $$$ProdKenmSetAt("<ICT_PROD_24>","Sleutel")
+		Do $$$ProdKenmSetAt("<ICT_PROD_24>","InfoSleutel")
+		Do $$$ProdKenmSetAt("ICT_GrpKey24","GroepSleutel")
+		
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
+		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
+		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
+		Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing")
+		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
+		;
+		Do $$$ProdKenmSetAt("WOODLINE_Noot","ProductType")
+		Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie")
+		Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType")
+		;
+		Do $$$ProdKenmSetAt($LB(600),"Diepte")
+		Do $$$ProdKenmSetAt("900","LadeBreedteMin")
+		Do $$$ProdKenmSetAt("900","LadeBreedteMax")
+		Do $$$ProdKenmSetAt("40","ProductHoogte") 
+		Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten")
+	}
 	
+	
 	ElseIf PRNr="1099" {
 		Set UnID = "1099.1"
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)