А если сделать вот так:

Local lcCurdir, LcReportDir

LcReportDir=GETDIR('', 'Репорты располагаются')

if empty(LcReportDir)

Return .f.

EndIF

lcCurdir=CurDir()

LOCAL lnCount

LOCAL ARRAY laFrx[1]

lnCount=ADIR(laFrx, LcReportDir+'*.frx')



LOCAL lnI, lnCountReplace, lnCountNotReplace

lnCountReplace=0

lnCountNotReplace=0

for lnI=1 to lnCount

select 0

use (LcReportDir+laFrx[lnI, 1]) again


replace resoid with 204 FOR resoid=1


lnCountReplace=lnCountReplace+1


use

EndFor

MessageBox('Замена кодовой страницы успешно завершена.'+chr(13)+'Всего
репортов в директории : '+Transform(lnCount)+chr(13)+'Удалено из :
'+Transform(lnCountReplace)+chr(13)+'Оставлено в :
'+transform(lnCountNotReplace),0,'Замена завершена')





Потом открыть каждый репорт, передернуть шрифт на любом контроле, сохранить.

Перестроить проект. Будет правильно отображаться в 9-ке?


Posted via ActualForum NNTP Server 1.4