Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml
===================================================================
diff -u -r55793 -r55819
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 55793)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeAfmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 55819)
@@ -132,13 +132,17 @@
 	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode1.Toelevering = "333333"
 	Set DnaCode1.PalletCode = "TBX12345"
+	
 	Set DnaCode1.InitialenScanner = "XXX"
 	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode2.Toelevering = "333333"
 	Set DnaCode2.InitialenScanner = "XXX"
+	
 	Set AfgemeldeDnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set AfgemeldeDnaCode.Toelevering = "333333"
 	Set AfgemeldeDnaCode.InitialenScanner = ""
+	Set AfgemeldeDnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Ongedaan()
+	
 	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
 	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r55818 -r55819
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55818)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55819)
@@ -164,9 +164,11 @@
 					Set DnaCode.InitialenScanner = ""
 					Set DnaCode.ScanTijdstip = ""
 					Set DnaCode.PalletCode = ""
-				} else {
+					Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Ongedaan()
+				} Else {
 					Set DnaCode.InitialenScanner = DnaCodeAfmeldenRequest.Header.Initialen
 					Set DnaCode.PalletCode = DnaCodeAfmeldenRequest.PalletCode
+					Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
 				}
 				
 				Do ..DnaCodeRepository.Bewaar(DnaCode)