Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/FalendeBestelService.cls.xml =================================================================== diff -u -r35625 -r40465 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/FalendeBestelService.cls.xml (.../FalendeBestelService.cls.xml) (revision 35625) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/FalendeBestelService.cls.xml (.../FalendeBestelService.cls.xml) (revision 40465) @@ -4,7 +4,7 @@ APPS.EDI.Bestel.impl.BestelService.UnishopBesteller -OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order +Offerte:APPS.VKP.Offerte,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order 1 Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml =================================================================== diff -u -r36377 -r40465 --- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml (.../UnishopBesteller.cls.xml) (revision 36377) +++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml (.../UnishopBesteller.cls.xml) (revision 40465) @@ -29,7 +29,7 @@ -OfferteID:%String,Lijn:APPS.EDI.common.dto.ProductLijn +Offerte:APPS.VKP.Offerte,Lijn:APPS.EDI.common.dto.ProductLijn Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml =================================================================== diff -u -r40435 -r40465 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml (.../Test.cls.xml) (revision 40435) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml (.../Test.cls.xml) (revision 40465) @@ -84,14 +84,18 @@ Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID") Do OfferteServiceStub.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub) Do OfferteServiceStub.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(2) + + Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New() + Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub).ExactAantalKeer(0) - Set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock,,OfferteServiceStub,,DummyHoofdingDto) + Set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock,,OfferteServiceStub,,DummyHoofdingDto,,,,OfferteRepositoryMock) #dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = FalendeBestelService.MaakOfferte(Aanvraag) Do $$$AssertEquals(Resultaat.OfferteID,"") Do $$$AssertNotEquals(Resultaat.Exceptie,"") Do ExterneVerkoopServiceMock.Verifieer() + Do OfferteRepositoryMock.Verifieer() ]]> @@ -122,7 +126,7 @@ Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1) Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New() - Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub) + Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub).ExactAantalKeer(0) Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock) #dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag) Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml =================================================================== diff -u -r40428 -r40465 --- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml (.../UnishopBesteller.cls.xml) (revision 40428) +++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml (.../UnishopBesteller.cls.xml) (revision 40465) @@ -101,9 +101,11 @@ try { Do ..ZetHoofding(Offerte,Aanvraag.Order,Aanvraag.Header.PersonalityID) - Do ..VoegToeLijnen(Offerte.GeefID(),Aanvraag.Order) + Do ..VoegToeLijnen(Offerte,Aanvraag.Order) Do ..ZetLeveringInformatie(Aanvraag, Offerte) + + Do ..OfferteRepository.Bewaar(Offerte) Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.GeefID()) } catch { @@ -149,7 +151,7 @@ -OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order +Offerte:APPS.VKP.Offerte,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order 1 -OfferteID:%String,Lijn:APPS.EDI.common.dto.ProductLijn +Offerte:APPS.VKP.Offerte,Lijn:APPS.EDI.common.dto.ProductLijn 1 -OfferteID:%String,Lijn:APPS.EDI.common.dto.ProductLijn +Offerte:APPS.VKP.Offerte,Lijn:APPS.EDI.common.dto.ProductLijn 1 Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml =================================================================== diff -u -r40115 -r40465 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml (.../UnishopBestellerSpy.cls.xml) (revision 40115) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml (.../UnishopBestellerSpy.cls.xml) (revision 40465) @@ -30,16 +30,16 @@ -OfferteID:%String,Lijn:APPS.EDI.common.dto.ProductLijn +Offerte:APPS.VKP.Offerte,Lijn:APPS.EDI.common.dto.ProductLijn 1 -OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order +Offerte:APPS.VKP.Offerte,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order 1 - @@ -58,7 +58,7 @@ -OfferteID:%String,Lijn:APPS.EDI.common.dto.ProductLijn +Offerte:APPS.VKP.Offerte,Lijn:APPS.EDI.common.dto.ProductLijn 1