Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61011 -r61018
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61011)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61018)
@@ -13,8 +13,8 @@
 	Do SequentieService.IndienMethodCall("HeeftSequentie",DnaCode.BatchId).DanReturn($$$False)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals($LI(Aantal,1),0)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,0)
 ]]></Implementation>
 </Method>
 
@@ -43,8 +43,8 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals($LI(Aantal,1),1)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,1)
 ]]></Implementation>
 </Method>
 
@@ -76,8 +76,8 @@
 	Do DnaCodeRepository.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",DnaCode.BatchId,DnaCode.SequentieNummer).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode))
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService, DnaCodeRepository)
-	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals($LI(Aantal,2),1)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,1)
 ]]></Implementation>
 </Method>
 
@@ -110,8 +110,8 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Aantal As %List = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals($LI(Aantal,1),2)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,2)
 ]]></Implementation>
 </Method>
 
@@ -149,8 +149,8 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals($LI(Aantal,1),1)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,1)
 ]]></Implementation>
 </Method>
 
@@ -164,8 +164,8 @@
 	Do SequentieService.IndienMethodCall("HeeftSequentie",DnaCode.BatchId).DanReturn($$$False)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals($LI(Aantal,1),0)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,0)
 ]]></Implementation>
 </Method>
 
@@ -179,7 +179,7 @@
 	Do SequentieService.IndienMethodCall("HeeftSequentie",DnaCode.BatchId).DanReturn($$$True)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 	Do $$$AssertEquals($LI(Aantal,1),0)
 ]]></Implementation>
 </Method>
@@ -190,8 +190,8 @@
 	Set DnaCode.DnaCode = "TABCDE0"
 	Set DnaCode.BatchId = 12345
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New()
-	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
-	Do $$$AssertEquals($LI(Aantal,1),-1)
+	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,-1)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61011 -r61018
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61011)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61018)
@@ -17,7 +17,7 @@
 
 <Method name="BepaalAantalGescandeVhossSequentieItems">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%List</ReturnType>
+<ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalAantalGescandeVhossSequentieItems",DnaCode)
 ]]></Implementation>
 </Method>
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61011 -r61018
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61011)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61018)
@@ -29,7 +29,7 @@
 
 <Method name="BepaalAantalGescandeVhossSequentieItems">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%List</ReturnType>
+<ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
 		Quit ..BepaalAantalGescandeVhossSequentieItemsTbx(DnaCode)
@@ -42,18 +42,26 @@
 <Method name="BepaalAantalGescandeVhossSequentieItemsTbx">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>
-<ReturnType>%List</ReturnType>
-<Implementation><![CDATA[	Quit $lb(-1,-1)
+<ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat = ##class(WS.Halux.AAP.DnaCodeAfmeldenResponse).%New()
+	Set Resultaat.AantalInToelevering = -1
+	Set Resultaat.AantalReedsGescand = -1
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItemsNietTbx">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>
-<ReturnType>%List</ReturnType>
+<ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[
-	Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) $lb(0,0)
+	#dim Resultaat = ##class(WS.Halux.AAP.DnaCodeAfmeldenResponse).%New()
+	Set Resultaat.AantalInToelevering = 0
+	Set Resultaat.AantalReedsGescand = 0
 	
+	Quit:$$$Not(..SequentieService.HeeftProductieSequentie(DnaCode.BatchId)) Resultaat
+	
 	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
 	#dim ItemIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
 	#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
@@ -83,7 +91,9 @@
 		Set AantalInVhoss = 0
 		Set AantallenGescandInVhoss = 0
 	}
-	Quit $lb(AantalInVhoss, AantallenGescandInVhoss)
+	Set Resultaat.AantalInToelevering = AantalInVhoss
+	Set Resultaat.AantalReedsGescand = AantallenGescandInVhoss
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61010 -r61018
--- vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61010)
+++ vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61018)
@@ -8,21 +8,21 @@
 <Super>WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler</Super>
 
 <Method name="BepaalAantalGescandeVhossSequentieItems">
-<ReturnType>%List</ReturnType>
+<ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItemsNietTbx">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%List</ReturnType>
+<ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalGescandeVhossSequentieItemsTbx">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%List</ReturnType>
+<ReturnType>WS.Halux.AAP.DnaCodeAfmeldenResponse</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61011 -r61018
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61011)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61018)
@@ -240,8 +240,7 @@
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
-					Set AantalInToelevering = $LI(..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode),1)
-					Set AantalReedsGescand = $LI(..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode),2)
+					Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
 				} Else {
 					Set ToeleveringId = DnaCode.Toelevering
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
@@ -260,6 +259,8 @@
 						Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
 						Set Response.Header.Omschrijving = "Geen data gevonden voor toelevering '"_ToeleveringId_"'"
 					}
+					Set Response.AantalInToelevering = AantalInToelevering
+					Set Response.AantalReedsGescand = AantalReedsGescand
 				}
 			}
 				
@@ -271,8 +272,8 @@
 		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
 	}
 	
-	Set Response.AantalInToelevering = AantalInToelevering
-	Set Response.AantalReedsGescand = AantalReedsGescand
+	Set Response.AantalInToelevering = +Response.AantalInToelevering
+	Set Response.AantalReedsGescand = +Response.AantalReedsGescand
 	
 	Quit Response
 ]]></Implementation>