Index: vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestPrijsVerschilMock.cls.xml
===================================================================
diff -u -r37185 -r39811
--- vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestPrijsVerschilMock.cls.xml	(.../TestPrijsVerschilMock.cls.xml)	(revision 37185)
+++ vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestPrijsVerschilMock.cls.xml	(.../TestPrijsVerschilMock.cls.xml)	(revision 39811)
@@ -3,19 +3,18 @@
 <Class name="vhUnitTest.APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder.TestPrijsVerschilMock">
 <Super>APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder</Super>
 
-<Method name="%OnNew">
-<FormalSpec>Order:DOM.VKP.Order,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	set ..Order = Order
-	set ..GegevenBevestigingen = GegevenBevestigingen
-	Quit $$$OK
+<Method name="ZetOrder">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Implementation><![CDATA[	set ..Order = Order
 ]]></Implementation>
 </Method>
 
+<Method name="ZetGegevenBevestigingen">
+<FormalSpec>GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen</FormalSpec>
+<Implementation><![CDATA[	set ..GegevenBevestigingen = GegevenBevestigingen
+]]></Implementation>
+</Method>
+
 <Method name="MaakProductVanMaatwerkLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestPrijsVerschil.cls.xml
===================================================================
diff -u -r37185 -r39811
--- vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestPrijsVerschil.cls.xml	(.../TestPrijsVerschil.cls.xml)	(revision 37185)
+++ vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestPrijsVerschil.cls.xml	(.../TestPrijsVerschil.cls.xml)	(revision 39811)
@@ -8,20 +8,40 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##super()
+	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1000)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1000)
+	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="Test">
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().MaakNieuwOrder(..Klant.GeefID())
 		
 	set GegevenBevestigingen = ##class(APPS.common.Bevestigen.dto.GegevenBevestigingen).%New()
 		
-	set Visitor = ##class(vhUnitTest.APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder.TestPrijsVerschilMock).%New(Order,GegevenBevestigingen)
+	set WinkelkarLijnenNaarOrderKopieerder = ##class(vhUnitTest.APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder.TestPrijsVerschilMock).%New()
+	do WinkelkarLijnenNaarOrderKopieerder.ZetOrder(Order)
+	do WinkelkarLijnenNaarOrderKopieerder.ZetGegevenBevestigingen(GegevenBevestigingen)
 	
 	set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 	do MaatwerkLijn.ZetEenheidPrijsNettoExclBTW(7.5)
 	do MaatwerkLijn.ZetAantal(2)
 	
 	try {
-		do Visitor.VerwerkMaatwerkLijn(MaatwerkLijn)
+		do WinkelkarLijnenNaarOrderKopieerder.VerwerkMaatwerkLijn(MaatwerkLijn)
 		do $$$AssertFalse(1,"Er was een error verwacht")
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -30,9 +50,12 @@
 	
 	do GegevenBevestigingen.BevestigdeSleutels.Insert("APPS.VKP.WinkelkarLijnenNaarOrderVisitor.MaakOrderVanOffertePrijsVerschillen")
 	
-	set Visitor = ##class(vhUnitTest.APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder.TestPrijsVerschilMock).%New(Order,GegevenBevestigingen)
-	do Visitor.VerwerkMaatwerkLijn(MaatwerkLijn)
+	set WinkelkarLijnenNaarOrderKopieerder = ##class(vhUnitTest.APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder.TestPrijsVerschilMock).%New()
+	Do WinkelkarLijnenNaarOrderKopieerder.ZetOrder(Order)
+	Do WinkelkarLijnenNaarOrderKopieerder.ZetGegevenBevestigingen(GegevenBevestigingen)
 	
+	do WinkelkarLijnenNaarOrderKopieerder.VerwerkMaatwerkLijn(MaatwerkLijn)
+	
 	#dim Lijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(101)
 	
 	do $$$AssertEquals(Lijn.GeefAantal(),2)
@@ -41,24 +64,6 @@
 	do $$$AssertEquals(Lijn.GeefTotaalExclBTW(),15)
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1000)
- 	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1000)
-	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
- 	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>