Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61058 -r61059
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61058)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61059)
@@ -820,7 +820,7 @@
 			Set Response.Header.Omschrijving = "DnaCode '"_DnaCode.DnaCode_"' reeds gescand ("_DnaCode.PalletCode_")"
 			Set Geslaagd = $$$False
 		} Else {
-			If ($$$HasLength(DnaCodeAfmeldenRequest.Toelevering) && $$$Not(DnaCode.Toelevering = DnaCodeAfmeldenRequest.Toelevering) && $$$Not(##class(TECH.StringUtils).StartsWith(DnaCodeAfmeldenRequest.DnaCode,"K")) && $$$Not(##class(TECH.StringUtils).StartsWith(DnaCodeAfmeldenRequest.PalletCode,"O1"))) {
+			If ($$$HasLength(DnaCodeAfmeldenRequest.Toelevering) && $$$Not(DnaCode.Toelevering = DnaCodeAfmeldenRequest.Toelevering) && $$$Not(##class(TECH.StringUtils).StartsWith(DnaCodeAfmeldenRequest.DnaCode,"K")) && $$$Not(..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode))) {
 				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidInput()
 				Set Response.Header.Omschrijving = "Toeleveringen verschillend: '"_DnaCodeAfmeldenRequest.Toelevering_"' en '"_DnaCode.Toelevering_"'"
 				Set Geslaagd = $$$False