Index: APPS/EDI/Bestel/impl/BestelService.cls.xml =================================================================== diff -u -r36264 -r36290 --- APPS/EDI/Bestel/impl/BestelService.cls.xml (.../BestelService.cls.xml) (revision 36264) +++ APPS/EDI/Bestel/impl/BestelService.cls.xml (.../BestelService.cls.xml) (revision 36290) @@ -41,6 +41,16 @@ If $$$Not($IsObject(ResultaatTBX.Exceptie) || $IsObject(ResultaatUNI.Exceptie)){ Do ..TandemboxBesteller.BestelOfferte() Do ..UnishopBesteller.BestelOfferte(ResultaatUNI.OfferteID, Aanvraag) + } Else { + Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige data") + + If $IsObject(ResultaatTBX.Exceptie){ + Do Exception.VoegToeInnerExceptie(ResultaatTBX.Exceptie) + } + If $IsObject(ResultaatUNI.Exceptie){ + Do Exception.VoegToeInnerExceptie(ResultaatUNI.Exceptie) + } + Do ##class(TECH.ExceptionHandler).Throw(Exception) } Quit ResultaatUNI