FiveTech Software tech support forums

... ); ENDIF ELSEIF nRadio == 2 IF (cAlias)->PrEstq > 0 ; IF( nRecords < 0, nRecords--, nRecords++ ) ; ENDIF ENDIF nSkipped := (cAlias)->( DbSkipper( nRecords ) ) RETURN nSkipped

... ); ENDIF ELSEIF nRadio == 2 IF (cAlias)->PrEstq > 0 ; IF( nRecords < 0, nRecords--, nRecords++ ) ; ENDIF ENDIF nSkipped := (cAlias)->( DbSkipper( nRecords ) ) RETURN nSkipped

Richard, Enrico I use this in my main program #ifndef __XHARBOUR__ FUNCTION DbSkipper( n ) ; RETURN __DbSkipper( n ) FUNCTION DbPack() ; RETURN __DbPack() FUNCTION DbZap() ; RETURN hb_DbZap() FUNCTION CurDrive( x ) ; RETURN hb_CurDrive( x ) #EndIf Thank you. And ...

Enrico

I use this in my main program

#ifndef __XHARBOUR__
FUNCTION DbSkipper( n ) ; RETURN __DbSkipper( n )
FUNCTION DbPack() ; RETURN __DbPack()
FUNCTION DbZap() ; RETURN hb_DbZap()
FUNCTION CurDrive( x ) ; RETURN hb_CurDrive( x )
#EndIf


Hth

Richard

... es un complemento más de Eagle1 y se pueden usar conjuntamente. E1RDD implementa navegación por las tablas (DbGoTo(), DbGoBotton(), DbGoTop(), DbSkipper(), etc), Altas, bajas y modificaciones, aceso a registros y sus campos etc en definitiva está implementado todo el RDD DBF... pero no hay ...

... xharbour to harbour I have added in my main program the following (maybe now it is not needed anymore, Antonio ?) #ifndef __XHARBOUR__ FUNCTION DbSkipper( n ) ; RETURN __DbSkipper( n ) FUNCTION DbPack() ; RETURN __DbPack() FUNCTION DbZap() ; RETURN hb_DbZap() FUNCTION CurDrive( x ) ; RETURN ...

... , we have to #include "hbcompat.ch" on the top of ever program, easier to change fivewin.ch 2. From Bayron #ifndef __XHARBOUR__ FUNCTION DbSkipper( n ) ; RETURN __DbSkipper( n ) FUNCTION DbPack() ; RETURN __DbPack() FUNCTION DbZap() ; RETURN hb_DbZap() FUNCTION CurDrive( x ) ; RETURN ...

#INCLUDE "FIVEWIN.CH" #define _DbSkipper DbSkipper //----------------------------------------------------------------------------// CLASS TDb DATA nArea AS NUMERIC INIT 0 DATA lBuffer DATA lShared AS LOGICAL INIT .t. DATA aBuffer DATA ...

... 45, 45, 45, 45, 45 , 40, 50 ; ON CHANGE ( have tried all the syntax below and more ) ; SIZE 284, 137 OF oDlg //ON CHANGE oLbx:bSkip:= {|nRecno| , (dbskipper(TM->recno() ) ) } ; //ON CHANGE {|nRecno|, oLbx:recno() } ; //ON CHANGE oLbx: {|nRecno|, TM->recno() } ; frustration is just clouding ...

... "DR","Notes" ; FIELDSIZES 60, 45, 45, 45, 45, 45 , 40, 50 ; SIZE 284, 137 OF oDlg // possible ?? // space(5)+ {|nRecs|,dbskipper()} //trans(oTmd:recno(),'99,999') +; // ' / '+trans(oTmd:lastrec(),'99,999') OF oDlg // possible //{|nRecs|,oLbx:keyno() } Any help, much ...

Antonio probé con la función (yo las veo las dos iguales). Hice un prg con tu función la compile y el obj lo adicione a la librería fiveh.lib e intenté ingresando la función en mi prg original y en los dos casos siguió dando el mismo error. Lo que hice fue reemplazar tanto en tdatabse como en wbrows...

Disculpa, creo que es al reves:

Prueba con dos guiones:

function _DbSkipper( x )

return __DbSkipper( x )

ó

function _DbSkipper( x )

return __DbSkipper( x )

Esto se debe a que usaba distintos nombres en Harbour y xHarbour

Prueba con dos guiones:

function DbSkipper( x )

return __DbSkipper( x )

Complie nuevamente y dió esto Error: Unresolved external '_HB_FUN_FW_GT' referenced from E:\FWH712\LIB\FIVEH.LIB|DBTOOLS Error: Unresolved external '_HB_FUN__DBSKIPPER' referenced from E:\FWH712\LIB\FIVEH.LIB|DATABASE Error: Unresolved external '_HB_FUN_CREATEOBJECT' referenced from OBJ\RMAIL.OBJ Er...

Añade esta función:

function DbSkipper( x )

return _DbSkipper( x )