FiveTech Software tech support forums

... mSetDevice )

RETURN .T.


I can use automatic as example:

USE ( file )
GrafTempo( "processing" )
DO WHILE ! Eof()
GrafTempo( RecNo(), LastRec() )
SKIP
ENDDO


or


USE ( file )
INDEX ON field->x FOR GrafTempo( RecNo(), LastRec() )


or manual


USE ( File ) INDEX ( file )
nAtual ...

... 2 ]
local n
local aItems := {}
DEFAULT nAr := 1
if !Empty( oMnu )
if oMnu:nLimit > 0
( Alias( nAr ) )->( DbGoTo( ( Alias( 1 ) )->( LastRec() ) - oMnu:nLimit + 1 ) )
if ( Alias( nAr ) )->( !Eof() )
oMnu:nPage := if( ( ( Alias( nAr ) )->( LastRec() ) % oMnu:nLimit ) = 0, ;
( ( Alias ...

... y rowSet... tienen metodos de navegacion y ordenaminento,,,,

Navigation:
Supports all methods of TDatabase like GoTop,GoBottom,GoTo,Skip,Eof,Bof,LastRec,
RecCount,KeyCount,KeyGoTo, etc
Also supports aliased methods compatible with ADO
MoveFirst,MoveLast,Move,BookMark,AbsolutePosition, etc

La ...

Insert a code block

I have
sample nLastRecords:= 2000

IF nLastRecords > 0
nInit:=olotto:lastrec()-nLastRecords
nEnd:= olotto:lastrec()
ENDIF


and I must insert this on a codeblock

bFor:= { || recno() <= nInit .and. recno() >= nEnd }

but make error

... a database

I need to insert several conditions

Now I tried making a filter

oConteggio:=TDatabase():Open( , "Lotto", "DBFCDX", .T. )

IF nLastRecords > 0
nInit:=oConteggio:lastrec()-nLastRecords
nEnd:= oConteggio:lastrec()
ENDIF

oConteggio:Exec( <||
SET FILTER TO ( dFirst <= FIELD ...

... cMsg := "SELECT * FROM personal WHERE codigo="+ClipValue2Sql( cCodigo )
if !modo
cMsg += " AND id != "+ClipValue2Sql( oQry:id )
Endif
cQry := oServer:Query( cMsg )
If cQry:lastrec()>0
lRet := .F.
MsgStop("Codigo ingresado ya existe !!!","Stop" )
EndIf
cQry:End()
EndIf

Return lRet

... HB_GCALL( .F. )
xnn:=0
Endif
cMsg := "SELECT * FROM personal_mov WHERE id = "+ClipValue2Sql( cQry:id )
aQry := lServer:Query( cMsg )
If aQry:lastrec()>0
oWait:Say(1,3,"Espere, actualizando Reg.: "+Alltrim( Str( cQry:id ) )+" -- "+Alltrim(Str(nnc))+" ok..."+Space(30) )
SysRefresh()

cMsg ...

... Space(40) )
SysRefresh()

cMsg := "SELECT * FROM personal_mov WHERE id = "+ClipValue2Sql( cQry:id )
aQry := lServer:Query( cMsg )
If aQry:lastrec()>0
oWait:Say(1,3,"Espere, actualizando Reg.: "+Alltrim( Str( cQry:id ) )+" -- "+Alltrim(Str(nnc))+" ok..."+Space(30) )
SysRefresh()

cMsg ...

... number of records in a DBF which are not deleted.
There is no simple function for this.

Does not matter whether SET DELETED is ON or OFF:

Both LASTREC() and RECCOUNT() include deleted records also.
ORDKEYCOUNT() also does not exclude deleted records by itself, but honors filters, scopes and index ...

... number of records in a DBF which are not deleted.
There is no simple function for this.

Does not matter whether SET DELETED is ON or OFF:

Both LASTREC() and RECCOUNT() include deleted records also.
ORDKEYCOUNT() also does not exclude deleted records by itself, but honors filters, scopes and index ...

... number of records in a DBF which are not deleted.
There is no simple function for this.

Does not matter whether SET DELETED is ON or OFF:

Both LASTREC() and RECCOUNT() include deleted records also.
ORDKEYCOUNT() also does not exclude deleted records by itself, but honors filters, scopes and index ...

METHODS:

RecCount(), LastRec(), KeyCount(),RecNo(), KeyNo()
GoTop(),GoBottom(),GoTo(nRec),KeyGoTo(nKey),Skip(n)
FCount(),FieldPos(c),FieldName(),FieldLen(),FieldDec(),FieldType()
FieldGet(),FieldPut()
SetOrder(cSort,,lDescend)
Save()
Close() or End()
---------------
NOT SUPPORTED:
Seek(), Filter ...

... 0
Private xTotVtas := 0
Private oMensaje, cMensaje:=''

.....

if veoclifor(@nCliente,@cVeoCli,.t.)

if nCliente = 0
xTotCli := CliFor->(LastRec())
else
xTotCli := 1
endif

select DetVtaF
set filter to str(DetVtaF->Cliente,4) = str(CliFor->CodCliente,4) .and. DetVtaF->FecVenta>=dDesde ...

... lAddColumns, lAutoOrder, aFldNames, aRows ) CLASS TXBrowse
::::::
else
if ( ( ::cAlias )->( RDDName() ) == "DBFCDX" )

* if ( ::cAlias )->( LASTREC() ) > 10000 .and. lFileIsRemote( ( ::cAlias )->( DBINFO( DBI_FULLPATH ) ) )
* DEFAULT ::bKeyNo := { |n| ( ::cAlias )->( If( n == nil, OrdKeyRelPos ...

... 40,50,100,200,300,500) records How I must set the filter ?

I try with

nCount is the number selected by final user

IF nCount > 0
nInit:=oDbf:lastrec()-nCount
nEnd:= oDbf:lastrec()
ENDIF



cFilter:= "LTRIM(STR(YEAR(FIELD->DATA)))= '" + nyear + "' .and. '"+;
nInit + "' <= Ltrim(str(FIELD ...