Index: DOM/VKP/impl/LeverAdresRepository.cls.xml =================================================================== diff -u -r49999 -r50000 --- DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49999) +++ DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 50000) @@ -242,7 +242,6 @@ While Iterator.HasNext() { #Dim Adres As DOM.VKP.LeverAdres = Iterator.Next() If $$$Not($$$HasLength(Adres.GeefAxLeveradresId())) { - #dim UniekId As %String = Adres.GeefKlantAdresNr() Do ..VerwijderViaID(Adres.GeefUniekId()) } } Index: DOM/common/impl/AdresUtils.cls.xml =================================================================== diff -u -r49999 -r50000 --- DOM/common/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 49999) +++ DOM/common/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 50000) @@ -50,6 +50,7 @@ Set Adres.VerzendingWijze = $piece(AdresData,"\",26) Set Adres.Volmacht = $piece(AdresData,"\",23) Set Adres.AxLeveradresId = $piece(AdresData,"\",29) + Set Adres.KlantAdresNr = $piece(AdresData,"\",1) Do Adres.ZetUniekId($Piece(AdresData,"\",28)) ]]> Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml =================================================================== diff -u -r49951 -r50000 --- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49951) +++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 50000) @@ -97,9 +97,9 @@ } } - //If NogAdressenVerwijderen { - // Do ..LeveradresRepository.VerwijderLeverAdressenZonderAxLocationIdVanKlant(Klant.GeefID()) - //} + If NogAdressenVerwijderen { + Do ..LeveradresRepository.VerwijderLeverAdressenZonderAxLeveradresIdVanKlant(Klant.GeefID()) + } ]]>