FiveTech Software tech support forums

... version of TSBrowse.ch (only constants) to avoid preprocessor table overflow #ifdef __XPP__ #define Super ::TControl #define New _New #xtranslate _DbSkipper => DbSkipper #endIf #ifdef __HARBOUR__ #xtranslate _DbSkipper => DbSkipper #ifdef __HBOLE__ #define __OLE__ #endif EXTERN OrdKeyNo, ...

Adventage Database Server -------------------------------------------------------------------------------- is anybody using ADS in an novell net and running Windows NT on a workplace with Fivewin apps? I use ADS in Novell net with Win95/98-machines and have no problems with my FW apps. Since yesterd...

... for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ( if(nRecs == nil, nRecs := 1,), ; nRecs:= (1)->(dbskipper( nRecs )), ; lClrFlag:= if( nRecs % 2 = 0, lClrFlag,!lClrFlag), nRecs) } // Define alternating row colors oBrw5:bClrStd := { || Colors() } ...

... OK // ------------------------------------ oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ( if(nRecs == nil, nRecs := 1,),nRecs:= ; (1)->(dbskipper( nRecs )), ; lClrFlag:= if( nRecs % 2 = 0, lClrFlag,!lClrFlag), nRecs) } // Define alternating row colors oBrw5:bClrStd:= {|| if(lClrFlag,{ ...

... )->( DbGoTop() ) },; ::bGoBottom := {|| ( cAlias )->( DbGoBottom() ) },; ::bSkip := {| n | iif( n == nil, n := 1, ), ; ( cAlias )->( DbSkipper( n ) ) },; ::bBof := {|| ( cAlias )->( Bof() ) },; ::bEof := {|| ( cAlias )->( Eof() ) },; ::bBookMark := {| n | iif( n == nil,; ( cAlias ...

... for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ; ( if(nRecs == nil, nRecs := 1,),nRecs:= (1)->(dbskipper( nRecs )), ; lClrFlag:= if( nRecs % 2 = 0, lClrFlag,!lClrFlag), nRecs) } // Define alternating row colors oBrw5:bClrStd := { || Colors() } ...

AHF,

Here is a skipblock that doesn't use a database object:

oBrw:bSkip:={| nRecs | (nRecs:= (cAlias)->(_dbskipper( nRecs )), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) }

James

... LINES_BLACK 1 #define LINES_GRAY 2 #define LINES_3D 3 #define LINES_DOTED 4 #ifdef __XPP__ #define Super ::TControl #define New _New #xtranslate _DbSkipper => DbSkipper #endif #ifdef __HARBOUR__ #xtranslate _DbSkipper => DbSkipper #endif extern DBSKIP //----------------------------------------------------------------------------// ...

AHF, The below info is from my notes file. Note that you have indexes, filters, and deleted records to handle, so the solution has to consider these. James --------------------------------- 8/24/2007 Update: Antonio posted this one. oBrw:nClrPane := { || If( OrdKeyNo() % 2 == 0, RGB( 230, 230, 230),...

... bytes Time from start: 0 hours 1 mins 49 secs Error occurred at: 13/11/2007, 10:28:35 Error description: Error DBCMD/2001 Workarea not in use: DBSKIPPER Stack Calls =========== Called from: => DBSKIPPER(0) Called from: XBrowse.prg => (b)TXBROWSE:SETRDD(3355) Called from: XBrowse.prg => ...

... STATUS Args: Stack Calls =========== Called from: win32ole.prg => TOLEAUTO:STATUS(0) Called from: => ADO_DELETED(414) Called from: => DBSKIPPER(0) Called from: WBROWSE.PRG => (b)TWBROWSE:SETFILTER(0) Called from: WBROWSE.PRG => TWBROWSE:SKIP(0) Called from: WBROWSE.PRG => ...

Hola de nuevo! Sigo atorada con la integración del grid de canal5. Hice lo siguiente: 1. Recompile (con un archivo .BAT que amablemente RF me envio) e integre de nuevo la libreria con lo siguiente: GRID.OBJ, HEADER.OBJ, FOOT.OBJ, COLUMNA.OBJ, DRIVES.OBJ y XSCRLL.OBJ... al compilar estos dos últimos ...

... oLbx:blClicked := ; {|nRow,nCol,nKeyFlags| if(oLbx:nAtCol(nCol)=2,ShowRolls(),nil)} oLbx:lCellStyle := .T. oLBx:bSkip := {|nRecs| STOCKLOC->(DbSkipper(nRecs))} oLbx:bLine := {|| {STOCKLOC->Id,; str(STOCKLOC->Rolls,4),; str(STOCKLOC->Curr_Vol,10,2)}} ACTIVATE WINDOW oWnd I fixed this ...