Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37942 -r37943
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37942)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37943)
@@ -105,17 +105,17 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"1000")
 	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Klantnummer,"01234")
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Straat1,"Fakestraat")
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Postcode,"1234")
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Plaats,"Fakegem")
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).LandCodeISO3,"BEL")
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Telefoon,"")
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Verzendwijze,"")
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).LeveringAdres,$$$False)
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).BezoekAdres,$$$False)
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).ToonzaalAdres,$$$False)
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).FacturatieAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresLandcode,"BEL")
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresPostcode,"1234")
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresPlaats,"Fakegem")
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresStraat,"Fakestraat")
+	Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresVerzendwijze,"")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresLandcode,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresPostcode,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresPlaats,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresStraat,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresVerzendwijze,"")
 ]]></Implementation>
 </Method>
 
@@ -287,7 +287,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 2 leveradressen aanwezig -&gt; 3 adressen in resultaat (ook hoofdadres)">
+<Method name="Test: 2 leveradressen aanwezig -&gt; 2 leveradressen in resultaat">
 <Implementation><![CDATA[
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
@@ -296,69 +296,57 @@
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),3) {
+	If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),2) {
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Klantnummer,"01234")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Straat1,"Straat 1")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Postcode,"9101")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Plaats,"Gemeente 1")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).LandCodeISO3,"BEL")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Telefoon,"03/1234561")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Verzendwijze,"VerzendingWijze1")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).FacturatieAdres,$$$False)
+	
 		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Klantnummer,"01234")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Straat1,"Straat 1")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Postcode,"9101")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Plaats,"Gemeente 1")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Straat1,"Straat 2")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Postcode,"9102")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Plaats,"Gemeente 2")
 		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LandCodeISO3,"BEL")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Telefoon,"03/1234561")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Verzendwijze,"VerzendingWijze1")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Telefoon,"03/1234562")
+		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Verzendwijze,"VerzendingWijze2")
 		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LeveringAdres,$$$True)
 		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).BezoekAdres,$$$False)
 		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).ToonzaalAdres,$$$False)
 		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).FacturatieAdres,$$$False)
-		
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Klantnummer,"01234")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Straat1,"Straat 2")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Postcode,"9102")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Plaats,"Gemeente 2")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).LandCodeISO3,"BEL")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Telefoon,"03/1234562")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Verzendwijze,"VerzendingWijze2")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).LeveringAdres,$$$True)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).BezoekAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).ToonzaalAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).FacturatieAdres,$$$False)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 0 leveradressen aanwezig -&gt; 1 adres in resultaat (het hoofdadres)">
+<Method name="Test: 0 leveradressen aanwezig -&gt; geen Leveradressen in resultaat">
 <Implementation><![CDATA[
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),1)
+	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),0)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 0 leveradressen en 1 bezoekadres aanwezig -&gt; 2 adressen in resultaat (het hoofdadres en bezoekadres)">
+<Method name="Test: 0 leveradressen en 1 bezoekadres aanwezig -&gt; 0 leveradressen in resultaat">
 <Implementation><![CDATA[
 	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.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),2) {
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Klantnummer,"01234")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Straat1,"Fakestraat")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Postcode,"1234")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Plaats,"Fakegem")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LandCodeISO3,"BEL")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Telefoon,"")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Verzendwijze,"")
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LeveringAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).BezoekAdres,$$$True)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).ToonzaalAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).FacturatieAdres,$$$False)
-	}
+	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),0)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 2 leveradressen en 1 bezoekadres aanwezig -&gt; 4 adressen in resultaat (het hoofdadres, 2 leveradressen en 1 bezoekadres)">
+<Method name="Test: 2 leveradressen en 1 bezoekadres aanwezig -&gt; enkel 2 leveradressen in resultaat">
 <Implementation><![CDATA[
 	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))	
@@ -368,43 +356,21 @@
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),4) {
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).LeveringAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).BezoekAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).ToonzaalAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).FacturatieAdres,$$$False)
-		
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LeveringAdres,$$$True)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).BezoekAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).ToonzaalAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).FacturatieAdres,$$$False)
-		
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).LeveringAdres,$$$True)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).BezoekAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).ToonzaalAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).FacturatieAdres,$$$False)
-		
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(4).LeveringAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(4).BezoekAdres,$$$True)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(4).ToonzaalAdres,$$$False)
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(4).FacturatieAdres,$$$False)
-	}
+	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),2)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: 1 bezoekadres aanwezig, met lege landcode -&gt; landcode overnemen van hoofdadres">
 <Implementation><![CDATA[
-	Set DummyBezoekAdres = ##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New()
-	Set DummyBezoekAdres.LandNr = ""
-	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(DummyBezoekAdres)
+	Set FakeBezoekadres = ##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New()
+	Do FakeBezoekadres.ZetLandNr("")
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(FakeBezoekadres)
 	
 	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
 	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
 	
-	If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),2) {
-		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LandCodeISO3,"BEL")
-	}
+	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresLandcode,"BEL")
 ]]></Implementation>
 </Method>
 </Class>