FiveTech Software tech support forums

Note:
The codeblock bSkip uses the function:
nSkipped := DbSkipper( nRecs ) // xHarbour
nSkipped := __DbSkipper( nRecs ) // Harbour

The functionality is similar to this function

function MyDbfSkipper( nRecs )

local nKeyFrom := OrdKeyNo()

DBSKIP( nRecs )
if Eof()
DbGoBottom()
elseif Bof ...

... REDEFINE LISTBOX olbm FIELDS (oDbf:calias) ->NAPE ID 101;
ON DBLCLICK (lacepto:= .t.,odlg:end()) of odlg
olbm:setfocus()
olbm:bSkip := { | nRecs | odbf:Skipper( nRecs ) } 1-Quite esta parte
olbm:bSeek := {|lRet| olbm:DbfSeek(.T.) }
oLbm:bkeydown := {|nkey,nflags| iif(nKey = VK_RETURN ...

... GetRows(). This method has been there since the beginning,

aData := oRs:GetRows()

This method is further enhanced in 18.07:

method GetRows( [anRecs], [nStartPos], [aFields], [lWithRecNum] )
--> Returns array containing values of the records (default all
records) meeting the filter condition ...

... expresiones usando nombres de campos.

Por ejemplo: oRs:FieldGet( { "NAME+','+CODE","ID",":RecNo" } ) --> aValues

- Método mejorado GetRows ( [anRecs], [nStartPos], [aFields], [lWithRecNum] )
-> Devuelve una matriz que contiene los valores de los registros (por defecto todos los
registros) que ...

... field names/ expressions
using field names.

Eg: oRs:FieldGet( { "NAME+','+CODE","ID",":RecNo" } ) --> aValues

- Enhanced
method GetRows( [anRecs], [nStartPos], [aFields], [lWithRecNum] )
--> Returns array containing values of the records (default all
records) meeting the filter condition ...

HI, i have a old appl, i try compile with fwh17.04 and my twbrowse is empty, without records, i use twbrowse, tdata (from james), something is changed ? i dont change the code of this appl for years.

this code Works or something is changed:

oLbx:bSkip := { | nRecs | oCCBA:skipper( nRecs ) }

thanks

... name, and that name changes after awhile. Then the next few times you click it changes to the new name.

I am using FWH 15.05/xHarbour

Update 2: OK, I found the problem. Replace this line:

oBrw:bSkip:= {|nRecs| oCust:skipper(nRecs) }

With this:

oBrw:setoDBF( oCust )

And all is OK. My bad!

James

... using the method of bskip browse, but I can not make it work, could someone give me an example?

Follow what I'm doing:

oBrwConsul:bSkip := { | nRecs | SkipEstoq( nRadio, cAlias, nRecs ) }
...
...
...

FUNCTION SkipEstoq( nRadio, cAlias, nRecords )

LOCAL nSkipped

DEFAULT nRecords := 1

IF ...

... método de bSkip navegar, pero no puedo hacer que funcione, podría alguien darme un ejemplo?

Seguir lo que estoy haciendo:

oBrwConsul:bSkip := { | nRecs | SkipEstoq( nRadio, cAlias, nRecs ) }
...
...
...

FUNCTION SkipEstoq( nRadio, cAlias, nRecords )

LOCAL nSkipped

DEFAULT nRecords := 1

IF ...

... Orgin", "A", "B", "C", "D", "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 ...

Hi Lucas,

1. Issue cAlias->( AdsCacheRecords( <nRecs> ) ) or TABLE->( AdsCacheRecords( 50 ) ).. in my case, it improves the speed.
2. on your ads.ini:

[Settings]
COMPRESSION = Always
USE_TCP_IP = 1
PACKET_SIZE = 512 ;or 1024

This also improves my speed.


Kind regards,

... 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 window oWnd

return ...

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 inside it's about 1,5 MB

In eventi.txt file I found ...

... Localidad", "Provincia",;
"Telefono","Cuit","Iva","Rubro","Vendedor"}
oLbx:aColSizes := {60,210,190,190,190,160,90,100,180,60}
oLbx:bSkip = { | nRecs | oMae:Skipper( nRecs ) }
oLbx:nLineStyle := 3
oLbx:lAdjlastcol:= .F.
oLbx:nClrBackFocus := CLR_CYAN
oLbx:nClrForeFocus := CLR_WHITE ...

... databases?

There are several ways to do this with database objects.

You can use the skipper to keep both databases in sync:

oLbx:bSkip:= {| nRecs | oInvoice:skipper( nRecs), oCustomer:seek( oInvoice:invno) }

Then you just define the fields:

@ 0,0 LISTBOX oLbx FIELDS oInvoice:invno, oCust ...