Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml	(revision 49737)
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils.MaakPrimairAdres.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="AxLocationId1">
+<Default>0000123456</Default>
+</Parameter>
+
+<Parameter name="AxLocationId2">
+<Default>0000234567</Default>
+</Parameter>
+
+<Parameter name="AxLocationId3">
+<Default>0000345678</Default>
+</Parameter>
+
+<Method name="Test: Er is geen Adres met als Role Business">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(1)
+	
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3))
+	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(3),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,,,AdresZetterMock)
+	#dim PrimairAdres As DOM.VKP.LeverAdres = LeverAdresUtils.MaakPrimairAdres(Cust)
+	
+	Do LeverAdresFactoryStub.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er is een Adres met als Role Business maar IsPrimory is niet Yes">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(1)
+	
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3))
+	Set Cust.PostalAddress.GetAt(2).Role.GetAt(1).Name = "Business"
+	Set Cust.PostalAddress.GetAt(2).IsPrimary = "No"
+	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(3),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,,,AdresZetterMock)
+	#dim PrimairAdres As DOM.VKP.LeverAdres = LeverAdresUtils.MaakPrimairAdres(Cust)
+	
+	Do LeverAdresFactoryStub.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er is een Adres met als IsPrimory Yes maar als Role niet Business">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(1)
+	
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3))
+	Set Cust.PostalAddress.GetAt(2).IsPrimary = "Yes"
+	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(3),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,,,AdresZetterMock)
+	#dim PrimairAdres As DOM.VKP.LeverAdres = LeverAdresUtils.MaakPrimairAdres(Cust)
+	
+	Do LeverAdresFactoryStub.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er is een Adres met als Role Business en IsPrimory is Yes">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(1)
+	
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3))
+	Set Cust.PostalAddress.GetAt(2).Role.GetAt(1).Name = "Business"
+	Set Cust.PostalAddress.GetAt(2).IsPrimary = "Yes"
+	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$True).DanDoeNiks().ExactAantalKeer(1)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(3),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,,,AdresZetterMock)
+	#dim PrimairAdres As DOM.VKP.LeverAdres = LeverAdresUtils.MaakPrimairAdres(Cust)
+	
+	Do LeverAdresFactoryStub.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxCustMetAxLocationIds">
+<FormalSpec>AxLocationIdLijst:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</ReturnType>
+<Implementation><![CDATA[
+	Set AxCust = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust).%New()
+	
+	#dim AxLocationID As %String
+	#dim LijstIterator = ##class(TECH.ListbuildIterator).%New(AxLocationIdLijst)
+	While LijstIterator.HasNext() {
+		Set AxLocationID = LijstIterator.Next()
+		Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
+		Set AxPostalAddress.LocationId = AxLocationID
+		Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()
+		Set AxRole.Name = "Delivery"
+		Do AxPostalAddress.Role.Insert(AxRole)
+		Do AxCust.PostalAddress.Insert(AxPostalAddress)
+	}
+
+	Quit AxCust
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>