Error al crear un procedimiento en un prg.

[tehuacanero_mx]

Saludos a todos...
Tengo un pequeño problema que no se resolver y espero ustedes puedan ayudarme..
Tengo un form en el cual en su metodo FormInitialize hago una llamada a un procedimiento que yo eh creado.. quedando de la siguiente manera:
METHOD FormInitialize( oSender ) CLASS frmUsuarios
select usuarios1
go top
obtiene_datos()
RETURN Nil
procedure obtiene_datos()
::txtNombre:cValue:= usuarios1->usr_nombre
return
el detalle es que cuando compilo me manda el siguiente mensaje en la ventana de mensajes:
frmusuarios.prg(82) Warning W0001 Ambiguos reference: 'SELF'
El programa se ejecuta y cuando abro el form manda el siguiente mensaje en tiempo de ejecucion:
OBTIENE_DATOS(82)
Error BASE/1003 Variable does not exist: SELF
Argumentos: ()
y si en el codigo le quito el operador :: al ejecutarlo manda el siguiente mensaje de error:
OBTIENE_DATOS(82)
Error BASE/1003 Variable does not exist: TXTNOMBRE
Argumentos: ()
Si alguien puede ayudarme a resolver este problemita le agradecere.
Gracias por su atencion.

[Claudio[1]]

Cuando escribis
::txtNombre:cValue:= usuarios1->usr_nombre
es lo mismo que escribir
self:txtNombre:cValue:= usuarios1->usr_nombre
de allí­ el mensaje.
Para que funcione deberias cambiar:
METHOD FormInitialize( oSender ) CLASS frmUsuarios
select usuarios1
go top
obtiene_datos( SELF )
RETURN Nil
procedure obtiene_datos( oSender )
oSender:txtNombre:cValue:= usuarios1->usr_nombre
return
Asi cuando llamas a obtiene_datos( SELF ) le pasas una referencia al
objeto formulario
Saludos,
Claudio
El 06/10/2010 07:18 p.m., Gil Villa escribió:
> Saludos a todos...
>
> Tengo un pequeño problema que no se resolver y espero
> ustedes puedan ayudarme..
>
> Tengo un form en el cual en su metodo FormInitialize hago
> una llamada a un procedimiento que yo eh creado.. quedando
> de la siguiente manera:
>
> METHOD FormInitialize( oSender ) CLASS frmUsuarios
> select usuarios1
> go top
> obtiene_datos()
> RETURN Nil
>
> procedure obtiene_datos()
> ::txtNombre:cValue:= usuarios1->usr_nombre
> return
>
> el detalle es que cuando compilo me manda el siguiente
> mensaje en la ventana de mensajes:
>
> frmusuarios.prg(82) Warning W0001 Ambiguos reference:
> 'SELF'
>
> El programa se ejecuta y cuando abro el form manda el
> siguiente mensaje en tiempo de ejecucion:
>
> OBTIENE_DATOS(82)
> Error BASE/1003 Variable does not exist: SELF
> Argumentos: ()
>
> y si en el codigo le quito el operador :: al ejecutarlo
> manda el siguiente mensaje de error:
>
> OBTIENE_DATOS(82)
> Error BASE/1003 Variable does not exist: TXTNOMBRE
> Argumentos: ()
>
>
> Si alguien puede ayudarme a resolver este problemita le
> agradecere.
>
> Gracias por su atencion.

[Carlos Ortiz]

Y por que un procedure y no un metodo, teniendo acceso a las clases,
propiedades y demás para que volver a lo antiguo.
Mi humilde opinión.
"Gil Villa" <tehuacanero_mx[at]yahoo[dot]com> escribió en el mensaje
news:4cacf5ab$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Saludos a todos...
>
> Tengo un pequeño problema que no se resolver y espero
> ustedes puedan ayudarme..
>
> Tengo un form en el cual en su metodo FormInitialize hago
> una llamada a un procedimiento que yo eh creado.. quedando
> de la siguiente manera:
>
> METHOD FormInitialize( oSender ) CLASS frmUsuarios
> select usuarios1
> go top
> obtiene_datos()
> RETURN Nil
>
> procedure obtiene_datos()
> ::txtNombre:cValue:= usuarios1->usr_nombre
> return
>
> el detalle es que cuando compilo me manda el siguiente
> mensaje en la ventana de mensajes:
>
> frmusuarios.prg(82) Warning W0001 Ambiguos reference:
> 'SELF'
>
> El programa se ejecuta y cuando abro el form manda el
> siguiente mensaje en tiempo de ejecucion:
>
> OBTIENE_DATOS(82)
> Error BASE/1003 Variable does not exist: SELF
> Argumentos: ()
>
> y si en el codigo le quito el operador :: al ejecutarlo
> manda el siguiente mensaje de error:
>
> OBTIENE_DATOS(82)
> Error BASE/1003 Variable does not exist: TXTNOMBRE
> Argumentos: ()
>
>
> Si alguien puede ayudarme a resolver este problemita le
> agradecere.
>
> Gracias por su atencion.
> --
> Saludos y que esten bien...

[tehuacanero_mx]

Orale Claudio...
Ya quedo resuelto mi problemita..
Muchas gracias.. saludos..