Error CLSNEW, CLSADDDATA, etc
Posted: Tue Dec 06, 2005 4: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
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