Index: vhUnitTest/DOM/PM/OL/Gamma/TestData.cls.xml
===================================================================
diff -u -r734 -r793
--- vhUnitTest/DOM/PM/OL/Gamma/TestData.cls.xml	(.../TestData.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/OL/Gamma/TestData.cls.xml	(.../TestData.cls.xml)	(revision 793)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-03 09:54:33">
 <Class name="vhUnitTest.DOM.PM.OL.Gamma.TestData">
 <IncludeCode>vhLib.Macro,vhUnitTest.DOM.PM.OL.Gamma</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62101,57088.099493</TimeChanged>
+<TimeChanged>62125,35719.177107</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="BLProdMulti">
@@ -103,7 +103,7 @@
 	For i=1:1:$LL(lbUnIDs) { 
 		Set UnID=$LG(lbUnIDs,i)
 		Set sc=##class(Prod.Kenmerk.DataDefinitie).DeleteViaUnID(UnID)
-		If $$$ISERR(sc)  ; throw error ofzo
+		If $$$ISERR(sc) write $$ParseStatus^vhLib(sc),!  ; throw error ofzo
 	}
 	Quit
 ]]></Implementation>
@@ -592,5 +592,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3852216473"/>
+<Checksum value="3709160442"/>
 </Export>
Index: vhUnitTest/DOM/PM/OL/Gamma/ZoekProductGroepZoekterm.cls.xml
===================================================================
diff -u -r734 -r793
--- vhUnitTest/DOM/PM/OL/Gamma/ZoekProductGroepZoekterm.cls.xml	(.../ZoekProductGroepZoekterm.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/OL/Gamma/ZoekProductGroepZoekterm.cls.xml	(.../ZoekProductGroepZoekterm.cls.xml)	(revision 793)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-03 17:40:10">
 <Class name="vhUnitTest.DOM.PM.OL.Gamma.ZoekProductGroepZoekterm">
 <Description>
 Oproepen via 
@@ -17,7 +17,7 @@
 <IncludeCode>DOM.PM.OL,BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62094,61935.45769</TimeChanged>
+<TimeChanged>62125,63654.644062</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="CanCreateFiles">
@@ -444,9 +444,10 @@
 
 	set dtoGamma = implOrgaluxProductGamma.ZoekProductGroepen(ProductCriteria,Zoekterm,,ZoektermCategorie)
 	if $IsObject(dtoGamma) {
-		do $$$AssertEquals(2,dtoGamma.ProductSubGroepen.GetAt("1").ProductGroepen.Count(),"Controle Groep")    
-		do $$$AssertEquals("ICT_GrpKey17a",dtoGamma.ProductSubGroepen.GetAt("1").ProductGroepen.GetAt(1).Identifier,"Controle Groep")
-		do $$$AssertEquals("ICT_GrpKey17b",dtoGamma.ProductSubGroepen.GetAt("1").ProductGroepen.GetAt(2).Identifier,"Controle Groep")
+		do $$$AssertEquals(3,dtoGamma.ProductSubGroepen.GetAt("1").ProductGroepen.Count(),"Controle Groep")    
+		do $$$AssertEquals("ICT_GrpKey03",dtoGamma.ProductSubGroepen.GetAt("1").ProductGroepen.GetAt(1).Identifier,"Controle Groep")
+		do $$$AssertEquals("ICT_GrpKey17a",dtoGamma.ProductSubGroepen.GetAt("1").ProductGroepen.GetAt(2).Identifier,"Controle Groep")
+		do $$$AssertEquals("ICT_GrpKey17b",dtoGamma.ProductSubGroepen.GetAt("1").ProductGroepen.GetAt(3).Identifier,"Controle Groep")
 	}
 	else {
 		do $$$AssertEquals(1,0,"ZoekProductGroepen ZoektermTest3b geen resultaten") // failed
@@ -478,5 +479,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1389544885"/>
+<Checksum value="3490592901"/>
 </Export>