Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml
===================================================================
diff -u -r1749 -r1754
--- APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 1749)
+++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 1754)
@@ -58,7 +58,7 @@
 <FormalSpec><![CDATA[&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..BatchID=..CaptureHelper.GeefDirectorSleutelWaarde("OrderID") ; opgeslagen in de ERP gedeelte van de CaptureData
+	Set ..BatchID=..CaptureHelper.GeefBatchID() ; opgeslagen in de CaptureData
 	If ..BatchID=""
 	{
 		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Geen batch","BatchId is niet ingevuld door een vorige verwerking")
Index: APPS/VisiDot/impl/VHossCaptureHelper.cls.xml
===================================================================
diff -u -r1749 -r1754
--- APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1749)
+++ APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1754)
@@ -27,22 +27,45 @@
 <Implementation><![CDATA[
 	If ..IsFrameDetection(Detection) Quit ##class(VHossFrameDetectionHelper).%New(Detection,##this)
 	If ..IsLadeDetection(Detection) Quit ##class(VHossLadeDetectionHelper).%New(Detection,##this)
+	If ..IsSlotDetection(Detection) Quit ##class(VHossSlotDetectionHelper).%New(Detection,##this)
 	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="IsLadeDetection">
 <FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
-<Implementation><![CDATA[	Quit ..IsLadeID(Detection.Id)
+<Implementation><![CDATA[
+	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 ..IsFrameID(Detection.Id)
+<Implementation><![CDATA[
+	Quit:Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Frame() 0
+	Quit ..IsFrameID(Detection.Id)
 ]]></Implementation>
 </Method>
 
+<Method name="IsDubbeleDetection">
+<FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
+<Implementation><![CDATA[	Quit Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Dubbel()
+]]></Implementation>
+</Method>
+
+<Method name="IsLegeDetection">
+<FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
+<Implementation><![CDATA[	Quit Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Leeg()
+]]></Implementation>
+</Method>
+
+<Method name="IsSlotDetection">
+<FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
+<Implementation><![CDATA[	Quit ..IsLegeDetection(Detection)||..IsLadeDetection(Detection)
+]]></Implementation>
+</Method>
+
 <Method name="IsLadeID">
 <FormalSpec>ID</FormalSpec>
 <Implementation><![CDATA[	Quit ..ProductionHelper.IsLadeID(ID)
@@ -55,10 +78,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSlotDetectionIterator">
+<ReturnType>APPS.VisiDot.impl.DetectionIterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(VHossSlotIterator).%New(..CaptureInfo, ##this)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLadeDetectionIterator">
 <ReturnType>APPS.VisiDot.impl.DetectionIterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(VHossLadeIterator).%New(..CaptureInfo, ##this)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBatchID">
+<Implementation><![CDATA[
+	
+	Quit ..GeefDirectorSleutelWaarde("OrderID")
+]]></Implementation>
+</Method>
+
+<Method name="ZetBatchID">
+<FormalSpec>BatchID</FormalSpec>
+<Implementation><![CDATA[
+	
+	Do ..ZetDirectorSleutelWaarde("OrderID",BatchID)
+	Do ..ZetERPSleutelWaarde("BatchID",BatchID)
+]]></Implementation>
+</Method>
+
+<Method name="ZetVHossSequentie">
+<FormalSpec>VHossVolgNr,VHossZijkant</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetERPSleutelWaarde("VHossSequentie",VHossVolgNr_"."_VHossZijkant)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFrameID">
+<FormalSpec>FrameID</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetERPSleutelWaarde("FrameID",FrameID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VisiDot/enu/DetectionTypes.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/enu/DetectionTypes.cls.xml	(revision 0)
+++ APPS/VisiDot/enu/DetectionTypes.cls.xml	(revision 1754)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.enu.DetectionTypes">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,Y,Dup,Unlabeled,NonAsset</Default>
+</Parameter>
+
+<Method name="Lade">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["Y"
+]]></Implementation>
+</Method>
+
+<Method name="Dubbel">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["Dup"
+]]></Implementation>
+</Method>
+
+<Method name="Leeg">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["Unlabeled"
+]]></Implementation>
+</Method>
+
+<Method name="Frame">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["NonAsset"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r1749 -r1754
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1749)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1754)
@@ -68,27 +68,25 @@
 <Implementation><![CDATA[
 
 	; Stap 1
-	;W "   *** BepaalIDs ***",!
 	Do ..BepaalVHossIDs()
-	;W ..BatchID," ",..VHossVolgNr," ",..VHossZijkant,!
 	
 	If (..BatchID) && (..VHossVolgNr) && (..VHossZijkant) && (..FrameDetectionHelper)
 	{
 		; Stap 2
-		;W "   *** AanwezigeLades ***",!
 		Do ..ProductionHelper.InitCache(..BatchID,..VHossVolgNr,..VHossZijkant)
-		Do ..ControleAanwezigeLades()	
+		Do ..ControleAanwezigeLades() ; de gedetecteerde lades zijn correct
 		Do ..ProductionHelper.SaveCache()
-		
+
 		; Stap 3
-		;W "   *** OntbrekendeLades ***",!
-		Do ..ControleOntbrekendeLades()
+		Do ..ControleLegeSlots() ; de lege slots zijn correct
 		
+		; Stap 4
+		Do ..ControleOntbrekendeLaden() ; er zijn laden in de Queue die geen Detection hebben
+		
 		; toevoegen extra info
-		Do ..CaptureHelper.ZetDirectorSleutelWaarde("OrderID",..BatchID) ; wordt gebruikt bij een volgende controle
-		Do ..CaptureHelper.ZetERPSleutelWaarde("BatchID",..BatchID) ; wordt gebruikt bij een volgende controle
-		Do ..CaptureHelper.ZetERPSleutelWaarde("VHossSequentie",..VHossVolgNr_"."_..VHossZijkant)
-		Do ..CaptureHelper.ZetERPSleutelWaarde("FrameID",..FrameDetectionHelper.GeefID())
+		Do ..CaptureHelper.ZetBatchID(..BatchID) ; wordt gebruikt bij een volgende controle
+		Do ..CaptureHelper.ZetVHossSequentie(..VHossVolgNr,..VHossZijkant)
+		Do ..CaptureHelper.ZetFrameID(..FrameDetectionHelper.GeefID())
 	}
 	Do ..BepaalResultaat(.ResultDesc,.ProcessedData)
 	Quit $$$OK
@@ -112,8 +110,41 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ControleOntbrekendeLades">
+<Method name="ControleLegeSlots">
 <Implementation><![CDATA[
+	Set it=..CaptureHelper.GeefSlotDetectionIterator()
+	While it.HasNext()
+	{
+		Set DetectionHelper=it.Next()
+		If ..CaptureHelper.IsLegeDetection(DetectionHelper.GeefData())
+		{
+			Do ..ControleLegeSlot(DetectionHelper)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleLegeSlot">
+<FormalSpec>DetectionHelper</FormalSpec>
+<Implementation><![CDATA[
+	Set VHossSlotNr=DetectionHelper.GeefSlotNr()
+	Set it=..ProductionHelper.GeefQueueIterator()
+	While it.HasNext()
+	{
+		Set QueueHelper=it.Next()
+		If QueueHelper.GeefVHossSlotNr()=VHossSlotNr
+		{
+			Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Ontbrekende lade")
+			Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend())
+			Do QueueHelper.GeefInfo(.Toelevering,.DossierNr,.Omschrijving)
+			Do DetectionHelper.ZetInfo(Toelevering,DossierNr,Omschrijving)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleOntbrekendeLaden">
+<Implementation><![CDATA[
 	Set LegeSlots=""
 	Set it=..ProductionHelper.GeefQueueIterator()
 	While it.HasNext()
@@ -147,7 +178,6 @@
 <FormalSpec>DetectionHelper</FormalSpec>
 <Implementation><![CDATA[
 	;w DetectionHelper.GeefID()," ",DetectionHelper.GeefSlotNr(),!
-
 	Set BatchID=DetectionHelper.GeefBatchID()
 	Set VHossVolgNr=DetectionHelper.GeefVHossVolgNr()
 	Set VHossZijkant=DetectionHelper.GeefVHossZijkant()
@@ -230,7 +260,7 @@
 
 <Method name="BepaalVHossIDs">
 <Implementation><![CDATA[
-	Set ..BatchID=..CaptureHelper.GeefDirectorSleutelWaarde("OrderID") ; opgeslagen in de ERP gedeelte van de CaptureData
+	Set ..BatchID=..CaptureHelper.GeefBatchID() ; opgeslagen in de CaptureData
 	Set ..VHossVolgNr=""
 	Set ..VHossZijkant=""
 	Set ..FrameDetectionHelper=""
@@ -247,9 +277,13 @@
 		{
 			Do ..BepaalBatchEnVHoss(Detection)
 		}
+		ElseIf ..CaptureHelper.IsSlotDetection(Detection)
+		{
+			; niets doen
+		}
 		Else  ; onbekend type
 		{
-			Do ..ControleOnbekende(Detection)
+			Do ..ControleOnbekend(Detection)
 		}
 	}
 	
@@ -298,15 +332,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ControleOnbekende">
+<Method name="ControleOnbekend">
 <FormalSpec>Detection</FormalSpec>
 <Implementation><![CDATA[
 	Set DetectionHelper=##class(DetectionHelper).%New(Detection)
-	If $L(DetectionHelper.GeefID())
-	{
-		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Oranje(),"Onbekende detection")
-		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOnbekend())
-	}
+	
+	Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Oranje(),"Onbekende detection")
+	Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOnbekend())
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/VisiDot/impl/VHossLadeIterator.cls.xml
===================================================================
diff -u -r1717 -r1754
--- APPS/VisiDot/impl/VHossLadeIterator.cls.xml	(.../VHossLadeIterator.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/VHossLadeIterator.cls.xml	(.../VHossLadeIterator.cls.xml)	(revision 1754)
@@ -50,7 +50,7 @@
 
 <Method name="IsLade">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..CaptureHelper.IsLadeID(..Detection.Id)
+<Implementation><![CDATA[	Quit ..CaptureHelper.IsLadeDetection(..Detection)
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml
===================================================================
diff -u -r1749 -r1754
--- APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml	(.../VHossLadeDetectionHelper.cls.xml)	(revision 1749)
+++ APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml	(.../VHossLadeDetectionHelper.cls.xml)	(revision 1754)
@@ -4,7 +4,7 @@
 <Description>
 Encapsulatie van de VisiDot detection dataobject voor de VHoss frame</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DetectionHelper</Super>
+<Super>VHossSlotDetectionHelper</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefBatchID">
@@ -26,22 +26,5 @@
 <Implementation><![CDATA[		Quit ..CaptureHelper.ProductionHelper.GeefProductVanLadeID(..GeefID())
 ]]></Implementation>
 </Method>
-
-<Method name="GeefSlotNr">
-<Implementation><![CDATA[
-		Set Dual=..Detection.DUAL.GetAt(1)
-		Quit:'$isObject(Dual) ""
-		Quit (Dual.RowInPallet-1)*10+Dual.ColInPallet
-]]></Implementation>
-</Method>
-
-<Method name="ZetInfo">
-<FormalSpec>Toelevering,Dossier,Omschrijving</FormalSpec>
-<Implementation><![CDATA[
-		Do ..ZetData("Toelevering",Toelevering)
-		Do ..ZetData("Dossier",Dossier)
-		Do ..ZetData("Omschrijving",Omschrijving)
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml	(revision 1754)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossSlotDetectionHelper">
+<Description>
+Encapsulatie van de VisiDot detection dataobject voor de VHoss frame</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DetectionHelper</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefSlotNr">
+<Implementation><![CDATA[
+		Set Dual=..Detection.DUAL.GetAt(1)
+		Quit:'$isObject(Dual) ""
+		Quit (Dual.RowInPallet-1)*10+Dual.ColInPallet
+]]></Implementation>
+</Method>
+
+<Method name="ZetInfo">
+<FormalSpec>Toelevering,Dossier,Omschrijving</FormalSpec>
+<Implementation><![CDATA[
+		Do ..ZetData("Toelevering",Toelevering)
+		Do ..ZetData("Dossier",Dossier)
+		Do ..ZetData("Omschrijving",Omschrijving)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossSlotIterator.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossSlotIterator.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossSlotIterator.cls.xml	(revision 1754)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossSlotIterator">
+<Description><![CDATA[
+Loopen door de Detection elementen, 
+maar er worden 2 beelden genomen van een VHoss 
+daarom loopen over meerdere nivos: Camera->Photo->Detection]]></Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DetectionIterator</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>
+<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.IsSlotDetection(..Detection)
+]]></Implementation>
+</Method>
+
+<Method name="OrderLade">
+<Implementation><![CDATA[
+	Do ..Order()
+	While ..HasNext()&&'..IsLade()
+	{
+		Do ..Order()
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>