Index: vhUnitTest/APPS/OrderUitvoering/TestVanHoeckeReservatie.cls.xml
===================================================================
diff -u -r29059 -r40178
--- vhUnitTest/APPS/OrderUitvoering/TestVanHoeckeReservatie.cls.xml	(.../TestVanHoeckeReservatie.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/OrderUitvoering/TestVanHoeckeReservatie.cls.xml	(.../TestVanHoeckeReservatie.cls.xml)	(revision 40178)
@@ -7,6 +7,106 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90000,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
+	Set VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux())
+	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
+	Set VerwachteUitvoer = ""
+	
+	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
+	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux())
+	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
+	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90002,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
+	Set VerwachteInvoer = ""
+	
+	Set ^KPR(700) = ""
+	Set ^KPR(700,0) = ""
+	Set ^KPR(701) = ""
+	Set ^KPR(701,0) = ""
+	Set ^KPR(702) = ""
+	Set ^KPR(702,0) = ""
+	Set ^KPR(703) = ""
+	Set ^KPR(703,0) = ""
+	Set ^KPR(704) = ""
+	Set ^KPR(704,0) = ""
+	Set ^KPR(705) = ""
+	Set ^KPR(705,0) = ""
+	
+	Set ^KO1(90000,"F") = "1000"
+	Set ^KOD(1000,"F",90000) = ""
+	Set ^KOD(1000,"F",90000,0) = 102
+	Set ^KOD(1000,"F",90000,1) = ""
+	Set ^KOD(1000,"F",90000,3) = ""
+	Set ^KOD(1000,"F",90000,101) = "703000 \700\2\\\59.31\0#\8\59.31\59.31\703000 \L\\\100\59.31\KF0\\\\E1\EUR\\1\62371\\\\\\\\\\\\\\\\\\\\\1\\"
+	Set ^ORD("IU",90000,100) = 101
+	
+	Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(90000)
+	
+	Set ^KO1(90002,"F") = "1000"
+	Set ^KOD(1000,"F",90002) = ""
+	Set ^KOD(1000,"F",90002,0) = 102
+	Set ^KOD(1000,"F",90002,1) = ""
+	Set ^KOD(1000,"F",90002,3) = ""
+	Set ^KOD(1000,"F",90002,101) = "703000 \700\2\\\59.31\0#\8\59.31\59.31\703000 \L\\\100\59.31\KF0\\\\E1\EUR\\1\62371\\\\\\\\\\\\\\\\\\\\\1\\"
+	Set ^ORD("IU",90002,100) = 101
+	
+	Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(90002)
+	
+	Set ^PRBS("BS",700) = "MSK\OL"
+	Set ^PRBS("BS",700,"KIND.005") = "701\2\K\\\\\\\\PROD"
+	Set ^PRBS("BS",700,"SUR.001") = "\1\S\5.48\\\\\\100\SURP\\Inkorten toeslag + overdoos toeslag\\\0"
+	Set ^PRBS("BS",700,"TIJD.001") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Vouwen"
+	Set ^PRBS("BS",700,"TIJD.002") = "\1\T\\\\20\20\OLVERPAK\\VERPAK\\Inpakken"
+	Set ^PRBS("BS",700,"TIJD.003") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Afwerken"
+	Set ^PRBS("BS",700,"VPK.001") = "353738\1\H\\\\\\\999\optibox"
+	Set ^PRBS("BS",700,"VPK.001","D") = "1158\1158\1215"
+	Set ^PRBS("BS",700,"VPK.002") = "\1\T\\\\20\20\OL KARTON\999\optibox\\Snijden : OL WRAPAROUND"
+	Set ^PRBS("BS",700,"VPK.004") = "\1\T\\\\15\15\OL KARTON\999\optibox\\Snijden : OL SEPARATOR"
+	
+	Set ^PRBS("BS",701,"BSL.001" ) = "705\1\H\\\\\\\16\GROEP\\Omschrijving van het product\\\\\FabrGroep1\FabrPrep\\FabrGroep2"
+	Set ^PRBS("BS",701,"BSL.001","D") = "536\539\646.8"
+	Set ^PRBS("BS",701,"KST.001") = "\1\T\\\\35\35\GRPZAAG\1\GROEP\\Zaagwerk\\\1"
+	Set ^PRBS("BS",701,"MAT.002") = "\1\S\.045\\\\\\2\GROEP\\Zaagwerk surplus\\\1"
+	Set ^PRBS("BS",701,"MAT.003") = "\1\S\.04114293198830083566\\\\\\3\GROEP\\Algemene kost (1%)\\\1"
+	
+	Set ^KTO1(90001) = "6332\"
+	Set ^TO("IU",90001,100) = 101
+	Set ^KTO(6332,90001,0) = "102"
+	Set ^KTO(6332,90001,1) = "\17.11.11\STOCK\\\6332\\\212250\\\\\\\\\EUR\62371\\\\\\\"
+	Set ^KTO(6332,90001,4) = "2"
+	Set ^KTO(6332,90001,101) = "\700\250\\\6.85\22.00#0\\13.35\13.35\\L\1\\100\17.13\KTRPL\\\\H\EUR\\\12/20\\90000\101\\\\\\\\"
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Kill ^KPR(700)
+	Kill ^KPR(701)
+	Kill ^KPR(702)
+	Kill ^KPR(703)
+	Kill ^KPR(704)
+	Kill ^KPR(705)
+	Do:$Data(^KOD(1000,"F",90000)) ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(90000)
+	Do:$Data(^KOD(1000,"F",90002)) ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(90002)
+	Kill ^KO1(90000,"F")
+	Kill ^KO1(90002,"F")
+	Kill ^KOD(1000,"F",90000)
+	Kill ^KOD(1000,"F",90002)
+	Kill ^PRBS("BS",700)
+	Kill ^PRBS("BS",700)
+	Kill ^ORD("IU",90000,100)
+	Kill ^KTO(6332,90001)
+	Kill ^TO("IU",90001)
+	Kill ^KTO1(90001)
+	Do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestMaakReservatieStructuur">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).%New()
@@ -595,109 +695,6 @@
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijTerugnameOrderLijnAnnulatie(TerugnameOrderLijnAnnulatie)
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90000,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
-	Set VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux())
-	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
-	Set VerwachteUitvoer = ""
-	
-	#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
-	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux())
-	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
-	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90002,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
-	Set VerwachteInvoer = ""
-	
-	Set ^KPR(700) = ""
-	Set ^KPR(700,0) = ""
-	Set ^KPR(701) = ""
-	Set ^KPR(701,0) = ""
-	Set ^KPR(702) = ""
-	Set ^KPR(702,0) = ""
-	Set ^KPR(703) = ""
-	Set ^KPR(703,0) = ""
-	Set ^KPR(704) = ""
-	Set ^KPR(704,0) = ""
-	Set ^KPR(705) = ""
-	Set ^KPR(705,0) = ""
-	
-	Set ^KO1(90000,"F") = "1000"
-	Set ^KOD(1000,"F",90000) = ""
-	Set ^KOD(1000,"F",90000,0) = 102
-	Set ^KOD(1000,"F",90000,1) = ""
-	Set ^KOD(1000,"F",90000,3) = ""
-	Set ^KOD(1000,"F",90000,101) = "703000 \700\2\\\59.31\0#\8\59.31\59.31\703000 \L\\\100\59.31\KF0\\\\E1\EUR\\1\62371\\\\\\\\\\\\\\\\\\\\\1\\"
-	Set ^ORD("IU",90000,100) = 101
-	
-	Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(90000)
-	
-	Set ^KO1(90002,"F") = "1000"
-	Set ^KOD(1000,"F",90002) = ""
-	Set ^KOD(1000,"F",90002,0) = 102
-	Set ^KOD(1000,"F",90002,1) = ""
-	Set ^KOD(1000,"F",90002,3) = ""
-	Set ^KOD(1000,"F",90002,101) = "703000 \700\2\\\59.31\0#\8\59.31\59.31\703000 \L\\\100\59.31\KF0\\\\E1\EUR\\1\62371\\\\\\\\\\\\\\\\\\\\\1\\"
-	Set ^ORD("IU",90002,100) = 101
-	
-	Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(90002)
-	
-	Set ^PRBS("BS",700) = "MSK\OL"
-	Set ^PRBS("BS",700,"KIND.005") = "701\2\K\\\\\\\\PROD"
-	Set ^PRBS("BS",700,"SUR.001") = "\1\S\5.48\\\\\\100\SURP\\Inkorten toeslag + overdoos toeslag\\\0"
-	Set ^PRBS("BS",700,"TIJD.001") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Vouwen"
-	Set ^PRBS("BS",700,"TIJD.002") = "\1\T\\\\20\20\OLVERPAK\\VERPAK\\Inpakken"
-	Set ^PRBS("BS",700,"TIJD.003") = "\1\T\\\\15\15\OLVERPAK\\VERPAK\\Afwerken"
-	Set ^PRBS("BS",700,"VPK.001") = "353738\1\H\\\\\\\999\optibox"
-	Set ^PRBS("BS",700,"VPK.001","D") = "1158\1158\1215"
-	Set ^PRBS("BS",700,"VPK.002") = "\1\T\\\\20\20\OL KARTON\999\optibox\\Snijden : OL WRAPAROUND"
-	Set ^PRBS("BS",700,"VPK.004") = "\1\T\\\\15\15\OL KARTON\999\optibox\\Snijden : OL SEPARATOR"
-	
-	Set ^PRBS("BS",701,"BSL.001" ) = "705\1\H\\\\\\\16\GROEP\\Omschrijving van het product\\\\\FabrGroep1\FabrPrep\\FabrGroep2"
-	Set ^PRBS("BS",701,"BSL.001","D") = "536\539\646.8"
-	Set ^PRBS("BS",701,"KST.001") = "\1\T\\\\35\35\GRPZAAG\1\GROEP\\Zaagwerk\\\1"
-	Set ^PRBS("BS",701,"MAT.002") = "\1\S\.045\\\\\\2\GROEP\\Zaagwerk surplus\\\1"
-	Set ^PRBS("BS",701,"MAT.003") = "\1\S\.04114293198830083566\\\\\\3\GROEP\\Algemene kost (1%)\\\1"
-	
-	Set ^KTO1(90001) = "6332\"
-	Set ^TO("IU",90001,100) = 101
-	Set ^KTO(6332,90001,0) = "102"
-	Set ^KTO(6332,90001,1) = "\17.11.11\STOCK\\\6332\\\212250\\\\\\\\\EUR\62371\\\\\\\"
-	Set ^KTO(6332,90001,4) = "2"
-	Set ^KTO(6332,90001,101) = "\700\250\\\6.85\22.00#0\\13.35\13.35\\L\1\\100\17.13\KTRPL\\\\H\EUR\\\12/20\\90000\101\\\\\\\\"
-	
- 	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Kill ^KPR(700)
-	Kill ^KPR(701)
-	Kill ^KPR(702)
-	Kill ^KPR(703)
-	Kill ^KPR(704)
-	Kill ^KPR(705)
-	Do:$Data(^KOD(1000,"F",90000)) ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(90000)
-	Do:$Data(^KOD(1000,"F",90002)) ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(90002)
-	Kill ^KO1(90000,"F")
-	Kill ^KO1(90002,"F")
-	Kill ^KOD(1000,"F",90000)
-	Kill ^KOD(1000,"F",90002)
-	Kill ^PRBS("BS",700)
-	Kill ^PRBS("BS",700)
-	Kill ^ORD("IU",90000,100)
-	Kill ^KTO(6332,90001)
-	Kill ^TO("IU",90001)
-	Kill ^KTO1(90001)
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>