Index: WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml
===================================================================
diff -u -r61036 -r61051
--- WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61036)
+++ WSimpl/Halux/AAP/DnaCodeService/AantalGescandeVhossSequentieItemsBepaler.cls.xml	(.../AantalGescandeVhossSequentieItemsBepaler.cls.xml)	(revision 61051)
@@ -62,7 +62,7 @@
 			Do AantallenGescandPerVhoss.Verhoog(TbxSequentie.GetData(2))
 		}
 		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
-			If $$$Not(TbxSequentie.GetData(2) = GuiVhossVolgnummer) {
+			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)
@@ -121,6 +121,7 @@
 			}
 			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
@@ -152,6 +153,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ScanOngedaanMaken">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DnaCode.InitialenScanner = ""
+	Set DnaCode.ScanTijdstip = ""
+	Set DnaCode.PalletCode = ""
+	Set DnaCode.Status = "InBatch"
+]]></Implementation>
+</Method>
+
 <Method name="BepaalVhossIdVanDnaCode">
 <FormalSpec>SequentieNummer:%String</FormalSpec>
 <Private>1</Private>