Index: APPS/MAG/Receptie/impl/ReceptiePalletEventHandler.cls.xml =================================================================== diff -u -r59208 -r60120 --- APPS/MAG/Receptie/impl/ReceptiePalletEventHandler.cls.xml (.../ReceptiePalletEventHandler.cls.xml) (revision 59208) +++ APPS/MAG/Receptie/impl/ReceptiePalletEventHandler.cls.xml (.../ReceptiePalletEventHandler.cls.xml) (revision 60120) @@ -18,7 +18,18 @@ If ##class(APPS.VisiDot.impl.Tech).IsVHossID(PalletId) { #dim Order As DOM.VKP.Order = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New().GeefOrder(OrderNummer) Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New() - Do VHossService.RecepteerVHoss(PalletId) + + Set ResultSet = ##class(%ResultSet).%New() + Do ResultSet.Prepare("SELECT max(insert_time) as insert_time FROM EWMS.Inventory WHERE VHossID = ? ") + Do ResultSet.Execute(PalletId) + If (ResultSet.Next()){ + If $$$HasLength(ResultSet.Data("insert_time")) { + If ##class(TECH.DateTime).BerekenWerkdag($$ConvertEWMSInsertTimeToH^vhLib(ResultSet.Data("insert_time")),2) <= ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate() { + Do ##class(vhLib.Logger).%New().Warning("VHOSS","Recepteer VHOSS wordt uitgevoerd omdat kar al meer dan 3 dagen oud is") + Do VHossService.RecepteerVHoss(PalletId) + } + } + } Do VHossService.LeenUitVHoss(Order.GeefKlantID(),PalletId) }