Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37942 -r37943
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37942)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37943)
@@ -174,19 +174,11 @@
 <Method name="ConvertAdresGegevens">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set CRMAdres = ##class(AXBizTalk.Crm.Customer.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.Leveradressen.Insert(CRMAdres)
+	Set ..Customer.HoofdadresLandcode = ..Klant.GeefAdres().GeefLand().GeefIso3()
+	Set ..Customer.HoofdadresPostcode = ..Klant.GeefAdres().GeefPostcode()
+	Set ..Customer.HoofdadresPlaats = ..Klant.GeefAdres().GeefGemeente()
+	Set ..Customer.HoofdadresStraat = ..Klant.GeefAdres().GeefStraat()
+	Set ..Customer.HoofdadresVerzendwijze = ..Klant.GeefVerzendWijze()
 			
 	#dim LeverAdresIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Klant.GeefLeverAdressen())
 	While LeverAdresIterator.HasNext() {
@@ -207,23 +199,15 @@
 	}
 	
 	If $IsObject(..Klant.GeefBezoekAdres()){
-		Set CRMAdres = ##class(AXBizTalk.Crm.Customer.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()
 		If ..Klant.GeefBezoekAdres().GeefLandNr() = "" {
-			Set CRMAdres.LandCodeISO3 = ..Klant.GeefAdres().GeefLand().GeefIso3()
+			Set ..Customer.BezoekadresLandcode = ..Klant.GeefAdres().GeefLand().GeefIso3()
 		} Else {
-			Set CRMAdres.LandCodeISO3 = ..Klant.GeefBezoekAdres().GeefLand().GeefIso3()
+			Set ..Customer.BezoekadresLandcode = ..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.Leveradressen.Insert(CRMAdres)		
+		Set ..Customer.BezoekadresPostcode = ..Klant.GeefBezoekAdres().GeefPostcode()
+		Set ..Customer.BezoekadresPlaats = ..Klant.GeefBezoekAdres().GeefGemeente()
+		Set ..Customer.BezoekadresStraat = ..Klant.GeefBezoekAdres().GeefStraat()
+		Set ..Customer.BezoekadresVerzendwijze = ..Klant.GeefVerzendWijze()		
 	}
 ]]></Implementation>
 </Method>