Index: vhUnitTest/DOM/OV/TestProforma.cls.xml
===================================================================
diff -u -r1074 -r1497
--- vhUnitTest/DOM/OV/TestProforma.cls.xml	(.../TestProforma.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/OV/TestProforma.cls.xml	(.../TestProforma.cls.xml)	(revision 1497)
@@ -49,5 +49,32 @@
 	Do $$$AssertFalse(TypedBonIterator.HasNext(),"De bon bevat geen volgende lijn")
 ]]></Implementation>
 </Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ^KFAP("F",30000,0,0) = "7873\F\02.08.02\1\EUR\02.07.02\44.00\43.12\0.00\0.00\0.00\44\.88\44\\1\0#0.00\\\\\\\\\\"
+	Set ^KFAP("F",30000,0,1) = "0#44.00#\0#43.12#\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",30000,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",30000,0,3) = "\\\\\\\\\\\\\\\\\\\\##\3.475\\07#44\\\\\\\"
+	Set ^KFAP("F",30000,"U367002",0) = "\"
+	Set ^KFAP("F",30000,"U367002",1) = "\01.07.02\\\\7873\SP #Per spoor\410;367002;5036\#\\\\0.00##3.475\1\\\\EUR\005003\\00\1\\###\P\\\F\P\SP\\\\\\"
+	Set ^KFAP("F",30000,"U367002",2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",30000,"U367002",3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",30000,"U367002",101) = "\\\12#1041#58983,50147\125531 - 28.06.02 - 28.06.02 O/BEZ JS/D\\\\\\\\\\\\KF5\\\\\\\\\"
+	Set ^KFAP("F",30000,"U367002",102) = "703002 \55778\25\\\1.24\0#\0\31.00\31.00\703002 \L\\P\\31.00\KF6\\\\E1\EUR\\\02/27\\\\\\\\\\\"
+	Set ^KFAP("F",30000,"U367002",103) = "703002 \2539\25\\\0.52\-25#\0\13.00\13.00\703002 \L\\P\\13.00\KF6\\\\E1\EUR\\\02/27\\\\\\\\\\\"
+	Set ^KFAP("F",30000,"U367002",104) = "\\\\GRATIS MONSTERS I V M AANKOOP BOORKOP\\\\\\\\\\\\KF11#1\50233;T;;OWBFT\\\\\\\\\\\\\\\\\\"
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^KFAP("F",30000)
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>