Asignar a una Macro

[carlos]

Resulta que quiero depositar un valor e una macro y no logro para serle
sincero hacerlo, he probado de varias maneras, pero sigo sin obtener
resultados.
Tengo esto, no se lo que hago mal, me ayudan
If x > 0 .and. d < (tcount-1)
Y := 1
flag := .f.
FOR EACH xNivel IN aLabels
IF xNivel:cText == alltrim(Str(d))
Flag := .T.
Endif
NEXT
If !flag
z := "::oLabel"+alltrim(str(c))+":cText :=
::oLabel"+alltrim(str(d))+"'"
(z) //Aqui creo que esta el problema
//Eval({||z}) // o Aqui
c++
Endif
Endif
Graicas como siempre

[zeasoftware]

El problema es que SELF esta declarado como LOCAL, por lo cual en una evaluacion queda fuera de alcance, la solucion es definir u avariable MemVar, la cual le asignas SELF y cambias a com ote muestro mas adelante.
Cambia esto:
MemVar oSelf
oSelf := SELF
z := "oSelf:oLabel"+alltrim(str(c))+":cText := oSelf:oLabel"+alltrim(str(d))+"'"
&(z)
Saludos.
--
Ramón Zea
01.993.194.14.27
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft@prodigy.net.mx
zeasoft.movil@hotmail.com
zeasoft@prodigy.net.mx
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje news:[email=45f71523@news.xailer.com...]45f71523@news.xailer.com...[/email]
> Resulta que quiero depositar un valor e una macro y no logro para serle
> sincero hacerlo, he probado de varias maneras, pero sigo sin obtener
> resultados.
>
> Tengo esto, no se lo que hago mal, me ayudan
>
> If x > 0 .and. d < (tcount-1)
> Y := 1
> flag := .f.
> FOR EACH xNivel IN aLabels
> IF xNivel:cText == alltrim(Str(d))
> Flag := .T.
> Endif
> NEXT
> If !flag
> z := "::oLabel"+alltrim(str(c))+":cText :=
> ::oLabel"+alltrim(str(d))+"'"
> (z) //Aqui creo que esta el problema
> //Eval({||z}) // o Aqui
> c++
> Endif
> Endif
>
> Graicas como siempre
>
>
>
--

[carlos]

Millones de gracias, funciona perfecto.
Saludos
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=45f7173d@news.xailer.com...]45f7173d@news.xailer.com...[/email]
El problema es que SELF esta declarado como LOCAL, por lo cual en una evaluacion queda fuera de alcance, la solucion es definir u avariable MemVar, la cual le asignas SELF y cambias a com ote muestro mas adelante.
Cambia esto:
MemVar oSelf
oSelf := SELF
z := "oSelf:oLabel"+alltrim(str(c))+":cText := oSelf:oLabel"+alltrim(str(d))+"'"
&(z)
Saludos.
--
Ramón Zea
01.993.194.14.27
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft@prodigy.net.mx
zeasoft.movil@hotmail.com
zeasoft@prodigy.net.mx
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje news:[email=45f71523@news.xailer.com...]45f71523@news.xailer.com...[/email]
> Resulta que quiero depositar un valor e una macro y no logro para serle
> sincero hacerlo, he probado de varias maneras, pero sigo sin obtener
> resultados.
>
> Tengo esto, no se lo que hago mal, me ayudan
>
> If x > 0 .and. d < (tcount-1)
> Y := 1
> flag := .f.
> FOR EACH xNivel IN aLabels
> IF xNivel:cText == alltrim(Str(d))
> Flag := .T.
> Endif
> NEXT
> If !flag
> z := "::oLabel"+alltrim(str(c))+":cText :=
> ::oLabel"+alltrim(str(d))+"'"
> (z) //Aqui creo que esta el problema
> //Eval({||z}) // o Aqui
> c++
> Endif
> Endif
>
> Graicas como siempre
>
>
>
--