busqueda en xbrowse incremental en red

[surGom]

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: Select all  Expand view

  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]

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]

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