FiveTech Software tech support forums

Posted: **Tue May 05, 2020 8: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

Posted: **Wed May 06, 2020 8: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.

Posted: **Wed May 06, 2020 2: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: 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

Posted: **Wed May 06, 2020 2:51 pm**

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

Posted: **Wed May 06, 2020 3:13 pm**

groiss wrote: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

Posted: **Wed May 06, 2020 4: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.

Posted: **Wed May 06, 2020 4:39 pm**

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

Un saludo

FiveTech Software tech support forums

Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"

Re: Busqueda Incremental en Xbrowse Lenta en Red "URGENTE"