Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Tue May 05, 2020 08:36 PM

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

FWH 22.10 - HARBOUR - PELLES C

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 08:59 AM

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.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 02:22 PM

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 (fw): Select all Collapse

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 (fw): Select all Collapse

        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

FWH 22.10 - HARBOUR - PELLES C

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 02:51 PM

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

Code (fw): Select all Collapse

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

debe ser

Code (fw): Select all Collapse

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

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

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 03:13 PM

groiss wrote:Antonio:
Se han colado ":" que están de más
Code (fw): Select all Collapse
oBrw::lFastDraw := .T.      // <=== Aqui Definido
debe ser
Code (fw): Select all Collapse
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 (fw): Select all Collapse

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

FWH 22.10 - HARBOUR - PELLES C

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 04:25 PM

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.

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"
Posted: Wed May 06, 2020 04:39 PM

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

Un saludo

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

FiveTech Support Forums

Continue the discussion