FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Method EXTENDED no me funciona como deseo..
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Method EXTENDED no me funciona como deseo..
Posted: Thu Sep 29, 2016 11:06 AM
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 (fw): Select all Collapse
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.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 817
Joined: Sun Jun 15, 2008 07:47 PM
Re: Method EXTENDED no me funciona como deseo..
Posted: Thu Sep 29, 2016 01:29 PM
Con POO purista sería así:
Code (fw): Select all Collapse
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 (fw): Select all Collapse
 local oTDolphin := TMiDOLPHINSRV():new()

oTDolphin:verdaderoValor(cTabla, xCampo, xValor)
______________________________________________________________________________

Sevilla - Andalucía
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Method EXTENDED no me funciona como deseo..
Posted: Thu Sep 29, 2016 04:51 PM

gacias!

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion