FiveTech Software tech support forums

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

... oConteggio:=TDatabase():Open( , "Lotto", "DBFCDX", .T. ) IF nLastRecords > 0 nInit:=oConteggio:lastrec()-nLastRecords nEnd:= oConteggio:lastrec() ENDIF oConteggio:Exec( <|| SET FILTER TO ( dFirst <= FIELD->DATA .AND. ; dLast >= FIELD->DATA .AND. ; aCountMesi[ ...

carito wrote:Hola creo que estas usando mal el comando:

en clipper es AT(<cSearch>, <cTarget>) --> nPosition

en harbour es hb_At( <cSearch>, <cString>, [<nStart>], [<nEnd>] ) --> nPos

Saludos,
Carito

Tenias razon. gracias.

Hola creo que estas usando mal el comando:

en clipper es AT(<cSearch>, <cTarget>) --> nPosition

en harbour es hb_At( <cSearch>, <cString>, [<nStart>], [<nEnd>] ) --> nPos

Saludos,
Carito

... 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->RECNO())) ...

... How I can add the number of records to show ? sample only 5 records give me error Here nInit:=Ltrim(str(oDbf:lastrec()-nCount)) nEnd:=Ltrim(str(oDbf:lastrec())) cFilter:= "LTRIM(STR(YEAR(FIELD->DATA)))= '" + nyear + "' .and. '"+; nInit + "' <= Ltrim(str(FIELD-RECNO())) ...

Antonio Linares wrote:Dear Silvio,

SET FILTER is very slow

Using an index with scopes should be better

with tdatabase I not Know How make it


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

oDbf:setscope(0,nInit)
oDbf:setscope(1,nEnd)


then for the year ?

... filter as you can see on this method  METHOD Load_Data(nCount) CLASS TLOTTO     local aTemp  := {}     local nLastRecords,nInit,nEnd  DEFAULT nCount := 10    ::olotto := TArchivioLotto():New()    ::olotto:SetOrder(1)    ::olotto:goBottom()    IF ...

... SIZE 100, 20 OF oGrS1 ; ON CHANGE hidexbrowse( ::oLbx,::lBa) Function hidexbrowse( ::oLbx,::lBa) local i,oCol do case case ::lba = .t. nInit := 2 nEnd:= 6 endcase for i= nInit to nEnd oCol := ::oLbx:aCols[ i ] oCol:HIde() next ::oLbx:refresh() return nil

... cIniFile)   local nInit   := VAL(GetPvProfString(cSection, "Inizio","", cIniFile))   local nEnd    := VAL(GetPvProfString(cSection, "Fine","", cIniFile))   local nLastRecords := VAL(GetPvProfString(cSection, ...

... in execution; please Wait...", cMsgArrayData := "Creating CSV array data; please wait..." LOCAL nStart := Seconds(), nEnd, aData := {}, cText := "", cMsgMemo := "Reading CSV data source; please wait..." //=================================================================================================================== ...

... orignially developed with xHarbour. The AT() function in xHarbour has this syntax: At( <cSearch>, <cString>, [<nStart>], [<nEnd>] ) --> nPos Using Harbour, AT() only supports the first two parameters and will error if the nStart is specified. Is there an alternative ...

... o algunos de los siguientes ', ", [. Sólo los caracteres especificados se consideran caracteres de comillas. - Los parámetros cnStart y cnEnd también pueden ser cadenas. Si la búsqueda nStart especificada comienza después de cStart en cString, si se encuentra, desde esa posición, en caso ...

... string containing any or some of ', ", [. Only the characters specified are considered as quote characters. - Parameters cnStart and cnEnd can be strings also. If specified nStart search starts after cStart in cString, if found and otherwise from 1. nEnd is character befpre cEnd if ...

We frequently use the functions AT( cSearch, cStr, [nFrom], [nEnd] ) // xHarbour AT( cSearch, cStr ) // Harbour HB_AT( cSearch, cStr, [nFrom], [nEnd] ) // Harbour In many cases, we may need to convert both cSearch and cStr to Upper/Lower case for the search. ...