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