Index: vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml
===================================================================
diff -u -r1769 -r1791
--- vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml	(.../TestVHoss.cls.xml)	(revision 1769)
+++ vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml	(.../TestVHoss.cls.xml)	(revision 1791)
@@ -8,25 +8,38 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="VHossBuilder">
-<Type>%String</Type>
+<Type>vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture</Type>
 </Property>
 
 <Property name="CaptureHelper">
-<Type>%String</Type>
+<Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
 </Property>
 
 <Property name="WebService">
-<Type>%String</Type>
+<Type>WS.VisiDot.OperatorServer</Type>
 </Property>
 
-<Method name="Init">
-<Private>1</Private>
+<Method name="OnBeforeOneTest">
+<Description>
+Opzetten van de VHossBuilder</Description>
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
-	Do QueueBuilder.Initialize()
+	
+	Set BatchID=99999
+	Set SlotLabel=0
+	Set TOENr=234567
+	Set KLNr=1239
+	Set SequenceNr=0
+	Set QueueList = "418581;3;1.1\418582;2;1.1\418588;4;1.1\418589;4;1.1\418609;5;1.1\418703;2;1.1\418704;1;1.1\418715;4;1.1\"
+	Set QueueList = QueueList _"427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2"
+	
+	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
 	Set ..VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
 	Set ..WebService = ##class(WS.VisiDot.OperatorServer).%New()
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -41,7 +54,6 @@
 
 <Method name="TestZijkantCorrect">
 <Implementation><![CDATA[
-	Do ..Init()
 	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
 	;d Capture.XMLExport(,"literal,indent") r k
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
@@ -53,7 +65,7 @@
 
 <Method name="TestZijkantLadeFoutiefvak">
 <Implementation><![CDATA[
-	Do ..Init()
+	
 	Set Capture=..VHossBuilder.CorrectVHossLadeFout(1,1)
 	;d Capture.XMLExport(,"literal,indent") r k
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
@@ -65,7 +77,7 @@
 
 <Method name="TestZijkantPlusOne">
 <Implementation><![CDATA[
-	Do ..Init()
+	
 	Set Capture=..VHossBuilder.CorrectVHossPlusOne(1,1)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
 
@@ -76,7 +88,7 @@
 
 <Method name="TestZijkantMinusOne">
 <Implementation><![CDATA[
-	Do ..Init()
+	
 	Set Capture=..VHossBuilder.CorrectVHossMinusOne(1,1)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
 
@@ -87,7 +99,7 @@
 
 <Method name="TestZijkantDubbel">
 <Implementation><![CDATA[
-	Do ..Init()
+	
 	Set Capture=..VHossBuilder.CorrectVHossMinusOne(1,1)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
 	
@@ -102,7 +114,6 @@
 
 <Method name="TestZijkantZonderLade">
 <Implementation><![CDATA[
-	Do ..Init()
 	Set Capture=..VHossBuilder.CorrectVHoss(99,1)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
 
@@ -113,7 +124,6 @@
 
 <Method name="TestZijkantZonderLadeMetBatch">
 <Implementation><![CDATA[
-	Do ..Init()
 	Set Capture=..VHossBuilder.CorrectVHoss(99,1)
 	Do ..VHossBuilder.ZetBatchID()
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
@@ -125,7 +135,6 @@
 
 <Method name="TestEnd">
 <Implementation><![CDATA[
-	Do ..Init()
 	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
 	Set Capture=..VHossBuilder.CorrectVHoss(2,1)
@@ -146,7 +155,6 @@
 
 <Method name="TestEndNotAllDone">
 <Implementation><![CDATA[
-	Do ..Init()
 	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
 	Set Capture=..VHossBuilder.CorrectVHoss(2,2)
@@ -164,8 +172,6 @@
 
 <Method name="TestEndGeenBatchID">
 <Implementation><![CDATA[
-	Do ..Init()
-	
 	Set Capture=..VHossBuilder.Empty()
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossEnd(), Capture, .ResultDesc, .ProcessedData)