Index: APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml =================================================================== diff -u -r32775 -r69215 --- APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml (.../OfferteDocumentReferentiesBepaler.cls.xml) (revision 32775) +++ APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml (.../OfferteDocumentReferentiesBepaler.cls.xml) (revision 69215) @@ -40,14 +40,21 @@ Oorsprong 'UNI' in ^KOD leegmaken. Zie ICT-3058.") + Do NewException.VoegToeInnerExceptie(GecatchteException) + Do ##class(TECH.ExceptionHandler).Throw(NewException) + } + While(..OfferteService.HeeftOfferteVanVH(Offerte)) { #dim GekoppeldeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(Offerte) Do OfferteLijst.InsertAt(GekoppeldeOfferte,1) ; Vooraan toevoegen, want OfferteVanVH moet uiteindelijk als eerste staan Set Offerte = GekoppeldeOfferte - } + } } Quit ##class(TECH.ListIterator).%New(OfferteLijst) ]]>