John,
Here is the code:
Procedure MaxReports
If !File("MODELORELATORIO.FRX")
Return .T.
EndIf
Use MODELORELATORIO.FRX Alias ModeloRelatorio
Locate For ObjType=25
If Found()
m.ExprTag = ModeloRelatorio.Tag
m.ExprTag2 = ModeloRelatorio.Tag2
m.NoArq = ADir(Arquivos,"\REPORTS\*.FRX")
For m.ArqAtivo = 1 to m.NoArq
Use (_Diretorio+"\REPORTS\"+Arquivos[m.ArqAtivo,1])
Locate For ObjType=25
If Found()
Replace Tag With m.ExprTag, Tag2 With m.ExprTag2
EndIf
EndFor
EndIf
Close DataBases All
Return .T.
Some points:
1 - I have a model (ModeloRelatorio) that has that code (Zoom Window).
2 - Then the procedure above locate this model and set two variables.
3 - A loop starts, passing in each report that is the folder "REPORTS"
4 - I just update the required fields in this reports...
5 - Done!
Like I said in my first message, you can automate it using ProjectHook. Even create a procedure to run in your customers!
Good luck...
If you need something more... just ask!
Cheers!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Rodolfo Duarte