LOCAL GebRec as Integer *! Afkalvingen en droogzetten wordt niet gecheckt op aanwezigheid Select gb.nRecId, Max(gb.dModify) As dModify ; From Gebeurtenissen gb ; Inner Join GebCodes gc On gc.nRecId == gb.nRecId ; Inner Join Dieren dr On dr.cdd204100 == gb.cdd204100 ; Where dr.ndd200087 == lnUBN; And IIf(gb.nType == 1 And InList(gb.nCode, 1, 5), .T., flAanwezig(gb.cdd204100, gb.ddd201736, lnUBN)) ; Group By gb.cdd204100, gb.ddd201736, gc.ntype, gc.ncode ; Order By gb.cdd204100, gb.ddd201736, nVolgNumme ; into cursor GebRec ?"gebRec", STR(SECONDS()-lnSec,6,2), ALIAS() lnSec = SECONDS()Thanks,