Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaPalletcode/Test.cls.xml
===================================================================
diff -u -r61387 -r61415
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 61387)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 61415)
@@ -9,18 +9,26 @@
 	Set Request.PalletCode = "TBX12345"
 	
 	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.KlantNummer = "K||1234"
 	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekAlleRecenteViaPalletCode",Request.PalletCode).DanReturn(DnaCodeIterator)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set Klantinstelling = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstelling.MeerdereToeleveringen = $$$False
+	Set KlantinstellingenRepository = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	Do KlantinstellingenRepository.VerwachtMethodCall("ZoekViaKlantId",DnaCode1.KlantNummer).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstelling))
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,, KlantinstellingenRepository)
+	
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.ZoekViaPalletCode(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do $$$AssertEquals(Antwoord.MeerdereToeleveringenToegestaan,$$$False)
 	Do DnaCodeRepositoryMock.Verifieer()
+	Do KlantinstellingenRepository.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -42,6 +50,64 @@
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Data gevonden voor klant die meerdere toeleveringen op pallet mag zetten">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ZoekViaPalletCodeRequest).%New()
+	Set Request.PalletCode = "TBX12345"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.KlantNummer = "K||1234"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekAlleRecenteViaPalletCode",Request.PalletCode).DanReturn(DnaCodeIterator)
+	
+	Set Klantinstelling = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstelling.MeerdereToeleveringen = $$$True
+	Set KlantinstellingenRepository = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	Do KlantinstellingenRepository.VerwachtMethodCall("ZoekViaKlantId",DnaCode1.KlantNummer).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstelling)).ExactAantalKeer(1)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,, KlantinstellingenRepository)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.ZoekViaPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do $$$AssertEquals(Antwoord.MeerdereToeleveringenToegestaan,$$$True)
+	Do DnaCodeRepositoryMock.Verifieer()
+	Do KlantinstellingenRepository.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Data gevonden voor klant die niet in de klantinstellingen aanwezig is">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ZoekViaPalletCodeRequest).%New()
+	Set Request.PalletCode = "TBX12345"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.KlantNummer = "K||1234"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekAlleRecenteViaPalletCode",Request.PalletCode).DanReturn(DnaCodeIterator)
+	
+	Set Klantinstelling = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set Klantinstelling.MeerdereToeleveringen = $$$True
+	Set KlantinstellingenRepository = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	Do KlantinstellingenRepository.VerwachtMethodCall("ZoekViaKlantId",DnaCode1.KlantNummer).DanReturn(..EmptyIterator())
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,, KlantinstellingenRepository)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.ZoekViaPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do $$$AssertEquals(Antwoord.MeerdereToeleveringenToegestaan,$$$False)
+	Do DnaCodeRepositoryMock.Verifieer()
+	Do KlantinstellingenRepository.Verifieer()
+]]></Implementation>
+</Method>
 </Class>