Данный пример заточен под scan, думаю модифицировать будет не сложно.

&& прогресс в статусной строке 1 этап начало
PUBLIC cSetBar, cSetBar1, cSetBar2
cSetBar1 = SET("Status Bar")
_SCREEN.ADDOBJECT("sp1","Shape")
_SCREEN.sp1.TOP = _SCREEN.HEIGHT-_SCREEN.sp1.HEIGHT
_SCREEN.sp1.WIDTH = _SCREEN.WIDTH
_SCREEN.sp1.BACKCOLOR = RGB(192,192,192)
_SCREEN.sp1.VISIBLE = .T.

cSetBar = SET("Status Bar")
SET STATUS BAR ON && показывать графическую строку состояния
_SCREEN.ADDOBJECT("sp","Shape")
_SCREEN.sp.TOP = _SCREEN.HEIGHT-_SCREEN.sp.HEIGHT
_SCREEN.sp.WIDTH = 0
_SCREEN.sp.BACKCOLOR = RGB(0,0,255)
_SCREEN.sp.VISIBLE = .T.
SET MESSAGE TO REPLICATE(' ',_SCREEN.WIDTH/10)+'Ждите идет подготовка данных'


cSetBar2 = SET("Status Bar")
SET STATUS BAR ON && показывать графическую строку состояния
_SCREEN.ADDOBJECT("sp2","Label")
_SCREEN.sp2.TOP = _SCREEN.HEIGHT-_SCREEN.sp2.HEIGHT
_SCREEN.sp2.Left=_SCREEN.WIDTH/2-50
_SCREEN.sp2.WIDTH = 100
_SCREEN.sp2.VISIBLE = .T.
_SCREEN.sp2.Backstyle=0
_SCREEN.sp2.Caption ='Выполнено 0%'
_SCREEN.sp2.FontBold=.T.
&& прогресс в статусной строке 1 этап конец


&& прогресс в статусной строке 2 этап начало
klm=RECCOUNT()
m=RECNO()
_SCREEN.sp.WIDTH = (_SCREEN.WIDTH/klm)*m
_SCREEN.sp.REFRESH
_SCREEN.sp2.Caption = "Выполнено "+ALLTRIM(STR(m/klm*100))+"%"
_SCREEN.sp2.REFRESH
SET MESSAGE TO REPLICATE(' ',_SCREEN.WIDTH/10))+"Выполнено "+ALLTRIM(STR(m/klm*100))+"%"

&& прогресс в статусной строке 2 этап конец


&& прогресс в статусной строке 3 этап начало
SET MESSAGE TO
_SCREEN.REMOVEOBJECT("sp")
_SCREEN.REMOVEOBJECT("sp1")
_SCREEN.REMOVEOBJECT("sp2")
IF cSetBar = "OFF"
SET STATUS BAR OFF
ENDIF
IF cSetBar1 = "OFF"
SET STATUS BAR OFF
ENDIF
IF cSetBar2 = "OFF"
SET STATUS BAR OFF
ENDIF

RELEASE cSetBar, cSetBar1, cSetBar2
&& прогресс в статусной строке 3 этап конец

Местами администратор,
1 этап перед циклом,
2 этап внутри,
3 после