Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61064 -r61095
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61064)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61095)
@@ -198,17 +198,8 @@
 				}
 			} Else {
 				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
-				Set Response.Header.Omschrijving = "Geen Vhoss-data gevonden voor DnaCode '"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.DnaCode_"'"
+				Set Response.Header.Omschrijving = "Geen Vhoss-data gevonden voor kast '"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"'"
 			}
-			If DnaCodeIterator.HasNext() {
-				Set Response.Header.Status = "200"
-				While DnaCodeIterator.HasNext() {
-					Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
-				}
-			} Else {
-				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
-				Set Response.Header.Omschrijving = "Geen data gevonden voor VHOSS '"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"'"
-			}
 		} Else {
 			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
 			Set Response.Header.Omschrijving = "'"_ZoekAlleDnaCodesDieOpVhossMoetenRequest.FrameId_"' is geen VHOSS"
@@ -692,7 +683,7 @@
 					Set AantalKaderdeurenGescand = AantalKaderdeurenGescand + 1
 				}
 			}
-			Do ..DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), LaatsteDnaCode.Toelevering, ,RondAfKaderdeurDagRequest.Header.Initialen)
+			Do ..DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), ToeleveringId, ,RondAfKaderdeurDagRequest.Header.Initialen)
 			If $$$Not(AantalKaderdeuren = AantalKaderdeurenGescand) {
 				Set ToeleveringMetAantallen = ##class(WS.Halux.AAP.RondAfKaderdeurDag.ToeleveringMetAantallen).%New()
 				Set ToeleveringMetAantallen.ToeleveringID = ToeleveringId
@@ -878,7 +869,12 @@
 			} Else {
 				If $$$HasLength(DnaCode.PalletCode) && $$$Not(DnaCodeAfmeldenRequest.Aantal=-1) {
 					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidInput()
-					Set Response.Header.Omschrijving = "PalletCode reeds ingevuld voor '"_DnaCodeAfmeldenRequest.DnaCode_"' ("_DnaCode.PalletCode_")"
+					If ##class(TECH.StringUtils).StartsWith(DnaCodeAfmeldenRequest.DnaCode,"K") {
+						Set Response.Header.Omschrijving = "Locatie reeds ingevuld voor '"_DnaCodeAfmeldenRequest.DnaCode_"' ("_DnaCode.PalletCode_")"
+					} Else {
+						Set Response.Header.Omschrijving = "PalletCode reeds ingevuld voor '"_DnaCodeAfmeldenRequest.DnaCode_"' ("_DnaCode.PalletCode_")"
+					}
+					
 					Set Geslaagd = $$$False
 				}
 			}