Index: vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/ConfirmOrder/Test1.cls.xml
===================================================================
diff -u -r53429 -r53430
--- vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/ConfirmOrder/Test1.cls.xml	(.../Test1.cls.xml)	(revision 53429)
+++ vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/ConfirmOrder/Test1.cls.xml	(.../Test1.cls.xml)	(revision 53430)
@@ -5,6 +5,25 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.WSimpl.EC.Unishop.OrderConfirmation.Service.ConfirmOrder.TestBase</Super>
 
+<Parameter name="LageEDInummer">
+<Type>%Integer</Type>
+<Default>77667</Default>
+</Parameter>
+
+<Parameter name="OfferteNummer">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..Shop = ##class(APPS.EC.enu.UniShopVerwerker).SFS()
+]]></Implementation>
+</Method>
+
 <Method name="TestConfirmNogNietBesteldeOfferteVanHandel">
 <Implementation><![CDATA[
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
@@ -64,30 +83,26 @@
 
 <Method name="aTest: SFS orders met ExternID &lt; 200000 moeten verwerkt worden mbv Repository">
 <Implementation><![CDATA[
-	Set ..Shop = ##class(APPS.EC.enu.UniShopVerwerker).SFS()
-	
-	#dim OfferteNummer As %Integer = 1
-	#dim LageEDInummer As %Integer = 77667
 	#dim OfferteBestaatNietMelding As %String = "UT_Melding_OfferteBestaatNiet"
 
-	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(OfferteNummer)
+	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(..#OfferteNummer)
 	Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn(1)
 	
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",OfferteNummer).DanReturn(..OfferteVanHandel)
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",..#OfferteNummer).DanReturn(..OfferteVanHandel)
 	Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanVH",..OfferteVanHandel).DanReturn(..VanHoeckeOfferte)
 	Set ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopService.VerwachtMethodCall("BestelOfferte", ..VanHoeckeOfferte.GeefID(), ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke())
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId",LageEDInummer).DanReturn($$$True)
-	Do OfferteRepositoryMock.VerwachtMethodCall("GeefViaExterneId",LageEDInummer).DanReturn(..OfferteVanHandel)
+	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId",..#LageEDInummer).DanReturn($$$True)
+	Do OfferteRepositoryMock.VerwachtMethodCall("GeefViaExterneId",..#LageEDInummer).DanReturn(..OfferteVanHandel)
 	
 	Set IntractoInformeerderMock = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort).%New()
-	Do IntractoInformeerderMock.VerwachtMethodCall("updateStatus",LageEDInummer,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP()).ExactAantalKeer(1)
+	Do IntractoInformeerderMock.VerwachtMethodCall("updateStatus",..#LageEDInummer,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP()).ExactAantalKeer(1)
 	Set IntractoMelder = ##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New(IntractoInformeerderMock)
 	
-	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoMelder,OfferteRepositoryMock).ConfirmOrder(LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
+	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoMelder,OfferteRepositoryMock).ConfirmOrder(..#LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
 	
 	Do OfferteRepositoryMock.Verifieer()
 	Do ExterneVerkoopService.Verifieer()
@@ -97,32 +112,28 @@
 
 <Method name="Test: SFS orders met ExternID &lt; 200000 die niet bestaan -&gt; Exceptie">
 <Implementation><![CDATA[
-	Set ..Shop = ##class(APPS.EC.enu.UniShopVerwerker).SFS()
-	
-	#dim OfferteNummer As %Integer = 1
-	#dim LageEDInummer As %Integer = 77667
 	#dim OfferteBestaatNietMelding As %String = "UT_Melding_OfferteBestaatNiet"
 
-	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(OfferteNummer)
+	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(..#OfferteNummer)
 	Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn(1)
 	
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",LageEDInummer).DanException(##class(TECH.Exceptions.InvalidInputException).%New(OfferteBestaatNietMelding))
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",..#LageEDInummer).DanException(##class(TECH.Exceptions.InvalidInputException).%New(OfferteBestaatNietMelding))
 	Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanVH",..OfferteVanHandel).DanReturn(..VanHoeckeOfferte)
 	Set ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopService.VerwachtMethodCall("BestelOfferte", ..VanHoeckeOfferte.GeefID(), ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke())
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId",LageEDInummer).DanReturn($$$False)
-	Do OfferteRepositoryMock.VerwachtMethodCall("GeefViaExterneId",LageEDInummer).DanReturn(..OfferteVanHandel)
+	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId",..#LageEDInummer).DanReturn($$$False)
+	Do OfferteRepositoryMock.VerwachtMethodCall("GeefViaExterneId",..#LageEDInummer).DanReturn(..OfferteVanHandel)
 	
 	Set IntractoInformeerderMock = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort).%New()
-	Do IntractoInformeerderMock.VerwachtMethodCall("updateStatus",LageEDInummer,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP()).ExactAantalKeer(1)
+	Do IntractoInformeerderMock.VerwachtMethodCall("updateStatus",..#LageEDInummer,##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.enu.Status).ERP()).ExactAantalKeer(1)
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Unable to confirm order","Invalid EDI number ")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 
-	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
+	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(..#LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
 	
 	Do OfferteRepositoryMock.Verifieer()
 	Do ExterneVerkoopService.Verifieer()
@@ -132,12 +143,6 @@
 
 <Method name="Test: Documentreferenties van klantbestelling worden toegevoegd aan die van leverancierofferte (refs aanwezig op beide offertes)">
 <Implementation><![CDATA[
-	Set ..Shop = ##class(APPS.EC.enu.UniShopVerwerker).SFS()
-	
-	#dim LageEDInummer As %String = "6"
-	
-	#dim OfferteNummer As %Integer = 1
-
 	Set DummyDocumentReferentiesKlantBestelling = ##class(DOM.VKP.DocumentReferenties).%New()
 	Set DummyDocumentReferentiesKlantBestelling.CommissieReferentie = "comref_KB"
 	Set DummyDocumentReferentiesKlantBestelling.OrderReferentie = "orderref_KB"
@@ -153,8 +158,8 @@
 	Set DummyDocumentReferentiesNieuw.OrderReferentie = "orderref_LO - orderref_KB"
 	Set DummyDocumentReferentiesNieuw.KlantOrderNummer = "UT_DummyBestelRef"
 
-	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(OfferteNummer)
-	Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn(1)
+	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(..#OfferteNummer)
+	Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn($$$True)
 	Do ..OfferteVanHandel.IndienMethodCall("GeefDocumentReferenties").DanReturn(DummyDocumentReferentiesKlantBestelling)
 	
 	Do ..VanHoeckeOfferte.IndienMethodCall("GeefBestelOpmerking").DanReturn("BestelOpmerking")
@@ -164,31 +169,25 @@
 	Do ..VanHoeckeOfferte.VerwachtMethodCall("ZetBestelOpmerking","UT_DummyBestelRef - BestelOpmerking").DanDoeNiks()
 	
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",LageEDInummer).DanReturn(..OfferteVanHandel)
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",..#LageEDInummer).DanReturn(..OfferteVanHandel)
 	Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanVH",..OfferteVanHandel).DanReturn(..VanHoeckeOfferte)
 	Set ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopService.IndienMethodCall("BestelOfferte", ..VanHoeckeOfferte.GeefID(), ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke())
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryMock.IndienMethodCall("BestaatViaExterneId",LageEDInummer).DanReturn($$$False)
+	Do OfferteRepositoryMock.IndienMethodCall("BestaatViaExterneId",..#LageEDInummer).DanReturn($$$False)
 	
 	Set IntractoInformeerderMock = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New()
 	Do IntractoInformeerderMock.IndienMethodCall("UpdateCartStatus",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
 	
-	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
+	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(..#LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
 	
 	Do ..VanHoeckeOfferte.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Documentreferenties van klantbestelling worden toegevoegd aan die van leverancierofferte (refs enkel aanwezig op klantbestelling)">
 <Implementation><![CDATA[
-	Set ..Shop = ##class(APPS.EC.enu.UniShopVerwerker).SFS()
-	
-	#dim LageEDInummer As %String = "6"
-	
-	#dim OfferteNummer As %Integer = 1
-
 	Set DummyDocumentReferentiesKlantBestelling = ##class(DOM.VKP.DocumentReferenties).%New()
 	Set DummyDocumentReferentiesKlantBestelling.CommissieReferentie = "comref_KB"
 	Set DummyDocumentReferentiesKlantBestelling.OrderReferentie = "orderref_KB"
@@ -204,8 +203,8 @@
 	Set DummyDocumentReferentiesNieuw.OrderReferentie = "orderref_KB"
 	Set DummyDocumentReferentiesNieuw.KlantOrderNummer = "UT_DummyBestelRef"
 
-	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(OfferteNummer)
-	Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn(1)
+	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(..#OfferteNummer)
+	Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn($$$True)
 	Do ..OfferteVanHandel.IndienMethodCall("GeefDocumentReferenties").DanReturn(DummyDocumentReferentiesKlantBestelling)
 	
 	Do ..VanHoeckeOfferte.IndienMethodCall("GeefBestelOpmerking").DanReturn("BestelOpmerking")
@@ -215,31 +214,25 @@
 	Do ..VanHoeckeOfferte.VerwachtMethodCall("ZetBestelOpmerking","UT_DummyBestelRef - BestelOpmerking").DanDoeNiks()
 	
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",LageEDInummer).DanReturn(..OfferteVanHandel)
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",..#LageEDInummer).DanReturn(..OfferteVanHandel)
 	Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanVH",..OfferteVanHandel).DanReturn(..VanHoeckeOfferte)
 	Set ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopService.IndienMethodCall("BestelOfferte", ..VanHoeckeOfferte.GeefID(), ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke())
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryMock.IndienMethodCall("BestaatViaExterneId",LageEDInummer).DanReturn($$$False)
+	Do OfferteRepositoryMock.IndienMethodCall("BestaatViaExterneId",..#LageEDInummer).DanReturn($$$False)
 	
 	Set IntractoInformeerderMock = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New()
 	Do IntractoInformeerderMock.IndienMethodCall("UpdateCartStatus",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
 	
-	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
+	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(..#LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
 	
 	Do ..VanHoeckeOfferte.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Documentreferenties van klantbestelling worden toegevoegd aan die van leverancierofferte (refs enkel aanwezig op leverancierofferte)">
 <Implementation><![CDATA[
-	Set ..Shop = ##class(APPS.EC.enu.UniShopVerwerker).SFS()
-	
-	#dim LageEDInummer As %String = "6"
-	
-	#dim OfferteNummer As %Integer = 1
-
 	Set DummyDocumentReferentiesKlantBestelling = ##class(DOM.VKP.DocumentReferenties).%New()
 	Set DummyDocumentReferentiesKlantBestelling.CommissieReferentie = ""
 	Set DummyDocumentReferentiesKlantBestelling.OrderReferentie = ""
@@ -255,8 +248,8 @@
 	Set DummyDocumentReferentiesNieuw.OrderReferentie = "orderref_LO"
 	Set DummyDocumentReferentiesNieuw.KlantOrderNummer = "UT_DummyBestelRef"
 
-	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(OfferteNummer)
-	Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn(1)
+	Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(..#OfferteNummer)
+	Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn($$$True)
 	Do ..OfferteVanHandel.IndienMethodCall("GeefDocumentReferenties").DanReturn(DummyDocumentReferentiesKlantBestelling)
 	
 	Do ..VanHoeckeOfferte.IndienMethodCall("GeefBestelOpmerking").DanReturn("BestelOpmerking")
@@ -266,18 +259,18 @@
 	Do ..VanHoeckeOfferte.VerwachtMethodCall("ZetBestelOpmerking","UT_DummyBestelRef - BestelOpmerking").DanDoeNiks()
 	
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",LageEDInummer).DanReturn(..OfferteVanHandel)
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",..#LageEDInummer).DanReturn(..OfferteVanHandel)
 	Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanVH",..OfferteVanHandel).DanReturn(..VanHoeckeOfferte)
 	Set ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopService.IndienMethodCall("BestelOfferte", ..VanHoeckeOfferte.GeefID(), ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke())
 	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepositoryMock.IndienMethodCall("BestaatViaExterneId",LageEDInummer).DanReturn($$$False)
+	Do OfferteRepositoryMock.IndienMethodCall("BestaatViaExterneId",..#LageEDInummer).DanReturn($$$False)
 	
 	Set IntractoInformeerderMock = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New()
 	Do IntractoInformeerderMock.IndienMethodCall("UpdateCartStatus",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
 	
-	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
+	#dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(..#LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum)
 	
 	Do ..VanHoeckeOfferte.Verifieer()
 ]]></Implementation>