Index: vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml
===================================================================
diff -u -r1765 -r1766
--- vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml	(.../BuildVHossCapture.cls.xml)	(revision 1765)
+++ vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml	(.../BuildVHossCapture.cls.xml)	(revision 1766)
@@ -83,11 +83,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CorrectVHossLadeFout">
+<FormalSpec>VHossNr,Zijkant</FormalSpec>
+<Implementation><![CDATA[
+	Do ..BuildVHoss(VHossNr, Zijkant)
+	Do ..MoveOneLade(30)
+	Do ..AddEmptySlots()
+	Quit ..Capture
+]]></Implementation>
+</Method>
+
 <Method name="CorrectVHossPlusOne">
 <FormalSpec>VHossNr,Zijkant</FormalSpec>
 <Implementation><![CDATA[
 	Do ..BuildVHoss(VHossNr, Zijkant)
-	Set Detection=..BuildExtraDetection(VHossNr+1, 1)
+	Set Detection=..BuildExtraDetection(VHossNr+1, 1,30)
 	Do ..AddDetection2Capture(Detection,30)
 	;do ..Capture.XMLExport(,"literal,indent") r k
 	Do ..AddEmptySlots()
@@ -99,7 +109,7 @@
 <FormalSpec>VHossNr,Zijkant</FormalSpec>
 <Implementation><![CDATA[
 	Do ..BuildVHoss(VHossNr, Zijkant)
-	Do ..DeleteOneLadeDetection()
+	Do ..DeleteOneLade()
 	Do ..AddEmptySlots()
 	Quit ..Capture
 ]]></Implementation>
@@ -230,7 +240,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DeleteOneLadeDetection">
+<Method name="DeleteOneLade">
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Camera=..Sequence.Camera.GetAt(1)
@@ -242,6 +252,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MoveOneLade">
+<FormalSpec>SlotNr</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Camera=..Sequence.Camera.GetAt(1)
+	Set Photo=Camera.Photo.GetAt(1)
+	If Photo.Detection.Count()>0
+	{
+		Set Detection=Photo.Detection.GetAt(Photo.Detection.Count())
+		;do Detection.XMLExport(,"literal,indent") r k
+		Set Dual=..BuildDual(SlotNr)
+		Do Detection.DUAL.RemoveAt(1)
+		Do Detection.DUAL.Insert(Dual)
+		;do Detection.XMLExport(,"literal,indent") r k
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BuildLegeDetection">
 <FormalSpec>SlotNr</FormalSpec>
 <Private>1</Private>
@@ -256,14 +284,14 @@
 </Method>
 
 <Method name="BuildExtraDetection">
-<FormalSpec>VHossNr,Zijkant</FormalSpec>
+<FormalSpec>VHossNr,Zijkant,SlotNr</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Detection=##class(APPS.VisiDot.dto.Detection).%New()
 	Set Detection.Id=""
 	Set Detection.Id=..ProductionHelper.BuildLadeID(..BatchID, VHossNr, Zijkant, 418581) ;willekeurig product
 	Set Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Lade()
-	Set Dual=..BuildDual(30)
+	Set Dual=..BuildDual(SlotNr)
 	Do Detection.DUAL.Insert(Dual)
 	;do Detection.XMLExport(,"literal,indent") r k