Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61010 -r61011
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61010)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61011)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService,DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61010 -r61011
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61010)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61011)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService,DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -52,27 +58,53 @@
 	#dim ItemIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
 	#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
 	Set AantallenPerVhoss = ##class(TECH.FrequentieTabel).%New()
+	Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New()
 	#dim VhossidVanDnaCode As %String = ""
 	While ItemIterator.HasNext() {
 		Set ProductieSequentieItem = ItemIterator.Next()
 		If ProductieSequentieItem.%IsA(##class(APPS.Halux.common.VHOSSProductieSequentieItem).%ClassName($$$True)) {
 			Do AantallenPerVhoss.Verhoog(ProductieSequentieItem.VHOSSID)
+			If ..IsDnaCodeGescand(DnaCode.BatchId, ProductieSequentieItem.SequentieNummer) {
+				Do AantallenGescandPerVhoss.Verhoog(ProductieSequentieItem.VHOSSID)
+			}
 			If DnaCode.SequentieNummer = ProductieSequentieItem.SequentieNummer {
 				Set VhossidVanDnaCode = ProductieSequentieItem.VHOSSID
 			}
 		}
 	}
 	
 	#dim AantalInVhoss As %Integer = 0
+	#dim AantallenGescandInVhoss As %Integer = 0
 	Try {
 		Set AantalInVhoss = AantallenPerVhoss.GeefFrequentieVanItem(VhossidVanDnaCode)
+		Set AantallenGescandInVhoss = AantallenGescandPerVhoss.GeefFrequentieVanItem(VhossidVanDnaCode)
 	}
 	Catch {
 		Set AantalInVhoss = 0
+		Set AantallenGescandInVhoss = 0
 	}
-	Quit $lb(AantalInVhoss)
+	Quit $lb(AantalInVhoss, AantallenGescandInVhoss)
 ]]></Implementation>
 </Method>
+
+<Method name="IsDnaCodeGescand">
+<FormalSpec>BatchId:%String,SequentieNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %Boolean = $$$False
+	#dim DnaCodeIterator As TECH.Iterator
+	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, SequentieNummer)
+	If DnaCodeIterator.HasNext() {
+		#dim DnaCode As DOM.Halux.AAP.DnaCode
+		Set DnaCode = DnaCodeIterator.Next()
+		If $$$HasLength(DnaCode.ScanTijdstip) {
+			Set Resultaat = $$$True
+		}
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61010 -r61011
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61010)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61011)
@@ -25,6 +25,7 @@
 	Set DnaCode.DnaCode = "HABCDE0"
 	Set DnaCode.BatchId = BatchId
 	Set DnaCode.SequentieNummer = 42
+	Set DnaCode.ScanTijdstip = 42
 	
 	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
 	Set ProductieSequentieItem1.VHOSSID = 1
@@ -47,6 +48,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: checken of aantalgescand wel ingevuld is">
+<Implementation><![CDATA[
+	#dim BatchId = 12345
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = "HABCDE0"
+	Set DnaCode.BatchId = BatchId
+	Set DnaCode.SequentieNummer = 42
+	Set DnaCode.ScanTijdstip = 42
+	
+	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem1.VHOSSID = 1
+	Set ProductieSequentieItem1.SequentieNummer = 42
+	
+	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
+	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
+	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).TAORbox())
+	
+	Set ProductieSequentie = ##class(vhUnitTest.APPS.Halux.common.impl.UTProductieSequentie).%New(BatchStub)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
+	
+	Set SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
+	Do SequentieService.IndienMethodCall("HeeftProductieSequentie",DnaCode.BatchId).DanReturn($$$True)
+	Do SequentieService.IndienMethodCall("GeefProductieSequentie",DnaCode.BatchId).DanReturn(ProductieSequentie)
+	
+	Set DnaCodeRepository = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepository.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",DnaCode.BatchId,DnaCode.SequentieNummer).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode))
+	
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService, DnaCodeRepository)
+	#dim Aantal As %List  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)
+	Do $$$AssertEquals($LI(Aantal,2),1)
+]]></Implementation>
+</Method>
+
 <Method name="Test: niet TBX sequentie met 2 items op 1 Vhoss -&gt; aantal 2">
 <Implementation><![CDATA[
 	#dim BatchId = 12345
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61010 -r61011
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61010)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61011)
@@ -241,6 +241,7 @@
 				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
 					Set AantalInToelevering = $LI(..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode),1)
+					Set AantalReedsGescand = $LI(..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode),2)
 				} Else {
 					Set ToeleveringId = DnaCode.Toelevering
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)