Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml =================================================================== diff -u -r49050 -r49199 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 49050) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 49199) @@ -77,7 +77,20 @@ } Catch { Lock -^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id) - Do ##class(TECH.ExceptionHandler).Rethrow() + + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + + if $$$Not((Exception.GeefOmschrijving() [ "offerte") && (Exception.GeefOmschrijving() [ "is reeds besteld") ) { + do ##class(TECH.ExceptionHandler).Throw(Exception) + } else { + #dim Stream As %Stream.Object = ##class(%GlobalCharacterStream).%New() + do Stream.WriteLine("De vorige verwerking is misschien niet goed verlopen, den dien dat 'het vlaggen' heeft zal het moeten controleren") + do Stream.WriteLine("Hier is etwa data : ") + set XmlStream = ##class(%GlobalCharacterStream).%New() + do ObjToXML^vhLib(BestelWinkelkarRequest,,,,.XmlStream) + do Stream.CopyFrom(XmlStream) + do ##class(vhLib.Logger).%New().WarningMail("Bestelwinkelkar Redo",Stream) + } } Lock -^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id)