Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37916 -r37930
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37916)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37930)
@@ -43,9 +43,9 @@
 	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
 	
 	Set ..LeverAdresLijst = ##class(%ListOfDataTypes).%New()
-	Set DummyBIDIMedewerker = ##class(vhTest.Dummy.DOM.common.VanHoeckeGebruiker).%New()
+	Set FakeBIDIMedewerker = ##class(vhTest.Fake.DOM.common.VanHoeckeGebruiker).%New()
 	
-	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn(DummyBIDIMedewerker)
+	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn(FakeBIDIMedewerker)
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("")
@@ -56,30 +56,39 @@
 	Do ..Klant.IndienMethodCall("GeefKredietlimiet").DanReturn("1000")
 	Do ..Klant.IndienMethodCall("GeefFacturatieFrequentie").DanReturn("D2")
 	Do ..Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(..LeverAdresLijst)
-	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.common.impl.VH.Adres).%New())
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())
 	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn("")
 	Do ..Klant.IndienMethodCall("GeefVerzendWijze").DanReturn("")
 	
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: properties die 1 op 1 worden overgenomen (wel met een maxlen)">
+<Method name="Test: toenaam max 50 lang">
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Een toenaam die zeker meer dan 50 karakters lang zou moeten zijn")
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)	
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Een toenaam die zeker meer dan 50 karakters lang z")
+]]></Implementation>
+</Method>
+
+<Method name="Test: properties die 1 op 1 worden overgenomen">
+<Implementation><![CDATA[
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)	
 	
-	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("eenFaxNummer")
+	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("012/345678")
 	Do ..Partij.IndienMethodCall("GeefVerkortNummer").DanReturn("7001")
 	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("info@example.com")
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.Klantnummer,"01234")
 	Do $$$AssertEquals(GeconverteerdeKlant.Naam,"DE NAAM")
-	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Een toenaam die zeker meer dan 50 karakters lang z")
-	Do $$$AssertEquals(GeconverteerdeKlant.Fax,"eenFaxNummer")
+	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Toenaam")
+	Do $$$AssertEquals(GeconverteerdeKlant.Fax,"012/345678")
 	Do $$$AssertEquals(GeconverteerdeKlant.VerkortNummer,"7001")
 	Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
 	
@@ -97,9 +106,9 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Klantnummer,"01234")
-	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Straat1,"DummyStraat")
-	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Postcode,"9100")
-	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Plaats,"DummyGemeente")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Straat1,"Fakestraat")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Postcode,"1234")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Plaats,"Fakegem")
 	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LandCodeISO3,"BEL")
 	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Telefoon,"")
 	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Verzendwijze,"")
@@ -112,14 +121,14 @@
 
 <Method name="Test: enkel eerste telefoonnummer meenemen als die ingevuld is">
 <Implementation><![CDATA[
-	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("03/123489dnf9")
-	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("123456")
+	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("03/1234899")
+	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/1234567")
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/123489dnf9")
+	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/1234899")
 ]]></Implementation>
 </Method>
 
@@ -291,6 +300,7 @@
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Klantnummer,"01234")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"Straat 1")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"9101")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Plaats,"Gemeente 1")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Telefoon,"03/1234561")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Verzendwijze,"VerzendingWijze1")
@@ -302,6 +312,7 @@
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Klantnummer,"01234")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Straat1,"Straat 2")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Postcode,"9102")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Plaats,"Gemeente 2")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LandCodeISO3,"BEL")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Telefoon,"03/1234562")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Verzendwijze,"VerzendingWijze2")
@@ -325,16 +336,17 @@
 
 <Method name="Test: 0 leveradressen en 1 bezoekadres aanwezig -&gt; 2 adressen in resultaat (het hoofdadres en bezoekadres)">
 <Implementation><![CDATA[
-	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Dummy.DOM.common.impl.VH.Adres).%New())	
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())	
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
 	
 	If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),2) {
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Klantnummer,"01234")
-		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"DummyStraat")
-		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"9100")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"Fakestraat")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"1234")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Plaats,"Fakegem")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Telefoon,"")
 		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Verzendwijze,"")
@@ -348,7 +360,7 @@
 
 <Method name="Test: 2 leveradressen en 1 bezoekadres aanwezig -&gt; 4 adressen in resultaat (het hoofdadres, 2 leveradressen en 1 bezoekadres)">
 <Implementation><![CDATA[
-	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Dummy.DOM.common.impl.VH.Adres).%New())
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
 	
@@ -382,7 +394,7 @@
 
 <Method name="Test: 1 bezoekadres aanwezig, met lege landcode -&gt; landcode overnemen van hoofdadres">
 <Implementation><![CDATA[
-	Set DummyBezoekAdres = ##class(vhTest.Dummy.DOM.common.impl.VH.Adres).%New()
+	Set DummyBezoekAdres = ##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New()
 	Set DummyBezoekAdres.LandNr = ""
 	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(DummyBezoekAdres)