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>