Index: vhUnitTest/APPS/PM/OL/TestExcelImportChecker.cls.xml
===================================================================
diff -u -r29059 -r33029
--- vhUnitTest/APPS/PM/OL/TestExcelImportChecker.cls.xml	(.../TestExcelImportChecker.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/OL/TestExcelImportChecker.cls.xml	(.../TestExcelImportChecker.cls.xml)	(revision 33029)
@@ -1,15 +1,29 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.OL.TestExcelImportChecker">
-<Description>
-Oproepen via 
-	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.OL.TestExcelImportChecker") 
-</Description>
 <ClassType/>
-<IncludeCode>APPS.PM.OL.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	 Do ##super()
+	 	
+	 set TestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
+	 do TestData.CreeerTestData(1001,1003)
+	 do TestData.CreeerTestData(1099,1099)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	 set TestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
+	 do TestData.VerwijderTestData(1099,1099)
+	 do TestData.VerwijderTestData(1001,1003)
+	 Do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestAddToLocalDataDef">
 <Description>
 Test dat de method AddToLocalDataDef() werkt</Description>
@@ -68,11 +82,6 @@
 ]]></Implementation>
 </Method>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
-
 <Method name="TestDeleteFromLocalDataDef">
 <Description>
 Test dat de method DeleteFromLocalDataDef() werkt</Description>
@@ -301,6 +310,7 @@
 </UDLText>
 
 <Method name="GeefImportChecker">
+<Private>1</Private>
 <ReturnType>APPS.PM.OL.ImportChecker</ReturnType>
 <Implementation><![CDATA[
 	Set KenmerkGroep="OL"
@@ -309,23 +319,6 @@
 	Quit ImportChecker
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	 Do ##super()
-	 	
-	 set TestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
-	 do TestData.CreeerTestData()
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<Implementation><![CDATA[
-	 set TestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
-	 do TestData.VerwijderTestData()
-	 Do ##super()
-]]></Implementation>
-</Method>
 </Class>