Method EXTENDED no me funciona como deseo..

[goosfancito]

Hola.

Necesito extender un metodo del TDOlphin para que me devuelva los valores
correctos con respecto a la definicion de los campos de una tabla.

estoy queriendo importar desde TXT a una tabla en mysql, todos los valores
del TXT son string y quiero que al insertarlos a la tabla ya vayan con el
tipo de dato correcto, no puedo usar el clipvalue2sql() porque no se puede.

Code: Select all  Expand view

function main()
    EXTEND CLASS TDOLPHINSRV WITH METHOD verdaderoValor
    ...
return (nil)

------------8<---------------------

function verdaderoValor(cTabla, xCampo, xValor)
local aStructura:={},;
        this:= QSelf()

// aca tengo el problema, necesito que me recupere la estructura, por lo que
// utilizo el methodo del TD... TableStructure(cTable)
// y me tira el error que no encuentra el metodo.

aStructura:= this:TableStructure(cTabla)

...
------------8<---------------------
 

En que estoy fallando?

Gracias.

[xmanuel]

Con POO purista sería así:

Code: Select all  Expand view

CLASS TMiDOLPHINSRV FROM TDOLPHINSRV
      METHOD verdaderoValor(cTabla, xCampo, xValor)
END CLASS

METHOD verdaderoValor(cTabla, xCampo, xValor) CLASS miClase

    local aStructura:={},;
        this:= QSelf()

   // aca tengo el problema, necesito que me recupere la estructura, por lo que
   // utilizo el methodo del TD... TableStructure(cTable)
   // y me tira el error que no encuentra el metodo.

    aStructura:= this:TableStructure(cTabla)

...
------------8<---------------------

 

Y luego en vez de instaciar desde TDOLPHINSRV lo haces desde TMiDOLPHINSRV

Code: Select all  Expand view

 local oTDolphin := TMiDOLPHINSRV():new()

oTDolphin:verdaderoValor(cTabla, xCampo, xValor)

 

[goosfancito]

gacias!