Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61511 -r61513
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61511)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61513)
@@ -34,7 +34,7 @@
 		#dim TbxSequentie As %CacheString
 		While ItemIterator.HasNext() {
 			Set TbxSequentie = ItemIterator.Next()
-			Do ..VerwerkDnaCode(DnaCode, TbxSequentie.GetData(1), TbxSequentie.GetData(2))
+			Do ..VerwerkDnaCode(DnaCode, TbxSequentie.GetData(1), TbxSequentie.GetData(2), GuiVhossVolgnummer)
 		}
 
 	} Else {
@@ -45,17 +45,27 @@
 		#dim ProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem
 		While ItemIterator.HasNext() {
 			Set ProductieSequentieItem = ItemIterator.Next()
-			Do ..VerwerkDnaCode(DnaCode, ProductieSequentieItem.SequentieNummer, ProductieSequentieItem.VHOSSID)
+			Do ..VerwerkDnaCode(DnaCode, ProductieSequentieItem.SequentieNummer, ProductieSequentieItem.VHOSSID, GuiVhossVolgnummer)
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,SequentieNummer:%String,VHOSSID:%String</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductieSequentieNummer:%String,ProductieVHOSSID:%String,GuiVhossVolgnummer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$True
+<Implementation><![CDATA[
+	
+	//checken of er voor deze interne id al gescande dnacodes bestaan met een ander vhosslocatie ingevuld dan diegene die is ingescand
+	
+	
+	If DnaCode.SequentieNummer = ProductieSequentieNummer {
+		If $$$Not(ProductieVHOSSID = GuiVhossVolgnummer) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
+		}
+	}
+	Quit $$$True
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml
===================================================================
diff -u -r61057 -r61513
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61057)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler/BepaalAantalGescandeVhossSequentieItems.cls.xml	(.../BepaalAantalGescandeVhossSequentieItems.cls.xml)	(revision 61513)
@@ -53,38 +53,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: niet TBX sequentie met 1 items op 1 Vhoss maar met verkeerd vhossid -&gt; exceptie">
-<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)
-
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De lade moet in een andere Vhosskast")	
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
-	
-	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler).%New(SequentieService)
-	#dim Antwoord As WS.Halux.AAP.DnaCodeAfmeldenResponse  = Bepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,42)
-]]></Implementation>
-</Method>
-
 <Method name="Test: checken of aantalgescand wel ingevuld is">
 <Implementation><![CDATA[
 	#dim BatchId = 12345
Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61462 -r61513
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61462)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61513)
@@ -55,27 +55,21 @@
 	Set AantallenGescandPerVhoss = ##class(TECH.FrequentieTabel).%New()
 	#dim VhossidVanDnaCode As %String = ""
 	#dim TbxSequentie As %CacheString
+	
+	Do ..ControleerJuisteVhoss(DnaCode, ItemIterator, GuiVhossVolgnummer)
+	Do ItemIterator.Reset()
+	
 	While ItemIterator.HasNext() {
 		Set TbxSequentie = ItemIterator.Next()
-		try {
-			Do AantallenPerVhoss.Verhoog(TbxSequentie.GetData(2))
-		} catch {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen Vhossdata gevonden voor '"_DnaCode.DnaCode_"'"))
-		}
+		Do AantallenPerVhoss.Verhoog(TbxSequentie.GetData(2))
 		If ..IsDnaCodeGescand(DnaCode.BatchId, TbxSequentie.GetData(1)) {
 			Do AantallenGescandPerVhoss.Verhoog(TbxSequentie.GetData(2))
 		}
 		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
-			If $$$HasLength(GuiVhossVolgnummer) && $$$Not(TbxSequentie.GetData(2) = GuiVhossVolgnummer) {
-				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
-			}
 			Set VhossidVanDnaCode = TbxSequentie.GetData(2)
 		}
 	}
 	
-	//checken of er voor deze interne id al gescande dnacodes bestaan met een ander vhosslocatie ingevuld dan diegene die is ingescand
-	
 	Set ItemIterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
 	While ItemIterator.HasNext() {
 		Set TbxSequentie = ItemIterator.Next()
@@ -129,10 +123,6 @@
 				Do AantallenGescandPerVhoss.Verhoog(ProductieSequentieItem.VHOSSID)
 			}
 			If DnaCode.SequentieNummer = ProductieSequentieItem.SequentieNummer {
-				If $$$Not(ProductieSequentieItem.VHOSSID = GuiVhossVolgnummer) {
-					Do ..ScanOngedaanMaken(DnaCode)
-					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
-				}
 				Set VhossidVanDnaCode = ProductieSequentieItem.VHOSSID
 			}
 		}
@@ -164,6 +154,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerJuisteVhoss">
+<FormalSpec>DnaCode,ItemIterator,GuiVhossVolgnummer</FormalSpec>
+<Private>1</Private>
+</Method>
+
 <Method name="ScanOngedaanMaken">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>
@@ -172,6 +167,7 @@
 	Set DnaCode.ScanTijdstip = ""
 	Set DnaCode.PalletCode = ""
 	Set DnaCode.Status = "InBatch"
+	Do ..DnaCodeRepository.Bewaar(DnaCode)
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61510 -r61513
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61510)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61513)
@@ -342,6 +342,12 @@
 						Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode,)
 						Do ##class(Tools.Wlip).%New(127).ObjToXML(Response)
 						Set Response.Header.Status = "200"
+					} Else {
+						Set DnaCode.InitialenScanner = ""
+						Set DnaCode.ScanTijdstip = ""
+						Set DnaCode.PalletCode = ""
+						Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 				} Else {
 					Set ToeleveringId = DnaCode.Toelevering