Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml =================================================================== diff -u -r49668 -r49672 --- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49668) +++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49672) @@ -80,12 +80,12 @@ #dim IsNieuwLeverAdres As %Boolean #dim InsertOfUpdate As %String Set IsNieuwLeverAdres = $$$If($$$Not(##class(TECH.ListUtils).Contains(CacheIdLeverAdresLijst,CacheLeverAdresId)),$$$True,$$$False) - /*If IsNieuwLeverAdres { + 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) - } Else {*/ + } Else { #Dim Node As %String = "L"_##class(TECH.StringUtils).AddLeadingSpace(CacheLeverAdresId,3) #dim BestaandLeverAdres As DOM.VKP.LeverAdres = ..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId) //Klant.GeefSpecifiekAdres(Node) #dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres() @@ -107,7 +107,7 @@ Do Adres.ZetVolmacht($$$If($$$HasLength(Address.TransporterAuth),$Piece(Address.TransporterAuth,"$$##",1),BestaandLeverAdres.GeefVolmacht())) Set Adres.ID = CacheLeverAdresId Do ..LeveradresRepository.Bewaar(Klant, Adres) - //} + } } } ]]> Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml =================================================================== diff -u -r49671 -r49672 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml (.../Test.cls.xml) (revision 49671) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml (.../Test.cls.xml) (revision 49672) @@ -25,6 +25,7 @@ Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId1).DanReturn($$$True) Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaAXLeverAdresId",..#AxLocationId1).DanReturn(BestaandAdres) Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock) @@ -38,8 +39,11 @@