Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37846 -r37870
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37846)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37870)
@@ -58,6 +58,7 @@
 	Do ..ConvertAdminSegmentering()
 	Do ..ConvertPrijsInformatie()
 	Do ..ConvertFinancieleInformatie()
+	Do ..ConvertAdresGegevens()
 	
 	Quit ..Customer
 ]]></Implementation>
@@ -167,6 +168,59 @@
 	Set ..Customer.FacturatieFrequentie = ..Klant.GeefFacturatieFrequentie()
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertAdresGegevens">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set CRMAdres = ##class(AXBizTalk.Address).%New()
+	Set CRMAdres.Klantnummer = +##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID())
+	Set CRMAdres.Straat1 = ..Klant.GeefAdres().GeefStraat()
+	Set CRMAdres.Postcode = ..Klant.GeefAdres().GeefPostcode()
+	Set CRMAdres.Plaats = ..Klant.GeefAdres().GeefGemeente()
+	Set CRMAdres.LandCodeISO3 = ..Klant.GeefAdres().GeefLand().GeefIso3()
+	Set CRMAdres.Telefoon = ..Klant.GeefAdres().GeefTelefoon()
+	Set CRMAdres.Verzendwijze = ..Klant.GeefVerzendWijze()
+	Set CRMAdres.LeveringAdres = $$$False
+	Set CRMAdres.BezoekAdres = $$$False
+	Set CRMAdres.ToonzaalAdres = $$$False
+	Set CRMAdres.FacturatieAdres = $$$False
+	Do ..Customer.Adressen.Insert(CRMAdres)
+			
+	#dim LeverAdresIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Klant.GeefLeverAdressen())
+	While LeverAdresIterator.HasNext() {
+		#dim Adres As DOM.VKP.LeverAdres = LeverAdresIterator.Next()
+		Set CRMAdres = ##class(AXBizTalk.Address).%New()
+		Set CRMAdres.Klantnummer = +##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID())
+		Set CRMAdres.Straat1 = Adres.GeefStraat()
+		Set CRMAdres.Postcode = Adres.GeefPostcode()
+		Set CRMAdres.Plaats = Adres.GeefGemeente()
+		Set CRMAdres.LandCodeISO3 = Adres.GeefLand().GeefIso3()
+		Set CRMAdres.Telefoon = Adres.GeefTelefoon()
+		Set CRMAdres.Verzendwijze = Adres.GeefVerzendingWijze()
+		Set CRMAdres.LeveringAdres = $$$True
+		Set CRMAdres.BezoekAdres = $$$False
+		Set CRMAdres.ToonzaalAdres = $$$False
+		Set CRMAdres.FacturatieAdres = $$$False
+		Do ..Customer.Adressen.Insert(CRMAdres)
+	}
+	
+	If $IsObject(..Klant.GeefBezoekAdres()){
+		Set CRMAdres = ##class(AXBizTalk.Address).%New()
+		Set CRMAdres.Klantnummer = +##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID())
+		Set CRMAdres.Straat1 = ..Klant.GeefBezoekAdres().GeefStraat()
+		Set CRMAdres.Postcode = ..Klant.GeefBezoekAdres().GeefPostcode()
+		Set CRMAdres.Plaats = ..Klant.GeefBezoekAdres().GeefGemeente()
+		Set CRMAdres.LandCodeISO3 = ..Klant.GeefBezoekAdres().GeefLand().GeefIso3()
+		Set CRMAdres.Telefoon = ..Klant.GeefBezoekAdres().GeefTelefoon()
+		Set CRMAdres.Verzendwijze = ..Klant.GeefVerzendWijze()
+		Set CRMAdres.LeveringAdres = $$$False
+		Set CRMAdres.BezoekAdres = $$$True
+		Set CRMAdres.ToonzaalAdres = $$$False
+		Set CRMAdres.FacturatieAdres = $$$False
+		Do ..Customer.Adressen.Insert(CRMAdres)		
+	}
+]]></Implementation>
+</Method>
 </Class>