Index: BL/Prod/Select.cls.xml
===================================================================
diff -u -r29059 -r37283
--- BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 29059)
+++ BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 37283)
@@ -6,7 +6,7 @@
 <ClassType/>
 <IncludeCode>BL.Prod,Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="ZoekBoom">
 <Description>
@@ -114,9 +114,32 @@
 <Default>A</Default>
 </Parameter>
 
+<Method name="ZoekKlantRefWrapper">
+<FormalSpec>Criteria:pxSelectCriteria</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set ResultArray = ##class(%ArrayOfDataTypes).%New()
+	
+	#dim Result As %String = ""
+
+	#dim StatusCode As %Status = ..ZoekKlantRef(Criteria,.Result)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(StatusCode,"Fout bij ophalen ProductID via Klant en PakketReferentie")
+	
+	#dim Key As %String = ""
+	For  {
+		Set Key = $Order(Result(Key))
+		Continue:(Key="")
+		Do ResultArray.SetAt(Result(Key), Key)
+	}
+	
+	Quit ResultArray
+]]></Implementation>
+</Method>
+
 <Method name="ZoekKlantRef">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[Criteria:pxSelectCriteria,&Result]]></FormalSpec>
+<FormalSpec><![CDATA[Criteria:pxSelectCriteria,&Result:%String]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ZoekKey=Criteria.Zoek
 	Set StockType=Criteria.StockType