Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61008 -r61010
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61008)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61010)
@@ -23,7 +23,7 @@
 
 <Method name="BepaalAantalGescandeVhossSequentieItems">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%Integer</ReturnType>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
 		Quit ..BepaalAantalGescandeVhossSequentieItemsTbx(DnaCode)
@@ -36,17 +36,17 @@
 <Method name="BepaalAantalGescandeVhossSequentieItemsTbx">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit -1
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	Quit $lb(-1,-1)
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItemsNietTbx">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Integer</ReturnType>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) 0
+	Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) $lb(0,0)
 	
 	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
 	#dim ItemIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
@@ -70,7 +70,7 @@
 	Catch {
 		Set AantalInVhoss = 0
 	}
-	Quit AantalInVhoss
+	Quit $lb(AantalInVhoss)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61009 -r61010
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61009)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61010)
@@ -13,8 +13,8 @@
 	Do SequentieService.IndienMethodCall("HeeftSequentie",DnaCode.BatchId).DanReturn($$$False)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Aantal,0)
+	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals($LI(Aantal,1),0)
 ]]></Implementation>
 </Method>
 
@@ -42,8 +42,8 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Aantal,1)
+	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals($LI(Aantal,1),1)
 ]]></Implementation>
 </Method>
 
@@ -76,8 +76,8 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Aantal,2)
+	#dim Aantal As %List = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals($LI(Aantal,1),2)
 ]]></Implementation>
 </Method>
 
@@ -115,8 +115,8 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Aantal,1)
+	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals($LI(Aantal,1),1)
 ]]></Implementation>
 </Method>
 
@@ -130,8 +130,8 @@
 	Do SequentieService.IndienMethodCall("HeeftSequentie",DnaCode.BatchId).DanReturn($$$False)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Aantal,0)
+	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals($LI(Aantal,1),0)
 ]]></Implementation>
 </Method>
 
@@ -145,8 +145,8 @@
 	Do SequentieService.IndienMethodCall("HeeftSequentie",DnaCode.BatchId).DanReturn($$$True)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Aantal,0)
+	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals($LI(Aantal,1),0)
 ]]></Implementation>
 </Method>
 
@@ -156,8 +156,8 @@
 	Set DnaCode.DnaCode = "TABCDE0"
 	Set DnaCode.BatchId = 12345
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals(Aantal,-1)
+	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals($LI(Aantal,1),-1)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r60942 -r61010
--- vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60942)
+++ vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61010)
@@ -8,21 +8,21 @@
 <Super>WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler</Super>
 
 <Method name="BepaalAantalGescandeVhossSequentieItems">
-<ReturnType>%Integer</ReturnType>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItemsNietTbx">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%Integer</ReturnType>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItemsTbx">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%Integer</ReturnType>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r60942 -r61010
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 60942)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61010)
@@ -17,7 +17,7 @@
 
 <Method name="BepaalAantalGescandeVhossSequentieItems">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%Integer</ReturnType>
+<ReturnType>%List</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalAantalGescandeVhossSequentieItems",DnaCode)
 ]]></Implementation>
 </Method>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60939 -r61010
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60939)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61010)
@@ -53,6 +53,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AantalGescandeVhossSequentieItemsBepaler">
+<Type>WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler</Type>
+<Private>1</Private>
+</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="",ProboxEtiketAfdrukkenHelper:WSimpl.Halux.AAP.DnaCodeService.ProboxEtiketAfdrukkenHelper="",UGLYPickingWrapper:WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="",VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
@@ -69,6 +74,7 @@
 	Set ..UGLYPickingWrapper = $$$Inject(UGLYPickingWrapper, ##class(WSimpl.Halux.AAP.DnaCodeService.UGLYPickingWrapper).%New())
 	Set ..KlantinstellingenRepository = $$$Inject(KlantinstellingenRepository, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	Set ..AantalGescandeVhossSequentieItemsBepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -234,7 +240,7 @@
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
-					
+					Set AantalInToelevering = $LI(..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode),1)
 				} Else {
 					Set ToeleveringId = DnaCode.Toelevering
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)