Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r49543 -r49725
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49543)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49725)
@@ -55,14 +55,14 @@
 	Do KlantMock.VerwachtMethodCall("ZetVerzendingWijze", "DI1").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,"Update").DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock).DanReturn(..GeefAddress())
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
 	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(..GeefAddress())
-	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenBestaandeKlant",KlantMock,$$$ElkeWaarde).DanDoeNiks()
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,$$$ElkeWaarde).DanDoeNiks()
 	
 	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
 
@@ -105,7 +105,7 @@
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	;Do KlantMock.VerwachtMethodCall("GeefLeverAdressen").DanDoeNiks()
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,"Update").DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock).DanReturn(..GeefAddress())
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1")
 	Set Cust.PostalAddress.GetAt(1).DlvModeId = "UnitTestOngekendeDlvMode"
@@ -114,8 +114,8 @@
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
 	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",Cust,$$$ElkeWaarde).DanReturn(Adres)
-	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenBestaandeKlant",KlantMock,Cust).DanDoeNiks()
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",Cust).DanReturn(Adres)
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,Cust).DanDoeNiks()
 	
 	Do ..GeefConverter().Convert(Cust)
 
@@ -135,8 +135,8 @@
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
 	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(..GeefAddress())
-	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenNieuweKlant",KlantMock,$$$ElkeWaarde).DanDoeNiks()
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",$$$ElkeWaarde).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,$$$ElkeWaarde).DanDoeNiks()
 	
 	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
 	
@@ -176,8 +176,8 @@
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
 	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",Cust,$$$ElkeWaarde).DanReturn(..GeefAddress())
-	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenNieuweKlant",KlantMock,Cust).DanDoeNiks()
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",Cust).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,Cust).DanDoeNiks()
 	
 	Do ..GeefConverter().Convert(Cust)
 	
@@ -209,8 +209,8 @@
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
 	Do ..LandRepositoryMock.IndienMethodCall("GeefViaLandCodeIso3","BEL").DanReturn(LandMock)
 	
-	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",Cust,$$$ElkeWaarde).DanReturn(..GeefAddress())
-	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressenNieuweKlant",KlantMock,Cust).DanDoeNiks()
+	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",Cust).DanReturn(..GeefAddress())
+	Do ..LeverAdresUtilsMock.IndienMethodCall("ZetLeverAdressen",KlantMock,Cust).DanDoeNiks()
 
 	Do ..GeefConverter().Convert(Cust)
 	
Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49704 -r49725
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49704)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49725)
@@ -23,13 +23,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LandRepository:DOM.common.Locatie.impl.LandRepository,Logger:vhLib.Logger,LeverAdresFactory:DOM.VKP.impl.LeverAdresFactory,LeveradresRepository:DOM.VKP.impl.LeverAdresRepository</FormalSpec>
+<FormalSpec>LandRepository:DOM.common.Locatie.impl.LandRepository,Logger:vhLib.Logger,LeverAdresFactory:DOM.VKP.impl.LeverAdresFactory,LeveradresRepository:DOM.VKP.impl.LeverAdresRepository,VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -39,28 +44,29 @@
 	Set ..LeverAdresFactory = $$$Inject(LeverAdresFactory,##class(DOM.VKP.impl.LeverAdresFactory).%New())
 	Set ..LandRepository  = $$$Inject(LandRepository,##class(DOM.common.Locatie.impl.LandRepository).%New())
 	Set ..LeveradresRepository = $$$Inject(LeveradresRepository,##class(DOM.VKP.impl.LeverAdresRepository).%New())
+	Set ..VerkoopApi = $$$Inject(VerkoopApi,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="ZetLeverAdressenNieuweKlant">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<Method name="MaakPrimairAdres">
+<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()	
 	Set PostalAddressIterator = ##class(TECH.ListIterator).%New(Cust.PostalAddress)
 	While PostalAddressIterator.HasNext() {
 		#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = PostalAddressIterator.Next()
-		If ..RolesContains(Address.Role ,"Delivery" ) {
-			#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
-			#dim InsertOfUpdate As %String = "Insert"
-			Do ..ZetNieuwLeverAdres(Adres, Address, Cust, InsertOfUpdate)
-			Do Klant.VoegToeLeverAdres(Adres)
+		If (Address.IsPrimary = "Yes") && ..RolesContains(Address.Role ,"Business") {
+			Set Adres = ..ZetAdres(Adres, Address, Cust, Adres)
 		}
 	}
+	Quit Adres
 ]]></Implementation>
 </Method>
 
-<Method name="ZetLeverAdressenBestaandeKlant">
+<Method name="ZetLeverAdressen">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
 <Implementation><![CDATA[
 	#dim LijstVanAxLocationIds As %ListOfDataTypes = ..GeefAxLocationIdsVanKlant(Klant)
@@ -69,31 +75,12 @@
 	While PostalAddressIterator.HasNext() {
 		#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = PostalAddressIterator.Next()
 		If ..RolesContains(Address.Role ,"Delivery" ) {
-			#dim InsertOfUpdate As %String
+			#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
+			#dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId),..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId),Adres)
+			Do ..ZetAdres(Adres, Address, Cust, BestaandLeverAdres)
 			If $$$Not(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId)) {
-				#dim NieuwAdres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
-				Set InsertOfUpdate = "Insert"
-				Do ..ZetNieuwLeverAdres(NieuwAdres, Address, Cust, InsertOfUpdate)
-				Do Klant.VoegToeLeverAdres(NieuwAdres)
+				Do Klant.VoegToeLeverAdres(Adres)
 			} Else {
-				#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId)
-				#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
-				Set InsertOfUpdate = "Update"
-				Do Adres.ZetNaam($$$If($$$HasLength(Address.Description),Address.Description,BestaandLeverAdres.GeefNaam()))
-				Do Adres.ZetAanspreking("")
-				Do Adres.ZetStraat($$$If($$$HasLength(Address.Street),Address.Street,BestaandLeverAdres.GeefStraat()))
-				Do Adres.ZetPostcode($$$If($$$HasLength(Address.ZipCode),Address.ZipCode,BestaandLeverAdres.GeefPostcode()))
-				Do Adres.ZetGemeente($$$If($$$HasLength(Address.City),Address.City,BestaandLeverAdres.GeefGemeente()))
-				Do Adres.ZetLandNr($$$If($$$HasLength(Address.CountryRegionId),..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefID(),BestaandLeverAdres.GeefLandNr()))
-				Do Adres.ZetTaal($$$If($$$HasLength(Cust.LanguageId),..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId),Klant.GeefTaal()))
-				If (($$$HasLength(Address.DlvModeId)) || ($$$HasLength(BestaandLeverAdres.GeefVerzendingWijze()))) {
-					Do Adres.ZetVerzendingWijze($$$If($$$HasLength(Address.DlvModeId),..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, InsertOfUpdate),BestaandLeverAdres.GeefVerzendingWijze()))
-				}
-				Do Adres.ZetOpmerking1($$$If($$$HasLength(Address.Nota1External),Address.Nota1External,BestaandLeverAdres.GeefOpmerking1()))
-				Do Adres.ZetOpmerking2($$$If($$$HasLength(Address.Nota2External),Address.Nota2External,BestaandLeverAdres.GeefOpmerking2()))
-				Do Adres.ZetType($$$If($$$HasLength(Address.Role),..AxToAdminUtils.ConvertLeverAdresType(Address.Role),BestaandLeverAdres.GeefType()))
-				Do Adres.ZetAxLeveradresId($$$If($$$HasLength(Address.LocationId),Address.LocationId,BestaandLeverAdres.GeefAxLeveradresId()))
-				Do Adres.ZetVolmacht($$$If($$$HasLength(Address.TransporterAuth),Address.TransporterAuth,BestaandLeverAdres.GeefVolmacht()))
 				Do ..LeveradresRepository.Bewaar(Klant, Adres)
 				Do ##class(TECH.ListUtils).RemoveItemFromList(Address.LocationId,LijstVanAxLocationIds)
 			}
@@ -122,46 +109,42 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetNieuwLeverAdres">
-<FormalSpec>Adres:DOM.VKP.LeverAdres,Address:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,InsertOfUpdate:%String</FormalSpec>
+<Method name="ZetAdres">
+<FormalSpec>Adres:DOM.VKP.LeverAdres,Address:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,BestaandLeverAdres:DOM.VKP.LeverAdres</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	Set Adres = ..ZetGemeenschappelijkePropertiesOpAdres(Adres, Address, Cust, InsertOfUpdate)
-	Do Adres.ZetOpmerking1(Address.Nota1External)
-	Do Adres.ZetOpmerking2(Address.Nota2External)
-	Do Adres.ZetType(..AxToAdminUtils.ConvertLeverAdresType(Address.Role))
-	Do Adres.ZetAxLeveradresId(Address.LocationId)
-	Do Adres.ZetVolmacht(Address.TransporterAuth)
-	Quit Adres
-]]></Implementation>
-</Method>
-
-<Method name="ZetGemeenschappelijkePropertiesOpAdres">
-<FormalSpec>Adres:DOM.VKP.LeverAdres,Address:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,InsertOfUpdate:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.VKP.LeverAdres</ReturnType>
-<Implementation><![CDATA[
-	Do Adres.ZetNaam(Address.Description)
+	Do Adres.ZetNaam($$$If($$$HasLength(Address.Description),Address.Description,BestaandLeverAdres.GeefNaam()))
 	Do Adres.ZetAanspreking("")
-	Do Adres.ZetStraat(Address.Street)
-	Do Adres.ZetPostcode(Address.ZipCode)
-	Do Adres.ZetGemeente(Address.City)
-	Do Adres.ZetLandNr(..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefID())
-	Do Adres.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
-	If ($$$HasLength(Address.DlvModeId)) {
-		Do Adres.ZetVerzendingWijze(..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, InsertOfUpdate))
+	Do Adres.ZetStraat($$$If($$$HasLength(Address.Street),Address.Street,BestaandLeverAdres.GeefStraat()))
+	Do Adres.ZetPostcode($$$If($$$HasLength(Address.ZipCode),Address.ZipCode,BestaandLeverAdres.GeefPostcode()))
+	Do Adres.ZetGemeente($$$If($$$HasLength(Address.City),Address.City,BestaandLeverAdres.GeefGemeente()))
+	Do Adres.ZetLandNr($$$If($$$HasLength(Address.CountryRegionId),..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefID(),BestaandLeverAdres.GeefLandNr()))
+	Do Adres.ZetTaal($$$If($$$HasLength(Cust.LanguageId),..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId),BestaandLeverAdres.GeefTaal()))
+	If (($$$HasLength(Address.DlvModeId)) || ($$$HasLength(BestaandLeverAdres.GeefVerzendingWijze()))) {
+		Do Adres.ZetVerzendingWijze($$$If($$$HasLength(Address.DlvModeId),..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, Address.LocationId),BestaandLeverAdres.GeefVerzendingWijze()))
 	}
+	Do Adres.ZetType("")
+	If (($$$Not(..RolesContains(Address.Role ,"Business")) && ($$$Not(Address.IsPrimary = "Yes")))) {
+		Do Adres.ZetOpmerking1($$$If($$$HasLength(Address.Nota1External),Address.Nota1External,BestaandLeverAdres.GeefOpmerking1()))
+		Do Adres.ZetOpmerking2($$$If($$$HasLength(Address.Nota2External),Address.Nota2External,BestaandLeverAdres.GeefOpmerking2()))
+		Do Adres.ZetType($$$If($$$HasLength(Address.Role),..AxToAdminUtils.ConvertLeverAdresType(Address.Role),BestaandLeverAdres.GeefType()))
+		Do Adres.ZetAxLeveradresId($$$If($$$HasLength(Address.LocationId),Address.LocationId,BestaandLeverAdres.GeefAxLeveradresId()))
+		Do Adres.ZetVolmacht($$$If($$$HasLength(Address.TransporterAuth),Address.TransporterAuth,BestaandLeverAdres.GeefVolmacht()))
+	}
 	Quit Adres
 ]]></Implementation>
 </Method>
 
 <Method name="MaakVerzendingWijze">
-<FormalSpec>DlvMode:%String,CustAccount:%String,InsertOfUpdate:%String</FormalSpec>
+<FormalSpec>DlvMode:%String,CustAccount:%String,LocationId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzendWijzeAdmin As %String = ""
+	#dim InsertOfUpdate As %String = $$$If(..VerkoopApi.BestaatKlant(..AxToAdminUtils.ConvertCustomerID(CustAccount)),"Update","Insert")
+	Set InsertOfUpdate = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresId(LocationId),"Update","Insert")
+	
 	Try {
 		Set VerzendWijzeAdmin = ..AxToAdminUtils.ConvertVerzendingWijze(DlvMode)
 	} Catch {
@@ -183,6 +166,7 @@
 
 <Method name="RolesContains">
 <FormalSpec>Roles:%ListOfDataTypes,Name:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim Result as %Boolean = $$$False
@@ -194,24 +178,6 @@
 	Quit Result
 ]]></Implementation>
 </Method>
-
-<Method name="MaakPrimairAdres">
-<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,InsertOfUpdate:%String</FormalSpec>
-<ReturnType>DOM.VKP.LeverAdres</ReturnType>
-<Implementation><![CDATA[
-	
-	#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()	
-	Set PostalAddressIterator = ##class(TECH.ListIterator).%New(Cust.PostalAddress)
-	While PostalAddressIterator.HasNext() {
-		#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = PostalAddressIterator.Next()
-		if (Address.IsPrimary = "Yes") && ..RolesContains(Address.Role ,"Business" ){
-			Set Adres = ..ZetGemeenschappelijkePropertiesOpAdres(Adres, Address, Cust, InsertOfUpdate)
-			Do Adres.ZetType("")
-		}
-	}
-	Quit Adres
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49695 -r49725
--- vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49695)
+++ vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49725)
@@ -7,43 +7,17 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils</Super>
 
-<Method name="GeefPrimairAdres">
-<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,InsertOfUpdate:%String</FormalSpec>
-<ReturnType>DOM.VKP.LeverAdres</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
-
-<Method name="GeefAxLocationIdsVanKlant">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
-
 <Method name="MaakPrimairAdres">
 <FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,InsertOfUpdate:%String</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
-<Method name="RolesContains">
-<FormalSpec>Roles:%ListOfDataTypes,Name:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
-
-<Method name="ZetLeverAdressenBestaandeKlant">
+<Method name="ZetLeverAdressen">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
-
-<Method name="ZetLeverAdressenNieuweKlant">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Mock/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49543 -r49725
--- vhTest/Mock/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49543)
+++ vhTest/Mock/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49725)
@@ -9,30 +9,17 @@
 <Inheritance>right</Inheritance>
 
 <Method name="MaakPrimairAdres">
-<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,InsertOfUpdate:%String</FormalSpec>
+<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakPrimairAdres",Cust,InsertOfUpdate)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakPrimairAdres",Cust)
 ]]></Implementation>
 </Method>
 
-<Method name="RolesContains">
-<FormalSpec>Roles:%ListOfDataTypes,Name:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("RolesContains",Roles,Name)
-]]></Implementation>
-</Method>
-
-<Method name="ZetLeverAdressenBestaandeKlant">
+<Method name="ZetLeverAdressen">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetLeverAdressenBestaandeKlant",Klant,Cust)
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetLeverAdressen",Klant,Cust)
 ]]></Implementation>
 </Method>
-
-<Method name="ZetLeverAdressenNieuweKlant">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetLeverAdressenNieuweKlant",Klant,Cust)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r49543 -r49725
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 49543)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 49725)
@@ -86,14 +86,14 @@
 	Do KlantPartij.ZetToenaam(..GeefKlantToenaam(Cust))
 	Do KlantPartij.ZetTaal(..GeefTaal(Cust))
 	Do KlantPartij.ZetTelefoon1(..GeefTelefoon1(Cust))
-	#dim PrimairAdres As DOM.VKP.LeverAdres = ..LeverAdresUtils.MaakPrimairAdres(Cust, "Update")
+	#dim PrimairAdres As DOM.VKP.LeverAdres = ..LeverAdresUtils.MaakPrimairAdres(Cust)
 	;Do KlantPartij.Zet ??? (..GeefFax(Cust)) geen zetbare property op klant of partij
 	Do KlantPartij.ZetAdres(PrimairAdres)
 	Do KlantPartij.Save()
 	
 	Do:($$$Not(""=PrimairAdres.GeefVerzendingWijze())) Klant.ZetVerzendingWijze(PrimairAdres.GeefVerzendingWijze())
 	Do Klant.Save()
-	Do ..LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant, Cust)
+	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>
 </Method>
 
@@ -120,13 +120,13 @@
 	; Set dtoKlant.Opmerking1 = ???
 	; Set dtoKlant.FrequentieAanbrengerCommissie = ???
 
-	Set dtoKlant.Adres = ..LeverAdresUtils.MaakPrimairAdres(Cust, "Insert")
+	Set dtoKlant.Adres = ..LeverAdresUtils.MaakPrimairAdres(Cust)
 	#dim PartijID As DOM.common.PartijID = ..KlantLevenCyclusService.MaakKlant(dtoKlant,TypeTemplateKlant)
 	
 	#Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID)	
 	Do Klant.ZetVerzendingWijze(dtoKlant.Adres.GeefVerzendingWijze())
 	Do Klant.Save()
-	Do ..LeverAdresUtils.ZetLeverAdressenNieuweKlant(Klant, Cust)
+	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml
===================================================================
diff -u -r49722 -r49725
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49722)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49725)
@@ -41,7 +41,7 @@
 	Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaAXLeverAdresId",..#AxLocationId1).DanReturn(BestaandAdres)
 	
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)))
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)))
 	
 	Do LeverAdresRepositoryMock.Verifieer()
 	
@@ -72,7 +72,7 @@
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres))
 	
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2)))
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2)))
 	
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do Klant.Verifieer()
@@ -105,7 +105,7 @@
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId2).ExactAantalKeer(1)
 	
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)))
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)))
 	
 	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -138,7 +138,7 @@
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId4).ExactAantalKeer(0)
 	
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2,..#AxLocationId4)))
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2,..#AxLocationId4)))
 	
 	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -164,7 +164,7 @@
 	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1)
 	
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2)))
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2)))
 	
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do Klant.Verifieer()
@@ -192,7 +192,7 @@
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
 	#dim InkomendeAxCustomer As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2))
 	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,InkomendeAxCustomer)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,InkomendeAxCustomer)
 	
 	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -211,7 +211,7 @@
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
 	#dim InkomendeAxCustomer As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1))
 	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,InkomendeAxCustomer)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,InkomendeAxCustomer)
 	
 	Do LeverAdresRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -239,7 +239,7 @@
 	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
 	Set InkomendeAxCustomer.PostalAddress.GetAt(3).Role.GetAt(1).Name = "NotDelivery"
 	Set InkomendeAxCustomer.PostalAddress.GetAt(5).Role.GetAt(1).Name = "NotDelivery"
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,InkomendeAxCustomer)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,InkomendeAxCustomer)
 	
 	Do LeverAdresFactoryStub.Verifieer()
 	Do Klant.Verifieer()
@@ -272,7 +272,7 @@
 	#dim InkomendeAxCustomer As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4))
 	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
 	Set InkomendeAxCustomer.PostalAddress.GetAt(3).Role.GetAt(1).Name = "NotDelivery"
-	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,InkomendeAxCustomer)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,InkomendeAxCustomer)
 	
 	Do LeverAdresRepositoryMock.Verifieer()
 	Do LeverAdresFactoryStub.Verifieer()