Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekAlleVhossLadesBijDnaCode/Test.cls.xml
===================================================================
diff -u -r61057 -r61696
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekAlleVhossLadesBijDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 61057)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekAlleVhossLadesBijDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 61696)
@@ -23,7 +23,7 @@
 	Set AantalGescandeVhossSequentieItemsBepalerStub = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()	
 	Do AantalGescandeVhossSequentieItemsBepalerStub.IndienMethodCall("BepaalAantalGescandeVhossSequentieItems",DnaCode1, Request.GuiVhossVolgnummer).DanReturn(DnaCodeAfmeldenResponse)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,AantalGescandeVhossSequentieItemsBepalerStub)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,AantalGescandeVhossSequentieItemsBepalerStub)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeResponse = DnaCodeService.ZoekAlleVhossLadesBijDnaCode(Request)
 	
@@ -50,7 +50,7 @@
 	Set AantalGescandeVhossSequentieItemsBepalerStub = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()	
 	Do AantalGescandeVhossSequentieItemsBepalerStub.IndienMethodCall("BepaalAantalGescandeVhossSequentieItems",DnaCode1, Request.GuiVhossVolgnummer).DanReturn(DnaCodeAfmeldenResponse)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,AantalGescandeVhossSequentieItemsBepalerStub)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,AantalGescandeVhossSequentieItemsBepalerStub)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeResponse = DnaCodeService.ZoekAlleVhossLadesBijDnaCode(Request)
 	
@@ -76,7 +76,7 @@
 	Set AantalGescandeVhossSequentieItemsBepalerStub = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()	
 	Do AantalGescandeVhossSequentieItemsBepalerStub.IndienMethodCall("BepaalAantalGescandeVhossSequentieItems",DnaCode1, Request.GuiVhossVolgnummer).DanReturn(DnaCodeAfmeldenResponse)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,AantalGescandeVhossSequentieItemsBepalerStub)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,AantalGescandeVhossSequentieItemsBepalerStub)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekAlleVhossLadesBijDnaCodeResponse = DnaCodeService.ZoekAlleVhossLadesBijDnaCode(Request)
 	
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61695 -r61696
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61695)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61696)
@@ -59,7 +59,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService,DocsV1:BL.PPS.TBX.DocsV1="",niets:%CacheString,UGLYPickingWrapper:WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="",VerkoopAPI:DOM.VKP.VerkoopAPI="",AantalGescandeVhossSequentieItemsBepaler:WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler="",DnaCodeInVhossKastBepaler:WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService,DocsV1:BL.PPS.TBX.DocsV1="",UGLYPickingWrapper:WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="",VerkoopAPI:DOM.VKP.VerkoopAPI="",AantalGescandeVhossSequentieItemsBepaler:WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler="",DnaCodeInVhossKastBepaler:WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaPalletcode/Test.cls.xml
===================================================================
diff -u -r61415 -r61696
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 61415)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ZoekViaPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 61696)
@@ -20,7 +20,7 @@
 	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)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,, KlantinstellingenRepository)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.ZoekViaPalletCode(Request)
 	
@@ -68,7 +68,7 @@
 	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)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,, KlantinstellingenRepository)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.ZoekViaPalletCode(Request)
 	
@@ -97,7 +97,7 @@
 	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)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,, KlantinstellingenRepository)
 	
 	#dim Antwoord As WS.Halux.AAP.ZoekViaPalletCodeResponse = DnaCodeService.ZoekViaPalletCode(Request)
 	
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml
===================================================================
diff -u -r60848 -r61696
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 60848)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/BewaarKlantinstellingen.cls.xml	(.../BewaarKlantinstellingen.cls.xml)	(revision 61696)
@@ -31,7 +31,7 @@
 	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)
 	
@@ -67,7 +67,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)
 	
@@ -102,7 +102,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)
 	
@@ -133,7 +133,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)
 	
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml
===================================================================
diff -u -r61564 -r61696
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 61564)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 61696)
@@ -157,7 +157,7 @@
 	Set DnaCodeInVhossKastBepalerStub = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New()
 	Do DnaCodeInVhossKastBepalerStub.IndienMethodCall("MagDnaCodeInVhossKast", DnaCode1, Request.PalletCode, Request.BatchId).DanReturn($$$True)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,DnaCodeInVhossKastBepalerStub)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,DnaCodeInVhossKastBepalerStub)
 	
 	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = DnaCodeService.DnaCodeAfmelden(Request)