FiveTech Software tech support forums

... the 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 ...

... the 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 ...

... the 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 ...

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

... := 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 ...

... 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, ...

... 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 + "' ...

...       oDbf:GoTop()  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 ...

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 ?

... locate for year(FIELD->data) != anno2 ; next 60 // endif oDbf:load() if (oDbf:Found()) nLast:= oDbf:RecNo() - 1 else nLast:= oDbf:LastRec() endif locate for year(FIELD->data) = VAL(anno1 ) oDbf:load() if (!oDbf:Found()) nFirst:= 1 else nFirst:= oDbf:RecNo() endif AaDd( aLocate,{nFirst,nLast,anno1, ...

Ariel wrote:Goosfancito,

estas usando :nRecCount (por eso te da error) y debes usar el metodo :RecCount(), o :LastRec()

Saludos.

niinguno funciona on MARIADB que trae ya incorporado FWH

Goosfancito,

estas usando :nRecCount (por eso te da error) y debes usar el metodo :RecCount(), o :LastRec()

Saludos.

... WHERE TABLE_SCHEMA=DATABASE()AND COLUMN_NAME='actaconformidad_mod' AND TABLE_NAME='formularios' " cQry := oServer:Query( cMsg ) If cQry:lastrec()=0 cMsg := "ALTER TABLE formularios " cMsg += "ADD COLUMN actaconformidad_mod VARCHAR(80) NULL AFTER actaconformidad" oServer:Execute( ...

... Is it some methods to replace this tDolphin code to FW MySql/Maria? oQry := oServer:Query( "CHECK TABLE customer" )? oQry:lastrec(), oQry:msg_type, oQry:msg_textoQry:end()  This code code produce error: Error description: Error BASE/1004 Class: 'NIL' has ...

... ) .and. ::oWnd:IsKindOf( "TDIALOG" ) )      RETURN DLGC_WANTALLKEYS   ENDCASERETURN NIL  for example for add the method lastrec ...  EXTEND CLASS FWMARIACONNECTION WITH METHOD lastrec...FUNCTION Lastrec()   LOCAL Self := hb_QSelf()RETURN ::RecCount..  ...