Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61387 -r61415
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61387)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61415)
@@ -108,15 +108,27 @@
 <ReturnType>WS.Halux.AAP.ZoekViaPalletCodeResponse</ReturnType>
 <Implementation><![CDATA[
 	Set Response = ##class(WS.Halux.AAP.ZoekViaPalletCodeResponse).%New()
+	Set Response.MeerdereToeleveringenToegestaan = $$$False
 	
 	Try {
 		#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ZoekViaPalletCodeRequest.PalletCode)		
 		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+		#dim DnaCode As DOM.Halux.AAP.DnaCode
+		#dim KlantinstellingenOpgevraagd As %Boolean = $$$False
+		#dim KlantinstellingenIterator As TECH.Iterator
 		
 		If DnaCodeIterator.HasNext() {
 			Set Response.Header.Status = "200"
 			While DnaCodeIterator.HasNext() {
-				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+				Set DnaCode = DnaCodeIterator.Next()
+				If $$$Not(KlantinstellingenOpgevraagd) {
+					Set KlantinstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(DnaCode.KlantNummer)
+					If KlantinstellingenIterator.HasNext() {
+						Set Response.MeerdereToeleveringenToegestaan = KlantinstellingenIterator.Next().MeerdereToeleveringen
+					}
+					Set KlantinstellingenOpgevraagd = $$$True
+				}
+				Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
 			}
 		} Else {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
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>