Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61053 -r61057
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61053)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61057)
@@ -151,7 +151,7 @@
 			If DnaCodeIterator.HasNext() {
 				Set Response.Header.Status = "200"
 				While DnaCodeIterator.HasNext() {
-					Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+					Do Response.DnaCodes.Insert(DnaCodeIterator.Next())
 				}
 			} Else {
 				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
@@ -279,6 +279,8 @@
 				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
 					Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+					
+					Do ##class(Tools.Wlip).%New(127).ObjToXML(Response)
 					Set Response.Header.Status = "200"
 				} Else {
 					Set ToeleveringId = DnaCode.Toelevering