topic-38442

Board index FiveWin para Harbour/xHarbour busqueda en xbrowse incremental en red

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

busqueda en xbrowse incremental en red
Posted: Mon Feb 03, 2020 11:51 PM

Estoy implementando la busqueda incremental en una base de datos de clientes que tiene un grandor de 1.5 Mgb, en la máquina principal funciona correctamente pero en las clientes demora bastante casi colgando el programa.

Code (fw): Select all Collapse

   DEFINE DIALOG oDlg RESOURCE "DIALOG_2" ICON surge
   oDlg:cCaption := "Clientes"
 //  oDlg:bgotfocus := {|| oMae:activate() }

   REDEFINE SPLITTER oSplit[ 1 ] id 110 COLOR rgb( 234, 234, 234 )  of oDlg
   REDEFINE SPLITTER oSplit[ 2 ] id 111 COLOR rgb( 234, 234, 234 )  of oDlg
   REDEFINE xbrowse oLbx ;
      COLUMNS Str( ( oMae:cAlias )->NCLI ), ;         
      ( ( oMae:cAlias )->NAPE ), ;      
      ( oMae:cAlias )->Domi, ;
      ( oMae:cAlias )->LOCA, ;
      ( oMae:cAlias )->PCIA, ;
      ( oMae:cAlias )->TELE, ;
      ( oMae:cAlias )->CUIT, ;
      ( oMae:cAlias )->IVA, ;
      ( oMae:cAlias )->RUBRO, ;
      Str( ( oMae:cAlias )->VENDEDOR );
      ON DBLCLICK  CLIENTES( oLbx, .F., oMae, oMemos, oDomcli, oClitrans, oVend, ( oMae:cAlias )->ncli  ) ID 101  OF oDlg;
      HEADERS "Código", "Cliente", "Domicilio", "Localidad", "Provincia", ;
      "Telefono", "Cuit", "Iva", "Rubro", "Vendedor";
       COLSIZES 60, 210, 190, 190, 190, 160, 90, 100, 180, 60

   WITH OBJECT oLbx
      :nMarqueeStyle := 4
      :nColDividerStyle := LINESTYLE_BLACK
      :nStretchCol := STRETCHCOL_LAST
      :lColDividerComplete := .F.
     // :l2010 := .T.
      :lAllowColHiding := .F.
      :lIncrFilter      := .T.
      :lSeekWild        := .t.
      :cFilterFld       := "NAPE"

      //:bKeyDown := {| nKey | If( nKey == K_ENTER, ( FCHOFER( oLbx, .f.,oCho),oDlg:end()), ) }
      :nRowDividerStyle :=2
      :nColDividerStyle :=2
      :bClrStd := {|| {rgb(0,0,0),(cColorcli( ( oMae:cAlias )->constiva, ( oMae:cAlias )->constgan, ( oMae:cAlias )->constmono )) } }
   END WITH

O hay otra forma de hacerlo

Luis

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: busqueda en xbrowse incremental en red
Posted: Tue Feb 04, 2020 10:53 PM

Luis,

en ambiente de red o internet, incluso con dbfs, lo optimo no es hacer ese tipo de busqueda, xq imagina q tengas 10.000 clientes y buscas secuencialmente pues palmaria todo, yo lo hacia asi hasta que migre a mysql, a mi entender y lo he implementado asi con mysql, es preguntar en un get q quiere buscar y filtrar la tabla x esa condicion y mostrar el resultado en el browse.

Espero te sirva,
saludos

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: busqueda en xbrowse incremental en red
Posted: Thu Feb 06, 2020 01:11 AM

Gracias Ariel por contestar, esa misma base de datos usandola con wbrowse de hernan usando dbfseek es rapidísima en la red y pensé que sería lo mismo con xbrowse, ignoraba esa incapacidad del xbrowse.
Lamentablemente no puedo pasar el programa a mariadb por ahora.

Luis

FiveTech Support Forums

Continue the discussion