Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60848 -r60939
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60848)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60939)
@@ -233,22 +233,26 @@
 				
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
-				Set ToeleveringId = DnaCode.Toelevering
-				Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
-				
-				If DnaCodeIterator.HasNext() {
-					Set Response.Header.Status = "200"
-					While DnaCodeIterator.HasNext() {
-						Set DnaCode = DnaCodeIterator.Next()
-						Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
-						Set AantalInToelevering = AantalInToelevering + 1
-						If $$$HasLength(DnaCode.InitialenScanner) {
-							Set AantalReedsGescand = AantalReedsGescand + 1
+				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
+					
+				} Else {
+					Set ToeleveringId = DnaCode.Toelevering
+					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+					
+					If DnaCodeIterator.HasNext() {
+						Set Response.Header.Status = "200"
+						While DnaCodeIterator.HasNext() {
+							Set DnaCode = DnaCodeIterator.Next()
+							Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCode))
+							Set AantalInToelevering = AantalInToelevering + 1
+							If $$$HasLength(DnaCode.InitialenScanner) {
+								Set AantalReedsGescand = AantalReedsGescand + 1
+							}
 						}
+					} Else {
+						Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+						Set Response.Header.Omschrijving = "Geen data gevonden voor toelevering '"_ToeleveringId_"'"
 					}
-				} Else {
-					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
-					Set Response.Header.Omschrijving = "Geen data gevonden voor toelevering '"_ToeleveringId_"'"
 				}
 			}
 				
@@ -483,6 +487,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGeldigeVhossCode">
+<FormalSpec>Pallet:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.VisiDot.impl.Tech).IsFrameID(Pallet)
+]]></Implementation>
+</Method>
+
 <Method name="IsDirecteLevering">
 <FormalSpec>DirecteLeveringRequest:WS.Halux.AAP.DirecteLeveringRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.DirecteLeveringResponse</ReturnType>