Hi Esgici
I have the same problem in processing a file with about 55,000 records.
The HMG apps appear to be hanging but it is actually working but does not dispaly the progress bar as expected
This is even after adding DO EVENTS as follows :-
//--------------------------------------------------------------------------
STATIC FUNCTION ProcessCounter( hMeter, hText, hDlg, cMsg)
//--------------------------------------------------------------------------
MEMVAR Group_Exp, Index_1
MEMVAR lAdv_Header, Rept_Width, Pg_Ct,lDblSpace
MEMVAR sTot_Counter, nMain_Counter, Line, Most, Begin, PrnCounter,lSummary
memvar lMemoHeader,mDbfAlias //lh@02/11/02
LOCAL nRecNo
LOCAL nCount := 0
If Pg_Ct > 1
Line++
EndIf
DbGoTop()
WHILE !Eof()
If group_exp<>&index_1
GroupHead()
stot_counter:=0
EndIf
Loop()
stot_counter++
nMain_counter++
If Line >= MOST &&20
Line := BEGIN
Pg_Ct++
//lh 02/11/02
If lMemoHeader
HPrintMemo(1, &mDbfAlias->MEMOHEADER)
Else
Std_DispHead(rept_width,lAdv_Header)
EndIf
//lh@02/11/02 Std_DispHead(rept_width,lAdv_Header)
StdColHead()
EndIf // (Line=20)
prncounter++
nComplete := INT((prncounter/LASTREC()) * 100)
cComplete := LTRIM(STR(nComplete))
MainForm.Progress_1.Value := nComplete
MainForm.Label_001.Value := "Printing "+ ltrim(str(prncounter))+'/'+ltrim(str(lastrec()))+CHR(13)+ "Percentage completed "+cComplete + "%"
// 6/5/09
DO EVENTS
// 6/5/09
DbSkip()
ENDDO
Return nil // ProcessCounter()
Any help would be appreciated !
CCH
http://cch4clipper.blogspot.com