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>