Index: APPS/VisiDot/dto/Detection.cls.xml
===================================================================
diff -u -r1866 -r2571
--- APPS/VisiDot/dto/Detection.cls.xml	(.../Detection.cls.xml)	(revision 1866)
+++ APPS/VisiDot/dto/Detection.cls.xml	(.../Detection.cls.xml)	(revision 2571)
@@ -197,5 +197,9 @@
 <Parameter name="XMLNAME" value="EnlargeRatioY"/>
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
+
+<Property name="IsCorrect">
+<Type>%Boolean</Type>
+</Property>
 </Class>
 </Export>
Index: APPS/VisiDot/impl/DetectionHelper.cls.xml
===================================================================
diff -u -r2079 -r2571
--- APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 2079)
+++ APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 2571)
@@ -43,6 +43,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsCorrect">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Detection.IsCorrect
+]]></Implementation>
+</Method>
+
+<Method name="ZetIsCorrect">
+<FormalSpec>Correct:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Set ..Detection.IsCorrect = Correct
+]]></Implementation>
+</Method>
+
 <Method name="ZetStatus">
 <FormalSpec>Kleur:APPS.VisiDot.enu.DetectionKleur,ToolTip:%String=""</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r2494 -r2571
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2494)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2571)
@@ -143,5 +143,27 @@
 <Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.Sequencer).GeefQueueIterator(BatchID)
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekQueueElement">
+<FormalSpec>BatchID,VHossSeqNr,VHossZijkant,VHossSlotNr,ProductNr</FormalSpec>
+<ReturnType>APPS.VisiDot.impl.QueueHelper</ReturnType>
+<Implementation><![CDATA[
+	Set ResultQueueHelper = ""
+	Set it=..GeefQueueIterator()
+	Set Stop=0
+	While it.HasNext()&&($G(ResultQueueHelper)="")
+	{
+		Set QueueHelper=it.Next()
+		If (QueueHelper.GeefBatchID()=BatchID)&&(QueueHelper.GeefVHossSeqNr()=VHossSeqNr)&&(QueueHelper.GeefVHossZijkant()=VHossZijkant)
+		{
+			If (QueueHelper.GeefProductNr()=ProductNr)&&(QueueHelper.GeefVHossSlotNr()=VHossSlotNr)
+			{
+				Set ResultQueueHelper=QueueHelper
+			}
+		}
+	}
+	Quit $G(ResultQueueHelper)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VisiDot/impl/QueueHelper.cls.xml
===================================================================
diff -u -r1757 -r2571
--- APPS/VisiDot/impl/QueueHelper.cls.xml	(.../QueueHelper.cls.xml)	(revision 1757)
+++ APPS/VisiDot/impl/QueueHelper.cls.xml	(.../QueueHelper.cls.xml)	(revision 2571)
@@ -27,6 +27,7 @@
 </Method>
 
 <Method name="Save">
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set:..QueueElement.WPVerpak.FirstChanged="" ..QueueElement.WPVerpak.FirstChanged=$$$Timestamp($H)
 	Set ..QueueElement.WPVerpak.LastChanged=$$$Timestamp($H)
@@ -35,6 +36,7 @@
 </Method>
 
 <Method name="IsModified">
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..QueueElement.%IsModified()||..QueueElement.WPVerpak.%IsModified()
 ]]></Implementation>
 </Method>
Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u -r2494 -r2571
--- APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 2494)
+++ APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 2571)
@@ -50,7 +50,7 @@
 Set Dir = "E:\Svn\CACHE\CacheAdminAUnitTests\APPS.VisiDot\Stage2_NormalRead_AllOk\"
 Set File = "ReadResults_ReadID00000182_Controller_Gate1_Status00_Time_20110814_153423_890_DUAL_(Stage_3_Before_DB_Insertion).xml"
 Set CaptureInfo = ..Import(Dir, File)
-d ##classAPPS.VisiDot.impl.Tech).%New().ShowVHoss(CaptureInfo)</Description>
+d ##classAPPS.VisiDot.impl.Tech).ShowVHoss(CaptureInfo)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r2494 -r2571
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2494)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2571)
@@ -64,21 +64,12 @@
 <FormalSpec><![CDATA[&ResultDesc:APPS.VisiDot.enu.ActionCodes,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
-	
 	; Stap 1
 	Do ..BepaalVHossIDs()	
 	If (..BatchID & ..VHossVolgNr  &..VHossZijkant){
 		Do ..CaptureHelper.ZetBatchID(..BatchID) ; wordt gebruikt bij een volgende controle
 	}	
 	
-	/// Opslaan van binnenkomende data in de juiste directory
-	Set BestandNaam = "CaptureInfo_IN_"_$tr($h,",")_".xml"
-	//Set BestandNaam = "CaptureInfo_IN.xml"
-	Set VHossSequentie = ##class(APPS.VisiDot.impl.VHossCaptureHelper).MaakVHossSequentie(..VHossVolgNr,..VHossZijkant)
-	Set BestandNaam = VHossSequentie_"_"_BestandNaam
-	Do ##class(APPS.VisiDot.impl.ZijkantAfhandelaar).BewaarData(..CaptureHelper.GeefData(),BestandNaam)
-	
 	If (..BatchID) && (..VHossVolgNr) && (..VHossZijkant) && (..FrameDetectionHelper)
 	{
 		; Stap 2
@@ -96,6 +87,14 @@
 		Do ..CaptureHelper.ZetVHossSequentie(..VHossVolgNr,..VHossZijkant)
 		Do ..CaptureHelper.ZetFrameID(..FrameDetectionHelper.GeefID())
 	}
+	
+	/// Opslaan van binnenkomende data in de juiste directory
+	Set BestandNaam = "CaptureInfo_IN_"_$tr($h,",")_".xml"
+	//Set BestandNaam = "CaptureInfo_IN.xml"
+	Set VHossSequentie = ##class(APPS.VisiDot.impl.VHossCaptureHelper).MaakVHossSequentie(..VHossVolgNr,..VHossZijkant)
+	Set BestandNaam = VHossSequentie_"_"_BestandNaam
+	Do ##class(APPS.VisiDot.impl.ZijkantAfhandelaar).BewaarData(..CaptureHelper.GeefData(),BestandNaam)
+	
 	Do ..BepaalResultaat(.ResultDesc,.ProcessedData)
 	Quit $$$OK
 ]]></Implementation>
@@ -225,7 +224,7 @@
 		Set ProductNr=DetectionHelper.GeefProduct()
 		Set VHossSlotNr=DetectionHelper.GeefSlotNr()
 		
-		Set QueueHelper=..ZoekQueueElement(BatchID,VHossVolgNr,VHossZijkant,VHossSlotNr,ProductNr)
+		Set QueueHelper=..ProductionHelper.ZoekQueueElement(BatchID,VHossVolgNr,VHossZijkant,VHossSlotNr,ProductNr)
 		
 		If $isObject(QueueHelper)
 		{
@@ -239,6 +238,7 @@
 				If VHossSlotNr=QueueHelper.GeefVHossSlotNr()
 				{
 					Do QueueHelper.ZetFrameID(..FrameDetectionHelper.GeefID())
+					Do DetectionHelper.ZetIsCorrect(1)
 					Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Groen())
 				}
 				Else 
@@ -264,27 +264,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekQueueElement">
-<FormalSpec>BatchID,VHossSeqNr,VHossZijkant,VHossSlotNr,ProductNr</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set it=..ProductionHelper.GeefQueueIterator()
-	Set Stop=0
-	While it.HasNext()&&($G(ResultQueueHelper)="")
-	{
-		Set QueueHelper=it.Next()
-		If (QueueHelper.GeefBatchID()=BatchID)&&(QueueHelper.GeefVHossSeqNr()=VHossSeqNr)&&(QueueHelper.GeefVHossZijkant()=VHossZijkant)
-		{
-			If (QueueHelper.GeefProductNr()=ProductNr)&&(QueueHelper.GeefVHossSlotNr()=VHossSlotNr)
-			{
-				Set ResultQueueHelper=QueueHelper
-			}
-		}
-	}
-	Quit $G(ResultQueueHelper)
-]]></Implementation>
-</Method>
-
 <Method name="BepaalVHossIDs">
 <Private>1</Private>
 <Implementation><![CDATA[