FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error CLSNEW, CLSADDDATA, etc
Posts: 11
Joined: Mon Nov 28, 2005 03:15 PM
Error CLSNEW, CLSADDDATA, etc
Posted: Tue Dec 06, 2005 04:07 PM

Amigos, ya postie esto enteriormente, pero nunca con este detalle.
Compilando unos prg con el brmake, em estaba tirando error con algunas funciones, buscando dentro de mis prg, descubro que estas funciones tan definidas entre otras tantas, en esta porcion de codigo.
Lo que no logro interpretar es porque no reconoce los metodos o las clases.
He intentando meter esto en una lib y no andubo, he intentado compilar directamente mis prg sin lib y sigue largando los mismos errores.
Agradeceria ayuda.

include "Objects.ch"

include "Colores.ch"

define SetDft(x,y) (x:=if(x==NIL,y,x))

CLASS DbSavSelect

DATA nSavArea
DATA nIndexOrd
DATA nRecno

METHOD New(cAlias, nOrderIndex)
METHOD Recuperar()
METHOD RecAll()

ENDCLASS

METHOD DbSavSelect::New(cAlias, nOrderIndex)

::nSavArea     := Select()
::nIndexOrd    := IndexOrd()
::nRecno       := Recno()

Select( SetDft( cAlias, Alias() ) )
DbSetOrder( SetDft( nOrderIndex, IndexOrd() ) )

RETURN Self

METHOD DbSavSelect::Recuperar()

Select(::nSavArea)
DbSetOrder(::nIndexOrd)

// DbGoto(::nRecno)

RETURN nil

METHOD DbSavSelect::RecAll()

Select(::nSavArea)
DbSetOrder(::nIndexOrd)
DbGoto(::nRecno)

RETURN nil

Continue the discussion