Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37846 -r37870
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37846)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37870)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeverAdresLijst">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -37,6 +42,8 @@
 	Set ..VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
 	
+	Set ..LeverAdresLijst = ##class(%ListOfDataTypes).%New()
+	
 	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn("Verantwoordelijke")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
@@ -47,6 +54,10 @@
 	Do ..Klant.IndienMethodCall("GeefLeveringVoorwaarde").DanReturn("30")
 	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("GeefBezoekAdres").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefVerzendWijze").DanReturn("")
 	
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
@@ -83,6 +94,18 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Leveringsvoorwaarde,"30")
 	Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"1000")
 	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Klantnummer,"1234")
+	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).LandCodeISO3,"BEL")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Telefoon,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Verzendwijze,"")
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LeveringAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).BezoekAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).ToonzaalAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).FacturatieAdres,$$$False)
 ]]></Implementation>
 </Method>
 
@@ -253,6 +276,108 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: 2 leveradressen aanwezig -&gt; 3 adressen in resultaat (ook hoofdadres)">
+<Implementation><![CDATA[
+	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
+	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
+
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),3) {
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Klantnummer,"1234")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"Straat 1")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"9101")
+		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")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+		
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Klantnummer,"1234")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Straat1,"Straat 2")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Postcode,"9102")
+		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")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).FacturatieAdres,$$$False)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: 0 leveradressen aanwezig -&gt; 1 adres in resultaat (het hoofdadres)">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),1)
+]]></Implementation>
+</Method>
+
+<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())	
+	
+	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,"1234")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"DummyStraat")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"9100")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Telefoon,"")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Verzendwijze,"")
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+	}
+]]></Implementation>
+</Method>
+
+<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 ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
+	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),4) {
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LeveringAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).FacturatieAdres,$$$False)
+		
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+		
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LeveringAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).BezoekAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).FacturatieAdres,$$$False)
+		
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).LeveringAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).BezoekAdres,$$$True)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).ToonzaalAdres,$$$False)
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).FacturatieAdres,$$$False)
+	}
+]]></Implementation>
+</Method>
 </Class>