Index: vhUnitTest/BL/Flow/Offerte/TestKADEDI.cls.xml
===================================================================
diff -u -r4005 -r4006
--- vhUnitTest/BL/Flow/Offerte/TestKADEDI.cls.xml	(.../TestKADEDI.cls.xml)	(revision 4005)
+++ vhUnitTest/BL/Flow/Offerte/TestKADEDI.cls.xml	(.../TestKADEDI.cls.xml)	(revision 4006)
@@ -1,11 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="vhUnitTest.BL.Flow.Offerte.TestKADEDI">
 <Description>
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.Flow.Offerte.TestKADEDI")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="SetupXML">
 <ClassMethod>1</ClassMethod>
@@ -30,7 +31,6 @@
 <Method name="TestProject">
 <Implementation><![CDATA[
 		Set ProjectItem = ..SetupXML()
-		#dim KADWrapper As BL.Flow.Offerte.IKADWrapper
 		Set KADWrapper = ##class(BL.Flow.Offerte.impl.KADWrapper).%New(ProjectItem)
 		
 		Do $$$AssertEquals(KADWrapper.GeefKlant(),"Cantineau","Klant is correct.")
@@ -45,7 +45,6 @@
 <Method name="TestItem">
 <Implementation><![CDATA[
 		Set ProjectItem = ..SetupXML()
-		#dim KADWrapper As BL.Flow.Offerte.IKADWrapper
 		Set KADWrapper = ##class(BL.Flow.Offerte.impl.KADWrapper).%New(ProjectItem)
 		
 		Do $$$AssertEquals(KADWrapper.GeefItemId(),"1124","Item id is correct.")
@@ -59,7 +58,6 @@
 		Set ProjectItem = ..SetupXML()
 		
 		Set KADWrapper = ##class(BL.Flow.Offerte.impl.KADWrapper).%New(ProjectItem)
-		#dim ParameterWrapper As BL.Flow.Offerte.IParameterWrapper	
 		Set ParameterWrapper = KADWrapper.GeefParameterWrapper()
 		
 		Do $$$AssertEquals(ParameterWrapper.GeefHoogte(),"1678","Hoogte is correct.")		
@@ -91,6 +89,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>