Index: AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml =================================================================== diff -u -r74968 -r74969 --- AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml (.../SalesLineStatusUpdate.cls.xml) (revision 74968) +++ AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml (.../SalesLineStatusUpdate.cls.xml) (revision 74969) @@ -86,20 +86,9 @@ try { Set ToeleveringAPI = ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New() #dim ToeleveringLijn As DOM.AKP.ToeleveringLijn = ToeleveringAPI.GeefToeleveringLijn($Piece(Event.Data.OrderLijnId,"_",1),$Piece(Event.Data.OrderLijnId,"_",2)) - - If (Event.Data.Status = "Klaargezet") { - If $$$Not($D(^SalesLineStatusUpdateLog($Piece(Event.Data.OrderLijnId,"_",1),$Piece(Event.Data.OrderLijnId,"_",2)))) { - Set ^SalesLineStatusUpdateLog($Piece(Event.Data.OrderLijnId,"_",1),$Piece(Event.Data.OrderLijnId,"_",2)) = "Sent" - Set Request = ##class(AXimpl.Request).%New("SalesLineStatus/Update",ToeleveringLijn.GeefOrderID()_"_"_ToeleveringLijn.GeefOrderLijnID(),Event.Data.Status) - Hang 2 - Kill ^SalesLineStatusUpdateLog($Piece(Event.Data.OrderLijnId,"_",1),$Piece(Event.Data.OrderLijnId,"_",2)) - } - } Else { - Set Request = ##class(AXimpl.Request).%New("SalesLineStatus/Update",ToeleveringLijn.GeefOrderID()_"_"_ToeleveringLijn.GeefOrderLijnID(),Event.Data.Status) - } + Set Request = ##class(AXimpl.Request).%New("SalesLineStatus/Update",ToeleveringLijn.GeefOrderID()_"_"_ToeleveringLijn.GeefOrderLijnID(),Event.Data.Status) } catch { - #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - Kill ^SalesLineStatusUpdateLog($Piece(Event.Data.OrderLijnId,"_",1),$Piece(Event.Data.OrderLijnId,"_",2)) + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ##class(vhLib.Logger).%New().Warning("AXimpl.Dynamics.InventoryOut.EventHandler.SalesLineStatusUpdate", "Toelevering '" _Event.Data.OrderLijnId _"' bestaat niet meer dus er wordt geen status naar AX doorgegeven. " _Exception.ToString()) } Quit Request