Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml =================================================================== diff -u -r53372 -r55937 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 53372) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 55937) @@ -321,15 +321,16 @@ Set BestelWinkelkarRequest.Winkelkar.KlantId = KlantNummer Set BestelWinkelkarRequest.LeverAdres.Id = AxLeverAdresId + #dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen() Do ..VerkoopServiceMock.IndienMethodCall("BestelOfferte", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks() Do ..VerkoopServiceMock.IndienMethodCall("ZetTotaalBedragWebshop", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks() + Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks() Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard()) Do ..WinkelkarServiceHelperMock.IndienMethodCall("GeefKlantPartijID",$$$ElkeWaarde, $$$ElkeWaarde).DanReturn(KlantPartijId) Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", BestelWinkelkarRequest.Winkelkar.Id).DanReturn(RandomOfferteId) Do ..OrderVrijgaveBepalerMock.IndienMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, KlantPartijId).DanReturn($$$False) - #dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen() #dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch() Do TeConverterenLeverAdres.ZetID(AxLeverAdresId) Do TeConverterenLeverAdres.ZetTaal("N") @@ -340,14 +341,13 @@ Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", RandomOfferteId, ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks() - Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() - Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",AxLeverAdresId,KlantNummer).DanReturn($$$True) - Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",AxLeverAdresId,KlantNummer).DanReturn(TeConverterenLeverAdres) + Set LeverAdresInvullerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller).%New() + Do LeverAdresInvullerMock.VerwachtMethodCall("VulInLeverAdres",$$$ElkeWaarde,$$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks() - #dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock,, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock, LeverAdresRepositoryMock, ..OrderVrijgaveBepalerMock) + #dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock,, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock, LeverAdresInvullerMock, ..OrderVrijgaveBepalerMock) Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest) - Do LeverAdresRepositoryMock.Verifieer() + Do LeverAdresInvullerMock.Verifieer() ]]> @@ -370,7 +370,7 @@ Do ..VerkoopServiceMock.VerwachtMethodCall("BestelOfferte", RandomOfferteId, KlantPartijId, BestelWinkelkarRequest.Header.PersonalityId).DanDoeNiks() Do ..AsynchroneOrderSluiterMock.VerwachtMethodCall("MaakEnSluitOrderViaOfferteID", RandomOfferteId).DanDoeNiks() - #dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock,, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,, ..OrderVrijgaveBepalerMock, ..AsynchroneOrderSluiterMock) //..VerkoopServiceMock, ..WinkelkarRepositoryMock,, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock, LeverAdresRepositoryMock) + #dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock,, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,, ..OrderVrijgaveBepalerMock, ..AsynchroneOrderSluiterMock) #dim Response As WS.Vhisie4.Winkelkar.BestelWinkelkarResponse = BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest) Do $$$AssertEquals(Response.OrderIsVrijgegeven, MagOrderMaken) Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml =================================================================== diff -u -r53766 -r55937 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 53766) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 55937) @@ -38,8 +38,8 @@ 1 - -DOM.VKP.impl.LeverAdresRepository + +WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller 1 @@ -59,7 +59,7 @@ -VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",TransportService:APPS.EC.Transport.Service="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="",LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository="",OrderVrijgaveBepaler:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderVrijgaveBepaler="",AsynchroneOrderSluiter:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter="",Mailer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer="" +VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",TransportService:APPS.EC.Transport.Service="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="",LeverAdresInvuller:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller="",OrderVrijgaveBepaler:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderVrijgaveBepaler="",AsynchroneOrderSluiter:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter="",Mailer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer="" 1 1 %Status @@ -70,7 +70,7 @@ Set ..TransportService = $$$Inject(TransportService, ##class(APPS.EC.Transport.Service).%New()) Set ..CheckoutTypeBepaler = $$$Inject(CheckoutTypeBepaler, ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()) Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()) - Set ..LeverAdresRepository = $$$Inject(LeverAdresRepository, ##class(DOM.VKP.impl.LeverAdresRepository).%New()) + Set ..LeverAdresInvuller = $$$Inject(LeverAdresInvuller, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller).%New()) Set ..OrderVrijgaveBepaler = $$$Inject(OrderVrijgaveBepaler, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderVrijgaveBepaler).%New()) Set ..AsynchroneOrderSluiter = $$$Inject(AsynchroneOrderSluiter, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter).%New()) @@ -151,35 +151,7 @@ Set Hoofding.LeveringDetail.WensDatum = BestelWinkelkarRequest.WensLeverDatum } - If ..IsIngevoerdAdres(BestelWinkelkarRequest) { - Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New() - Set Hoofding.LeveringDetail.Adres.ID = BestelWinkelkarRequest.LeverAdres.Id - Set Hoofding.LeveringDetail.Adres.Aanspreking = BestelWinkelkarRequest.LeverAdres.Aanspreking - Set Hoofding.LeveringDetail.Adres.Naam = BestelWinkelkarRequest.LeverAdres.Naam - Set Hoofding.LeveringDetail.Adres.Toenaam = BestelWinkelkarRequest.LeverAdres.Toenaam - Set Hoofding.LeveringDetail.Adres.LandCode = BestelWinkelkarRequest.LeverAdres.Land - Set Hoofding.LeveringDetail.Adres.Woonplaats = BestelWinkelkarRequest.LeverAdres.Woonplaats - Set Hoofding.LeveringDetail.Adres.Postcode = BestelWinkelkarRequest.LeverAdres.PostCode - Set Hoofding.LeveringDetail.Adres.Straat = BestelWinkelkarRequest.LeverAdres.StraatNrBus - Set Hoofding.LeveringDetail.Adres.Taal = BestelWinkelkarRequest.LeverAdres.Taal - } Else { - 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 - Set Hoofding.LeveringDetail.Adres.Naam = AxLeverAdres.Naam - Set Hoofding.LeveringDetail.Adres.Toenaam = AxLeverAdres.Toenaam - Set Hoofding.LeveringDetail.Adres.LandCode = ##class(DOM.common.Locatie.impl.LandRepository).%New().GeefViaID(AxLeverAdres.LandNr).GeefCode() - Set Hoofding.LeveringDetail.Adres.Woonplaats = AxLeverAdres.Gemeente - Set Hoofding.LeveringDetail.Adres.Postcode = AxLeverAdres.Postcode - Set Hoofding.LeveringDetail.Adres.Straat = AxLeverAdres.Straat - Set Hoofding.LeveringDetail.Adres.Taal = AxLeverAdres.Taal - Set Hoofding.LeveringDetail.Adres.Volmacht = AxLeverAdres.Volmacht - Set Hoofding.LeveringDetail.Adres.AxLeveradresId = AxLeverAdres.AxLeveradresId - Do Hoofding.LeveringDetail.Adres.Opmerkingen.Insert(AxLeverAdres.Opmerking1) - Do Hoofding.LeveringDetail.Adres.Opmerkingen.Insert(AxLeverAdres.Opmerking2) - } - } + Do ..LeverAdresInvuller.VulInLeverAdres(BestelWinkelkarRequest, .Hoofding) Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New() Set Hoofding.Referentie.OrderReferentie = BestelWinkelkarRequest.Winkelkar.Referentie @@ -199,14 +171,6 @@ ]]> - -BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest -1 -%Boolean - - - BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest 1