>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() >>