Page 2 of 2
Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Tue May 05, 2020 8:36 pm
by remtec
Hola Moises
Muchas gracias por responder.
La lentitud se produce al mostrar lo que se digita en la busqueda y llenado del Xbrowse, ya que se requiere filtro, que solo vaya mostrando los reqistros que contiene lo que se va digitando.
Muy agradecido por interes.
Muchos Saludos,
Antonio
Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 8:59 am
by MOISES
Prueba dos cosas:
- A crear una unidad lógica, para no acceder al recurso del tipo UNC \\servidor\carpeta
- A activar el modo oBrw::lFastDraw := .T.
Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 2:22 pm
by remtec
Hola Moises.
Te comento, el sistema fue instalado en una carpeta de una Red Novell 3.12, donde hay otros sistemas en Clipper y estos vuelan, pero FWH 17.09, su Xbrowse sucumbe, su lentitud es tremenda, pero en pc local, incluso probado en Pendriver, muy rapido, pero en Red, muere.
He aplicado lo que me dices, pero arroja error al compilar.
Muchos Saludos y muchas gracias.
Antonio
Codigo donde lo defino:
Code: Select all
Function Activa_Profe()
Local oDlg1, oBrw, oFont1,oFont2, oTitu1,oTitu2,oFont3,aStruc,oSay1,oSay2,oGet1,oFont4,oFont5,oTitu3
Local nPro:=2, aEstado := {},Estado1:=""
SET ESCAPE OFF
oBrw::lFastDraw := .T. // <=== Aqui Definido
AADD( aEstado,{"TODOS "})
AADD( aEstado,{"SOLO VIGENTES"})
AADD( aEstado,{"DESACTIVADOS "})
AADD( aEstado,{"SOLO AGENDA "})
Abre_dbf("Profesi1",1,.f.,"Profe")
Error al Compilar:
Code: Select all
c:\util\hb32\bin\harbour .\ActiProf.PRG /n /gc0 /q /Ic:\util\hb32\includ
e;c:\util\fwh1709\include /w0 /Oobj\ActiProf.c
Harbour 3.2.0dev (r1506171039)
Copyright (c) 1999-2015, http://harbour-project.org/
.\ActiProf.PRG(15) Error E0030 Syntax error "syntax error at 'SELF'"
1 error
No code generated.
** error 1 ** deleting .\obj\ActiProf.OBJ
Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 2:51 pm
by groiss
Antonio:
Se han colado ":" que están de más
Code: Select all
oBrw::lFastDraw := .T. // <=== Aqui Definido
debe ser
Code: Select all
oBrw:lFastDraw := .T. // <=== Aqui Definido
En la primera transcripción ta venían de más.
Un saludo
Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 3:13 pm
by remtec
groiss wrote:Antonio:
Se han colado ":" que están de más
Code: Select all
oBrw::lFastDraw := .T. // <=== Aqui Definido
debe ser
Code: Select all
oBrw:lFastDraw := .T. // <=== Aqui Definido
En la primera transcripción ta venían de más.
Un saludo
Hola groiss
Muchas gracias por tu preocupacion.
Modifique lo que me indicas, pero me arroja un error al ingresar a este programa.
Muchos Saludos,
Antonio
Error
Code: Select all
pplication
===========
Path and name: V:\MenuRece.exe (32 bits)
Size: 4,574,208 bytes
Compiler version: Harbour 3.2.0dev (r1506171039)
FiveWin version: FWH 17.09
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 5.1, Build 2600 Service Pack 3
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 06/05/2020, 11:03:01
Error description: Error BASE/1005 No existe la variable de instancia: LFASTDRAW
Args:
[ 1] = U
[ 2] = L .T.
Stack Calls
===========
Called from: => _LFASTDRAW( 0 )
Called from: .\ActiProf.PRG => ACTIVA_PROFE( 15 )
Called from: .\MenuRece.PRG => (b)MAIN( 125 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 684 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 924 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1873 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
Called from: .\MenuRece.PRG => MAIN( 198 )
System
======
CPU type: Pentium(R) Dual-Core CPU E6600 @ 3.06GHz 3058 Mhz
Hardware memory: 2010 megs
Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 4:25 pm
by armando.lagunas
vi tu código, por lo visto estas usando dbCommit(), sacalos todos, ese es el primer punto a corregir, esa instrucción en redes novell produce una tremenda lentitud inexplicablemente, que en forma local no se percibe, por otro lado, el xbrowse hace búsqueda incremental desde la primera letra del campo indexado, y así sucesivamente a medida que escribes y el puntero se mueve hasta que encuentres lo escrito.
prepara un gif para mostrarnos el comportamiento de la lentitud
espero comentarios
saludos.
Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 4:39 pm
by MOISES
Sí, en efecto debe ser oBrw:lFastDraw := .T. y colocarlo después del REDEFINE/DEFINE xBROWSE.
Un saludo