Index: APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml =================================================================== diff -u -r39991 -r40346 --- APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 39991) +++ APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 40346) @@ -118,11 +118,15 @@ Set OfferteIterator = ##class(TECH.ListIterator).%New(Offertes) While OfferteIterator.HasNext(){ #dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteIterator.Next()) - #dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.OpenWinkelkar(Offerte.GeefWinkelkarID()) - If (Winkelkar.GeefLijnIterator().HasNext() && MagOfferteInSamenvattingenBepaler.MagOfferteInSamenvattingen( Offerte )) - { - #dim OfferteSamenvatting As APPS.EC.dto.OfferteSamenvatting = ..GeefOfferteSamenvatting(Offerte) - Do OfferteSamenvattingen.Insert(OfferteSamenvatting) + try { + #dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.OpenWinkelkar(Offerte.GeefWinkelkarID()) + If (Winkelkar.GeefLijnIterator().HasNext() && MagOfferteInSamenvattingenBepaler.MagOfferteInSamenvattingen( Offerte )) + { + #dim OfferteSamenvatting As APPS.EC.dto.OfferteSamenvatting = ..GeefOfferteSamenvatting(Offerte) + Do OfferteSamenvattingen.Insert(OfferteSamenvatting) + } + } catch { + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() } } Quit OfferteSamenvattingen