Index: vhCARETAKER.mac.rou =================================================================== diff -u -r74300 -r74988 --- vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 74300) +++ vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 74988) @@ -1337,6 +1337,16 @@ do OnError } quit + +OpkuisDataSalesLineStatusUpdateGeproduceerdLog; Verwijderen van tijdelijke data die bijhoudt of al een bericht 'geproduceerd' naar AX is gestuurd voor een bepaalde orderlijn. + try { + Do InitRuntimeContext + Kill ^SalesLineStatusUpdateGeproduceerdLog + } + catch(Exceptie) { + do OnError + } + quit OnError Index: AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml =================================================================== diff -u -r74980 -r74988 --- AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml (.../SalesLineStatusUpdate.cls.xml) (revision 74980) +++ AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml (.../SalesLineStatusUpdate.cls.xml) (revision 74988) @@ -113,11 +113,9 @@ #dim LadeGerecepteerdEventData As TECH.Events.LadeGerecepteerdEventData = Event.Data #dim Request As AXimpl.Request = "" - If ($$$Not($D(^SalesLineStatusUpdateLog(LadeGerecepteerdEventData.OrderID, LadeGerecepteerdEventData.OrderLijnCode)))) { - Set ^SalesLineStatusUpdateLog(LadeGerecepteerdEventData.OrderID, LadeGerecepteerdEventData.OrderLijnCode) = "Sent" + If ($$$Not($D(^SalesLineStatusUpdateGeproduceerdLog(LadeGerecepteerdEventData.OrderID, LadeGerecepteerdEventData.OrderLijnCode)))) { + Set ^SalesLineStatusUpdateGeproduceerdLog(LadeGerecepteerdEventData.OrderID, LadeGerecepteerdEventData.OrderLijnCode) = $H Set Request = ##class(AXimpl.Request).%New("SalesLineStatus/Update", LadeGerecepteerdEventData.OrderID_"_"_ LadeGerecepteerdEventData.OrderLijnCode,..#Geproduceerd) - Hang 10 - Kill ^SalesLineStatusUpdateLog(LadeGerecepteerdEventData.OrderID, LadeGerecepteerdEventData.OrderLijnCode) } Quit Request