Xailer & OZ Software

Hola!
Estoy haciendo una clases para buscar un resultado en una base de datos y cargar el valor en distintos tipos de objeto ( textBox , TDBbrowse).
La idea es la siguiente :
La clase tiene el siguiente constructor donde recibe la sentencia sql a ejecutar i el objeto oSender que es el objeto donde rellenara el resultado. Por ejemplo devolver el resultado en un textbox.
METHOD NEW(consulta,oSender)
::fconsulta:=consulta
::foSender:=oSender
Super:New()
return self
Luego al seleccionar el registro correcto ejecuta el siguiente código :
if ::oSender:ClassName = "TEditBtn"
::oSender:value:=::sqlQuery:PCTA(dsFIELD)+" "+::sqlQuery:PTIT(dsFIELD)
elseif ::oSender:clasSName="NUMERIC" .or. ::oSender:clasSName="CHARACTER"
::oSender:=::sqlQuery:PCTA(dsFIELD)+" "+::sqlQuery:PTIT(dsFIELD)
end
El problema es el siguiente :
* Si uso esta clase en un textbox ( primer caso ) no hay ningún problema y funciona bien pero al usarlo para cargar los datos en una celda de un TDBBrowse no funciona :S
¿ Alguna sugerencia / idea ? Voy mal encaminado ?

Prezado Artur,
Seu Metodo:
METHOD NEW(consulta,oSender)
::fconsulta:=consulta
::foSender:=oSender
Super:New()
return self
Modifique para:
METHOD NEW(consulta,oSender)
::fconsulta:=consulta
::foSender:=oSender
Return Super:New()
att.
Marcelo Coelho Silva
Brasil.
Em 20/09/2010 04:44, artur escreveu:
> Hola!
>
> Estoy haciendo una clases para buscar un resultado en una
> base de datos y cargar el valor en distintos tipos de objeto
> ( textBox , TDBbrowse).
>
> La idea es la siguiente :
> La clase tiene el siguiente constructor donde recibe la
> sentencia sql a ejecutar i el objeto oSender que es el
> objeto donde rellenara el resultado. Por ejemplo devolver el
> resultado en un textbox.
>
> METHOD NEW(consulta,oSender)
> ::fconsulta:=consulta
> ::foSender:=oSender
> Super:New()
> return self
>
> Luego al seleccionar el registro correcto ejecuta el
> siguiente código : if ::oSender:ClassName = "TEditBtn"
> ::oSender:value:=::sqlQuery:PCTA(dsFIELD)+"
> "+::sqlQuery:PTIT(dsFIELD)
>
> elseif ::oSender:clasSName="NUMERIC" .or. ::oSender:clasSName="CHARACTER"
> ::oSender:=::sqlQuery:PCTA(dsFIELD)+"
> "+::sqlQuery:PTIT(dsFIELD)
> end
>
> El problema es el siguiente : * Si uso esta clase en un textbox ( primer
> caso ) no hay
> ningún problema y funciona bien pero al usarlo para cargar
> los datos en una celda de un TDBBrowse no funciona :S
>
> ¿ Alguna sugerencia / idea ? Voy mal encaminado ?