... VAR nActual TOTAL nTotal ID 2052 OF oGaugeDlg ACTIVATE DIALOG oGaugeDlg ; CENTERED ; NOWAIT oGet1:Refresh() 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 ...