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))