Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml =================================================================== diff -u -r53675 -r53916 --- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml (.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml) (revision 53675) +++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml (.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml) (revision 53916) @@ -80,7 +80,23 @@ #dim OfferteKlantId As %String = KlantBestellingPersonality.GeefLeverancierData().EigenKlantId #dim OffertePersonalityId As %String = KlantBestellingPersonality.GeefLeverancierData().PersonalityId - Quit ..OfferteKopieerder.KopieerOfferte(KlantBestelling, OfferteKlantId, OffertePersonalityId) + Try { + #dim Offerte As APPS.VKP.Offerte = ..OfferteKopieerder.KopieerOfferte(KlantBestelling, OfferteKlantId, OffertePersonalityId) + } + Catch { + #dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + #dim Message As %String = "" + Set Message = "Fout bij kopieren van de webshop-bestelling '"_KlantBestelling.GeefID()_"' voor klant '"_KlantBestelling.GeefKlantID()_"' van personality '"_KlantBestellingPersonality.GeefCode()_"' naar '"_OffertePersonalityId_"'." + _ $$$CRLF _ "!!! OPGELET !!!" + _ $$$CRLF _ "Deze bestelling moet manueel opnieuw verwerkt worden, bvb. via de Powertool ExterneVerkoopPowerService method BestelAfhandelingOpnieuwVerwerken()." + _ $$$CRLF _ "Eerst vhLibLogging nakijken in welke status de bestelling zich bevindt !!!" + + Set NewException = ##class(TECH.Exceptions.GeneralErrorException).%New(Message) + Do NewException.VoegToeInnerExceptie(GecatchteException) + Do ##class(TECH.ExceptionHandler).Rethrow(NewException) + + } + Quit Offerte ]]>