Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml
===================================================================
diff -u -r71138 -r72158
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 71138)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 72158)
@@ -10,17 +10,20 @@
 	Set Request.KlantId = "K||1234"
 	Set Request.IsExport = $$$False
 	Set Request.IsBlumXs = $$$False
+	Set Request.HalvePallet = $$$False
 	
 	#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 Klantinstellingen1.IsBlumXs = $$$True
+	Set Klantinstellingen1.HalvePallet = $$$True
 	Set Klantinstellingen2 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
 	Set Klantinstellingen2.KlantId = "K||1001"
 	Set Klantinstellingen2.IsExport = $$$False
 	Set Klantinstellingen2.IsBlumXs = $$$False
+	Set Klantinstellingen2.HalvePallet = $$$False
 	#dim KlantinstellingenIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstellingen1, Klantinstellingen2)
 	
 	Set KlantinstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
@@ -29,6 +32,7 @@
 	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("Maak").DanReturn(KlantInstellingen)
 	Do KlantinstellingenRepositoryMock.VerwachtMethodCall("Bewaar",KlantInstellingen).DanDoeNiks()
 	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)
@@ -51,17 +55,20 @@
 	Set Request.KlantId = "K||1234"
 	Set Request.IsExport = $$$False
 	Set Request.IsBlumXs = $$$False
+	Set Request.HalvePallet = $$$False
 	
 	#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 Klantinstellingen1.IsBlumXs = $$$True
+	Set Klantinstellingen1.HalvePallet = $$$True
 	Set Klantinstellingen2 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
 	Set Klantinstellingen2.KlantId = "K||1001"
 	Set Klantinstellingen2.IsExport = $$$False
 	Set Klantinstellingen2.IsBlumXs = $$$False
+	Set Klantinstellingen2.HalvePallet = $$$False
 	#dim KlantinstellingenIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstellingen1, Klantinstellingen2)
 	
 	Set KlantinstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
@@ -90,17 +97,20 @@
 	Set Request.KlantId = "K||1234"
 	Set Request.IsExport = $$$False
 	Set Request.IsBlumXs = $$$False
+	Set Request.HalvePallet = $$$True
 	
 	#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 Klantinstellingen1.IsBlumXs = $$$True
+	Set Klantinstellingen1.HalvePallet = $$$True
 	Set Klantinstellingen2 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
 	Set Klantinstellingen2.KlantId = "K||1001"
 	Set Klantinstellingen2.IsExport = $$$False
 	Set Klantinstellingen2.IsBlumXs = $$$False
+	Set Klantinstellingen2.HalvePallet = $$$False
 	#dim KlantinstellingenIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstellingen1, Klantinstellingen2)
 	
 	Set KlantinstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
@@ -132,10 +142,12 @@
 	Set Klantinstellingen1.KlantId = "K||1000"
 	Set Klantinstellingen1.IsExport = $$$True
 	Set Klantinstellingen1.IsBlumXs = $$$True
+	Set Klantinstellingen1.HalvePallet = $$$True
 	Set Klantinstellingen2 = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
 	Set Klantinstellingen2.KlantId = "K||1001"
 	Set Klantinstellingen2.IsExport = $$$False
 	Set Klantinstellingen2.IsBlumXs = $$$False
+	Set Klantinstellingen2.HalvePallet = $$$False
 	#dim KlantinstellingenIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Klantinstellingen1, Klantinstellingen2)
 	
 	Set KlantinstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()