Index: APPS/VisiDot/impl/VHossLadeIterator.cls.xml
===================================================================
diff -u -r1754 -r1764
--- APPS/VisiDot/impl/VHossLadeIterator.cls.xml	(.../VHossLadeIterator.cls.xml)	(revision 1754)
+++ APPS/VisiDot/impl/VHossLadeIterator.cls.xml	(.../VHossLadeIterator.cls.xml)	(revision 1764)
@@ -6,62 +6,13 @@
 maar er worden 2 beelden genomen van een VHoss 
 daarom loopen over meerdere nivos: Camera->Photo->Detection]]></Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DetectionIterator</Super>
+<Super>VHossSlotIterator</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="CaptureHelper">
-<Type>APPS.VisiDot.impl.CaptureHelper</Type>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo,CaptureHelper:APPS.VisiDot.impl.CaptureHelper</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..CaptureHelper=CaptureHelper
-	Do ##super(CaptureInfo)
-	Do:'..IsLade() ..OrderLade()
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="HasNext">
-<Description>
-Returns true if the iteration has more elements.</Description>
+<Method name="IsSlot">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ''..CameraNbr
-]]></Implementation>
-</Method>
-
-<Method name="Next">
-<Description>
-Returns the next element in the iteration.
-Only returns a valid element if HasNext() returns true
-Causes an error if HasNext() returns false</Description>
-<ReturnType>APPS.VisiDot.dto.Detection</ReturnType>
-<Implementation><![CDATA[
-	Quit:'..HasNext() ""
-	;w !,"Next",..CameraNbr," ",..PhotoNbr," ",..DetectionNbr
-	Set Detection=..CaptureHelper.GeefDetectionHelper(..Detection)
-	
-	Do ..OrderLade()
-	Quit Detection
-]]></Implementation>
-</Method>
-
-<Method name="IsLade">
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..CaptureHelper.IsLadeDetection(..Detection)
 ]]></Implementation>
 </Method>
-
-<Method name="OrderLade">
-<Implementation><![CDATA[
-	Do ..Order()
-	While ..HasNext()&&'..IsLade()
-	{
-		Do ..Order()
-	}
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: APPS/VisiDot/impl/VHossSlotIterator.cls.xml
===================================================================
diff -u -r1754 -r1764
--- APPS/VisiDot/impl/VHossSlotIterator.cls.xml	(.../VHossSlotIterator.cls.xml)	(revision 1754)
+++ APPS/VisiDot/impl/VHossSlotIterator.cls.xml	(.../VHossSlotIterator.cls.xml)	(revision 1764)
@@ -19,7 +19,7 @@
 <Implementation><![CDATA[
 	Set ..CaptureHelper=CaptureHelper
 	Do ##super(CaptureInfo)
-	Do:'..IsLade() ..OrderLade()
+	Do:'..IsSlot() ..OrderSlot()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -43,21 +43,21 @@
 	;w !,"Next",..CameraNbr," ",..PhotoNbr," ",..DetectionNbr
 	Set Detection=..CaptureHelper.GeefDetectionHelper(..Detection)
 	
-	Do ..OrderLade()
+	Do ..OrderSlot()
 	Quit Detection
 ]]></Implementation>
 </Method>
 
-<Method name="IsLade">
+<Method name="IsSlot">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..CaptureHelper.IsSlotDetection(..Detection)
 ]]></Implementation>
 </Method>
 
-<Method name="OrderLade">
+<Method name="OrderSlot">
 <Implementation><![CDATA[
 	Do ..Order()
-	While ..HasNext()&&'..IsLade()
+	While ..HasNext()&&'..IsSlot()
 	{
 		Do ..Order()
 	}
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r1757 -r1764
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1757)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1764)
@@ -189,7 +189,8 @@
 	; controle op foutieve VHoss
 	ElseIf (..VHossVolgNr'=VHossVolgNr)||(..VHossZijkant'=VHossZijkant)
 	{
-		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"VHosszijkanten")
+		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"VHossLadeFoutief")
+			Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossLadeFoutief())
 	}
 	Else ; controle lade in juiste slot
 	{
@@ -280,6 +281,10 @@
 		{
 			; niets doen
 		}
+		ElseIf ..CaptureHelper.IsDubbeleDetection(Detection)
+		{
+			; niets doen
+		}
 		Else  ; onbekend type
 		{
 			Do ..ControleOnbekend(Detection)
@@ -335,7 +340,6 @@
 <FormalSpec>Detection</FormalSpec>
 <Implementation><![CDATA[
 	Set DetectionHelper=##class(DetectionHelper).%New(Detection)
-	
 	Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Oranje(),"Onbekende detection")
 	Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOnbekend())
 ]]></Implementation>
Index: APPS/VisiDot/impl/VHossCaptureHelper.cls.xml
===================================================================
diff -u -r1754 -r1764
--- APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1754)
+++ APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1764)
@@ -35,15 +35,15 @@
 <Method name="IsLadeDetection">
 <FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
 <Implementation><![CDATA[
-	Quit:Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Lade() 0
+	Quit:Detection.Selected'=##class(APPS.VisiDot.enu.DetectionTypes).Lade() 0
 	Quit ..IsLadeID(Detection.Id)
 ]]></Implementation>
 </Method>
 
 <Method name="IsFrameDetection">
 <FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
 <Implementation><![CDATA[
-	Quit:Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Frame() 0
+	Quit:Detection.Selected'=##class(APPS.VisiDot.enu.DetectionTypes).Frame() 0
 	Quit ..IsFrameID(Detection.Id)
 ]]></Implementation>
 </Method>
Index: APPS/VisiDot/enu/FoutCodes.cls.xml
===================================================================
diff -u -r1757 -r1764
--- APPS/VisiDot/enu/FoutCodes.cls.xml	(.../FoutCodes.cls.xml)	(revision 1757)
+++ APPS/VisiDot/enu/FoutCodes.cls.xml	(.../FoutCodes.cls.xml)	(revision 1764)
@@ -52,6 +52,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VHossLadeFoutief">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5004"
+]]></Implementation>
+</Method>
+
 <Method name="VHossGeenFrameID">
 <ClassMethod>1</ClassMethod>
 <CodeMode>expression</CodeMode>