Index: vhUnitTest/DOM/PM/TestData.cls.xml
===================================================================
diff -u -r29059 -r31293
--- vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 31293)
@@ -38,6 +38,9 @@
 	#dim PRNr,Nr,Node As %Integer
 	#dim KortTekst As %String
 	
+	Set ^KLAS("K",1) = "2\13\2\\OL\ABK\\837\\Antislipmatten Basis Badkamer\\1\1009"
+	Set ^KLAS("K",2) = "3\13\2\1\OL\ABK\ABG/OL\837\1\Antislipmatten Badkamer grijs\.58\1\1009\E\\\.44\\\\1"
+	
 	for PRNr = PRNrStart:1:PRNrStop {  
 		Set Nr = $translate($justify(PRNr - PRNrStart,2)," ",0)
 	    for Node=1:1:5 set ^KPR(PRNr,Node)="\"
@@ -47,24 +50,24 @@
 	    /// Kortteksten voor Auto's en masters instellen
 	    If (PRNr = 1018){ /// MASTER (vb PRNr : 579562 )
 			Set KortTekst = "OL.AO401018UNITTEST\TEST PRODUCT "_Nr
-			Set ^KPR(1018,"I1")="15OL \15OL25ABK \15OL25ABK01ABG/OL \1299\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+			Set ^KPR(1018,"I1")="15OL \15OL25ABK \15OL25ABK01ABG/OL \2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
 			Set $P(^KPR(1018,1),"\",18) = ##class(DOM.VKP.enu.PrijsCodex).Rabat()
 			Set $P(^KPR(1018,1),"\",19) = ##class(DOM.VKP.enu.PrijsCodex).Basis()
 			Set LeverancierNr = 6502
 			Set GenerischProduct = "GenerischProductID"
 		}ElseIf (PRNr = 1019){ /// AUTO (vb PRNr : 579149 )
 			Set KortTekst = "OL.AO271016UNITTEST\TEST PRODUCT "_Nr  
-			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \1299\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
 			Set LeverancierNr = 6502
 		}ElseIf (PRNr = 1020){ /// AUTO (vb PRNr : 579246 )
 			Set KortTekst = "OL.AO271018UNITTEST\TEST PRODUCT "_Nr  
-			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \1299\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
 		}ElseIf (PRNr = 1021){ /// AUTO (vb PRNr : 579539 )
 			Set KortTekst = "OL.AO402716UNITTEST\TEST PRODUCT "_Nr  
-			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \1299\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
 		}ElseIf (PRNr = 1030){
 			Set KortTekst = "TBX.HK0008 900X900   WAWI\Hoekkast 900x900\\\8\\226.67\C#C\\703100\met 3 lage en 1 hoge laden\\\\\\\6\2.6153\\\\\\\\\62339"
-			Set ^KPR(PRNr,"I1") = "05LA \05LA01MON \05LA01MON08THK/HA \1198\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+			Set ^KPR(PRNr,"I1") = "05LA \05LA01MON \05LA01MON08THK/HA \2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
 			Set GenerischProduct = "1021"
 		}ElseIf (PRNr = 1032){
 			Set KortTekst = "TA.V ORBANDVILTBAND OR\Vilt band op lengte \\\8\\100.0000\C#C\\\16000mm incl 8 viltclips Alu\\\0\\\\6\61.2000\\\\S\\\\\"
@@ -156,6 +159,9 @@
 <Implementation><![CDATA[
 	do ##class(vhLib.OldSchool).InitVars()
 	
+	Kill ^KLAS("K",1)
+	Kill ^KLAS("K",2)
+	
 	#dim PRNr As %Integer = 0
 	for PRNr = PRNrStart:1:PRNrStop {  
 		if ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(PRNr) do DELETE^PRODUKT2(PRNr,1)