Index: APPS/VisiDot/zTryout.cls.xml
===================================================================
diff -u -r1768 -r1808
--- APPS/VisiDot/zTryout.cls.xml	(.../zTryout.cls.xml)	(revision 1768)
+++ APPS/VisiDot/zTryout.cls.xml	(.../zTryout.cls.xml)	(revision 1808)
@@ -31,12 +31,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Import">
-<Description>
-D ##class(APPS.VisiDot.zTryout).%New().Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
-D ##class(APPS.VisiDot.zTryout).%New().End("c:\","Stage_1_Reader_Source.xml")</Description>
-<FormalSpec>Dir,FileName</FormalSpec>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/// D ##class(APPS.VisiDot.zTryout).%New().Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
+/// D ##class(APPS.VisiDot.zTryout).%New().End("c:\","Stage_1_Reader_Source.xml")
+Method Import(Dir, FileName)
+{
 	#include %occStatus
 	
 
@@ -52,15 +53,19 @@
 
 	If $$$ISERR(sc) w $$ParseStatus^vhLib(sc),!  q ""
 	Quit $G(CaptureInfo)
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Zijkant">
 <Description>
 D ##class(APPS.VisiDot.zTryout).%New().Zijkant()</Description>
 <Implementation><![CDATA[
-	Set Data=..Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
+	Set Data=..Import("C:\Share\VisiDot\","Stage_3_After_DUAL_Before_ERP.xml")
 	do ##class(WS.VisiDot.OperatorServer).%New().UpdateData("READ", Data, .ResultDesc, .ProcessedData)
+	Set CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	w "Zijkant ErrorCode : "_CaptureHelper.GeefFoutCode(),!
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -75,5 +80,83 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="Import">
+<FormalSpec>Dir,FileName</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VisiDot.dto.CaptureInfo</ReturnType>
+<Implementation><![CDATA[
+	#include %occStatus	
+	
+	Set reader = ##class(%XML.Reader).%New()
+	// Begin processing of the XML input
+	Set Dir = Dir
+	
+	set FullName = ##class(TECH.Files).AppendFile(Dir,FileName)
+	Set sc=reader.OpenFile(FullName)
+	
+	If $$$ISERR(sc)	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon XML bestand '"_FullName_"' niet openen : "_$$ParseStatus^vhLib(sc))) 
+
+	Do reader.Correlate("Capture_Info","APPS.VisiDot.dto.CaptureInfo") ;Associate a class name with the XML element name
+	
+	Set result=reader.Next(.CaptureInfo,.sc)
+
+	If $$$ISERR(sc)	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon XML bestand '"_FullName_"' niet lezen : "_$$ParseStatus^vhLib(sc))) 
+	
+	Quit $G(CaptureInfo)
+]]></Implementation>
+</Method>
+
+<Method name="Finish">
+<FormalSpec>ProcessedData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	Quit CaptureHelper.GeefFoutCode()
+]]></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 ##class(APPS.VisiDot.zTryout).%New().ShowVHoss(CaptureInfo)</Description>
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[
+	Set WebService = ##class(WS.VisiDot.OperatorServer).%New()
+	Do WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfo, .ResultDesc, .ProcessedData)
+	
+	Set ErrorCode=..Finish(ProcessedData)	
+	
+	Set VRRead = ProcessedData.VRRead.GetAt(1)
+
+	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>