Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61352 -r61445
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61352)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61445)
@@ -57,6 +57,9 @@
 	#dim TbxSequentie As %CacheString
 	While ItemIterator.HasNext() {
 		Set TbxSequentie = ItemIterator.Next()
+		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"))
+		}
 		Do AantallenPerVhoss.Verhoog(TbxSequentie.GetData(2))
 		If ..IsDnaCodeGescand(DnaCode.BatchId, TbxSequentie.GetData(1)) {
 			Do AantallenGescandPerVhoss.Verhoog(TbxSequentie.GetData(2))
@@ -68,6 +71,9 @@
 			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()