FiveTech Software tech support forums

Hello, then try using bstratLine, bStratREcord, bSkip nLine := 0 REPORT oReport COLUMN nLine..... oReport:bSkip := {|| nLine++ , ...... dbf->( DBSKIP() )} or oReport:bStartLine := {|| nLine++ } or oReportbStarRecord := {|| nLine++ } I think some ...

... ) OF Dialogo size 15,110 pixel oLbX:bGoTop = { || nCur := 1 } oLBX:bGoBottom = { || nCur := Len( EMPRE ) } oLbX:bSkip = { | nSkip | Skipper( EMPRE, @nCur, nSkip ) } // con array oLbX:bLogicLen := { || LEN(EMPRE) } oLbX:cAlias := "Array" oLbX:bKeydown ...

... oLbx:nAt, 1 ] , ; aMat[ oLbx:nAt, 2 ] ; } } oLbx:bGoTop := { || oLbx:nAt := 1 } oLbx:bGoBottom := { || oLbx:nAt := Eval( oLbx:bLogicLen ) } oLbx:bSkip := { | nWant, nOld | nOld := oLbx:nAt, oLbx:nAt += nWant, ; oLbx:nAt := Max( 1, Min( oLbx:nAt, Eval( oLbx:bLogicLen ) ) ), ; oLbx:nAt - nOld } ...

... := .T.   oBrw:CreateFromCode()   oWnd:oClient := oBrw      ACTIVATE WINDOW oWndRETURN NIL  For the first approach, I've defined a new 'bSkip', trying to set the colors dynamically, but it doesn't work correctly! Just try it and you'll see what I mean:   oBrw:bSkip  := { | nSkip, ...

Pete: Also, I saved the row in the browse cargo: oBrw:bSkip := { | nSkip, nOld | ; iif(nSkip == nil, nSkip := 1, ),; nOld := oBrw:nArrayAt,; oBrw:nArrayAt += nSkip,; oBrw:nArrayAt := Min( Max( oBrw:nArrayAt, 1 ), len( oBrw:aArrayData ) ),; oBrw:cargo ...

... + oPagos:FieldGetByName('usu_nombre'); Footer "Total Recadudado Por "+SubStr(oReport:aGroups[2]:cValue,11,30) END REPORT oReport:bSkip := {||oPagos:skip(1) } oReport:nTitleUpLine := RPT_SINGLELINE oReport:nTitleDnLine := RPT_SINGLELINE oReport:nTotalline := RPT_NOLINE oReport:nGroupLine ...

... RECORDSET oRS, ¿en los xbrowse no es necesario pasar los...? oBrw:bGoTop := {|| rs:moveFirst() } oBrw:bGoBottom := {|| rs:moveLast() } oBrw:bSkip := {| n | rsSkipper( n, rs ) } oBrw:bBof := {|| rs:Bof() } oBrw:bEof := {|| rs:Eof() } oBrw:bBookMark := {| bmNew | IIF( bmNew == NIL, rs:bookMark, ...

... RECORDSET oRS, ¿en los xbrowse no es necesario pasar los...? oBrw:bGoTop := {|| rs:moveFirst() } oBrw:bGoBottom := {|| rs:moveLast() } oBrw:bSkip := {| n | rsSkipper( n, rs ) } oBrw:bBof := {|| rs:Bof() } oBrw:bEof := {|| rs:Eof() } oBrw:bBookMark := {| bmNew | IIF( bmNew == NIL, rs:bookMark, ...

... array. The next simplest would be to create a database class that has a modified skip() method that uses the array as an index. The set the oBrw:bSkip codeblock to use this database skip method. The most complicated way would be to write functions to work with standard DBF commands that use the ...

... ID 103 OF oDlf COLOR RGB( 68, 90,155) oBrf:bGotop :={|| nSem:=MIN(EVAL(oBrf:bLogicLen),1)} oBrf:bGoBottom :={|| nSem:=EVAL(oBrf:bLogicLen)} oBrf:bSkip :={| nWant,nOld | nold:=nSem, nSem+=nWant,; nSem:=MAX(1, MIN(nSem,EVAL(oBrf:bLogicLen))),nSem-nOld} oBrf:lAdjLastCol:=.F. oBrf:bLogicLen :={|| ...

... ={.F.,.F.,.f.,.f.,.f.} oLbx:bLogicLen = { || oRs:RecordCount } oLbx:bGoTop = { || oRs:MoveFirst() } oLbx:bGoBottom = { || oRs:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oLbx:cAlias = "ARRAY" REDEFINE BUTTON ID 102 OF oDlg ACTION( EditC1(.t.,oLbx ), oLbx:Refresh() ...

... read during the repainting. And you can disable() or LockWindowUpdate() the control and test it that way too. You will also see evidence that bSkip does have something to do with refreshing a browse. James // Test disabled TWBrowse for painting while disabled.// Use with FWH\samples\customer.dbf ...

... 12 07/22/10 14:38:37: 14 13 07/22/10 14:38:37: 14 14 07/22/10 14:38:37: 14 15 that is looking fine to me. Anyway, I don't know why you are using bSkip codeblock that has nothing to do with browse refresh. EMG

... SET INDEX TO customer define window oWnd title "Test Browse" define buttonbar oBar of oWnd @ 0 , 0 listbox oLbx fields of oWnd oLbx:bSkip:= {|nRecs| ( logfile( "events.txt" , { oLbx:nRowCount() , recno() } ), customer->(dbskipper( nRecs)) ) } oWnd:oClient:= oLbx activate ...

Enrico, James, I put this line of code in a my application oBrw:bSkip:= {|nRecs| ( logfile( "eventi.txt" , { oBrw:nRowCount() , recno() } ), tabella->(dbskipper( nRecs)) ) } tabella.dbf has 11400 records it's about 9 MB tabella.cdx has 20 TAG ...