Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r1767 -r1768
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1767)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1768)
@@ -190,13 +190,13 @@
 	ElseIf (..VHossVolgNr'=VHossVolgNr)||(..VHossZijkant'=VHossZijkant)
 	{
 		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"VHossLadeFoutief")
-			Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossLadeFoutief())
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossLadeFoutief())
 	}
 	Else ; controle lade in juiste slot
 	{
 		Set ProductNr=DetectionHelper.GeefProduct()
 		Set VHossSlotNr=DetectionHelper.GeefSlotNr()
-	
+		
 		Set QueueHelper=..ZoekQueueElement(BatchID,VHossVolgNr,VHossZijkant,VHossSlotNr,ProductNr)
 		
 		If $isObject(QueueHelper)
@@ -240,20 +240,18 @@
 <Implementation><![CDATA[
 	Set it=..ProductionHelper.GeefQueueIterator()
 	Set Stop=0
-	While it.HasNext()&&'Stop
+	;Write "Zoek:",BatchID," ",VHossSeqNr," ",VHossZijkant," ",VHossSlotNr," ",ProductNr,!
+	While it.HasNext()&&($G(ResultQueueHelper)="")
 	{
 		Set QueueHelper=it.Next()
-		If (QueueHelper.GeefBatchID()'=BatchID)||(QueueHelper.GeefVHossSeqNr()'=VHossSeqNr)||(QueueHelper.GeefVHossZijkant()'=VHossZijkant)
+		;Write "  Queue:",QueueHelper.GeefBatchID()," ",QueueHelper.GeefVHossSeqNr()," ",QueueHelper.GeefVHossZijkant()," ",QueueHelper.GeefVHossSlotNr()," ",QueueHelper.GeefProductNr(),!
+		If (QueueHelper.GeefBatchID()=BatchID)&&(QueueHelper.GeefVHossSeqNr()=VHossSeqNr)&&(QueueHelper.GeefVHossZijkant()=VHossZijkant)
 		{
-			Set Stop=1
-			Set ResultQueueHelper=""
+			If (QueueHelper.GeefProductNr()=ProductNr)&&(QueueHelper.GeefVHossSlotNr()=VHossSlotNr)
+			{
+				Set ResultQueueHelper=QueueHelper
+			}
 		}
-		Continue:Stop
-		If (QueueHelper.GeefProductNr()=ProductNr)&&(QueueHelper.GeefVHossSlotNr()=VHossSlotNr)
-		{
-			Set Stop=1
-			Set ResultQueueHelper=QueueHelper
-		}
 	}
 	Quit $G(ResultQueueHelper)
 ]]></Implementation>
Index: APPS/VisiDot/zTryout.cls.xml
===================================================================
diff -u -r1753 -r1768
--- APPS/VisiDot/zTryout.cls.xml	(.../zTryout.cls.xml)	(revision 1753)
+++ APPS/VisiDot/zTryout.cls.xml	(.../zTryout.cls.xml)	(revision 1768)
@@ -15,13 +15,18 @@
 	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
 	Do QueueBuilder.Initialize()
 	Set BatchID=QueueBuilder.BuildBatch()
+	;
+	Set VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
+	Set Capture=VHossBuilder.CorrectVHoss(1,1)
+	Do ObjToXMLFile^vhLib(Capture,"c:\CaptureGenerated.xml",,"literal,indent") 
+	
 	Set Capture = ..Import("C:\","VisiDotRead.xml")
 	Quit:Capture=""
 	Set WebService = ##class(WS.VisiDot.OperatorServer).%New()
 	Do WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
 	
 	w ResultDesc,!
-	Do ProcessedData.XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(ProcessedData,"c:\TryProcessed.xml",,"literal,indent") 
 	Quit $$$OK
 ]]></Implementation>
 </Method>