Index: vhUnitTest/DOM/OV/TestOVDocumentVisitor.cls.xml
===================================================================
diff -u -r734 -r860
--- vhUnitTest/DOM/OV/TestOVDocumentVisitor.cls.xml	(.../TestOVDocumentVisitor.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/OV/TestOVDocumentVisitor.cls.xml	(.../TestOVDocumentVisitor.cls.xml)	(revision 860)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-04 08:11:14">
 <Class name="vhUnitTest.DOM.OV.TestOVDocumentVisitor">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestOVDocumentVisitor")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase,DOM.OV.OVDocumentVisitor</Super>
-<TimeChanged>62109,30616.84241</TimeChanged>
+<TimeChanged>62126,29520.003524</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="BonVerwerkt">
@@ -28,18 +28,26 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.OV.OrderData).Create()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="TestVisitor">
 <Implementation><![CDATA[
 	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Set Bon = OrderAPI.GeefBon(323144)
+	Set Bon = OrderAPI.GeefBon(325216)
 	Do Bon.Accept(##this)
 	Do $$$AssertTrue(..BonVerwerkt,"De bon is verwerkt")
 
 	Set Factuur = OrderAPI.GeefFactuur(320000)
 	Do Factuur.Accept(##this)
 	Do $$$AssertTrue(..FactuurVerwerkt,"De factuur is verwerkt")
 	
-	Set Order = OrderAPI.GeefOrder(105780)
+	Set Order = OrderAPI.GeefOrder(118382)
 	Do Order.Accept(##this)
 	Do $$$AssertTrue(..OrderVerwerkt,"Het order is verwerkt")
 	
@@ -72,6 +80,14 @@
 <Implementation><![CDATA[	Set ..ProformaVerwerkt = 1
 ]]></Implementation>
 </Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.OV.OrderData).Delete()
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="402363423"/>
+<Checksum value="1388884883"/>
 </Export>