FiveTech Software tech support forums

... tem registros para editar')) Return NIL ENDIF SELECT TELE0060 DATABASE oTele0060 oTele0060:Load() oTele0060:SetOrder( 5 ) oTele0060:SetBuffer( .T. ) REPORT oReport; TITLE cTit , "*** RELACAO DE ENTREGAS ***" , "Referente a " + Dtoc(vDataIni) + space(1) + "ate" ...

seems to be really slow: - when I scroll through all the records or by pages Are you now using oLotto:setBuffer(.F.)? - when I go to print a record and refresh the xbrowse (doing also setfocus) Why are you refreshing the browse after printing? - when I insert a record and ...

I guess I wasn't clear.

oDbf:setBuffer(.F.)

Works. Did you try it?

... I was right AND I was wrong. You can turn off buffering, but not by changing the class variable lBuffer directly. You must do it this way: oDBF:setBuffer(.F.) Technically, lBuffer should be a hidden variable that cannot be changed by the programmer. OOP languages like Smalltalk, do not allow ...

hua wrote:Peter,
You can try :SetBuffer(.f.) to see whether that could help improve the speed a bit

Yes, it does improve the speed. Same as reading DBF directly.

Peter,
You can try :SetBuffer(.f.) to see whether that could help improve the speed a bit

__clsVerify(<nClassH>)-><acBrokenMessages>|Nil __objAddData(<oObject>,<cDataName>)->oObject __objAddInline(<oObject>,<cInlineName>,<bInline>)->oObject __objAddMethod(<oObject>,<cMethodName>,<nFuncPtr>)->oObject __objDelInline(&l...

__clsVerify __objAddData __objAddInline __objAddMethod __objDelInline __objDelMethod __objDelMethod __objDerivedFrom __objGetMethodList __objGetValueList __objModInline __objModMethod __objSetValueList __Pack __Run __Zap AAdd Abs AChoice AClone ACopy ACos AddASCII AddMonth ADel ADir ADSBlob2File ADS...

... Used by ::Save() 82. Seek( uExpr, [lSoft], [lWildSeek] ) --> lFound Seeks uExpr and returns lFound. 83. SetArea( nWorkArea ) Internal 84. SetBuffer( [lOnOff] ) --> ::lBuffer Optionally sets ::lBuffer and returns value of ::lBuffer 85. SetFilter( [cFilter] ) --> cFilter Sets filter ...

... )->( RecCount() ) METHOD RecLock() INLINE ( ::nArea )->( RLock() ) METHOD RecNo() INLINE ( ::nArea )->( RecNo() ) METHOD Save() METHOD SetBuffer( lOnOff ) METHOD SetBookMark() METHOD Seek( uExp, lSoft ) METHOD SetOrder( cnTag, cFile ) INLINE ( ( ::nArea )->( OrdSetFocus( cnTag, cFile ...

I'm using the following functions: /* * $DOC$ * $FUNCNAME$ * HB_ZIPFILE() * $CATEGORY$ * Zip Functions * $ONELINER$ * Create a zip file * $SYNTAX$ * HB_ZIPFILE( <cFile>, <cFileToCompress> | <aFiles>, <nLevel>, * <bBlock>, <lOverWrite>, <cPassword>, <lWith...

... */ METHOD Blank() CLASS TAdoBase ::oRs:MoveLast() //::Load() ::ClearBuffer() ::lNew:=.T. return nil /* ***************************** */ METHOD SetBuffer( lOnOff ) CLASS TAdoBase Local Old_lBuffer := ::lBuffer //DEFAULT lOnOff := .t. if lOnOff != nil ::lBuffer = lOnOff if ::lBuffer ::Load() ...

... n = 1 to ::nFields ::aBuffer[ n ] := ::AdoGetValue( n - 1 ) next if ::lOemAnsi ::OemToAnsi() endif return nil /* ******************** */ METHOD SetBuffer( lOnOff ) CLASS TAdoBase DEFAULT lOnOff := .t. if lOnOff != nil ::lBuffer = lOnOff endif if ::lBuffer ::Load() else //::aBuffer := nil ::ClearBuffer() ...

oDbf:SetBuffer( .F. )
Y ahora realiza el scope, haber si te funciona.

... Ok. Si descomentas esta linea del codigo que he puesto, veras como funciona ok, sin cambiar nada mas. IF lAdd //-> Para Anadir oDbf:SetBuffer( .T. ) oDbf:Blank() ELSE //-> Para Alterar oDbf:Load() ENDIF Este codigo es practicamente igual ...