Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml
===================================================================
diff -u -r49729 -r49731
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 49729)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 49731)
@@ -3,9 +3,60 @@
 <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">
+<Parameter name="AxLocationId">
+<Default>0000123456</Default>
+</Parameter>
+
+<Method name="Test: De properties op het meegegeven AX-object zijn ingevuld en worden dus gebruikt voor het HoofdAdres">
+<Implementation><![CDATA[
+	Set AdresZetter = ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = ..GeefAxHoofdAdres()
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCust()
+	#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	#dim IsPrimairAdres As %Boolean = $$$True
+	#dim GezetAdres As DOM.VKP.LeverAdres = AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, IsPrimairAdres)
+	
+	Do $$$AssertEquals(GezetAdres.GeefNaam(),"Naam HoofdAdres")
+	Do $$$AssertEquals(GezetAdres.GeefAanspreking(),"")
+	Do $$$AssertEquals(GezetAdres.GeefStraat(),"Straat HoofdAdres")
+	Do $$$AssertEquals(GezetAdres.GeefPostcode(),"Postcode HoofdAdres")
+	Do $$$AssertEquals(GezetAdres.GeefGemeente(),"Gemeente HoofdAdres")
+	Do $$$AssertEquals(GezetAdres.GeefLandNr(),"1019")
+	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"OD4;2`OD4;5")
+	Do $$$AssertEquals(GezetAdres.GeefType(),"")
+	Do $$$AssertEquals(GezetAdres.GeefOpmerking1(),"")
+	Do $$$AssertEquals(GezetAdres.GeefOpmerking2(),"")
+	Do $$$AssertEquals(GezetAdres.GeefAxLeveradresId(),"")
+	Do $$$AssertEquals(GezetAdres.GeefVolmacht(),"")
+]]></Implementation>
 </Method>
 
+<Method name="Test: De properties op het meegegeven AX-object zijn ingevuld en worden dus gebruikt voor een LeverAdres">
+<Implementation><![CDATA[
+	Set AdresZetter = ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = ..GeefAxLeverAdres()
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCust()
+	#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	#dim IsPrimairAdres As %Boolean = $$$False
+	#dim GezetAdres As DOM.VKP.LeverAdres = AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, IsPrimairAdres)
+	
+	Do $$$AssertEquals(GezetAdres.GeefNaam(),"Naam LeverAdres")
+	Do $$$AssertEquals(GezetAdres.GeefAanspreking(),"")
+	Do $$$AssertEquals(GezetAdres.GeefStraat(),"Straat LeverAdres")
+	Do $$$AssertEquals(GezetAdres.GeefPostcode(),"Postcode LeverAdres")
+	Do $$$AssertEquals(GezetAdres.GeefGemeente(),"Gemeente LeverAdres")
+	Do $$$AssertEquals(GezetAdres.GeefLandNr(),"1019")
+	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"OD4;2`OD4;5")
+	Do $$$AssertEquals(GezetAdres.GeefType(),"")
+	Do $$$AssertEquals(GezetAdres.GeefOpmerking1(),"Opmerking1 LeverAdres")
+	Do $$$AssertEquals(GezetAdres.GeefOpmerking2(),"Opmerking2 LeverAdres")
+	Do $$$AssertEquals(GezetAdres.GeefAxLeveradresId(),..#AxLocationId)
+	Do $$$AssertEquals(GezetAdres.GeefVolmacht(),"Volmacht LeverAdres")
+]]></Implementation>
+</Method>
+
 <Method name="GeefAxCust">
 <Private>1</Private>
 <ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</ReturnType>
@@ -27,7 +78,6 @@
 	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"
@@ -51,7 +101,7 @@
 	Set AxPostalAddress.DlvModeId = "OD4 Di-Vr"
 	Set AxPostalAddress.Nota1External = "Opmerking1 LeverAdres"
 	Set AxPostalAddress.Nota2External = "Opmerking2 LeverAdres"
-	Set AxPostalAddress.LocationId = "AxLeveradresId LeverAdres"
+	Set AxPostalAddress.LocationId = ..#AxLocationId
 	Set AxPostalAddress.TransporterAuth = "Volmacht LeverAdres"
 	
 	Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()