Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(revision 49729)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: De properties op het meegegeven AX-object zijn ingevuld en worden dus gebruikt">
+</Method>
+
+<Method name="GeefAxCust">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</ReturnType>
+<Implementation><![CDATA[
+	Set AxCust = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust).%New()
+	Set AxCust.LanguageId = "nl-be"
+	Quit AxCust
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxHoofdAdres">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress</ReturnType>
+<Implementation><![CDATA[
+	Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
+	Set AxPostalAddress.Description = "Naam HoofdAdres"
+	Set AxPostalAddress.Street = "Straat HoofdAdres"
+	Set AxPostalAddress.ZipCode = "Postcode HoofdAdres"
+	Set AxPostalAddress.City = "Gemeente HoofdAdres"
+	Set AxPostalAddress.CountryRegionId = "BEL"
+	Set AxPostalAddress.DlvModeId = "OD4 Di-Vr"
+	Set AxPostalAddress.IsPrimary = "Yes"
+	
+	Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()
+	Set AxRole.Name = "Business"
+	
+	Do AxPostalAddress.Role.Insert(AxRole)
+	
+	Quit AxPostalAddress
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxLeverAdres">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress</ReturnType>
+<Implementation><![CDATA[
+	Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
+	Set AxPostalAddress.Description = "Naam LeverAdres"
+	Set AxPostalAddress.Street = "Straat LeverAdres"
+	Set AxPostalAddress.ZipCode = "Postcode LeverAdres"
+	Set AxPostalAddress.City = "Gemeente LeverAdres"
+	Set AxPostalAddress.CountryRegionId = "BEL"
+	Set AxPostalAddress.DlvModeId = "OD4 Di-Vr"
+	Set AxPostalAddress.Nota1External = "Opmerking1 LeverAdres"
+	Set AxPostalAddress.Nota2External = "Opmerking2 LeverAdres"
+	Set AxPostalAddress.LocationId = "AxLeveradresId LeverAdres"
+	Set AxPostalAddress.TransporterAuth = "Volmacht LeverAdres"
+	
+	Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()
+	Set AxRole.Name = "Delivery"
+	
+	Do AxPostalAddress.Role.Insert(AxRole)
+	
+	Quit AxPostalAddress
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>