FiveTech Software tech support forums

... MsgAlert(nKey) if GetAsyncKey(VK_BACK) cKey:=substr(cKey,1,len(cKey)-1) endif cKey:=left(cKey,len(cKey)-1) nOrdAnt:=OrdSetFocus(aBUSCAR[1]) dbseek(cKey,.t.) nSeekNvo:=recno() if eof().or.!OrdKeyVal()=cKey dbgoto(nSeekRec) lDesp:=.f. endif if lDesp if !nSeekRec==nSeekNvo ...

... to know the sorted column(s). So for incremental seek to work initially we need to set oRs:Sort := <columnName>, just like we need to set OrdSetFocus() in RDD. We may improve XBrowse to extract the sorted column name from the record set's source SQL, but at present it does not. About the ...

... normally ... but when I run the SQL database is not working properly ... I do not know why! function TraPre(cmm) DBSelectArea("Trz") OrdSetFocus("TRZISNO") oNazPar :Refresh() if mRat>0 mTxt2="" mTxt3="" oTxt3 :refresh() oTxt4 :refresh() endif iNovi=.f. ...

I have an archive of 61819 Records

I must index it on seven indexes

When Imade (cdbf)->(OrdSetFocus(n)) and refresh() the xbrowse it is too slow

How I can resolve this problem

I'm using a portable Pc with 8GBRam Winseven

... listview loop lower maximized mdichild method memvar msgInfo msgBeep message menu menuitem msglogo next numeric name of otherwise on off order ordsetfocus path pixel protected print page parameters procedure prompts preview picture quit return recall resource resources redefine read report ...

... <.rest.>, , , <cp> )  Así que en teoría es lo mismo, tal vez la velocidad disminuye porque ahora no utilizas Cliente->(OrdSetFocus(1)) prueba el primer ejemplo sin esa línea y agregasela al segundo, tal vez influya.

... } A better solution is to use a function FUNC DB_SEEK(x,nOrder) local cMemOrder := OrdSetFocus() dbsetorder(nOrder) dbseek(x) OrdSetfocus(cMemOrder) RETURN found() Odlg:bInit should also call oBrw:bChange ! Frank Thanks Frank for your ...

... } A better solution is to use a function FUNC DB_SEEK(x,nOrder) local cMemOrder := OrdSetFocus() dbsetorder(nOrder) dbseek(x) OrdSetfocus(cMemOrder) RETURN found() Odlg:bInit should also call oBrw:bChange ! Frank

Si Karinha Ahora es mucho mas rapido, antes lo hacia asi: * Clientes USE "CLIENTES" SHARED Alias Cliente NEW Cliente->(OrdSetFocus(1)) SORT ON NOMBRE TO WORK3431 Cliente->(DbCloseArea()) ocasionaba una demora considerable, son aprox. 18,000 registros en tres minutos Un Escandalo ...

... Save() METHOD SetBuffer( lOnOff ) METHOD SetBookMark() METHOD Seek( uExp, lSoft ) METHOD SetOrder( cnTag, cFile ) INLINE ( ( ::nArea )->( OrdSetFocus( cnTag, cFile ) ) ) METHOD SetRelation( ncArea, cExp ) INLINE ; ( ::nArea )->( DbSetRelation( ncArea, Compile( cExp ), cExp ) ) METHOD ...

Coloca un SELECT al area del xbrowse donde quieres cambiar el indice antes del SETFOCUS, haber si es que estas perdiendo en area, o prueba mandando un mensaje alert( alias() ), asi podrias ver cual es el area que tienes activo al crear el indice, igual, si pones algo de codigo donde tienes el proble...

... from start: 0 hours 0 mins 34 secs    Error occurred at: 22/02/2013, 18:33:37   Error description: Error DBCMD/2001  Area de trabajo no usada: ORDSETFOCUSStack Calls===========   Called from:  => ORDSETFOCUS(0)   Called from:  => TCBROWSE:SETORDER(0)   Called from:  => ...

... BRUSH oBrush OF oWnd TITLE "Stock en Almacenes" DBSELECTAREA("FTAlmacenes") // MAESTRO DE ALUMNOS *FTAlmacenes->( OrdSetFocus(2) ) FTAlmacenes->( DBGOTOP() ) DATABASE oDbfALUM // LECTURA Y CLONACION DE DBF ORIGINAL oDbfALUM:GOTOP() *REDEFINE XBROWSE oBrow ID ...

... te esta hechando broma, saludos... :shock: Ejemplo totalmente funcional: DBSELECTAREA("jlalumno") // MAESTRO DE ALUMNOS jlalumno->( OrdSetFocus(2) ) jlalumno->( DBGOTOP() ) DATABASE oDbfALUM // LECTURA Y CLONACION DE DBF ORIGINAL oDbfALUM:GOTOP() oBrow:=TxBrowse():New( oWndAlu ...

... a buscar" DBSelectArea(DBLISTA) (DBLISTA)->(AdsClearAOF()) (DBLISTA)->(OrdScope(0,)) (DBLISTA)->(OrdScope(1,)) (DBLISTA)->(OrdSetFocus('NOMBRE33')) //Filtro FTS (DBLISTA)->(DbGoTop()) (DBLISTA)->(AdsSetAof( '"' +cTexto+ '" $ P_NOM') ) Mbrw:Refresh(.t.) La ...