Index: BL/Prod/Select.cls.xml
===================================================================
diff -u -r37283 -r37290
--- BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 37283)
+++ BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 37290)
@@ -123,12 +123,12 @@
 	#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")
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(StatusCode,"Fout bij ophalen ProductID via Criteria(KlantID en PakketReferentie)")
 	
 	#dim Key As %String = ""
 	For  {
 		Set Key = $Order(Result(Key))
-		Continue:(Key="")
+		Quit:(Key="")
 		Do ResultArray.SetAt(Result(Key), Key)
 	}
 	
Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml
===================================================================
diff -u -r37285 -r37290
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml	(.../ProductRepository.cls.xml)	(revision 37285)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml	(.../ProductRepository.cls.xml)	(revision 37290)
@@ -44,7 +44,7 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Er werden meerdere producten voor de pakketreferentie "_PakketReferentie_"gevonden"))
 	}
 	
-	Quit ResultaatArray.GetAt(1)
+	Quit ResultaatArray.GetNext()
 ]]></Implementation>
 </Method>
 </Class>