persistent 1 %Persistent 0 %String %Integer 0 %Integer 0 %Integer 0 %Integer 0 %Integer 0 %Integer 0 %Integer 0 ^EWMS.Statistics.Running d ##class(EWMS.Statistics).TakeSnapshot() 1 %Status ook de niet tijden in rust te meten *** &sql(DECLARE crFetch2 CURSOR FOR SELECT COUNT(*),((src_g+1)/2) INTO :Aantal, :Kraan FROM EWMS_DatKon.Trans WHERE type_move='OUT' AND send_time<>'0000-00-00-00.00.00' GROUP BY (src_g+1)/2) &sql(OPEN crFetch2) If SQLCODE'<0 Do . For &sql(FETCH crFetch2) Quit:(SQLCODE) Do .. If Kraan=1 Do ... Set StatObj.Kraan1Cnt=Aantal .. Else If Kraan=2 Do ... Set StatObj.Kraan2Cnt=Aantal .. Else If Kraan=3 Do ... Set StatObj.Kraan3Cnt=Aantal . &sql(CLOSE crFetch2) ; *** opdrachten per kraan onderweg naar welke pickpost (max. 1 per kraan) *** &sql(DECLARE crFetch3 CURSOR FOR SELECT COUNT(*),final_g-1 INTO :Aantal,:PickPost FROM EWMS_Trans.Transport WHERE final_m = 13 AND present_m=1 AND loc_id IN (SELECT loc_id FROM EWMS_DatKon.Trans WHERE send_time <> '0000-00-00-00.00.00' AND type_move='OUT') GROUP BY (final_g-1)) &sql(OPEN crFetch3) If SQLCODE'<0 Do . For &sql(FETCH crFetch3) Quit:(SQLCODE) Do .. If PickPost=1 Do ... Set StatObj.PickPost1InTransportCnt=Aantal .. Else If PickPost=2 Do ... Set StatObj.PickPost2InTransportCnt=Aantal . &sql(CLOSE crFetch3) ; ---------------------------------------------------------------------------- ; Stat object bewaren Set Status=StatObj.%Save() Quit Status ]]> ----------------------------------------------------------------------------------------------------------------------------------------------- 1 ",$LB("tr@vanhoecke.be"),"Error in TakeSnapshots",$ZE) Set $ZT="" Quit ]]> =============================================================================================================================================== d ##class(EWMS.Statistics).Start() 1 ----------------------------------------------------------------------------------------------------------------------------------------------- 1 %Library.CacheStorage ^EWMS.StatisticsD StatisticsDefaultData ^EWMS.StatisticsD ^EWMS.StatisticsI ^EWMS.StatisticsS listnode %%CLASSNAME PickPost1Cnt PickPost2Cnt Tijdstip DateTime Kraan1Cnt Kraan2Cnt Kraan3Cnt PickPost1InTransportCnt PickPost2InTransportCnt