Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

[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

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

[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  Expand view

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  Expand view

        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
 

[groiss]

Antonio:
Se han colado ":" que están de más

Code: Select all  Expand view

oBrw::lFastDraw := .T.      // <=== Aqui Definido

debe ser

Code: Select all  Expand view

oBrw:lFastDraw := .T.      // <=== Aqui Definido

En la primera transcripción ta venían de más.
Un saludo

[remtec]

Antonio:
Se han colado ":" que están de más

Code: Select all  Expand view

oBrw::lFastDraw := .T.      // <=== Aqui Definido

debe ser

Code: Select all  Expand view

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  Expand view

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
 

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

[MOISES]

Sí, en efecto debe ser oBrw:lFastDraw := .T. y colocarlo después del REDEFINE/DEFINE xBROWSE.

Un saludo