Este es un pequeño ejemplo de cómo hacerlo en tiempo de Ejecución.
**JGS:21/03/2003
**Programa que permite la modificación del código interno de un reporte
**en tiempo de ejecución
Local ltemp_rep As String
ltemp_rep=Getfile('frx')
Use (ltemp_rep) Alias rep_temp In 0 Exclusive
Select rep_temp
Goto Top In rep_temp
Locate For objtype=25
If Found('rep_temp')
Modify Memo rep_temp.Tag
Use In rep_temp
Compile Report <emp_rep
Endif
If Used('rep_temp')
Use In rep_temp
Endif
José G. Samper
No hay comentarios. :
Publicar un comentario
Los comentarios son moderados, por lo que pueden demorar varias horas para su publicación.