Hello Mark,
thank you for reply.
See, I've tried this code outside our app but inside the Framework and it works fine :

CLOSE DATABASES ALL
DO setx
LOCAL oChartPeriodObj,liRecord_count,liThermIncr, liMsg_counter,liCounter

oChartPeriodObj = CREATEOBJECT('ChartPeriodObj')
oChartPeriodObj.REQUERY()
liRecord_count = _TALLY
liCounter = 0
liMsg_counter = 10
liThermIncr = 90/liRecord_count
msgsvc("A Process is happening",liMsg_counter)

SCAN
	liCounter = liCounter+1

	lcMessage = "Processing record "+ STR(liCounter) + " from " + STR(liRecord_count)
	liMsg_counter =liMsg_counter + liThermIncr
	msgsvc(lcMessage,liMsg_counter)

ENDSCAN

But I will try to illuminate some code in my procedure and see if it works differently.
Regards