Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml =================================================================== diff -u -r49907 -r49909 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 49907) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 49909) @@ -60,11 +60,10 @@ Set ProjectSettingsApiStub = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New() Do ProjectSettingsApiStub.IndienMethodCall("IsActiefAxLeverancierId").DanReturn($$$True) - Set LeverAdresRepositoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryStub.IndienMethodCall("BestaatViaAXLeverAdresId",..#AXLeverAdresId).DanReturn($$$True) - #dim StandaardAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch() Do StandaardAdres.ZetTelefoon("+123456789") + Set LeverAdresRepositoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() + Do LeverAdresRepositoryStub.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AXLeverAdresId,StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).CustAccount).DanReturn($$$True) Do LeverAdresRepositoryStub.IndienMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AXLeverAdresId,StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).CustAccount).DanReturn(StandaardAdres) Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml =================================================================== diff -u -r49907 -r49909 --- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49907) +++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49909) @@ -8,10 +8,10 @@ DOM.VKP.impl.LeverAdresRepository,Tools.Mock.MockClassBase right - -AXLeverAdresId:%String + +AXLeverAdresId:%String,KlantNummer:%String %Boolean - Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresIdEnKlantNummer.cls.xml =================================================================== diff -u -r49908 -r49909 --- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresIdEnKlantNummer.cls.xml (.../GeefViaAxLeveradresIdEnKlantNummer.cls.xml) (revision 49908) +++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaAxLeveradresIdEnKlantNummer.cls.xml (.../GeefViaAxLeveradresIdEnKlantNummer.cls.xml) (revision 49909) @@ -47,7 +47,7 @@ @@ -58,7 +58,7 @@ Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New() #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer("AXID12341",..#TestKlantnummer) - Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12341"),"") + Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer("AXID12341",..#TestKlantnummer),"") Do $$$AssertEquals(LeverAdres.GeefUniekId(),"84691") Do $$$AssertEquals(LeverAdres.Straat,"TRADEBOULEVARD 5 A") @@ -79,9 +79,9 @@ Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New() - Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12341"),"") - Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12342"),"") - Do $$$AssertFalse(LeveradresRepository.BestaatViaAXLeverAdresId("AXID12343"),"") + Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer("AXID12341",..#TestKlantnummer),"") + Do $$$AssertTrue(LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer("AXID12342",..#TestKlantnummer),"") + Do $$$AssertFalse(LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer("AXID12343",..#TestKlantnummer),"") #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer("AXID12342",..#TestKlantnummer) Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml =================================================================== diff -u -r49907 -r49909 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml (.../LeverAdresMaker.cls.xml) (revision 49907) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml (.../LeverAdresMaker.cls.xml) (revision 49909) @@ -58,7 +58,7 @@ Do LeverAdres.ZetNaam(OrderHeader.DeliveryName) If ($$$HasLength(OrderHeader.LocationId) && (..ProjectSettingsApi.IsActiefAxLeverancierId())){ - If ..LeverAdresRepository.BestaatViaAXLeverAdresId(OrderHeader.LocationId) { + If ..LeverAdresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(OrderHeader.LocationId, OrderHeader.CustAccount) { Set LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresIdEnKlantNummer(OrderHeader.LocationId, OrderHeader.CustAccount) } Else { Do ..LogAdresNietGevonden(OrderHeader) Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml =================================================================== diff -u -r49907 -r49909 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 49907) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 49909) @@ -170,7 +170,7 @@ Set Hoofding.LeveringDetail.Adres.Straat = BestelWinkelkarRequest.LeverAdres.StraatNrBus Set Hoofding.LeveringDetail.Adres.Taal = BestelWinkelkarRequest.LeverAdres.Taal } Else { - If ..LeverAdresRepository.BestaatViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id) { + If ..LeverAdresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(BestelWinkelkarRequest.LeverAdres.Id, BestelWinkelkarRequest.Winkelkar.KlantId) { Set Hoofding.LeveringDetail.Adres = ##class(APPS.TRANSP.dto.LeveringAdres).%New() #dim AxLeverAdres As DOM.VKP.impl.LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresIdEnKlantNummer(BestelWinkelkarRequest.LeverAdres.Id, BestelWinkelkarRequest.Winkelkar.KlantId) Set Hoofding.LeveringDetail.Adres.Aanspreking = AxLeverAdres.Aanspreking Index: DOM/VKP/impl/LeverAdresRepository.cls.xml =================================================================== diff -u -r49907 -r49909 --- DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49907) +++ DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 49909) @@ -167,15 +167,15 @@ ]]> - -AXLeverAdresId:%String + +AXLeverAdresId:%String,KlantNummer:%String %Boolean + +AXLeverAdresId:%String,KlantNummer:%String +%Boolean + + + AXLeverAdresId:%String,KlantNummer:%String DOM.VKP.impl.LeverAdres Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml =================================================================== diff -u -r49907 -r49909 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 49907) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 49909) @@ -206,7 +206,7 @@ Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", "InterneId", ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks() Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",AxLeverAdresId).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",AxLeverAdresId,KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",AxLeverAdresId,KlantNummer).DanReturn(TeConverterenLeverAdres) #dim Service As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ,..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock, LeverAdresRepositoryMock) Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml =================================================================== diff -u -r49907 -r49909 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml (.../Test.cls.xml) (revision 49907) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml (.../Test.cls.xml) (revision 49909) @@ -39,7 +39,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("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)) @@ -68,9 +68,9 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId1).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0) Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)) @@ -101,9 +101,9 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId1).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0) Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0) @@ -134,9 +134,9 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1) @@ -172,7 +172,7 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2)) @@ -201,7 +201,7 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)) @@ -221,7 +221,7 @@ Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New() Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0) + Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(0) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)) Set Cust.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery" @@ -246,8 +246,8 @@ Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(2) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn($$$False) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4,..#AxLocationId5)) Set Cust.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery" @@ -280,10 +280,10 @@ Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(2) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)).ExactAantalKeer(1) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn($$$False) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId5).ExactAantalKeer(1) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4)) Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml =================================================================== diff -u -r49907 -r49909 --- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49907) +++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49909) @@ -84,15 +84,15 @@ Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" B ") - #dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId),..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())),Adres) + #dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())),..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())),Adres) Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" C ") Do ..AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, $$$False) Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" D ") - If $$$Not(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId)) { + If $$$Not(..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID()))) { Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" E ") Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml =================================================================== diff -u -r49907 -r49909 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml (.../Test.cls.xml) (revision 49907) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml (.../Test.cls.xml) (revision 49909) @@ -39,7 +39,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("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.IndienMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)) @@ -68,9 +68,9 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId1).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0) Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)) @@ -101,9 +101,9 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId1).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).ExactAantalKeer(0) Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0) @@ -134,9 +134,9 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn(BestaandAdres).ExactAantalKeer(1) Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1) @@ -172,7 +172,7 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId2)) @@ -201,7 +201,7 @@ Do LeverAdresFactoryStub.IndienMethodCall("MaakLeverAdres").DanReturn(Adres) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(1) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)) @@ -221,7 +221,7 @@ Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New() Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId1).ExactAantalKeer(0) + Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(0) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1)) Set Cust.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery" @@ -246,8 +246,8 @@ Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(2) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$False) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn($$$False) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4,..#AxLocationId5)) Set Cust.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery" @@ -280,10 +280,10 @@ Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(2) Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer).DanReturn($$$True) Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId2,..#KlantNummer ).DanReturn(BestaandAdres).ExactAantalKeer(1) Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)).ExactAantalKeer(1) - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$False) + Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId4,..#KlantNummer).DanReturn($$$False) Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId5).ExactAantalKeer(1) #dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4))