Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml =================================================================== diff -u -r45600 -r45659 --- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml (.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml) (revision 45600) +++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml (.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml) (revision 45659) @@ -38,8 +38,13 @@ 1 + +DOM.VKP.DocumentReferentiesRepository +1 + + -OfferteService:APPS.VKP.OfferteService,KlantBestellingNaarLeverancierOfferteKopieerder:APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder,Vhisie4WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,OfferteConverter:APPS.EC.Verkoop.impl.OfferteConverter,WinkelkarExportConverter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository +OfferteService:APPS.VKP.OfferteService,KlantBestellingNaarLeverancierOfferteKopieerder:APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder,Vhisie4WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,OfferteConverter:APPS.EC.Verkoop.impl.OfferteConverter,WinkelkarExportConverter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,DocumentReferentieRepository:DOM.VKP.DocumentReferentiesRepository 1 1 %Status @@ -52,6 +57,7 @@ Set ..WinkelkarExportConverter = $$$Inject(WinkelkarExportConverter, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Converter).%New()) Set ..OfferteRepository = $$$Inject(OfferteRepository, ##class(APPS.VKP.Offerte.OfferteRepository).%New()) Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()) + Set ..DocumentReferentieRepository = $$$Inject(DocumentReferentieRepository, ##class(DOM.VKP.DocumentReferentiesRepository).%New()) Quit $$$OK ]]> @@ -67,6 +73,7 @@ Do ..WinkelkarRepository.VerwijderViaID(TijdelijkeLeverancierOfferte.GeefWinkelkarID()) Do ..OfferteRepository.VerwijderViaID(TijdelijkeLeverancierOfferte.GeefID()) + Do ..DocumentReferentieRepository.VerwijderViaID(TijdelijkeLeverancierOfferte.GeefDocumentReferenties().GeefID()) #dim LeverancierOfferte As APPS.VKP.Offerte = ..Vhisie4WinkelkarRepository.GeefOfferteViaID(ExterneId) Index: vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml =================================================================== diff -u -r45600 -r45659 --- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 45600) +++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 45659) @@ -34,13 +34,17 @@ Do Vhisie4WinkelkarRepositoryMock.VerwachtMethodCall("Bewaar",WinkelkarDto).DanReturn("42") Do Vhisie4WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteViaID","42").DanReturn(LeverancierOfferte) - Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock) + Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New() + Do DocumentReferentiesRepositoryMock.VerwachtMethodCall("VerwijderViaID",GeconverteerdeOfferte.GeefDocumentReferenties().GeefID()) + + Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock) #dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(TeConverterenOfferte) Do Vhisie4WinkelkarRepositoryMock.Verifieer() Do OfferteServiceMock.Verifieer() Do OfferteRepositoryMock.Verifieer() Do WinkelkarRepositoryMock.Verifieer() + Do DocumentReferentiesRepositoryMock.Verifieer() do $$$AssertEquals(Resultaat,LeverancierOfferte) ]]>