Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml
===================================================================
diff -u -r61696 -r72158
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 61696)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 72158)
@@ -9,15 +9,21 @@
 	Set Request.Actie = "Upsert"
 	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()
@@ -26,12 +32,13 @@
 	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)
 	Do VerkoopApiStub.IndienMethodCall("BestaatKlant",Request.KlantId).DanReturn($$$True)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.BewerkKlantinstellingen(Request)
 	
@@ -47,15 +54,21 @@
 	Set Request.Actie = "Upsert"
 	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()
@@ -67,7 +80,7 @@
 	Do VerkoopApiStub.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(StandaardKlant)
 	Do VerkoopApiStub.IndienMethodCall("BestaatKlant",Request.KlantId).DanReturn($$$False)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.BewerkKlantinstellingen(Request)
 	
@@ -83,15 +96,21 @@
 	Set Request.Actie = "Upsert"
 	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()
@@ -102,7 +121,7 @@
 	#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)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.BewerkKlantinstellingen(Request)
 	
@@ -122,9 +141,13 @@
 	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()
@@ -133,7 +156,7 @@
 	#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)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(,,,,KlantinstellingenRepositoryMock, VerkoopApiStub)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.BewerkKlantinstellingen(Request)