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[