Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository/ZoekViaKlantEnPakketReferentie/Test.cls.xml
===================================================================
diff -u -r37285 -r37462
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository/ZoekViaKlantEnPakketReferentie/Test.cls.xml	(.../Test.cls.xml)	(revision 37285)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository/ZoekViaKlantEnPakketReferentie/Test.cls.xml	(.../Test.cls.xml)	(revision 37462)
@@ -3,30 +3,53 @@
 <Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository.ZoekViaKlantEnPakketReferentie.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="DummyKlantID">
-<Default>DummyKlantID</Default>
+<Parameter name="TestKlantId">
+<Default>999</Default>
 </Parameter>
 
-<Parameter name="DummyPakketReferentie">
-<Default>DummyPakketReferentie</Default>
+<Parameter name="TestPakketReferentie">
+<Default>PREF</Default>
 </Parameter>
 
-<Parameter name="DummyProductID">
-<Default>DummyProductID</Default>
+<Parameter name="TestPakketId">
+<Default>15</Default>
 </Parameter>
 
-<Method name="Test: Standaardsituatie, alle inputs ingevuld -&gt; er komt een productID terug">
+<Parameter name="TestProductId1">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="TestProductId2">
+<Default>2</Default>
+</Parameter>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[	Do ..VerwijderData(..#TestPakketId)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwijderData(..#TestPakketId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set ResultaatArray = ##class(%ArrayOfDataTypes).%New()
-	Do ResultaatArray.SetAt(..#DummyProductID,1)
+	Do ..VerwijderData(..#TestPakketId)
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardsituatie, alle inputs ingevuld -&gt; er komt een ProductId terug">
+<Implementation><![CDATA[
+	Do ..VoegToeProductEnPakket(..#TestKlantId, ..#TestPakketReferentie, ..#TestPakketId, ..#TestProductId1, "D")
 	
-	Set ProductSelecteerderMock = ##class(vhTest.Mock.BL.Prod.Select).%New()
-	Do ProductSelecteerderMock.IndienMethodCall("ZoekKlantRefWrapper",$$$ElkeWaarde).DanReturn(ResultaatArray)
-	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New(ProductSelecteerderMock)
+	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	#dim Resultaat As %String = ProductRepo.ZoekViaKlantEnPakketReferentie(..#TestKlantId,..#TestPakketReferentie)
 	
-	#dim Resultaat As %String = ProductRepo.ZoekViaKlantEnPakketReferentie(..#DummyKlantID,..#DummyPakketReferentie)
-	
-	Do $$$AssertEquals(Resultaat,..#DummyProductID)
+	Do $$$AssertEquals(Resultaat,..#TestProductId1)
 ]]></Implementation>
 </Method>
 
@@ -35,14 +58,8 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("KlantId moet ingevuld worden")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
-	Set ResultaatArray = ##class(%ArrayOfDataTypes).%New()
-	Do ResultaatArray.SetAt(..#DummyProductID,1)
-	
-	Set ProductSelecteerderMock = ##class(vhTest.Mock.BL.Prod.Select).%New()
-	Do ProductSelecteerderMock.IndienMethodCall("ZoekKlantRefWrapper",$$$ElkeWaarde).DanReturn(ResultaatArray)
-	
-	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New(ProductSelecteerderMock)
-	#dim Resultaat As %String = ProductRepo.ZoekViaKlantEnPakketReferentie("",..#DummyPakketReferentie)
+	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	Do ProductRepo.ZoekViaKlantEnPakketReferentie("",..#TestPakketReferentie)
 ]]></Implementation>
 </Method>
 
@@ -52,42 +69,54 @@
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
 	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
-	#dim Resultaat As %String = ProductRepo.ZoekViaKlantEnPakketReferentie("23112","")
-	Do $$$AssertEquals(Resultaat,"3289")
+	Do ProductRepo.ZoekViaKlantEnPakketReferentie("23112","")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Het resultaat van de opzoeking bevat meerdere productIDs -&gt; error raisen">
+<Method name="Test: Het resultaat van de opzoeking bevat meerdere ProductId&apos;s -&gt; error raisen">
 <Implementation><![CDATA[
-	Set ResultaatArray = ##class(%ArrayOfDataTypes).%New()
-	Do ResultaatArray.SetAt(..#DummyProductID,1)
-	Do ResultaatArray.SetAt(..#DummyProductID,2)
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er werden meerdere producten voor de pakketreferentie "_..#TestPakketReferentie_" gevonden")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))	
 	
-	Set ProductSelecteerderMock = ##class(vhTest.Mock.BL.Prod.Select).%New()
-	Do ProductSelecteerderMock.IndienMethodCall("ZoekKlantRefWrapper",$$$ElkeWaarde).DanReturn(ResultaatArray)
-	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New(ProductSelecteerderMock)
-		
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er werden meerdere producten voor de pakketreferentie "_..#DummyPakketReferentie_"gevonden")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	Do ..VoegToeProductEnPakket(..#TestKlantId, ..#TestPakketReferentie, ..#TestPakketId, ..#TestProductId1, "E")
+	Do ..VoegToeProductEnPakket(..#TestKlantId, ..#TestPakketReferentie, ..#TestPakketId, ..#TestProductId2, "E")
 	
-	#dim Resultaat As %String = ProductRepo.ZoekViaKlantEnPakketReferentie(..#DummyKlantID,..#DummyPakketReferentie)
+	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	Do ProductRepo.ZoekViaKlantEnPakketReferentie(..#TestKlantId,..#TestPakketReferentie)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Het resultaat van de opzoeking bevat geen productIDs -&gt; error raisen">
+<Method name="Test: Het resultaat van de opzoeking bevat geen ProductId&apos;s -&gt; error raisen">
 <Implementation><![CDATA[
-	Set ResultaatArray = ##class(%ArrayOfDataTypes).%New()
-	
-	Set ProductSelecteerderMock = ##class(vhTest.Mock.BL.Prod.Select).%New()
-	Do ProductSelecteerderMock.IndienMethodCall("ZoekKlantRefWrapper",$$$ElkeWaarde).DanReturn(ResultaatArray)
-	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New(ProductSelecteerderMock)
-		
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er werden geen producten voor de pakketreferentie "_..#DummyPakketReferentie_"gevonden")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er werden geen producten voor de pakketreferentie "_..#TestPakketReferentie_" gevonden")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 	
-	#dim Resultaat As %String = ProductRepo.ZoekViaKlantEnPakketReferentie(..#DummyKlantID,..#DummyPakketReferentie)
+	Set ProductRepo = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	#dim Resultaat As %String = ProductRepo.ZoekViaKlantEnPakketReferentie(..#TestKlantId,..#TestPakketReferentie)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderData">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill ^PAKKET("D",..#TestPakketId)
+	Kill ^PAKKET("D",..#TestPakketId,..#TestPakketReferentie)
+	Kill ^PAKKET("IK",..#TestKlantId,..#TestPakketReferentie)
+	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#TestProductId1)
+	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#TestProductId2)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeProductEnPakket">
+<FormalSpec>KlantId:%String,PakketReferentie:%String,PakketId:%String,ProductId:%String,Type:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(ProductId)
+	Set ^PAKKET("IK",KlantId,PakketReferentie) = PakketId
+	Set ^PAKKET("D",PakketId) = KlantId_"\"_PakketReferentie_"\"_Type_"\"
+	Set ^PAKKET("D",PakketId,ProductId) = "1"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml
===================================================================
diff -u -r37290 -r37462
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml	(.../ProductRepository.cls.xml)	(revision 37290)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml	(.../ProductRepository.cls.xml)	(revision 37462)
@@ -9,13 +9,12 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductSelecteerder:BL.Prod.Select</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductSelecteerder = $$$Inject(ProductSelecteerder,##class(BL.Prod.Select).%New())
+	Set ..ProductSelecteerder = ##class(BL.Prod.Select).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -36,12 +35,23 @@
 	Set pxCriteria.Zoek = PakketReferentie
 	Set pxCriteria.KLNr = KlantId
 	
-	#dim ResultaatArray As %ArrayOfDataTypes = ..ProductSelecteerder.ZoekKlantRefWrapper(pxCriteria)
+	#dim Result As %String = ""
+	#dim StatusCode As %Status = ..ProductSelecteerder.ZoekKlantRef(pxCriteria,.Result)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(StatusCode,"Fout bij ophalen ProductID via Criteria(KlantID en PakketReferentie)")
+	
+	#dim Key As %String = ""	
+	Set ResultaatArray = ##class(%ArrayOfDataTypes).%New()
+	For  {
+		Set Key = $Order(Result(Key))
+		Quit:(Key="")
+		Do ResultaatArray.SetAt(Result(Key), Key)
+	}
+	
 	If ResultaatArray.Count() = 0 {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Er werden geen producten voor de pakketreferentie "_PakketReferentie_"gevonden"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Er werden geen producten voor de pakketreferentie "_PakketReferentie_" gevonden"))
 	}
 	If ResultaatArray.Count() > 1 {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Er werden meerdere producten voor de pakketreferentie "_PakketReferentie_"gevonden"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Er werden meerdere producten voor de pakketreferentie "_PakketReferentie_" gevonden"))
 	}
 	
 	Quit ResultaatArray.GetNext()
Index: BL/Prod/Select.cls.xml
===================================================================
diff -u -r37290 -r37462
--- BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 37290)
+++ BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 37462)
@@ -114,28 +114,6 @@
 <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 Criteria(KlantID en PakketReferentie)")
-	
-	#dim Key As %String = ""
-	For  {
-		Set Key = $Order(Result(Key))
-		Quit:(Key="")
-		Do ResultArray.SetAt(Result(Key), Key)
-	}
-	
-	Quit ResultArray
-]]></Implementation>
-</Method>
-
 <Method name="ZoekKlantRef">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[Criteria:pxSelectCriteria,&Result:%String]]></FormalSpec>
FishEye: Tag 37462 refers to a dead (removed) revision in file `vhTest/Mock/BL/Prod/Select.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?