... DbGotop() IF !lMode bBlock := {|val,elem| Fieldput(elem,f_isOEM(@val,elem))} ENDIF DO WHILE !Eof() oMeter:Set(nActual+1) SysRefresh() aData := Scatter() Aeval(aData ,bBlock) dbSkip() ENDDO DbUnlock() oMeter:End() oGaugeDlg:End() sysrefresh() RETURN NIL FUNCTION scatter(nInicial,nFinal) local ...