Ejecutar lineas de un campo memo...

ok encontré una forma:

StrToFile(tabla.campomemo, 'temp.prg')

compile temp.prg

do temp

Pero...Las líneas de código de mi campo memo hacen referencia a un
objeto de un formulario y pues claro me dice "objeto thisform no se
encuentra". Cómo hago?

Jorge Luis Vejerano wrote:

Buenas Tardes...

Tengo un campo memo que contiene las siguientes líneas:

thisform.list1.AddItem("PRUEBA DE ENTREGA EN ORIGEN (PROOF OF DELIVERY)")
thisform.list1.AddItem("RECIBIMOS RESPUESTA DE SCHENKER EN EL ORIGEN")
thisform.list1.AddItem("RECIBO DE BODEGA DE PANAMÁ AIR CARGO TERMINAL
(AÉREO) U OTRA")
thisform.list1.AddItem("RESULTADO DEL TRACKING & TRACING DE LA CARGA")
thisform.list1.AddItem("SE DETERMINARON LOS POSIBLES PROBLEMAS QUE HAY")

Pregunta: ¿Cómo ejecuto esas líneas del campo memo?...Alguien me dijo
que usara el comando &, pero en este caso son varias líneas, cómo hago?

Jorge ,

Si tienes VFP 8, prueba con la funcion EXECSCRIPT, algo asi como:

EXECSCRIPT(strtran(tabla.campomemo, 'thisform', '_screen.activeform'))

Hugo M. Ranea wrote:

Jorge ,

Si tienes VFP 8, prueba con la funcion EXECSCRIPT, algo asi como:

EXECSCRIPT(strtran(tabla.campomemo, 'thisform', '_screen.activeform'))

Adicionalmente, si pudieras cambiar los campos memos directamente, los
podrías re-escribir de una forma similar a esta:

-
lparameters toList

with toList
.AddItem("PRUEBA DE ENTREGA EN ORIGEN (PROOF OF DELIVERY)")
.AddItem("RECIBIMOS RESPUESTA DE SCHENKER EN EL ORIGEN")
.AddItem("RECIBO DE BODEGA DE PANAMÁ AIR CARGO TERMINAL (AÉREO) U
OTRA")
.AddItem("RESULTADO DEL TRACKING & TRACING DE LA CARGA")
.AddItem("SE DETERMINARON LOS POSIBLES PROBLEMAS QUE HAY")
endif
-

con lo cual el llamado a EXECSRIPT sería:

EXECSRIPT(tabla.campomemo, thisform.list1)

Lo cual haría el código un poco más "portable"

Complementando a lo que ya te respondieron, si no tenés VFP 8 podés bajarte
la librería LIB_VFP de PortalFox que, entre otras funciones, tiene una
llamada Execscript para VFP 6 compatible con la de VFP 8.
Esta librería también viene incluida en otra llamada Controles Comunes.

Saludos,

Fernando D. Bozzo


"Jorge Luis Vejerano" escribió en el mensaje
news:#

ok encontré una forma:

StrToFile(tabla.campomemo, 'temp.prg')

compile temp.prg

do temp

Pero...Las líneas de código de mi campo memo hacen referencia a un
objeto de un formulario y pues claro me dice "objeto thisform no se
encuentra". Cómo hago?

Jorge Luis Vejerano wrote:

> Buenas Tardes...
>
> Tengo un campo memo que contiene las siguientes líneas:
>
> thisform.list1.AddItem("PRUEBA DE ENTREGA EN ORIGEN (PROOF OF

DELIVERY)")

> thisform.list1.AddItem("RECIBIMOS RESPUESTA DE SCHENKER EN EL ORIGEN")
> thisform.list1.AddItem("RECIBO DE BODEGA DE PANAMÁ AIR CARGO TERMINAL
> (AÉREO) U OTRA")
> thisform.list1.AddItem("RESULTADO DEL TRACKING & TRACING DE LA CARGA")
> thisform.list1.AddItem("SE DETERMINARON LOS POSIBLES PROBLEMAS QUE HAY")
>
> Pregunta: ¿Cómo ejecuto esas líneas del campo memo?...Alguien me dijo
> que usara el comando &, pero en este caso son varias líneas, cómo hago?
>

Eyyy!, gracias mi brother.

Hugo M. Ranea wrote:

Jorge ,

Si tienes VFP 8, prueba con la funcion EXECSCRIPT, algo asi como:

EXECSCRIPT(strtran(tabla.campomemo, 'thisform', '_screen.activeform'))