Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml
===================================================================
diff -u -r60846 -r60847
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 60846)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 60847)
@@ -72,7 +72,7 @@
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.BewerkKlantinstellingen(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-	Do $$$AssertEquals(Antwoord.Klantinstellingen.Count(),20)
+	Do $$$AssertEquals(Antwoord.Klantinstellingen.Count(),2)
 	Do KlantinstellingenRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -111,6 +111,37 @@
 	Do KlantinstellingenRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="aTest: lijst opvragen">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.BewerkKlantinstellingenRequest).%New()
+	Set Request.Actie = "Lijst"
+	
+	#dim KlantinstellingenRepository = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	
+	Set Klantinstellingen1 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstellingen1.KlantId = "K||1000"
+	Set Klantinstellingen1.IsExport = $$$True
+	Set Klantinstellingen2 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstellingen2.KlantId = "K||1001"
+	Set Klantinstellingen2.IsExport = $$$False
+	#dim KlantinstellingenIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstellingen1, Klantinstellingen2)
+	
+	Set KlantinstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("ZoekAlle",).DanReturn(KlantinstellingenIterator)
+	Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	#dim StandaardKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do VerkoopApiStub.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(StandaardKlant)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.BewerkKlantinstellingen(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.Klantinstellingen.Count(),2)
+	Do KlantinstellingenRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>