Page 1 of 1

Error CLSNEW, CLSADDDATA, etc

Posted: Tue Dec 06, 2005 4:07 pm
by chuhuaca
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