Index: vhUnitTest/APPS/EC/impl/ExterneVerkoopService/OfferteBesteller/Test.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/EC/impl/ExterneVerkoopService/OfferteBesteller/Test.cls.xml (revision 0) +++ vhUnitTest/APPS/EC/impl/ExterneVerkoopService/OfferteBesteller/Test.cls.xml (revision 45377) @@ -0,0 +1,60 @@ + + + +vhUnitTest.TestCase + + +aTestName:%String + + + + + + + + + + + + + + Index: APPS/EC/impl/ExterneVerkoopService/OfferteBesteller.cls.xml =================================================================== diff -u -r36803 -r45377 --- APPS/EC/impl/ExterneVerkoopService/OfferteBesteller.cls.xml (.../OfferteBesteller.cls.xml) (revision 36803) +++ APPS/EC/impl/ExterneVerkoopService/OfferteBesteller.cls.xml (.../OfferteBesteller.cls.xml) (revision 45377) @@ -46,7 +46,15 @@ Set KlantID = Offerte.GeefKlantID() - Do ..OfferteVoorBestellingValidator.Valideer(Offerte, KlantID, PersonalityID) + Try { + Do ..OfferteVoorBestellingValidator.Valideer(Offerte, KlantID, PersonalityID) + } Catch { + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + If $$$Not( Exception.%Extends(##class(APPS.VKP.Offerte.impl.OfferteNietMeerGeldigException).%ClassName(1)) && Offerte.IsVhisie4()) { + Do ##class(TECH.ExceptionHandler).Throw(Exception) + } + } + Do ..WinkelkarControleur.ControleerWinkelkarViaID(Offerte.GeefWinkelkarID()) Do ..BestelStatusUpdater.ZetStatusBesteld(Offerte)