FiveTech Support Forums

jllinas wrote:Hola,

¿Alguien a trabajado con esto?

¿Se puede esto?

Code: Select all Collapse

PROC Main 
  LOCAL qqq := '<|| LOCAL qq:=1 '+CR_LF+ ; 
               '    RETURN qq >' 
  ? Eval(&(qqq)) 
RETURN

Gracias y Abrazos,

PROC Main 
  [red]Private[/red] qqq := '<|| LOCAL qq:=1 '+CR_LF+ ; 
               '    RETURN qq >' 
  ? Eval(&(qqq)) 
RETURN

Muchas Gracias,

La verdad que mi pregunta va por otro lado. Vi una discusión en el foro de xharbour, donde se expresa que este codigo de bloques extendido NO se puede "compilar" en tiempo de ejecución, o sea, que no se puede hacer eso de cosntruir el string de caracteres, y luego convertirlo en un codigo de bloques extendido. Lo que pasa es que no se realmente si despues de esa discusión el xHarbour ha sido modificado para aceptar esto (cuando ejecuto el codigo que pongo de ejemplo aqui en FWH 8.10, se cuelga la maquina).

Contar con esto, para el futuro, resolvera muchos problemas que hoy surgen con la falla haciendo script que se ejecuten desde un campo memo (Ideal para reportes variados, de esos que el cliente quiere que se "modifiquen" los reportes sobre los que trae ya nuestro sistema).

Solo se trataba de saber si alguien ya estaba utilizando esto de codigos de bloque extendidos....

Abrazos,