Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r52705 -r52706
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 52705)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 52706)
@@ -3,13 +3,88 @@
 <Class name="vhUnitTest.EXT.Unishop.PurchaseOrder001.BestandVerwerker.VerwerkBestand.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="DummyKlantId">
+<Type>%String</Type>
+<Default>SFS_83723</Default>
+</Parameter>
+
 <Property name="BestandVolledigeNaam">
 <Type>%String</Type>
 <InitialExpression>##class(TECH.Files).AppendFile(..GeefBestandLocatie(""),"alpnachnorm_ch_TestOrder.xml")</InitialExpression>
 <Private>1</Private>
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="EdiBestelServiceMock">
+<Type>vhTest.Mock.APPS.EDI.Bestel.BestelService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Resultaat">
+<Type>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyGebruiker">
+<Type>vhTest.Dummy.DOM.common.VanHoeckeGebruiker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyKlant">
+<Type>vhTest.Mock.DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MailMock">
+<Type>vhTest.Mock.TECH.Mail.Mail</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MailApiMock">
+<Type>vhTest.Mock.TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopApiStub">
+<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AanvraagStub">
+<Type>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyPersonality">
+<Type>vhTest.Mock.DOM.common.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CommonApiStub">
+<Type>vhTest.Mock.DOM.common.CommonAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PersonalityKlantBepalerStub">
+<Type>vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyOrder">
+<Type>EXT.Unishop.PurchaseOrder001.CreateOrder.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CorrelaterStub">
+<Type>vhTest.Mock.TECH.XMLCorrelater</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Verwerker">
+<Type>EXT.Unishop.PurchaseOrder001.BestandVerwerker</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[	Do ##super()
@@ -34,7 +109,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Verwerker roept de correlator correct op">
+<Method name="Test: Verwerker roept de correlator correct op">
 <Implementation><![CDATA[
 	set DummyOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
 	set MockCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
@@ -48,7 +123,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Na een goede correlate wordt de bestelservice opgeroepen met de juiste parameters">
+<Method name="Test: Na een goede correlate wordt de bestelservice opgeroepen met de juiste parameters">
 <Implementation><![CDATA[
 	#dim DummyOrder As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
 		
@@ -72,7 +147,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Verwerker geeft fout indien ongeldige Bestandnaam">
+<Method name="Test: Verwerker geeft fout indien ongeldige Bestandnaam">
 <Implementation><![CDATA[
 	#dim BestandNaamFoutief As %String = "OngeldigeBestandnaam"
 	
@@ -86,102 +161,87 @@
 
 <Method name="Test: Na fout in verwerking -&gt; mail naar de interne verantwoordelijke met de errormessage">
 <Implementation><![CDATA[
-	Set ResultaatMetError = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
-	Set ResultaatMetError.Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New($$$DummyString)
-	Set EdiBestelServiceMock = ##class(vhTest.Mock.APPS.EDI.Bestel.BestelService).%New()
-	Do EdiBestelServiceMock.IndienMethodCall("PlaatsBestelling",$$$ElkeWaarde).DanReturn(ResultaatMetError)
+	Do ..Arrange()
 	
-	Set DummyGebruiker = ##class(vhTest.Dummy.DOM.common.VanHoeckeGebruiker).%New()
-	#dim DummyKlant As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
-	Do DummyKlant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn(DummyGebruiker)
+	Set ..Resultaat.Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New($$$DummyString)
 	
-	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
-	Do MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("EDI Bestelling"))
-	Do MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van '"_DummyKlant.GeefNaam()_"' ontvangen, maar er was een probleem, dus de klant krijgt zijn goederen wellicht niet!")
-	Do MailMock.IndienMethodCall("ZetInhoud","Er werd een EDI bestelling van '"_DummyKlant.GeefNaam()_"' ontvangen met volgend probleem, dat je aan ICT moet melden, tenzij je dit probleem vanuit BIDI kan oplossen! :"_$$$CRLF_"Bestand:'"_ ..BestandVolledigeNaam _"'. "_$$$CRLF_ResultaatMetError.Exceptie.ToString())
-	Do MailMock.VerwachtMethodCall("VoegToeOntvanger",DummyGebruiker.GeefEmailAdres())
+	Do ..MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van '"_..DummyKlant.GeefNaam()_"' ontvangen, maar er was een probleem, dus de klant krijgt zijn goederen wellicht niet!")
+	Do ..MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van '"_..DummyKlant.GeefNaam()_"' ontvangen met volgend probleem, dat je aan ICT moet melden, tenzij je dit probleem vanuit BIDI kan oplossen! :"_$$$CRLF_"Bestand:'"_ ..BestandVolledigeNaam _"'. "_$$$CRLF_..Resultaat.Exceptie.ToString())
 	
-	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
-	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailMock)
-	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+	Do ..Act()
 	
-	Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do VerkoopApiStub.IndienMethodCall("GeefKlant","SFS_83723").DanReturn(DummyKlant)
-	
-	Set AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	Set AanvraagStub.Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
-	Set AanvraagStub.Header.KlantID = "SFS_83723"
-	
-	Set DummyPersonality = ##class(vhTest.Mock.DOM.common.Personality).%New()
-	Set CommonApiStub = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
-	Do CommonApiStub.IndienMethodCall("GeefPersonality", AanvraagStub.Header.PersonalityID).DanReturn(DummyPersonality)
-	
-	#dim DummyKlantId As %String = "SFS_83723"
-	
-	Set PersonalityKlantBepalerStub = ##class(vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler).%New()
-	Do PersonalityKlantBepalerStub.IndienMethodCall("GeefKlantID", DummyPersonality, AanvraagStub.Header.KlantID).DanReturn(DummyKlantId)
-	
-	#dim DummyOrder As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
-	Set StubCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
-	do StubCorrelator.IndienMethodCall("GeefObjectVanBestand",..BestandVolledigeNaam,"EXT.Unishop.PurchaseOrder001.CreateOrder.Order","PurchaseOrder").DanReturn(DummyOrder)
-	
-	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceMock, MailApiMock, VerkoopApiStub, PersonalityKlantBepalerStub, CommonApiStub)
-	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
-	
-	Do MailApiMock.Verifieer()
-	Do MailMock.Verifieer()
+	Do ..Assert()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Na juiste verwerking -&gt; mail naar de interne verantwoordelijke">
 <Implementation><![CDATA[
-	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
-	Set EdiBestelServiceMock = ##class(vhTest.Mock.APPS.EDI.Bestel.BestelService).%New()
-	Do EdiBestelServiceMock.IndienMethodCall("PlaatsBestelling",$$$ElkeWaarde).DanReturn(Resultaat)
+	Do ..Arrange()
 	
-	Set DummyGebruiker = ##class(vhTest.Dummy.DOM.common.VanHoeckeGebruiker).%New()
-	#dim DummyKlant As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
-	Do DummyKlant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn(DummyGebruiker)
+	Set ..Resultaat.Exceptie = ""
 	
-	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
-	Do MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("EDI Bestelling"))
-	Do MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van '"_DummyKlant.GeefNaam()_"' ontvangen")
-	Do MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van '"_DummyKlant.GeefNaam()_"' ontvangen en ze werd goed verwerkt")
-	Do MailMock.VerwachtMethodCall("VoegToeOntvanger",DummyGebruiker.GeefEmailAdres())
+	Do ..MailMock.VerwachtMethodCall("ZetOnderwerp","EDI bestelling van '"_..DummyKlant.GeefNaam()_"' ontvangen")
+	Do ..MailMock.VerwachtMethodCall("ZetInhoud","Er werd een EDI bestelling van '"_..DummyKlant.GeefNaam()_"' ontvangen en ze werd goed verwerkt")
+		
+	Do ..Act()
 	
-	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
-	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailMock)
-	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+	Do ..Assert()
+]]></Implementation>
+</Method>
+
+<Method name="Arrange">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..EdiBestelServiceMock = ##class(vhTest.Mock.APPS.EDI.Bestel.BestelService).%New()
+	Set ..Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Do ..EdiBestelServiceMock.IndienMethodCall("PlaatsBestelling",$$$ElkeWaarde).DanReturn(..Resultaat)
 	
-	Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do VerkoopApiStub.IndienMethodCall("GeefKlant","SFS_83723").DanReturn(DummyKlant)
+	Set ..DummyGebruiker = ##class(vhTest.Dummy.DOM.common.VanHoeckeGebruiker).%New()
+	Set ..DummyKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do ..DummyKlant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn(..DummyGebruiker)
 	
-	Set AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	Set AanvraagStub.Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
-	Set AanvraagStub.Header.KlantID = "SFS_83723"
+	Set ..MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do ..MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("EDI Bestelling"))
+	Do ..MailMock.VerwachtMethodCall("VoegToeOntvanger",..DummyGebruiker.GeefEmailAdres())
+	Set ..MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do ..MailApiMock.VerwachtMethodCall("VerstuurMail",..MailMock)
+	Do ..MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(..MailMock)
 	
-	Set DummyPersonality = ##class(vhTest.Mock.DOM.common.Personality).%New()
-	Set CommonApiStub = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
-	Do CommonApiStub.IndienMethodCall("GeefPersonality", AanvraagStub.Header.PersonalityID).DanReturn(DummyPersonality)
+	Set ..VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant",..#DummyKlantId).DanReturn(..DummyKlant)
 	
-	#dim DummyKlantId As %String = "SFS_83723"
+	Set ..AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	Set ..AanvraagStub.Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
+	Set ..AanvraagStub.Header.KlantID = ..#DummyKlantId
 	
-	Set PersonalityKlantBepalerStub = ##class(vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler).%New()
-	Do PersonalityKlantBepalerStub.IndienMethodCall("GeefKlantID", DummyPersonality, AanvraagStub.Header.KlantID).DanReturn(DummyKlantId)
-
-	#dim DummyOrder As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
-	set StubCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
-	do StubCorrelator.IndienMethodCall("GeefObjectVanBestand",..BestandVolledigeNaam,"EXT.Unishop.PurchaseOrder001.CreateOrder.Order","PurchaseOrder").DanReturn(DummyOrder)
+	Set ..DummyPersonality = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Set ..CommonApiStub = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
+	Do ..CommonApiStub.IndienMethodCall("GeefPersonality", ..AanvraagStub.Header.PersonalityID).DanReturn(..DummyPersonality)
 	
-	Set AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	Set ..PersonalityKlantBepalerStub = ##class(vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler).%New()
+	Do ..PersonalityKlantBepalerStub.IndienMethodCall("GeefKlantID", ..DummyPersonality, ..AanvraagStub.Header.KlantID).DanReturn(..#DummyKlantId)
 	
-	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceMock, MailApiMock, VerkoopApiStub, PersonalityKlantBepalerStub, CommonApiStub)
-	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+	Set ..DummyOrder = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
+	Set ..CorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do ..CorrelaterStub.IndienMethodCall("GeefObjectVanBestand",..BestandVolledigeNaam,"EXT.Unishop.PurchaseOrder001.CreateOrder.Order","PurchaseOrder").DanReturn(..DummyOrder)
 	
-	Do MailApiMock.Verifieer()
-	Do MailMock.Verifieer()
+	Set ..Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(..CorrelaterStub, ..EdiBestelServiceMock, ..MailApiMock, ..VerkoopApiStub, ..PersonalityKlantBepalerStub, ..CommonApiStub)
 ]]></Implementation>
 </Method>
+
+<Method name="Act">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..MailApiMock.Verifieer()
+	Do ..MailMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>