Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r48495 -r48522
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 48495)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 48522)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeveradresRepository">
+<Type>DOM.VKP.impl.LeverAdresRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LandRepository">
 <Type>DOM.common.Locatie.impl.LandRepository</Type>
 <Private>1</Private>
@@ -39,7 +44,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,VerkoopApi:DOM.VKP.VerkoopAPI,KlantLevenCyclusService:APPS.KlantBeheer.KlantLevenCyclusService,LandRepository:DOM.common.Locatie.impl.LandRepository,Logger:vhLib.Logger,LeverAdresFactory:DOM.VKP.impl.LeverAdresFactory</FormalSpec>
+<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,VerkoopApi:DOM.VKP.VerkoopAPI,KlantLevenCyclusService:APPS.KlantBeheer.KlantLevenCyclusService,LandRepository:DOM.common.Locatie.impl.LandRepository,Logger:vhLib.Logger,LeverAdresFactory:DOM.VKP.impl.LeverAdresFactory,LeveradresRepository:DOM.VKP.impl.LeverAdresRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -51,6 +56,7 @@
 	Set ..KlantLevenCyclusService = $$$Inject(KlantLevenCyclusService,##class(APPS.KlantBeheer.KlantLevenCyclusService).%New())
 	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 ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
 	Quit $$$OK
 ]]></Implementation>
@@ -93,6 +99,7 @@
 	
 	Do:($$$Not(""=PrimairAdres.GeefVerzendingWijze())) Klant.ZetVerzendingWijze(PrimairAdres.GeefVerzendingWijze())
 	Do Klant.Save()
+	Do ..ZetLeverAdressenBestaandeKlant(Klant, Cust)
 ]]></Implementation>
 </Method>
 
@@ -306,6 +313,88 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLeverAdressenNieuweKlant">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<Implementation><![CDATA[
+	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)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeverAdressenBestaandeKlant">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<Implementation><![CDATA[
+	#dim CacheLeverAdresLijst As %ListOfObjects = Klant.GeefLeverAdressen()
+	Set CacheIdLeverAdresLijst = ##class(%ListOfDataTypes).%New()
+	#dim N As %Integer
+	#dim CacheIdLeverAdresCount As %Integer = 0
+	For N=1:1:CacheLeverAdresLijst.Count() {
+		Set CacheIdLeverAdresCount = CacheIdLeverAdresCount + 1
+		#dim CacheIdLeverAdres As DOM.VKP.LeverAdres = CacheLeverAdresLijst.GetAt(CacheIdLeverAdresCount)
+		Do CacheIdLeverAdresLijst.Insert(CacheIdLeverAdres.ID)
+	}
+	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 CacheLeverAdresId As %String = ##class(TECH.StringUtils).LeftTrim($Extract($Piece(Address.TransporterAuth,"$$##",2),2,*))
+			#dim IsNieuwLeverAdres As %Boolean
+			#dim InsertOfUpdate As %String
+			Set IsNieuwLeverAdres = $$$If($$$Not(##class(TECH.ListUtils).Contains(CacheIdLeverAdresLijst,CacheLeverAdresId)),$$$True,$$$False)
+			If IsNieuwLeverAdres {
+				#dim NieuwAdres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
+				Set InsertOfUpdate = "Insert"
+				Do ..ZetNieuwLeverAdres(NieuwAdres, Address, Cust, InsertOfUpdate)
+				Do Klant.VoegToeLeverAdres(NieuwAdres)
+			} Else {
+				#Dim Node As %String = "L"_##class(TECH.StringUtils).AddLeadingSpace(CacheLeverAdresId,3)
+				#dim BestaandLeverAdres As DOM.VKP.LeverAdres = Klant.GeefSpecifiekAdres(Node)
+				#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
+				Set InsertOfUpdate = "Update"
+				Do Adres.ZetNaam($$$If($$$HasLength(Address.Description),$Piece(Address.Description," ",1),BestaandLeverAdres.GeefNaam()))
+				Do Adres.ZetAanspreking($$$If($$$HasLength(Address.Description),$Piece(Address.Description," ",2),BestaandLeverAdres.GeefAanspreking()))
+				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()))
+				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),$Piece(Address.TransporterAuth,"$$##",1),BestaandLeverAdres.GeefVolmacht()))
+				Set Adres.ID = CacheLeverAdresId
+				Do ..LeveradresRepository.Bewaar(Klant, Adres)
+			}
+		}
+	}
+]]></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>
+<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($Piece(Address.TransporterAuth,"$$##",1))
+	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>
@@ -322,28 +411,6 @@
 	Quit Adres
 ]]></Implementation>
 </Method>
-
-<Method name="ZetLeverAdressenNieuweKlant">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	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"
-			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)
-			Do Klant.VoegToeLeverAdres(Adres)
-		}
-	}
-]]></Implementation>
-</Method>
 </Class>