Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r52706 -r52707
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 52706)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 52707)
@@ -93,55 +93,55 @@
 
 <Method name="Test: Verwerker doet een goede order correlatie">
 <Implementation><![CDATA[
-	set XmlCorrelaterSpy = ##class(vhTest.Spy.TECH.XMLCorrelater).%New()
-	set DummyEdiBestelService = ##class(vhTest.Dummy.APPS.EDI.Bestel.BestelService).%New()
+	Set XmlCorrelaterSpy = ##class(vhTest.Spy.TECH.XMLCorrelater).%New()
+	Set DummyEdiBestelService = ##class(vhTest.Dummy.APPS.EDI.Bestel.BestelService).%New()
 
-	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(XmlCorrelaterSpy,DummyEdiBestelService,##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
-	do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(XmlCorrelaterSpy, DummyEdiBestelService, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
+	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
 	
 	#dim CorrelatedObjects As %ListOfObjects = XmlCorrelaterSpy.GeefObjecten()
 	
-	if $$$AssertEquals(CorrelatedObjects.Count(),1) {
+	If $$$AssertEquals(CorrelatedObjects.Count(), 1) {
 		#dim Order As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = CorrelatedObjects.GetAt(1)
-		do $$$AssertEquals($classname(Order),"EXT.Unishop.PurchaseOrder001.CreateOrder.Order")
-		do $$$AssertEquals(Order.Lijnen.Count(),7)
+		Do $$$AssertEquals($classname(Order), "EXT.Unishop.PurchaseOrder001.CreateOrder.Order")
+		Do $$$AssertEquals(Order.Lijnen.Count(), 7)
 	}
 ]]></Implementation>
 </Method>
 
 <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()
-	do MockCorrelator.VerwachtMethodCall("GeefObjectVanBestand",..BestandVolledigeNaam,"EXT.Unishop.PurchaseOrder001.CreateOrder.Order","PurchaseOrder").DanReturn(DummyOrder).ExactAantalKeer(1)
+	Set DummyOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
+	Set MockCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do MockCorrelator.VerwachtMethodCall("GeefObjectVanBestand", ..BestandVolledigeNaam, "EXT.Unishop.PurchaseOrder001.CreateOrder.Order", "PurchaseOrder").DanReturn(DummyOrder).ExactAantalKeer(1)
 	
-	set DummyEdiBestelService = ##class(vhTest.Dummy.APPS.EDI.Bestel.BestelService).%New()
+	Set DummyEdiBestelService = ##class(vhTest.Dummy.APPS.EDI.Bestel.BestelService).%New()
 	
-	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(MockCorrelator,DummyEdiBestelService,##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
-	do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
-	do MockCorrelator.Verifieer()
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(MockCorrelator,DummyEdiBestelService, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
+	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+	Do MockCorrelator.Verifieer()
 ]]></Implementation>
 </Method>
 
 <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()
 		
-	set StubCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
-	do StubCorrelator.IndienMethodCall("GeefObjectVanBestand",..BestandVolledigeNaam,"EXT.Unishop.PurchaseOrder001.CreateOrder.Order","PurchaseOrder").DanReturn(DummyOrder)
+	Set StubCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do StubCorrelator.IndienMethodCall("GeefObjectVanBestand", ..BestandVolledigeNaam, "EXT.Unishop.PurchaseOrder001.CreateOrder.Order", "PurchaseOrder").DanReturn(DummyOrder)
 	
-	set EdiBestelServiceSpy = ##class(vhTest.Spy.APPS.EDI.Bestel.BestelService).%New()
+	Set EdiBestelServiceSpy = ##class(vhTest.Spy.APPS.EDI.Bestel.BestelService).%New()
 	
-	set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator,EdiBestelServiceSpy,##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
-	do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
+	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceSpy, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
+	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = EdiBestelServiceSpy.GeefAanvraag()
 	
-	if $$$AssertIsObject(Aanvraag) {
-		do $$$AssertEquals(Aanvraag.Header.PersonalityID,##class(DOM.common.enu.Personality).SFS())
-		do $$$AssertEquals(Aanvraag.Header.KlantID,"SFS_83723")
-		if $$$AssertEquals(Aanvraag.Order.Lijnen.Count(),1) {
-			do $$$AssertEquals(Aanvraag.Order.Lijnen.GetAt(1).Aantal,1)	
+	If $$$AssertIsObject(Aanvraag) {
+		Do $$$AssertEquals(Aanvraag.Header.PersonalityID, ##class(DOM.common.enu.Personality).SFS())
+		Do $$$AssertEquals(Aanvraag.Header.KlantID, ..#DummyKlantId)
+		If $$$AssertEquals(Aanvraag.Order.Lijnen.Count(), 1) {
+			Do $$$AssertEquals(Aanvraag.Order.Lijnen.GetAt(1).Aantal, 1)	
 		}
 	}
 ]]></Implementation>
@@ -152,7 +152,7 @@
 	#dim BestandNaamFoutief As %String = "OngeldigeBestandnaam"
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("BestandVerwerker : ongeldige Bestandnaam '"_BestandNaamFoutief_"'")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1), Substrings))
 	
 	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(,,##class(vhTest.Fake.TECH.Mail.MailAPI).%New())
 	Do Verwerker.VerwerkBestand(BestandNaamFoutief)
@@ -194,21 +194,21 @@
 <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)
+	Do ..EdiBestelServiceMock.IndienMethodCall("PlaatsBestelling", $$$ElkeWaarde).DanReturn(..Resultaat)
 	
 	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 ..MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
-	Do ..MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("EDI Bestelling"))
-	Do ..MailMock.VerwachtMethodCall("VoegToeOntvanger",..DummyGebruiker.GeefEmailAdres())
+	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("VerstuurMail", ..MailMock)
 	Do ..MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(..MailMock)
 	
 	Set ..VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant",..#DummyKlantId).DanReturn(..DummyKlant)
+	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant", ..#DummyKlantId).DanReturn(..DummyKlant)
 	
 	Set ..AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
 	Set ..AanvraagStub.Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
@@ -223,7 +223,7 @@
 	
 	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 ..CorrelaterStub.IndienMethodCall("GeefObjectVanBestand", ..BestandVolledigeNaam, "EXT.Unishop.PurchaseOrder001.CreateOrder.Order", "PurchaseOrder").DanReturn(..DummyOrder)
 	
 	Set ..Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(..CorrelaterStub, ..EdiBestelServiceMock, ..MailApiMock, ..VerkoopApiStub, ..PersonalityKlantBepalerStub, ..CommonApiStub)
 ]]></Implementation>