Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml =================================================================== diff -u -r72357 -r72381 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml (.../OrderOptiesGenerator.cls.xml) (revision 72357) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml (.../OrderOptiesGenerator.cls.xml) (revision 72381) @@ -51,16 +51,20 @@ #dim OrderLijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator() #dim IsGevonden As %Boolean = $$$False - While (OrderLijnIterator.HasNext() && $$$Not(IsGevonden)) { - #dim OrderLijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = OrderLijnIterator.Next() + Try { + While (OrderLijnIterator.HasNext() && $$$Not(IsGevonden)) { + #dim OrderLijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = OrderLijnIterator.Next() - If OrderLijn.GeefProductID() = ProductId { - Set OrderlijnReferentie = OrderLijn.GeefProjectReferentie() - Set PakketReferentie = OrderLijn.GeefPakketReferentie() + If OrderLijn.GeefProductID() = ProductId { + Set OrderlijnReferentie = OrderLijn.GeefProjectReferentie() + Set PakketReferentie = OrderLijn.GeefPakketReferentie() - Set IsGevonden = $$$True + Set IsGevonden = $$$True + } } + } Catch { + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() } Do LijstOrderRefentieOpties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Orderlijnreferentie", OrderlijnReferentie))