Index: APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml =================================================================== diff -u -r29059 -r64330 --- APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml (.../OrderMetGoederenInHalux2.cls.xml) (revision 29059) +++ APPS/OrderUitvoering/impl/OrderMetGoederenInHalux2.cls.xml (.../OrderMetGoederenInHalux2.cls.xml) (revision 64330) @@ -46,15 +46,24 @@ Set OrderMetGoederenInHalux2.OrderID = OrderID Set OrderMetGoederenInHalux2.TotaalAantalStuksVanProductOpPallet = ResultSet.Data("AantalStuks") + // [CACHE01] Error - EXCEL : Orders met goederen in Halux2 Execute failed - 10/12/2015 14:48:02 --> Order 111493 bestaat niet! + // Goederen waren reeds gepicked van een andere locatie en 'op bon gezet'. Daarom was order al weg. + // + // Voorstel : If Not(OrderAPI.BestaatOrder()) Then object sowieso toevoegen aan de lijst en veldje "OrderID" markeren als "ID onbekend" + #dim HeeftEenKOMLink As %Boolean = 0 - #dim LijnIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID).GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product()) - While ('HeeftEenKOMLink && LijnIterator.HasNext()) - { - #dim Lijn As DOM.VKP.ProductOrderlijn = LijnIterator.Next() - Set HeeftEenKOMLink = $IsObject(Lijn.GeefToelevering()) - } + If ##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderID) { // Orders die al gepicked zijn, hebben geen nut op die lijst. + #dim LijnIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID).GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product()) + While ('HeeftEenKOMLink && LijnIterator.HasNext()) + { + #dim Lijn As DOM.VKP.ProductOrderlijn = LijnIterator.Next() + If (Lijn.GeefProductID() = OrderMetGoederenInHalux2.ProductID) { + Set HeeftEenKOMLink = $IsObject(Lijn.GeefToelevering()) + } + } - If ('HeeftEenKOMLink) Do OrdersMetGoederenInHalux2.Insert(OrderMetGoederenInHalux2) + If ('HeeftEenKOMLink) Do OrdersMetGoederenInHalux2.Insert(OrderMetGoederenInHalux2) + } } }