Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml
===================================================================
diff -u -r58208 -r58226
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 58208)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 58226)
@@ -200,15 +200,17 @@
 	
 	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode1.DnaCode = "DnaCode"
 	Set DnaCode1.PalletCode = "TBX12345"
-	
 	Set DnaCode1.InitialenScanner = "XXX"
+	
 	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode2.Toelevering = "222222"
 	Set DnaCode2.InitialenScanner = "XXX"
 	
 	Set AfgemeldeDnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set AfgemeldeDnaCode.Toelevering = "222222"
+	Set AfgemeldeDnaCode.DnaCode = "DnaCode"
 	Set AfgemeldeDnaCode.InitialenScanner = ""
 	Set AfgemeldeDnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Ongedaan()
 	
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58208 -r58226
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58208)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58226)
@@ -388,7 +388,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim Geslaagd As %Boolean = $$$True
-	If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand() {
+	If ((DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()) && $$$Not(DnaCodeAfmeldenRequest.Aantal = -1)) {
 		Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidUserInput()
 		Set Response.Header.Omschrijving = "DnaCode '"_DnaCode.DnaCode_"' reeds gescand ("_DnaCode.PalletCode_")"
 		Set Geslaagd = $$$False