Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u -r1861 -r2494
--- APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 1861)
+++ APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 2494)
@@ -43,5 +43,42 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ShowVHoss">
+<Description>
+JBL - hulp method om visueel overzicht op te vragen
+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>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[
+	Set VHoss(1,1) = ""
+	
+	Set DetIt = ##class(APPS.VisiDot.impl.DetectionIterator).%New(CaptureInfo)
+	While (DetIt.HasNext()){
+			Set Detection = DetIt.Next()			
+			If (Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Lade()){
+				Set Dual = Detection.DUAL.GetAt(1)	
+				Set VHoss(Dual.RowInPallet,Dual.ColInPallet) = Detection.Id
+			}
+	}
+	
+	w !
+	/// Vhoss is omgekeerd van rijen
+	For Row = 3 : -1 : 1
+	{
+		w "| "
+		For Col = 1 : 1 : 10	 
+		{
+			If $Data(VHoss(Row,Col)){ w VHoss(Row,Col) } Else { w "     missing    " }
+			w " | "
+		}
+		w "||",!
+	}
+	w !
+]]></Implementation>
+</Method>
 </Class>
 </Export>