Index: vhUnitTest/CHUI/Flow/Order/ConsumentenCommissieDialoog.cls.xml
===================================================================
diff -u -r29059 -r40280
--- vhUnitTest/CHUI/Flow/Order/ConsumentenCommissieDialoog.cls.xml	(.../ConsumentenCommissieDialoog.cls.xml)	(revision 29059)
+++ vhUnitTest/CHUI/Flow/Order/ConsumentenCommissieDialoog.cls.xml	(.../ConsumentenCommissieDialoog.cls.xml)	(revision 40280)
@@ -1,10 +1,36 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.CHUI.Flow.Order.ConsumentenCommissieDialoog">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","CHUI.Flow.Order.ConsumentenCommissieDialoog)</Description>
 <Super>vhUnitTest.TestCase,vhUnitTest.CHUI.Flow.Order.ConsumentenCommissieDialoogMock</Super>
 
+<Property name="OrderData">
+<Type>vhUnitTest.DOM.VKP.OrderData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..OrderData = ##class(vhUnitTest.DOM.VKP.OrderData).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	do ##super(aTestName)
+ 	do ..OrderData.Create()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	do ##super(aTestName)
+ 	do ..OrderData.Delete()
+]]></Implementation>
+</Method>
+
 <Method name="Test">
 <Implementation><![CDATA[
 	do ##class(vhUnitTest.CHUI.Flow.Order.ConsumentenCommissieDialoogMock)##this.%OnNew(118382)
@@ -161,34 +187,6 @@
 	do $$$AssertFalse(..GeefBovenMaximumPopupGetoond(),"Boven maximum werd niet getoond - hertoevoeging")
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
- 	do ##super(aTestName)
- 	do ..OrderData.Create()
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
- 	do ##super(aTestName)
- 	do ..OrderData.Delete()
-]]></Implementation>
-</Method>
-
-<Property name="OrderData">
-<Type>vhUnitTest.DOM.VKP.OrderData</Type>
-</Property>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..OrderData = ##class(vhUnitTest.DOM.VKP.OrderData).%New()
- 	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>